باسلام
دوستان من در فایل اکسل یک کد ویژوال بیسیک قرار دادم که جواب میده بدون مشکل
این کد در مورد تغییر کپشن تعداد زیادی لیبل هست!
میخوام این کد رو یکبار برای هر مثلا 100تا لیبل بنویسیم و فکر کنم باید از حلقه for each استفاده کنم ولی متاسفانه بلد نیستم چطوری . وگرنه باید 100 بار کد رو بنویسم و عوض کنم!
نکته دوم اینه که کدی که برای تکی جواب میده باید در رویداد کلیک اون لیبل ثبت بشه در صورتی که نمیدونم حتی اگه کد واحدی برای هر 100 لیبل پیدا کردم در چه رویدادی باید ثبت بشه
کد این هست:


Private Sub Label2_Click
If Label2.Caption = "1" Then
Label2.Caption = "2"
Label2.BackColor = &H80FF&
Else
Label2.Caption = "1"
Label2.BackColor = &H8EF3A2
End If
End Sub
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.