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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 723 След.
Макрос удаления сток неправильно работает
 
#
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 написал:
почему-то не удаляются эти столбцы
- удаляются. Но сразу этот выделенный диапазон заполняется данными массива. Зачем  - не вникал.
 
Перейти    
Вывод сообщение "Такая запись уже существует"
 
#
2 Май 2019 23:03:18
Подсказку получила.
Но до конца я код не наладил - у меня почему-то сетфокус не отрабатывает - при старте всё ОК, на восьмой текстбокс становится, а вот вернуть на девятый до или после его очистки никак не могу...
 
Перейти    
Вывод сообщение "Такая запись уже существует"
 
#
2 Май 2019 22:19:08
Извиняюсь, и впрямь ошибка есть, но только если на листе строк меньше двух. Можно исправить, но сейчас некогда до ума доводить.
 
Перейти    
Вывод сообщение "Такая запись уже существует"
 
#
2 Май 2019 20:31:58
Цитата
DKe написал:
Выдает ошибку
- я перед публикацией проверил в Вашем файле, никаких ошибок нет.
 
Перейти    
Как передать в vba диапазон одной ячейки в переменную?
 
#
2 Май 2019 09:29:38
Цитата
передать в vba диапазон одной ячейки в переменную?
- если отвечать буквально:
Код
set переменная = диапазонизоднойячейки
 
Перейти    
Вывод сообщение "Такая запись уже существует"
 
#
1 Май 2019 23:26:13
Добрый вечер.
Я так пробую - что-то у меня сетфокус не отрабатывает, но может и не нужно...
Код
Private Sub TextBox9_AfterUpdate()
    x = TextBox9
    Set sht = Sheets("Лист1")
    a = sht.Range("A1").CurrentRegion.Columns(3).Value
    For I = 1 To UBound(a)
        If a(I, 1) = x Then MsgBox "Такая запись уже существует!", vbCritical: TextBox9.SetFocus: TextBox9 = Empty: Exit For
    Next
End Sub

P.S. Правда файл брал не по ссылке, а с другого форума.
Изменено: Hugo - 1 Май 2019 23:29:10
 
Перейти    
Удалить 2 последних символа из каждой строки текстового файла
 
#
30 Апр 2019 17:25:35
Т.е. на выходе желаете получить одну строку?
 
Перейти    
Курс валюты в эксель с с помощью макроса, переделка макроса
 
#
29 Апр 2019 13:42:25
Вы прочитали что там написано? Что выяснили?
 
Перейти    
Курс валюты в эксель с с помощью макроса, переделка макроса
 
#
29 Апр 2019 09:24:05
Добрый день.
Изучайте это: http://www.nbt.tj/ru/kurs/export_xml.php?date=2019-04-29
Можно например брать xml:
http://www.nbt.tj/ru/kurs/export_xml.php?date=2019-04-29&export=xmlout
Изменено: Hugo - 29 Апр 2019 09:24:46
 
Перейти    
Рассчитать возраст по персональному коду
 
#
28 Апр 2019 20:46:14
Если речь идёт о кодах жителей Латвии - то уже почти как два года появились коды, не привязанные к дате рождения (защита данных!) - они начинаются на 32. Любой озабоченный приватностью житель может бесплатно поменять старый код на новый.
Правда пока таких на общем фоне мало, и в сотне скорее всего их не будет - но в формуле это нужно предусмотреть.
 
Перейти    
Суммировать значения объектов, у которых одинаковые коды, код формата хх:хххх. СУММЕСЛИ возвращает ошибочный результат
 
#
26 Апр 2019 10:30:56
Количество цифр в коде более 15? Файл пока посмотреть не могу...
 
Перейти    
"Перенос данных между таблицами для формирования заказа
 
#
25 Апр 2019 08:45:25
Есть возможность подготовить объединённые ячейки для корректной работы с ВПР - это делается копированием формата с объединения на предварительно изготовленную таблицу.
 
Перейти    
Глючный excel-файл. подвисает. исчезает таблица при скроле
 
#
24 Апр 2019 19:46:48
Добрый день.
У меня ничего не подвисает, но смущает размер файла - хотел посмотреть что внутри, для этого сохранил как xlsm - размер стал 90 284.
Попробуйте пересохранить например в xlsx.
P.S  Пересохранение в любой формат сильно убирает размер. Даже xls на треть худее.
Изменено: Hugo - 24 Апр 2019 19:48:39
 
Перейти    
Сортировка столбца с смешанными данными, число+текст сортировать как числа.
 
#
21 Апр 2019 23:43:28
Ну можно ещё чуть подпилить:
Код
=ЕСЛИ(ЕЧИСЛО(1*A:A);1*A:A;ПРАВСИМВ("000000"&A:A;6))
 
Перейти    
Сортировка столбца с смешанными данными, число+текст сортировать как числа.
 
#
21 Апр 2019 23:04:55
И чем этот файл отличается от того первого? Я думал может показываете как формулу применил :)
 
Перейти    
Сортировка столбца с смешанными данными, число+текст сортировать как числа.
 
#
21 Апр 2019 22:51:50
В допстолбец
Код
=ЕСЛИ(ЕЧИСЛО(1*[@Столбец1]);[@Столбец1];ПРАВСИМВ("000000"&[@Столбец1];6))

и по нему сортировать всю таблицу.
И без примера как оно есть в файле такую формулу не написать… Т.е. она была бы другой.
По названию темы - Сортировка столбца с смешанными данными, число+текст сортировать как числа.
 
Перейти    
Сортировка столбца с смешанными данными, число+текст сортировать как числа.
 
#
21 Апр 2019 22:06:51
Я думаю там другие данные.
Ибо у меня по умолчанию сортируется так:
1
2
3
4
5
10К
11К
12К
1К
2К
3К
4К
5К
6К
7К
8К
9К

Поэтому совет - следуйте пожалуйста правилам форума!
 
Перейти    
Разделить каждую строку из одной ячейки в отдельный столбец
 
#
21 Апр 2019 19:13:51
Тут на форуме уже много раз пробегала UDF Substring() - можно использовать её, если правильно писать заглавия столбцов:
Код
=ПОДСТАВИТЬ(Substring($B2;СИМВОЛ(10);СТОЛБЕЦ()-2;СТОЛБЕЦ()-2);C1&":";"")

Т.е. извлекаем строку типа
Тип: Автомодель на р/у
заменяем в ней заголовок + двоеточие на ничего.
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 723 След.
Наверх