حلقه در worksheet

[علی فاطمی]

با سلام و روز بخیر،
لطفا فایل پیوست رو ملاحظه بفرمائید ، برای تغییرات کامبو باکس کدی نوشتم که در صورت برابر بودن تکست کامبو باکس با نام شیت ، کامن باتن غیر فعال بشه ولی اگر برابر نبود کامن باتن فعال باشه. بعد از اجرای کد فقط برابر بودن یا نبودن تکست کامبوباکس رو با نام آخرین شیت چک میکنه یعنی عملا نام بقیه شیتها توی حلقه قر ار نمی گیره. اگر شرط عدم برابری رو بردارم غیرفعال بودن رو انجام میده و حلقه کار میکنه. توی مثال وقتی 01 ، 02 ، 03 و 04 انتخاب میشن باید غیرفعال بشه و برای بقیه فعال ، در صورتی که 01 ، 02 و 03 رو غیرفعال نمیکنه.
ممنون از توجه شما.

[Javid Mokhtari]

با سلام و روز بخیر،
لطفا فایل پیوست رو ملاحظه بفرمائید ، برای تغییرات کامبو باکس کدی نوشتم که در صورت برابر بودن تکست کامبو باکس با نام شیت ، کامن باتن غیر فعال بشه ولی اگر برابر نبود کامن باتن فعال باشه. بعد از اجرای کد فقط برابر بودن یا نبودن تکست کامبوباکس رو با نام آخرین شیت چک میکنه یعنی عملا نام بقیه شیتها توی حلقه قر ار نمی گیره. اگر شرط عدم برابری رو بردارم غیرفعال بودن رو انجام میده و حلقه کار میکنه. توی مثال وقتی 01 ، 02 ، 03 و 04 انتخاب میشن باید غیرفعال بشه و برای بقیه فعال ، در صورتی که 01 ، 02 و 03 رو غیرفعال نمیکنه.
ممنون از توجه شما.

با سلام.
Exit For یادتون رفته

Dim j As Worksheet
For Each j In Worksheets
If j.Name = ComboBox1.Text Then 
CommandButton1.Enabled = False
 Exit For
 Else 
CommandButton1.Enabled = True
 End If
 Next 

[علی فاطمی]

با سلام.
Exit For یادتون رفته

Dim j As Worksheet
For Each j In Worksheets
If j.Name = ComboBox1.Text Then 
CommandButton1.Enabled = False
 Exit For
 Else 
CommandButton1.Enabled = True
 End If
 Next 

مثل همیشه عالی ، بسیار سپاس گذارم.