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

Страницы: 1 2 3 4 5 6 След.
При отображении сгруппированных строк не показывать скрытые
 
#
05.01.2021 23:41:20
БМВ, Благодарю! Всё заработало)
 
Перейти    
При отображении сгруппированных строк не показывать скрытые
 
#
05.01.2021 23:17:12
БМВ, эффект тот же самый, всё равно раскрытие группы возвращает уменьшенной строке её прежнюю высоту
 
Перейти    
При отображении сгруппированных строк не показывать скрытые
 
#
05.01.2021 23:00:32
vikttur, а как тогда отловить само событие нажатия на плюсик ? не нашёл такой event
 
Перейти    
При отображении сгруппированных строк не показывать скрытые
 
#
05.01.2021 22:11:15
Здравствуйте! Ребята, нужна ваша помощь. Есть сгруппированный блок с 10 по 20 строки. Если я скрываю строку № 15, к примеру, а дальше нажимаю на "+" плюсик, чтобы раскрыть этот блок, то скрытая строка становится видимой. Подскажите пожалуйста, как избежать этого ? чтобы при раскрытии сгруппированных областей скрытые вручную строки не показывались
 
Перейти    
Убрать кавычки при вычислении формулы
 
#
30.01.2020 20:16:43
Цитата
Максим В. написал:
Добрый , предложите название. Модераторы поменяют.

понял. Тогда предлагаю название "СУММЕСЛИМН: - в условии не работает ИЛИ"
 
Перейти    
Убрать кавычки при вычислении формулы
 
