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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Всплывающее сообщение при открытии Excel (Формулы/Formulas)
Всплывающее сообщение при открытии Excel
mcrc Дата: Вторник, 10.04.2018, 09:53 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 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
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4930
Репутация: 787 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
а добавить три строчки в код? не?
[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/WM R249698041931; Z239672726538
 
Ответить
Сообщениеа добавить три строчки в код? не?
[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
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
китин, спасибо вам!
Увы даже 3 строчки кода для меня - непреодолимая сложность :(
 
Ответить
Сообщениекитин, спасибо вам!
Увы даже 3 строчки кода для меня - непреодолимая сложность :(

Автор - mcrc
Дата добавления - 10.04.2018 в 14:02
китин Дата: Вторник, 10.04.2018, 14:16 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4930
Репутация: 787 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
вот так правильнее
[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/WM R249698041931; Z239672726538


Сообщение отредактировал китин - Вторник, 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-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!