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

Страницы: 1 2 След.
[ Закрыто] Снятие галок макросом, Снятие галок
 
#
28.02.2026 19:51:35
Цитата
написал:
а вот макрос не отрабатывает
Это прикол такой? Вы GGE29, уже утром создавали тему с данным вопросом. Или Это Ваше Альтер эго  создавало вопрос сегодня утром?

Изменить состояние чекбоксов на листе макросом
Изменено: Ivan.Z - 28.02.2026 19:53:39
 
Перейти    
Изменить состояние чекбоксов на листе макросом
 
#
28.02.2026 10:31:14
Цитата
написал:
записал макрос и не работает?
Проблема в том, что в колонке D у Вас не текст "ИСТИНА/ЛОЖЬ", а логические значения. Replace работает с текстом, а в столбце D логические значения. Поэтому Selection.Replace What:="ИСТИНА" просто не находит совпадений.

По простому, вот так:
Код
Private Sub CommandButton1_Click()
    Dim lastRow As Long

    Application.EnableEvents = False

    lastRow = Cells(Rows.Count, "D").End(xlUp).Row
    Range("D3:D" & lastRow).Value = False   

    Application.EnableEvents = True
    Range("G3").Select
End Sub
Изменено: Ivan.Z - 28.02.2026 10:35:21
 
Перейти    
Ломаются файлы .xlsm
 
#
22.02.2026 18:25:44
Цитата
написал:
В чем может быть проблема? Хоть примерно) Где искать причину и как ее избежать?

На самом деле вариантов может быть много. Это, по сути, будет просто предположения, одно из которых случайно может «выстрелить». В идеале было бы неплохо получить сам файл: хотя бы посмотреть код VBA, и при необходимости — открыть его прямо с сервера (своего) и воспроизвести поведение.
 
Перейти    
метод "align" для объекта "button" в схеме ribbon xml
 
#
17.02.2026 08:34:28
.
Изменено: Ivan.Z - 17.02.2026 08:38:48
 
Перейти    
Таблица калькулятор, перерасчет
 
#
15.02.2026 23:32:31
Цитата
написал:
включить содержимое
пробуйте. Когда скачаете, не забывайте в свойства файла поставить галочку "Разблокировать"
Изменено: Ivan.Z - 15.02.2026 23:36:58
 
Перейти    
Таблица калькулятор, перерасчет
 
#
15.02.2026 23:24:58
Closing159, Вы когда файл скачиваете, вы листы копируете куда-то, переименовываете? Что делаете с файлом?  
 
Перейти    
Таблица калькулятор, перерасчет
 
#
15.02.2026 23:12:22
Closing159, пробуйте
Изменено: Ivan.Z - 15.02.2026 23:15:21
 
Перейти    
Таблица калькулятор, перерасчет
 
#
15.02.2026 22:54:41
Цитата
написал:
выдал ошибку
Нажмите Debug - VBA подсветит строку, где ошибка. Скиньте скрин.
 
Перейти    
Таблица калькулятор, перерасчет
 
#
15.02.2026 22:47:13
Цитата
написал:
выполнить макрос - выдал ошибку
Там не надо ничего выполнять. Меняете значение в ячейках D и значения в N пересчитываются.
 
Перейти    
Нумерация уникальных значений при фильтрации, При применении фильтров новая нумерация, исключающая дублированные данные
 
#
15.02.2026 22:44:09
at_work, как вариант, добавляем 2 тех. столбца (E и F) и короткая формула в А. Без тяжелых и сложных формул и VBA. Так сказать по быстрому)

Смотрите. Столбцы E и F скрыты. Можете перенести куда подальше, если мешать будут.
 
Перейти    
Таблица калькулятор, перерасчет
 
#
15.02.2026 22:07:29
Closing159, Как вариант - макросом. Можно конечно и формулами заморочиться, но макрос лучше будет.

Как вариант, вот (см. файл). Значения в ячейках N пересчитываются автоматически при изменении значений в D.
Изменено: Ivan.Z - 15.02.2026 22:08:46
 
