Как добавить информацию во всплывающее окно

Пользователь

Сообщений: 84 Регистрация: 06.11.2015

29.07.2021 19:22:24

Добрый день, коллеги.
Не смог сам реализовать задумку.
Есть всплывающее окно, появляется, когда открываешь файл, но в него нужно добавить данные из ячеек(как показано на скрине). Как это сделать?

P.S. Пробовал через controlsource, не получилось, слетает весь файл и выдает ошибку.

Прикрепленные файлы

СВОДНЫЙ КАЛЕНДАРЬ 2021-2022.xlsm (66.67 КБ)
как надо.png (43.94 КБ)

New

Пользователь

Сообщений: 4837 Регистрация: 06.01.2013

29.07.2021 21:58:56

Код

Private Sub UserForm_Initialize()
    Me.Label4.Caption = ThisWorkbook.Worksheets("РАСПИСАНИЕ").Range("M2").Value 'мероприятие
    Me.Label5.Caption = ThisWorkbook.Worksheets("РАСПИСАНИЕ").Range("M1").Value 'ближайшая дата
    Me.Label6.Caption = Date 'ThisWorkbook.Worksheets("РАСПИСАНИЕ").Range("N1").Value 'сегодня
End Sub

Изменено: New - 29.07.2021 22:01:41

alexheiki Пользователь Сообщений: 84 Регистрация: 06.11.2015	#3 29.07.2021 21:59:57 New, огромное Вам спасибо, сам бы никогда не догадался.

Ігор Гончаренко Пользователь Сообщений: 14576 Регистрация: 01.01.1970	#4 29.07.2021 23:48:39 не удивительно, тут основная масса не догадалась бы как в Label.Caption запихнуть значение из конкретной ячейки оказывается нужно написать КонкретнаяLabel.Caption = КонкретныйЛист.КонкретнаяЯчейка Изменено: Ігор Гончаренко - 29.07.2021 23:52:02 Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!