#
30.01.2020 20:01:10
Если честно, то не понимаю в чем дело( ощущение будто Excel видит первую { фигурную скобку и считает, что это текстовое значение, потому и обрамляет весь блок в двойные кавычки. Я пытался всякими разными способами в эту формулу поместить содержимое ячейки, но оно всегда вставляется с кавычками. Пробовал заменять перед вставкой кусок "{ на просто { и всё равно ничего.
А по названию темы - извиняюсь :( , но изменить название я же не могу, права только на изменение сообщений есть
 
Перейти    
Убрать кавычки при вычислении формулы
 
#
30.01.2020 19:46:43
Спасибо! Это помогло!
 
Перейти    
Убрать кавычки при вычислении формулы
 
#
30.01.2020 19:27:34
Пробовал вот так:
Код
=СУММ(СУММЕСЛИМН($E$7:$E$19;$D$7:$D$19;H15:H16))


увы, не работает(
 
Перейти    
Убрать кавычки при вычислении формулы
 
#
30.01.2020 19:10:38
Здравствуйте! Есть следующая формула:
Код
=СУММ(СУММЕСЛИМН($E$7:$E$19;$D$7:$D$19;{"Выполнено";"Доставка"}))

Когда вычисляется блок ИЛИ - {"Выполнено";"Доставка"} значение получается верным, но если пытаюсь условие {"Выполнено";"Доставка"} не вписывать так, а брать из ячейки (H15), формула становится следующей:
Код
=СУММ(СУММЕСЛИМН($E$7:$E$19;$D$7:$D$19;H15))

и вот тогда вычисление в итоге возвращает 0, вместо правильного значения.

Пытаюсь посмотреть пошагово как идёт вычисление и вижу следующее, вокруг {"Выполнено";"Доставка"} добавляются двойные кавычи, именно из-за этого и не отрабатывает формула так, как нужно.
Подскажите пожалуйста, как сделать так, чтобы при вычислении формулы условие не обрамлялось кавычками?
 
Перейти    
Сложить содержимое ячеек при условии
 
#
15.08.2019 19:40:50
Нашёл решение. Не актуально)
Код
=ЕСЛИ(D2<>"";СУММЕСЛИМН(Лист1!G2:G6;Лист1!F2:F6;D2;Лист1!H2:H6;"*"&A2&"*");СЧЁТЕСЛИ(Лист1!H2:H6;"*"&A2&"*"))
 
Перейти    
Сложить содержимое ячеек при условии
 
#
15.08.2019 19:13:02
Имеется две таблицы следующего вида. В столбце "Совпадения" стоит такая формула:
Код
=ЕСЛИ(D2<>"";СЧЁТЕСЛИМН(Лист1!F2:F6;D2;Лист1!H2:H6;"*"&A2&"*");СЧЁТЕСЛИ(Лист1!H2:H6;"*"&A2&"*"))
тем самым подсчитываю количество совпадений по двум условиям, по дате и по фамилии. Подскажите пожалуйста, как мне модифицировать формулу чтобы в столбце "Продолжительность минут" считались общее количество минут для заданных мной условий. По аналогии с той формулой выше

p.s. хотел приложить скрин, но он не вставился, извиняюсь
Изменено: Добрый - 15.08.2019 19:14:54
 
Перейти    
Посчитать количество Ивановых в определенном году
 
#
14.01.2019 21:38:24
БМВ, да, спасибо за наводку, поменял регион на RU и теперь всё работает)
 
Перейти    
Посчитать количество Ивановых в определенном году
 
#
14.01.2019 21:23:13
БМВ, вот в том то и дело, что ничего не меняю, а зашёл в режим редактирования и просто нажал Enter и сразу получил #ЗНАЧ!, думаю сломал уже что-то. Переоткрыл документ и попробовал просто удалить одну из фамилий в столбце G, как раз и формула должна была пересчитать значения, но всё также #ЗНАЧ!
Изменено: Добрый - 14.01.2019 21:23:35
 
Перейти    
Посчитать количество Ивановых в определенном году
 
#
14.01.2019 21:14:51
Ігор Гончаренко, да, конечно не обязателен, убрал его) но столкнулся с проблемой, при любом изменении вашей формулы, результат меняется на #ЗНАЧ!. Так хоть с СЧЕТЕСЛИ, хоть без него. Даже если ничего не меняю в формуле, а просто захожу в её редактирование и жму Enter. Так что смотрю пошагово что и как идет, чтобы понять в чем у меня проблема, у вас то правильно все посчитало)
 
Перейти    
Посчитать количество Ивановых в определенном году
 
#
14.01.2019 20:50:06
Anton555, Ігор Гончаренко, Спасибо!!! Да, это именно то что нужно!
 
Перейти    
Посчитать количество Ивановых в определенном году
 
#
14.01.2019 20:07:04
Здравствуйте! Пытаюсь посчитать количество "Совпадений" фамилий и вывести это число рядом с фамилией. Использую следующую формулу:
Код
=ЕСЛИ(СЧЁТЕСЛИ(Лист1!G2:G21,Лист1!A2)>0,СЧЁТЕСЛИ(Лист1!G2:G21,Лист1!A2),"")
всё считает как нужно, но попытался хоть как-то задать критерий поиска, размещённый в ячейке D2, чтобы подсчёт количества совпадений производился только тогда, когда значение в столбце F (Даты) содержит заданный мною критерий. Пробовал через НАЙТИ, через ПОИСК, но так ничего и не вышло(

Подскажите пожалуйста как посчитать "Совпадения", которые в столбце B с учётом критерия в ячейке D2 ?
Изменено: Добрый - 14.01.2019 21:53:52 (картинка не загрузилась)
 
Перейти    
Сохранение и восстановление настроек в checkbox и textedit после перезапуска надстройки
 
#
22.12.2018 00:24:31
RAN, спасибо за наводку, записал действительно данные в ячейки листа самой надстройки и оттуда при запуске надстройки считываю. Только срабатывает через раз
Изменено: Добрый - 22.12.2018 00:26:05
 
Перейти    
Сохранение и восстановление настроек в checkbox и textedit после перезапуска надстройки
 
#
21.12.2018 23:09:06
Юрий М, так вы просто откройте через Alt + F11 редактор кода когда запустили надстройку и там скрипты все прописаны
 
Перейти    
Сохранение и восстановление настроек в checkbox и textedit после перезапуска надстройки
 
#
21.12.2018 22:07:17
RAN, подскажите пожалуйста, как это сделать? буду благодарен за пример
 
Перейти    
Сохранение и восстановление настроек в checkbox и textedit после перезапуска надстройки
 
#
21.12.2018 22:04:03
JayBhagavan, пришлось его удалить, что-то оно как-то не правильно загружается( при том что в визуальном редакторе  выглядит нормально
Ну смысловой нагрузки оно не несёт, просто показал чекбокс и текстовую форму на вкладке)
 
Перейти    
Сохранение и восстановление настроек в checkbox и textedit после перезапуска надстройки
 
#
21.12.2018 22:01:18
Здравствуйте! Имеется тестовая надстройка с контролом checkbox и textedit.

Когда ставлю галочку в чекбоксе или вписывают в форму свой текст и выхожу из Excel, то надстройка не запоминает этот поставленный чекбокс или введённый текст. Подскажите пожалуйста, как мне сделать так, чтобы данные ленты этой надстройки при закрытии Excel сохранялись и при следующем запуске Excel и соответственно запуске и надстройки лента возвращала на место галочку в чекбоксе и введённый в форму ранее текст ?
Изменено: Добрый - 21.12.2018 22:01:51
 
Перейти    
При скролле мышкой в UserForm реагировать только на один фрейм
 
#
04.11.2018 13:22:24
ivanok_v2, да, понял)
 
Перейти    
При скролле мышкой в UserForm реагировать только на один фрейм
 
#
04.11.2018 13:20:09
ivanok_v2, да, теперь работает) благодарю!!!
 
