Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » vikttur
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 17 След.
Продолжение записи в указанный столбец
 
#
14.03.2016 14:52:33
if  ........row =730 then......

или
if  ........count =730 then......
Изменено: Александр Сергеевич - 14.03.2016 14:53:31
не нужно оскорблять.
 
Перейти    
Аналог русскоязычной функции
 
#
10.03.2016 20:30:10
vlgpasha,
для быстрого перевода с русского на ангийский функций включаете ридер, пишете формулу в ячейке на русском, после смотрите что ридер записал, там будет на английском
не нужно оскорблять.
 
Перейти    
Аналог русскоязычной функции
 
#
10.03.2016 20:26:48
vlgpasha, название листа если пишется на русском то его не надо переводить
хз как вы и куда формулу засовываете но в ВБА через запятую аргументы перечисляются

так же может настройка не точка а зпт, не ";" а ":"
не нужно оскорблять.
 
Перейти    
Копирование строк с листа
 
#
10.03.2016 01:34:54
1.находите строку с определенным значением, и копируете её в массив
2. проверяете уникальность
3. определяете последнею строку куда вставлять
4. вставляете.
- перевести выше упомянутое в ВБА код для скорости
не нужно оскорблять.
 
Перейти    
PowerPoint и динамическая диаграмма
 
#
10.03.2016 01:12:10
это форум по Excel  а не по PowerPoint  
не нужно оскорблять.
 
Перейти    
Использование функции переноса данных с одного листа на другой (VBA) в shared workbook, Перенос строки на другой лист с последующим удалением с листа-донора
 
#
10.03.2016 01:03:32
Казанский,

?Sheets("Info_list").Range("A" & 100 + 2).Resize(1, 7).address
$A$102:$G$102

?Sheets("Info_list").Range("A" & 100 + 2).Resize(1, 7).entirerow.address
$102:$102


Цитата
Казанский написал:
причем для последней строки по умолчанию выбирается столбец, а для средних строк - строка!
это специфека только для книг с общем доступом?  то что он удаляет целый столбик я заметил, в какой момент он выделяет целый столбик?
не нужно оскорблять.
 
Перейти    
Использование функции переноса данных с одного листа на другой (VBA) в shared workbook, Перенос строки на другой лист с последующим удалением с листа-донора
 
#
09.03.2016 23:42:18
Astroid1,
такой глупый вопрос а для чего в коде   j = j + 1 ?
не нужно оскорблять.
 
Перейти    
Использование функции переноса данных с одного листа на другой (VBA) в shared workbook, Перенос строки на другой лист с последующим удалением с листа-донора
 
#
09.03.2016 23:36:16
так вроде работает, но я так и не понял причины(лень ваш код разбирать) просто обошел проблему
Код

Private Sub CommandButton2_Click()
    Dim i As Long
    
    With ListBox1

    For i = Me.ListBox1.ListCount - 1 To 0 Step -1

    
    
        If Me.ListBox1.Selected(i) Then
        
                If i = Me.ListBox1.ListCount - 1 Then
                Sheets("Info_list").Range("A" & i + 2).Resize(1, 7).Copy Sheets("Лист1").Range("A" & Rows.Count).End(xlUp).Offset(1)
                Sheets("Info_list").Range("A" & i + 2).Resize(1, 7).Value = ""
                j = j + 1
                Else
        
        
           j = j + 1
            Sheets("Info_list").Range("A" & i + 2).Resize(1, 7).Copy Sheets("Лист1").Range("A" & Rows.Count).End(xlUp).Offset(1)
            Sheets("Info_list").Range("A" & i + 2).Resize(1, 7).Delete
                End If
        End If
   Next i
    
    LoadListBox
    
      MsgBox "'OK'", vbInformation
End With
End Sub
не нужно оскорблять.
 
Перейти    
Использование функции переноса данных с одного листа на другой (VBA) в shared workbook, Перенос строки на другой лист с последующим удалением с листа-донора
 