Перейти    
Подсчёт дней и часов, Подсчёт дней и часов
 
#
08.02.2026 13:05:18
Цитата
написал:
"ЧИСТРАБДНИ"
но она не учитывает праздники.

Функция ЧИСТРАБДНИ работает очень просто и «тупо», по заложенным правилам:Есть выходные
Праздники — только те, которые вы сами передадите третьим аргументом.
Если список праздников не передан — Excel считает, что праздников нет вообще.

Цитата
написал:
Буду знать, что существует функция "РабВремя"
её и нет, это пользовательская функция VBA (alt+F11 нажмите и увидете)
Изменено: Ivan.Z - 08.02.2026 13:39:44
 
Перейти    
Подсчёт дней и часов, Подсчёт дней и часов
 
#
08.02.2026 10:48:01
Цитата
написал:
Можно найти решения формулами и макросами.
Вот это то, что просил пользователь - консультация. А я фигнёй ночью страдал 😁😁

SanyaMan90, Да, я праздники не исключает, т.к. календарь расписывать лень было.  
 
Перейти    
Подсчёт дней и часов, Подсчёт дней и часов
 
#
08.02.2026 02:32:03
SanyaMan90, Добрый день.

Так нужна консультация или чтобы Вам сделали? :)

Смотрите. Как один из вариантов - Чисто формулами.

Т.к. Вы не указали про обед, я сделал 2 вкладки: исходя из 9 часового рабочего дня и 8 часового (обед)

Изменено: Ivan.Z - 08.02.2026 03:50:22
 
Перейти    
Поиск ближайшей даты к сегодня
 
#
07.02.2026 09:49:58
petrovsanechek85,  попробуйте.

Дата заезда и дата выезда, как я понял, должны быть связаны. Например: строка 5 - Дата заезда ставится 18.01.2026 т.к. дата выезда (19.02.2026) еще не наступила и это как бы один блок.

Дата заезда:
Код
=ЕСЛИ($F4="";"";ЕСЛИОШИБКА(АГРЕГАТ(14;6;$G$2:$MC$2/(G4:MC4="М")/($G$2:$MC$2<=$F4);1);""))
Дата выезда:
Код
=ЕСЛИОШИБКА(АГРЕГАТ(15;6;$G$2:$NG$2/(G4:MC4="ДМ")/($G$2:$MC$2>=СЕГОДНЯ());1);"")
Изменено: Ivan.Z - 07.02.2026 11:16:56
 
Перейти    
Вычисление разности времени формулой
 
#
05.02.2026 16:54:18
john22255,
Вот и ладушки)
Изменено: Ivan.Z - 05.02.2026 16:56:05
 
Перейти    
Вычисление разности времени формулой
 
#
05.02.2026 16:50:06
Цитата
написал:
Если в С4 17:00 , а в D4 22:00, то формула возвращает 8:00
у меня стоит 0
Изменено: Ivan.Z - 05.02.2026 16:53:09
 
Перейти    
Вычисление разности времени формулой
 
#
05.02.2026 16:11:38
Смотрите:
Код
=(D4+(D4<C4)-C4)-МАКС(0;МИН(D4+(D4<C4);22/24)-МАКС(C4;6/24))-МАКС(0;МИН(D4+(D4<C4);1+22/24)-МАКС(C4;1+6/24))
 
Перейти    
Создание генератора чисел
 
#
05.02.2026 15:07:21
SingOrDie, смотрите.
Изменено: Ivan.Z - 05.02.2026 21:30:21
 
Перейти    
Поиск вхождений текста и создание столбца по условию в PQ, Просматриваем столбец, если находим одну из «кодовых фраз», то возвращаем «результат» по таблице соответствия.
 
#
05.02.2026 09:25:05
AlienSx, ну, критика по существу. Спасибо.

"Мы все учились понемногу, чему-нибудь и как-нибудь"
 
Перейти    
Поиск вхождений текста и создание столбца по условию в PQ, Просматриваем столбец, если находим одну из «кодовых фраз», то возвращаем «результат» по таблице соответствия.
 