Перейти    
При скролле мышкой в UserForm реагировать только на один фрейм
 
#
04.11.2018 12:45:53
ivanok_v2, после этих манипуляций скролл перестаёт работать вообще на всех элементах и на Frame1 в том числе
 
Перейти    
При скролле мышкой в UserForm реагировать только на один фрейм
 
#
04.11.2018 12:22:16
Здравствуйте! Нашёл хороший скрипт, который добавляет возможно скролла в TextBox, ListBox, ListView, Image, Frame. Мне он нужен для прокрутки во Frame, все работает хорошо. Подскажите пожалуйста такое, как модифицировать скрипт так, чтобы он реагировал только на один фрейм, с названием Frame1, а остальные Frame не трогал вообще?

Сейчас это выглядит так:
1. Навожу курсор на Frame1 и когда кручу колесо мышки скролл работает на Frame1.
2. Навожу курсор на Frame2 и фокус уже попадает на него. И если прокрутить колесо мышки, то скролл сработает на Frame2. А мне нужно чтобы если один раз фокус попал на Frame1, то даже при наведении на Frame2 чтобы всё равно скролился Frame1.
 
Перейти    
Составное (динамическое) имя переменной в VBA
 
#
06.04.2018 19:44:25
Sanja, Hugo, skiv17, Ігор Гончаренко, БМВ, Большое спасибо за помощь!!!)
 
Перейти    
Составное (динамическое) имя переменной в VBA
 
