Как сделать значение Label-a в UserForm-е равным значению ячейки?

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

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

Anatolyi

26.11.2009 06:43:56

Здравствуйте друзья.
Значение лейбела у меня становится таким же как в нужной мне ячейке, только после того как я по нему кликну мышкой. При этом код выглядит так:
Private Sub Label1_Click()
Label1.Caption = Sheets("Лист1").Range("A1").Value
End Sub
А форма у меня загружается так:
Sub Cnopka()
UserForm1.Show
End Sub
Вопрос:
Можно сделать так, чтобы в итоге работы макроса "Cnopka" значение "Label1" стало как в ячейке "A1" на листе "Лист1"?
Благодарю.

Я соображаю, но не всегда. :-)

Guest Гость	#2 26.11.2009 07:24:20 в модуль формы Private Sub UserForm_Initialize() Label1.Caption = Sheets("Лист1").Range("A1").Value End Sub

grant84 Пользователь Сообщений: 129 Регистрация: 01.01.1970 Anatolyi	#3 26.11.2009 07:31:16 {quote}{login=}{date=26.11.2009 07:24}{thema=}{post}в модуль формы Private Sub UserForm_Initialize() Label1.Caption = Sheets("Лист1").Range("A1").Value End Sub{/post}{/quote}Огромное спасибо!!! Как это я сам не догадался про код самой формы. Спасибо! Я соображаю, но не всегда. :-)

Читают тему