VBA Excel: Недопустимое свойство

Question

Я получаю сообщение об ошибке «Недопустимое свойство» для .Caption =. Любые идеи почему? TabData - это мое имя пользовательской формы, а HiddenLabel - мое имя ярлыка. RList() - массив, который я пытаюсь индексировать, чтобы найти самый большой элемент. Спасибо за помощь!

For l = 1 To R_win 
     Set TabData.HiddenLabel.Caption = RList(l).Value 
     w = HiddenLabel.Width 
     If w > m Then 
      m = w 
     End If 
    Next l 

Answer 1

если Rlist() является массив, то используйте:

TabData.HiddenLabel.Caption = Cstr(RList(l)) '<-- CStr() function converts the array content into a string 

иначе сказать нам, что Rlist() является ...

Answer 2

У вас нет Set свойство Caption. Это строка, а не объект. Вы должны сделать это:

Dim obj As Variant 
Set obj = TabData.HiddenLabel 
obj.Caption = RList(l).Value 

Или просто опустить Set ключевое слово и использовать:

TabData.HiddenLabel.Caption = RList(l).Value