سلام . با فرض اینکه تمام لیبیل ها درون یک usrform هست و شما می خواهید برای تمام 100 لیبل کد مورد نظر رو داشته باشید از این کد می تونید استفاده کنید : (در غیر این صورت لطفا بیشتر توضیح دهید)
* توجه کنید که شما باید این کد رو در رویدادهای userform ایجاد کنید یعنی روی userform کلیک کنید و این کد رو پیست کنید .
کد:
Private Sub UserForm_Initialize()
Dim i
For i = 1 To 100
If Controls("Label" & i).Caption = "1" Then
Controls("Label" & i).Caption = "2"
Controls("Label" & i).BackColor = &H80FF&
Else
Controls("Label" & i).Caption = "1"
Controls("Label" & i).BackColor = &H8EF3A2
End If
Next i
End Sub
علاقه مندی ها (Bookmarks)