Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Всплывающее сообщение при открытии Excel - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Всплывающее сообщение при открытии Excel (Формулы/Formulas)
Всплывающее сообщение при открытии Excel
mcrc Дата: Вторник, 10.04.2018, 09:53 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Нашёл тут на форуме пример кода, который при открытии Экселя выводит дни рождения ввиде всплывающего сообщения.
Расширил в коде диапазоны "ФИО" и "Дней до др" с запасом, чтобы не править каждый раз макрос при добавлении новой строки.
setArray arrCompanyName, "A2:A100"
setArray arrDaysBeforeBirthDay, "B2:B100"
А он теперь эти лишние пустые строки демонстрирует в окне нотификации (см. аттач).
Помогите люди добрые поправить код так, чтобы выводились только не пустые строчки.

Спасибо
К сообщению приложен файл: 9282615.xlsm (16.3 Kb)
 
Ответить
СообщениеНашёл тут на форуме пример кода, который при открытии Экселя выводит дни рождения ввиде всплывающего сообщения.
Расширил в коде диапазоны "ФИО" и "Дней до др" с запасом, чтобы не править каждый раз макрос при добавлении новой строки.
setArray arrCompanyName, "A2:A100"
setArray arrDaysBeforeBirthDay, "B2:B100"
А он теперь эти лишние пустые строки демонстрирует в окне нотификации (см. аттач).
Помогите люди добрые поправить код так, чтобы выводились только не пустые строчки.

Спасибо
Автор - mcrc
Дата добавления - 10.04.2018 в 09:53
китин Дата: Вторник, 10.04.2018, 10:03 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
а добавить три строчки в код? не?
[vba]
Код
Dim tt&, ttt
    tt = Cells(Rows.Count, 1).End(xlUp).Row
    ttt = Cells(Rows.Count, 1).End(xlUp).Row
    Dim i As Long

    Set wks = ThisWorkbook.Worksheets("Лист1")
    
    setArray arrCompanyName, "A2:A" & tt
    setArray arrDaysBeforeBirthDay, "B2:B" & ttt
[/vba]
К сообщению приложен файл: _9282615.xlsm (14.1 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеа добавить три строчки в код? не?
[vba]
Код
Dim tt&, ttt
    tt = Cells(Rows.Count, 1).End(xlUp).Row
    ttt = Cells(Rows.Count, 1).End(xlUp).Row
    Dim i As Long

    Set wks = ThisWorkbook.Worksheets("Лист1")
    
    setArray arrCompanyName, "A2:A" & tt
    setArray arrDaysBeforeBirthDay, "B2:B" & ttt
[/vba]
Автор - китин
Дата добавления - 10.04.2018 в 10:03
mcrc Дата: Вторник, 10.04.2018, 14:02 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
китин, спасибо вам!
Увы даже 3 строчки кода для меня - непреодолимая сложность :(
 
Ответить
Сообщениекитин, спасибо вам!
Увы даже 3 строчки кода для меня - непреодолимая сложность :(
Автор - mcrc
Дата добавления - 10.04.2018 в 14:02
китин Дата: Вторник, 10.04.2018, 14:16 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
вот так правильнее
[vba]
Код
Dim tt&, ttt&
    tt = Cells(Rows.Count, 1).End(xlUp).Row
    ttt = Cells(Rows.Count, 2).End(xlUp).Row
    Dim i As Long

    Set wks = ThisWorkbook.Worksheets("Ëèñò1")
    
    setArray arrCompanyName, "A2:A" & tt
    setArray arrDaysBeforeBirthDay, "B2:B" & ttt
[/vba]
К сообщению приложен файл: _9282615_22.xlsm (16.6 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Вторник, 10.04.2018, 14:16
 
Ответить
Сообщениевот так правильнее
[vba]
Код
Dim tt&, ttt&
    tt = Cells(Rows.Count, 1).End(xlUp).Row
    ttt = Cells(Rows.Count, 2).End(xlUp).Row
    Dim i As Long

    Set wks = ThisWorkbook.Worksheets("Ëèñò1")
    
    setArray arrCompanyName, "A2:A" & tt
    setArray arrDaysBeforeBirthDay, "B2:B" & ttt
[/vba]
Автор - китин
Дата добавления - 10.04.2018 в 14:16
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Всплывающее сообщение при открытии Excel (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!