#
05.02.2026 07:47:44
avbook,
Цитата
написал:
пытался решить задачу в помощью List.Accumulate
я доработал Вашу логику решение задачи.

AlienSx абсолютно прав. Его вариант решение лучше и правильней, в контексте поставленной задачи.
Если чешется затылок, расчесывать все тело не нужно точно)
 
Перейти    
Поиск вхождений текста и создание столбца по условию в PQ, Просматриваем столбец, если находим одну из «кодовых фраз», то возвращаем «результат» по таблице соответствия.
 
#
05.02.2026 06:55:28
Цитата
написал:
Такое сообщение можно игнорировать?
Да. В Вашей версии все работает. В данном случае, сообщение информационное.
Изменено: Ivan.Z - 05.02.2026 07:36:37
 
Перейти    
Поиск вхождений текста и создание столбца по условию в PQ, Просматриваем столбец, если находим одну из «кодовых фраз», то возвращаем «результат» по таблице соответствия.
 
#
04.02.2026 21:29:32
avbook,
См. Выписка (2) Столбцы H (Контрагент) и I (СтатьяБюджета)

P.S. Если правильно понял из Вашего объяснения.  
 
Перейти    
Вычитание по условию, Помогите составить формулу
 
#
03.02.2026 09:58:20
БМВ,
Цитата
написал:
кстати A1="";ЕПУСТО(A1) - масло масляное.
согласен.

Цитата
написал:
ответ дан в теме с нарушением, значит способствовали ему
каюсь.

Muxa K,
Цитата
написал:
А тему я бы назвал:"Вычитание по условию"
благодарю за исправление моего "недоглядел".
 
Перейти    
Вывод уникальных значений без ранее использованных
 
#
02.02.2026 23:03:23

Цитата
написал:
Задача: как вывести в столбце 3 , уникальные значения столбца 2, за минусом значений из столбца один.
Я бы сделал через Power Query: разбил e-mail из обоих столбцов (A и B) на отдельные строки, удалил дубликаты, а затем взял бы рассылку 2 и вычел из неё все адреса, которые уже есть в рассылке 1.

В итоге получаем чистый список e-mail для столбца 3 — только те, кто есть в B, но отсутствует в А.
 
Перейти    
Сравнение таблиц водителей для одноразовых заявок, Перемещение таблицы из ворд в Excel и вставка идентичных новых таблиц для подсвечивания новых данных
 
#
02.02.2026 22:32:29
Цитата
написал:
Ну вот в Экселе таблицы ещё нет, но должна быть как в Ворде. А в какой файл нужно преобразовать Ворд, чтобы он он открылся в Excel через PQ или вставку данных?  
Зачем вести активность (хоть и малую) здесь, если Ваш пост с той же задачей размещен в разделе "Работа" и там Вам отписались?
 
Перейти    
Заполнить значением ячейку, Заполнить значением ячейку на основании заполненной даты в другой ячейке
 
#
02.02.2026 22:26:57
Ну для полного разнообразия еще подкину похожий вариант:
Код
=ЕСЛИ(СТОЛБЕЦ()-СТОЛБЕЦ($Q7)+1=ПОИСКПОЗ($G7;$Q$6:$AU$6;0);$H7;"")
 
Перейти    
Вычитание по условию, Помогите составить формулу
 
#
02.02.2026 21:32:43
Цитата
написал:
Ivan.Z , теперь с Вас название темы
Я прошу прощения, но причём тут я?  
 
Перейти    
Вычитание по условию, Помогите составить формулу
 
#
02.02.2026 17:04:46
Вот:
Код
=ЕСЛИ(ИЛИ(A1="";ЕПУСТО(A1));"";A1-B1)
 
Перейти    
сумма на пересечении, Подобие индекса или продолжение его изучения ;(
 
#
02.02.2026 16:13:15
Код
=СУММПРОИЗВ(($B$2:$B$15=C$15)*C$2:C$15)
.
Изменено: Ivan.Z - 02.02.2026 16:18:07
 
Перейти    
Страницы: 1 2 След.
Наверх