#
09.03.2016 23:02:46
не то
Изменено: Александр Сергеевич - 09.03.2016 23:03:47
не нужно оскорблять.
 
Перейти    
Использование функции переноса данных с одного листа на другой (VBA) в shared workbook, Перенос строки на другой лист с последующим удалением с листа-донора
 
#
09.03.2016 22:48:56
Список ограничений книг с общим доступом читали?
не нужно оскорблять.
 
Перейти    
Расчет значения в ячейке по нескольким условиям в других ячейках, Как при выполнении нескольких условий "ЕСЛИ" заставить таблицу правильно выполнить расчет
 
#
09.03.2016 22:46:32
=ЕСЛИОШИБКА(ЕСЛИ(A4="М";"-";E4*I4*$E$16);"-")

вычисления уже сами дороботайте
не нужно оскорблять.
 
Перейти    
Курсы валют разных банков, Загрузка в Excel курсов валют различных банков
 
#
09.03.2016 21:58:45
Цитата
The_Prist написал:
плюс нормальный разработчик всегда в ответе за созданное и при возникновении любых ошибок бесплатно их исправляет без лишних вопросов.
Вот в этом и косяк этого ТЗ,  я лично не знаю 100% способа обойти все возможные периодические правки , верстки, структуирования сайтов. А делать временное, которое посыплется из за изменения сайта в любой день, вероятность мала но она умножается на 30 сайтов ....и за это брать как за хороший продукт
Программисты это знают и поэтому не берутся за это, авчина выделки не стоит.
не нужно оскорблять.
 
Перейти    
Условное форматирование в Excel 2003
 
#
09.03.2016 19:29:59
Цитата
Tema008 написал:
Таблица получается незаконченной.
умные таблицы? они вроде уже тогда существовали
не нужно оскорблять.
 
Перейти    
VBA Private Declare Function не опознаеться
 
#
09.03.2016 18:14:17
да совершенно верно  смена разрядности системы
Решение:
Код
#If Win64 Then
Private Declare PtrSafe Function GetComputerName Lib "kernel32" _
    Alias "GetComputerNameA" _
    (ByVal lpBuffer As String, nSize As Long) As Long
#Else
Private Declare Function GetComputerName Lib "kernel32" _
    Alias "GetComputerNameA" _
    (ByVal lpBuffer As String, nSize As Long) As Long
 
#End If
не нужно оскорблять.
 
Перейти    
VBA Private Declare Function не опознаеться
 
#
09.03.2016 17:59:47
После переустановки системы  ексель перестал её понимать
офисс тот же 2010, в чем подвох?

Код
Private Declare Function GetComputerName Lib "kernel32" _
    Alias "GetComputerNameA" _
    (ByVal lpBuffer As String, nSize As Long) As Long
не нужно оскорблять.
 
Перейти    
Переименовать листы макросом, VBA
 
#
09.03.2016 16:30:31
Romuald,
ну это уже через циклы (фор например), если на листе есть данные то копировать.....
имена также можно присваивать

но помойму у Вас копируются все листы разом, так может удалять пустые листы а потом копировать... книга закрывается без сохранения....
не нужно оскорблять.
 
Перейти    
Переименовать листы макросом, VBA
 
#
09.03.2016 16:14:34
Цитата
Romuald написал:
почему workbook(1),sheet(2), а не sheet(1) ?
очень часто нужно определять какой книги , т.к. без этого параметра береться активная книга, а в коде она может меняться,  если возможно лучше указывать.
не нужно оскорблять.
 
Перейти    
Переименовать листы макросом, VBA
 
#
09.03.2016 16:09:55
вот у меня работает добавил строку Sheets(1).Name = Sheets().Parent.Name
но это только на первый лист файла донора
Код
'проходим по всем выбранным файлам
    x = 1
    While x <= UBound(FilesToOpen)
        Set importWB = Workbooks.Open(Filename:=FilesToOpen(x))
      Sheets(1).Name = Sheets().Parent.Name
        Sheets().Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        
        importWB.Close savechanges:=False
        x = x + 1
        
    Wend
