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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 754 След.
Собрать данные в массив по условию и найти максимальное/минимальной значение в массиве
 
#
19 сен 2020 14:30:10
Если совпадение только частичное - тогда словарь тут не годится, цикл в цикле наверное придётся перебирать...
Хотя в словаре можно хранить номера строк массива с этими критериями, а сравнивать перебором ключей словаря, так можно/нужно его использовать.
Я сегодня пас, нет времени вникать/делать.
Изменено: Hugo - 19 сен 2020 14:31:49
 
Перейти    
Как запретить преобразование числа в переменной VBA в экспоненциальный формат
 
#
19 сен 2020 12:46:16
Как вариант
Код
Up_16_Symbol = CDec(Cells(2, 1))
 
Перейти    
Собрать данные в массив по условию и найти максимальное/минимальной значение в массиве
 
#
19 сен 2020 12:27:09
Я описал вроде оптимальный алгоритм, осталось Вам его реализовать. И не нужны кучи массивов. достаточно одного с результатом и одного с исходными данными.
Ну и может ещё коллекции или словаря с индексами.
 
Перейти    
Собрать данные в массив по условию и найти максимальное/минимальной значение в массиве
 
#
19 сен 2020 11:57:01
Вообще пример плохой, потому что исходя из него можно написать код, который будет корректно работать только для этого примера.
Например по такой логике:
1. берём в двумерный массив диапазон A2:C6 первого листа
2. цикл по ячейкам столбца А второго листа, по номеру обращаемся к массиву, сверяем его значения с текущими второго листа (0 не считаем за минимальную дату), записываем или не записываем в массив
3. выгружаем массив назад
Всё.
Но если номера в первом листе другие и хаотичные - тогда просто в код добавить словарь, куда сперва занести все эти номера с их позицией в массиве, и использовать эту информацию в дальнейшем.
Изменено: Hugo - 19 сен 2020 11:58:59
 
Перейти    
При отмене объединения ячеек текст в них сохраняется! Как?!, Необычное объединение ячеек, при отмене которого текст во всех получившихся ячейках цел.
 
#
18 сен 2020 20:33:09
Да без проблем работает кисточка.
Текст не менял!
 
Перейти    
При отмене объединения ячеек текст в них сохраняется! Как?!, Необычное объединение ячеек, при отмене которого текст во всех получившихся ячейках цел.
 
#
18 сен 2020 20:17:08
Может в какой из новых версий наконец додумались кнопку такую сделать, у меня в 2010 я не вижу.
Вообще - а в чём смысл оставлять при объединении значение только в первой ячейке, как сделано по умолчанию?
Изменено: Hugo - 18 сен 2020 20:18:59
 
Перейти    
При отмене объединения ячеек текст в них сохраняется! Как?!, Необычное объединение ячеек, при отмене которого текст во всех получившихся ячейках цел.
 
#
18 сен 2020 20:11:02
Кисточкой.
 
Перейти    
Управление шириной отдельной ячейки независимо от изменения ширины всего столбца
 
#
18 сен 2020 19:58:40
Подозреваю, что может нужно форматирование по центру выделения. Вот это может быть задача, если описать ЗАЧЕМ!
 
Перейти    
Управление шириной отдельной ячейки независимо от изменения ширины всего столбца
 
#
18 сен 2020 19:55:18
И вот когда озвучите задачу - можно её и в название прописать.
 
Перейти    
Управление шириной отдельной ячейки независимо от изменения ширины всего столбца
 
#
18 сен 2020 19:45:46
Цитата
Пупер написал:
Вообще нет вариантов?
- задачу озвучьте, подскажем варианты.
 
Перейти    
Неспособность application.findformat жить внутри пользовательской функции VBA, Application.findformat не рабоает внутри функции
 
#
18 сен 2020 18:43:01
Да я зашёл, а тут только название.
Вот не могу вспомнить что ещё не работало, что только в макросе... Кажется что-то с объединением ячеек.
 
Перейти    
Неспособность application.findformat жить внутри пользовательской функции VBA, Application.findformat не рабоает внутри функции
 
#
18 сен 2020 18:34:44
Там и displayformat не работает, и вообще обычный find тоже...
И на днях я ещё что-то видел, не помню....
Изменено: Hugo - 18 сен 2020 18:35:35
 
Перейти    
Помогите найти ошибку в простенькой формуле СУММЕСЛИ, Формула СУММЕСЛИ, не могу понять как делать.
 
#
18 сен 2020 17:45:28
См. выше.
Но проще
Код
=СУММПРОИЗВ((Лист2!$A$1:$A$4=Лист1!A1)*Лист2!$B$1:$C$4)
Изменено: Hugo - 18 сен 2020 17:47:13
 
Перейти    
Помогите найти ошибку в простенькой формуле СУММЕСЛИ, Формула СУММЕСЛИ, не могу понять как делать.
 
#
18 сен 2020 17:38:59
У первого параметра написано - диапазон проверяемых ячеек. Не заметили?
http://prntscr.com/ujlq0k
P.S. громоздко, но работает как хотели (для B1):
Код
=СУММЕСЛИ(Лист2!$A$1:$A$4;Лист1!A1;Лист2!$B$1:$B$4)+СУММЕСЛИ(Лист2!$A$1:$A$4;Лист1!A1;Лист2!$C$1:$C$4)

