Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти  
Форумы "Планета Excel" » Пользователи » Hugo
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 723 След.
Замена части текстовой строки. Оптимизация
 
#
9 Авг 2019 15:20:24
Configure UDFs in Excel Online in Office Online Server
 
Перейти    
Замена части текстовой строки. Оптимизация
 
#
9 Авг 2019 13:50:17
Пишите UDF.
 
Перейти    
VBA скрипт копирование всех данный из файлов excel и вставка в другой файл excel
 
#
2 Авг 2019 14:23:06
Там где Destination - добавьте нужный сдвиг. Например .offset(1)
Не, лучше 2, типа
Код
 Destination:=ThisWorkbook.Worksheets(1).Range(iRngAddress).offset(2)
Изменено: Hugo - 2 Авг 2019 14:25:53
 
Перейти    
ВПР частично не работает с внешними связями
 
#
2 Авг 2019 13:44:09
Если там, где ищите текст - то можно текст и искать. Если не нашли число. Логика понятна?
 
Перейти    
Даты не форматируются
 
#
1 Авг 2019 16:09:03
У меня на листе достаточно
Код
=--A2

Да и в коде без проблем преобразует.
Потому что эксель не русский.
Ещё вариант на листе: текст по столбцам (убрать разделители)- готово, отдельно для каждого столбца. Задать нужный формат.
Изменено: Hugo - 1 Авг 2019 16:14:27
 
Перейти    
Поиск номера элемента массива
 
#
1 Авг 2019 09:58:46
Т.к. не повторяются - можно при создании массива (ну или сразу после) создать ещё параллельный словарь (ну или коллекцию), куда занести эти значения и номера.
Тогда вместо поиска по массиву можно брать значение из словаря/коллекции уже сразу готовое, без поиска.
 
Перейти    
Сравнить строки с повторяющимся диапазоном значений, Сравнение строчек с данными на предмет повтора не по одному, а по нескольким значениям одновременно
 
#
31 Июл 2019 14:21:15
Согласен, так проще, особенно второй вариант.
 
Перейти    
Сравнить строки с повторяющимся диапазоном значений, Сравнение строчек с данными на предмет повтора не по одному, а по нескольким значениям одновременно
 
#
31 Июл 2019 13:40:41
В любую. Желательно первой строки таблицы - ну чтоб понятнее было по какой строке результат.
А какой результат - увидите. Не бойтесь, вируса там нет :)
 
Перейти    
Сравнить строки с повторяющимся диапазоном значений, Сравнение строчек с данными на предмет повтора не по одному, а по нескольким значениям одновременно
 
#
31 Июл 2019 12:57:12
Uglykid, когда видите символ "=" - это означает что это формула, и её нужно ввести в ячейку.
 
Перейти    
Как запретить принудительное закрытие userform до истечения определенного времени?
 
#
31 Июл 2019 10:40:38
Зачем вообще эти строки, и без них работает... если ещё и Private Sub UserForm_Initialize() отключить. Ну и форму чуть подправить.
P.S. Понял, это чтоб убрать возможность выключить крестом... Ну можно вызвать ещё раз, если например юзер выключил не кнопкой, а крестом - пусть опять ждёт :)
Изменено: Hugo - 31 Июл 2019 10:46:15
 
Перейти    
Как запретить принудительное закрытие userform до истечения определенного времени?
 
#
31 Июл 2019 10:03:35
Думаю с msgbox ничего не сделать. Но можно создать свою форму, похожую на msgbox, с своим функционалом.
 
Перейти    
Сравнить строки с повторяющимся диапазоном значений, Сравнение строчек с данными на предмет повтора не по одному, а по нескольким значениям одновременно
 
#
30 Июл 2019 19:11:34
В лоб:
Код
=(ПОИСКПОЗ(2;B3:U3;0)>0)+(ПОИСКПОЗ(3;B3:U3;0)>0)

и протянуть. Там где не Н/Д, а 2 - нужные строки.
 