не нужно оскорблять.
 
Перейти    
Переименовать листы макросом, VBA
 
#
09.03.2016 15:32:37
что то подобное пробовали?

workbook(1),sheet(2).name = workbook(1).name & workbook(1).worksheets.count
не нужно оскорблять.
 
Перейти    
Определение конечной даты обжалования постановления
 
#
09.03.2016 15:05:14
попробуйте проверку если деньнед()= суббота то +2....

так же есть рабдень но чет у меня с ней не получилось
не нужно оскорблять.
 
Перейти    
Курсы валют разных банков, Загрузка в Excel курсов валют различных банков
 
#
09.03.2016 13:56:18
Цитата
Игорь написал:
- возьмите и сделайте дешевле
Запрещено правилами форума

Цитата
Все_просто написал:
При желании указанную работу можно сделать за 2-3 часа (можно еще быстрее), но это будет быстрое и совсем не надежное решение,
мне кажется безумно сложное решение учитывающие много параметров то же не сильно надежно, сайт донор сменит формат сайта(очень частое явление), и все Очень сложные алгоритмы(те же скрипты), не смогут его переварить и вернемся к тому с чего начали. Или я неправ?( починка сложного механизма сложней починки простого механизма)

я как вариант предлагаю сделать очень простое что бы ТС при изменений сайтов мог сам внести нужные корректировки.
не нужно оскорблять.
 
Перейти    
льготный стаж педагогического работника, помогите рассчитать стаж для выхода на льготную пенсию воспитателя
 
#
08.03.2016 23:45:02
сума стажа в днях - сумма отпусков= стаж в днях
после выразить целые месяца и года
округлвниз(х/365)*365=целых лет
и т.д.
не нужно оскорблять.
 
Перейти    
Виснет эксель и ворд
 
#
08.03.2016 23:33:10
по теме зависания, были вири которых не один антивирус не видел....
сегодня был прикол простой системный процесс жрал 50% оперативки, развернул на состовляющие и выяснил что жрали неудачные попытки обновиться.

так что смотрите через процессы кто жрет
не нужно оскорблять.
 
Перейти    
Виснет эксель и ворд
 
#
08.03.2016 23:30:20
Цитата
kuklp написал:
майл.ру агент снес
и правильно сделал, у меня один раз через майл агент ушло в сеть куча моих паролей, после этого  некогда его не ставил
не нужно оскорблять.
 
Перейти    
Вставить значения в разные ячейки
 
#
08.03.2016 23:13:45
у меня в таком формате работает(случайно выбрал ячейки)
Код
    Workbooks("торг 2 позиции.xls").Sheets(1).Range("AS5:AZ5") = _
    Workbooks("позиции.xls").Sheets(1).Range("b4")
не нужно оскорблять.
 
Перейти    
Как разрешить использование макросов?
 
#
08.03.2016 22:56:43
1. может формат файла не предусматривает макросы?
2. защиты кикинить.
не нужно оскорблять.
 
Перейти    
Сохранение листа в формат xls, Помогите допилить
 
#
08.03.2016 22:49:54
ридер у меня выдал так (а один лист), ну далее при необходимости уже оптимизировать можно

Код
Sub Макрос1()
'
' Макрос1 Макрос
'

'
    Sheets("Лист1").Select
    Sheets("Лист1").Copy
    ChDir "C:\Users\Александр\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Александр\Desktop\Книга2.xls", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
не нужно оскорблять.
 
Перейти    
Обнуление заданных ячеек
 
#
08.03.2016 16:40:08
Sanja, это да,
мы же не знаем что и как он там крутит, так для информации может пригодиться.
не нужно оскорблять.
 
Перейти    
Обнуление заданных ячеек
 
#
08.03.2016 16:18:56
.clear
не нужно оскорблять.
 
Перейти    
Количество строк по количеству товаров
 
#
08.03.2016 15:45:38
Вставляете строки и формулы растягиваете на них
не нужно оскорблять.
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 17 След.
Наверх