и протянуть вниз.
Изменено: Hugo - 18 сен 2020 17:44:51
 
Перейти    
Перевести дату по-русски на дату по-английски одной формулой
 
#
18 сен 2020 07:26:10
Цитата
buchlotnik написал:
так дано ж
ДАТА!
Цитата
Mst Touch написал:
а если дата в формате "21.11.2020"
то я написал. Правда у меня не хватает "st", это может кто подскажет.
 
Перейти    
Перевести дату по-русски на дату по-английски одной формулой
 
#
17 сен 2020 21:32:13
Не совсем, но близко:
Код
=ТЕКСТ(A1;"[$-409]дддд, ММММ дд, гггг")

Ну или формат такой ячейке  поставить, если можно без формулы.
Изменено: Hugo - 17 сен 2020 21:33:01
 
Перейти    
Скрыть столбцы по условию макросом
 
#
17 сен 2020 16:08:41
В ActiveSheet.UsedRange.
А этот диапазон может начинаться с любой строки листа.
 
Перейти    
Скрыть столбцы по условию макросом
 
#
17 сен 2020 15:51:20
Из этого всего можно оставить 3 строки:
Код
Private Sub ToggleButton1_Click()

'If Me.ToggleButton1.Value = True Then
    For Each cell In ActiveSheet.UsedRange.Rows(1).Cells
    'Debug.Print ActiveSheet.UsedRange.Rows(1).Cells.Address
        If cell.Value Like "*НЕДЕЛЯ*" Then cell.EntireColumn.Hidden = Me.ToggleButton1.Value 'True
    Next
'Else
'    For Each cell In ActiveSheet.UsedRange.Rows(1).Cells
'        If cell.Value Like "*НЕДЕЛЯ*" Then cell.EntireColumn.Hidden = False
'    Next
'End If
End Sub
 
Перейти    
Суммесли не работает с длинными числами в качестве условия, Суммесли суммируя по условию в качестве которого задано длинное число заменяет последнюю цифру нулем.
 
#
16 сен 2020 20:38:53
СЧЁТЕСЛИ() косячит аналогично.
И СУММЕСЛИМН() тоже.
А вот СУММПРОИЗВ() можно использовать.
Изменено: Hugo - 16 сен 2020 20:46:14
 
Перейти    
Помогите. Нужно написать "код - дание" в ячейку, и сответственно от етого появиться значение в строках (пример додаю)
 
#
16 сен 2020 18:45:20
складний=сложный? Ну нафиг, так напрограммируем :)
 
Перейти    
VBA. Как исправить ошибку Run-time error '1004' Application-defined or object-defined error
 
#
16 сен 2020 16:36:11
В xls точно работать не будет.
 
Перейти    
Применение параметра Delimiter для файлов*.csv
 
#
15 сен 2020 19:22:04
Кинул линки в личку.
 
Перейти    
Применение параметра Delimiter для файлов*.csv
 
#
15 сен 2020 19:16:41
Да там данные такие что обычным импортом никак не взять корректно.
Если не лень качать кажется 30 мб - попробуй :)
Изменено: Hugo - 15 сен 2020 19:17:16
 
Перейти    
Применение параметра Delimiter для файлов*.csv
 
#
15 сен 2020 19:06:24
Привет Павел!
Да я тут на днях на эксельмире такооой csv импортировал :)
Скрин: https://u.to/ym2eGQ
Только PQ и справился. легко.
Изменено: Hugo - 15 сен 2020 19:08:19
 
Перейти    
Применение параметра Delimiter для файлов*.csv
 
#
15 сен 2020 18:30:32
А лучше PQ!
 
Перейти    
Как скрыть строки таблицы не содержащие текст, внесенный в контрольные ячейки над таблицей?
 
#
15 сен 2020 09:21:03
Цитата
Hugo написал:
а ещё там используется LinkedCell!
 
Перейти    
Как скрыть строки таблицы не содержащие текст, внесенный в контрольные ячейки над таблицей?
 
#
15 сен 2020 08:56:50
ListObjects - это умная таблица!
А таких нет.
P.S. а ещё там используется LinkedCell!
Вот сделал в файле для первой таблицы.
Изменено: Hugo - 15 сен 2020 09:08:00
 
Перейти    
Как скрыть строки таблицы не содержащие текст, внесенный в контрольные ячейки над таблицей?
 
#
15 сен 2020 08:33:20
Цитата
SamuelW написал:
Проименовал диапазон
- не вижу.
 
Перейти    
Функция не видит число
 
#
14 сен 2020 19:47:25
Код
=ЕСЛИ(СЧЁТЕСЛИ(A1;"ДА")=1;3;"-")

Зачем превращать текст в цифры? Выводите сразу цифры!
Хотя в общем случае конечно не цифры, а числа! :)
Изменено: Hugo - 14 сен 2020 19:57:32
 
Перейти    
Сохранение файла с ячейкой, обязательной для заполнения
 
#
14 сен 2020 12:15:13
Ну так я подсказал, на другой машине с другим Экселем проблем в этом быть не должно.
Но вот проверку я бы делал не по
Код
IsEmpty(Range("F9"))

а по
Код
Len(Trim(Range("F9"))) = 0

Потому что забить туда пробел у них нет проблем :(
И ещё нужно указать лист, вдруг там ещё листы добавятся.
Изменено: Hugo - 14 сен 2020 12:16:22
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 754 След.
Наверх