Перейти    
Как обьявить и использовать массив, если наперед неизвестны его размеры?
 
#
30 Июл 2019 11:46:39
В данном случае вместо массива удобно использовать коллекцию без ключа  -наполняете её сколько получается/нужно, в итоге имеете одномерное собрание значений, что по сути и есть одномерный массив или коллекция.
Вот, не вникая в суть и смысл, только заменил массив на коллекцию:
Код
Sub sreda()
Dim sr As New Collection, s&, d&, dd As Date
s = 1
For d = 1 To 31
    dd = DateSerial(Year(Date), 9, d)
    If Weekday(dd, vbMonday) = 3 Then
        MsgBox "day   " & Day(dd)
        MsgBox "s   " & s
        sr.Add Day(dd)
        s = s + 1
        MsgBox "s+1   " & s
    End If
Next
For s = 1 To sr.Count
    MsgBox sr(s)
Next
End Sub
Изменено: Hugo - 30 Июл 2019 12:08:17
 
Перейти    
Замена макросом значений в ячейках при открытии книги
 
#
26 Июл 2019 13:51:22
Ничуть не закономерно. У меня например работает.
 
Перейти    
Объединение файлов эксель в одну книгу, Объединение файлов эксель в одну книгу
 
#
28 Июн 2019 21:24:17
Что-то смотрю всем лениво код писать... Мне тоже :(
Но продумал работающий алгоритм:
1. Изучаете что такое словарь. Или коллекция. Или массив. Но это не обязательно.
2. Изучаете как в цикле открывать файлы.
3. Открываете кодом файлы, в словарь для ключа полныйпутькфайлу+имялиста пишите максимальное число из первого столбца нужного листа (кстати, какого? Это ясно только Вам...)
Кстати вместо словаря можно использовать массив, созданный под количество файлов, или с запасом, ну или банально два столбца любого листа любой книги.
4. Когда все файлы открыты, проанализированы, закрыты - у Вас в словаре/коллекции/массиве/листе есть вся нужная информация. Остаётся в целевой книге (можно прямо кодом и создать) прописать формулы, ссылающиеся на нужные ячейки просмотренных книг. Ну а затем всё скопом заменить на полученные значения.
Это если не нужны цвета/заливки/форматы/рюшечки...
 
Перейти    
Подтянуть цены на товары из таблицы в трех различных валютах
 
#
25 Июн 2019 23:28:42
И чего это не срабатывает... Вместо указания конкретного номера столбца можно ведь функцию использовать:
Код
=ПОИСКПОЗ(F2;$A$24:$D$24;0)
итого цены:
=ВПР(D2;$A$23:$D$31;ПОИСКПОЗ(F2;$A$24:$D$24;0);ЛОЖЬ)
Изменено: Hugo - 25 Июн 2019 23:32:48
 
Перейти    
Функция СУММЕСЛИМН принимает буквы за цифры, вопрос касательно ошибки в функции СУММЕСЛИМН
 
#
24 Июн 2019 21:31:59
Ну правильно - буквы больше цифр...
По формулам я не помогу. Добавьте ещё одно условие.
 
Перейти    
Макрос удаления сток неправильно работает
 
#
23 Июн 2019 00:17:30
Ой боюсь не влезет UsedRange в arr...
Но красиво :)
 
Перейти    
Макрос удаления сток неправильно работает
 
#
22 Июн 2019 21:11:55
Если таблицу можно сортировать - то думаю лучший результат получите используя макрос от ZVI DelRows:

Но думаю нужно будет его по месту подшаманить - насколько помню по умолчанию там анализируется только только один столбец.
Попробуйте для начала макрос из этой темы ещё разогнать массивами.
И конечно цепочку из AND следует заменить на вложенные IF-THEN, причём с порядком проверки от самого редкого к самому частому.
Изменено: Hugo - 23 Июн 2019 12:34:03
 