#
06.04.2018 19:32:05
БМВ, во кусок кода и в нем я перебираю через For blN цифры от 5 до 9, а дальше уже записываю в переменные
kpp_nd_Cstart_bl5, kpp_nd_Rstart_bl5 и т.д. информацию. Вот мне и нужно число из переменной blN как-то привязать к слову "kpp_nd_Cstart_bl" чтобы на выходе получилось kpp_nd_Cstart_bl5, когда все циклы завершатся и blN увеличится на единицу, то уже будет kpp_nd_Cstart_bl + цифра 6 - "kpp_nd_Cstart_bl6" и т.д.
Код
For blN = 5 To 9 Step 1
    If Sheets("Бл " & blN).[G15] <> "" Then
        For j = 1 To 70 Step 1
            For i = 1 To 350 Step 1
                e = InStr(Sheets("Бл " & blN).Cells(i, j).Value, "вит")
                a = InStr(Sheets("Бл " & blN).Cells(shapka1_bl5, j).Value, "Н")
                b = InStr(Sheets("Бл " & blN).Cells(shapka1_bl5, j).Value, "В")
                c = InStr(Sheets("Бл " & blN).Cells(shapka1_bl5, j).Value, "ш")
                d = InStr(Sheets("Бл " & blN).Cells(shapka1_bl5, j).Value, "р")
        
                
                If a > 0 And Sheets("Бл " & blN).Cells(i, j).NumberFormat = "0" Then
                    If kpp_nd_start = "" Then
                        kpp_nd_start = Sheets("Бл " & blN).Cells(i, j).address
                        kpp_nd_Cstart_bl5 = Split(Sheets("Бл " & blN).Cells(1, j).address, "$")(1)
                        kpp_nd_Rstart_bl5 = Sheets("Бл " & blN).Cells(i, j).Row
                    Else
                        kpp_nd_finish = Sheets("Бл " & blN).Cells(i, j).address
                        kpp_nd_Cfinish_bl5 = Split(Sheets("Бл " & blN).Cells(1, j).address, "$")(1)
                        kpp_nd_Rfinish_bl5 = Sheets("Бл " & blN).Cells(i, j).Row
                    End If
                End If
                
                If b > 0 And Sheets("Бл " & blN).Cells(i, j).NumberFormat = "0" Then
                    If kpp_vd_start = "" Then
                        kpp_vd_start = Sheets("Бл " & blN).Cells(i, j).address
                        kpp_vd_Cstart_bl5 = Split(Sheets("Бл " & blN).Cells(1, j).address, "$")(1)
                        kpp_vd_Rstart_bl5 = Sheets("Бл " & blN).Cells(i, j).Row
                    Else
                        kpp_vd_finish = Sheets("Блок " & blN).Cells(i, j).address
                        kpp_vd_Cfinish_bl5 = Split(Sheets("Бл " & blN).Cells(1, j).address, "$")(1)
                        kpp_vd_Rfinish_bl5 = Sheets("Блок " & blN).Cells(i, j).Row
                    End If
                End If
                
                If c > 0 And Sheets("Блок " & blN).Cells(i, j).NumberFormat = "0" Then
                    If shirm_start = "" Then
                        shirm_start = Sheets("Бл " & blN).Cells(i, j).address
                        shirm_Cstart_bl5 = Split(Sheets("Бл " & blN).Cells(1, j).address, "$")(1)
                        shirm_Rstart_bl5 = Sheets("Бл " & blN).Cells(i, j).Row
                    Else
                        shirm_finish = Sheets("Бл " & blN).Cells(i, j).address
                        shirm_Cfinish_bl5 = Split(Sheets("Бл " & blN).Cells(1, j).address, "$")(1)
                        shirm_Rfinish_bl5 = Sheets("Бл " & blN).Cells(i, j).Row
                    End If
                End If
                
                If d > 0 And Sheets("Бл " & blN).Cells(i, j).NumberFormat = "0" Then
                    If reg_st_start = "" Then
                        reg_st_start = Sheets("Бл " & blN).Cells(i, j).address
                        reg_st_Cstart_bl5 = Split(Sheets("Бл " & blN).Cells(1, j).address, "$")(1)
                        reg_st_Rstart_bl5 = Sheets("Бл " & blN).Cells(i, j).Row
                    Else
                        reg_st_finish = Sheets("Бл " & blN).Cells(i, j).address
                        reg_st_Cfinish_bl5 = Split(Sheets("Бл " & blN).Cells(1, j).address, "$")(1)
                        reg_st_Rfinish_bl5 = Sheets("Бл " & blN).Cells(i, j).Row
                    End If
                End If
Next i
Next j

    Else
        MsgBox "Бл " & blN & " - Нет загруженной информации!"
End If

Next blN
 
Перейти    
Составное (динамическое) имя переменной в VBA
 
#
06.04.2018 19:01:59
Ребята, подскажите пожалуйста как правильно совместить i и name, чтобы из этих двух значений получилось имя переменной? пытаюсь получить Name5, но как ни пытался к слову Name пристыковать текст из переменной i - ничего не получается(
Код
Sub script()
Dim i As Integer
Dim Name5 As String

i = 5
Name = "Текст"

MsgBox Name5
End Sub
 
Перейти    
Цикл по выделенным строкам в ListBox
 
#
23.02.2018 23:46:23
vikttur, Андрей VG, Казанский, ребята, огромное спасибо за помощь!!!) Вариант Казанского - то что нужно! Ещё раз спасибо!
 
Перейти    
Цикл по выделенным строкам в ListBox
 
#
23.02.2018 23:27:41
ZVI, понял, спасибо! А хоть какие-то варианты есть где именно задействован RowSource ?  у меня все на нем завязано и отказываться от него очень не хочется(
 
Перейти    
Страницы: 1 2 3 4 5 6 След.
Наверх