Индексирование Label.Caption - Microsoft Office Excel

Сергей54 · 23.08.2013, 11:49

Добрый день всем!
Кто-нибудь знает, можно ли индекс (номер) Label задать макросом, например в цикле:

For i = 1 to 30
UserForm1.Label(i).Caption = Worksheets(1).Cells(5, i).Value
Next

Нигде не могу найти...

VictorM · 23.08.2013, 11:58

Проверить не могу, нет файла, но попробуйте так

Код:

For i = 1 To 30
Me.Controls("Label" & i).Caption = Worksheets(1).Cells(5, i).Value
Next

...проверил, работает

IgorGO · 23.08.2013, 14:22

Код:

  For Each c In Me.Controls
    If c.Name Like "Label*" Then c.Caption = Worksheets(1).Cells(5, Val(Right(c.Name, Len(c.Name) - 5)))
  Next

kuklp · 23.08.2013, 18:20

Кросс:
http://www.excel-vba.ru/forum/index....5.msg12232#new

Сергей54 · 26.08.2013, 12:42

Спасибо откликнувшимся. Применил в работе первый код - пашет отлично. Спасибо!

23.08.2013, 11:49	#1
Сергей54 Пользователь Регистрация: 10.10.2012 Сообщений: 10	Индексирование Label.Caption Добрый день всем! Кто-нибудь знает, можно ли индекс (номер) Label задать макросом, например в цикле: For i = 1 to 30 UserForm1.Label(i).Caption = Worksheets(1).Cells(5, i).Value Next Нигде не могу найти...

23.08.2013, 11:58	#2
VictorM Старожил Регистрация: 15.05.2008 Сообщений: 2,058	Проверить не могу, нет файла, но попробуйте так Код: `For i = 1 To 30 Me.Controls("Label" & i).Caption = Worksheets(1).Cells(5, i).Value Next` ...проверил, работает "Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь" "Большое спасибо" - Z261597841314, R208907249777, U447361470499 Последний раз редактировалось VictorM; 23.08.2013 в 12:04. Причина: проверил

23.08.2013, 14:22	#3
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Код: `For Each c In Me.Controls If c.Name Like "Label*" Then c.Caption = Worksheets(1).Cells(5, Val(Right(c.Name, Len(c.Name) - 5))) Next` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

23.08.2013, 18:20	#4
kuklp Участник клуба Регистрация: 02.05.2010 Сообщений: 1,390	Кросс: http://www.excel-vba.ru/forum/index....5.msg12232#new mailto: kuklp60@gmail.com, ящики для благодарностей: WM Z206653985942, R334086032478, U238399322728

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Взять значение label.caption (ini)	mayor245	Общие вопросы Delphi	2	22.04.2012 11:21
Label загрузить caption из txt..?	kta87	Помощь студентам	5	25.03.2012 21:59
label.caption в memo	jazzzeek	Общие вопросы Delphi	8	18.03.2012 13:41
выполнения кода из label.Caption	Giku	Помощь студентам	7	04.11.2011 13:10
Многострочный Caption в Label	Talemir	Компоненты Delphi	11	18.09.2009 01:13

26.08.2013, 12:42	#5
Сергей54 Пользователь Регистрация: 10.10.2012 Сообщений: 10	Спасибо откликнувшимся. Применил в работе первый код - пашет отлично. Спасибо!