Перейти    
Макрос удаления сток неправильно работает
 
#
22 Июн 2019 13:16:52
Цитата
ardsa написал:
Но...макрос работает, но без результата (((
- это смотря на каком файле применять - если на первом, то результат есть :)
Но можно макрос ещё ускорить - считывать данные не из ячеек, а из массива. Или для начала не по 4 раза на каждом шаге смотреть что там в Cells(i, 7), а например всего 1 - тоже будет ускорение.
 
Перейти    
Макрос удаления сток неправильно работает
 
#
21 Июн 2019 23:33:49
Код
ElseIf Cells(i, 28).Value <> "OR" And Cells(i, 7).Value <> "AC" Then

вот почему
 
Перейти    
Как записать в формуле число 668-
 
#
20 Июн 2019 11:15:00
668- - это уже не число, берите его в кавычки: "668-"
 
Перейти    
Макрос по разнесению таблицы на разные вкладки
 
#
19 Июн 2019 14:18:30
Цитата
Nordheim написал:
каждый раз пробегать по массиву сверяя метки. в итоге мы имеем количество циклов по одному массиву равное количеству листов
-  файл не смотрел, но по описанию задачи думаю что тут сгодится словарь - сперва в него собрать все метки (каждой как значение идентификатор листа), затем уже нет проблем одним циклом по данным раскопировать каждую текущую строку сразу куда нужно.
 
Перейти    
В каком формате Excel лучше хранить данные
 
#
23 Май 2019 12:10:46
csv - это по сути текст и есть, их можно всю кучу зажать например раром для архивирования.
Как хранить результат обработки - другой вопрос, но думаю нужно как-то группировать чтоб сократить количество файлов.
 
Перейти    
Как Преобразовать Плоский Список В 2-Образную Кросс-Таблицу В Excel?
 
#
21 Май 2019 22:36:58
Ещё как вариант если делать макросом - использовать коллекцию и словарь (ну или пару словарей).
Код писать не вижу необходимости, но алгоритм такой:
1. Учитываем что в данных точно будут Class, Grade, Name.
2. Одним циклом по данным собираем коллекцию значений первого столбца, и в словарь для ключей из сцепки столбцов A|B пишем значение C.
3. Заполняем итоговую таблицу - для каждого значения коллекции из словаяря по ключу извлекаем собранные значения.

Т.е. из коллекции берём "1", из словаря по "1|Class" берём "One", по "1|Grade" берём "Three" и т.д. и пишем в таблицу в соотв. ячейки.
И т.д.
Количество данных практически значения не имеет,  лишь бы памяти хватило. 450 значений это вообще ни о чём...
 
Перейти    
Блыкание ячеек
 
#
19 Май 2019 19:23:14
Скрытый текст
 
Перейти    
Как сохранить число с нулями, обусловленными примененным форматированием?
 
#
14 Май 2019 16:54:11
Как вариант -
Код
Cells(i, 2) = "'" & Cells(i, 1).Text
 
Перейти    
Не открывается книга. Ошибки в содедржимом файла эксель
 
#
13 Май 2019 15:17:08
Можно пробовать вытящить данные формулами/ссылками из другого файла.
Можно пробовать открыть макросом через GetObject() - если получится то пересохранить с другим именем/форматом.
 
Перейти    
Макрос. Копирование данных в лист другого файла с изменяющимся названием
 
#
12 Май 2019 11:44:07
Цитата
Мария - написал: ругается на последнюю строку
- я тоже буду ругаться на
Цитата
Мария - написал: "INCOICES DOWNLIADING"
Может лучше это написать на понятном языке? :)
 
Перейти    
Выборка данных Из XLSX и создание нового CSV с этими данными
 
#
5 Май 2019 12:32:35
Цитата
restor написал:
почему-то не удаляются эти столбцы
- удаляются. Но сразу этот выделенный диапазон заполняется данными массива. Зачем  - не вникал.
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 723 След.
Наверх