پرسش مشکل در فرمول نویسی

[mahdi.m]

سلام خدمت دوستان عزیز..

میخواستم یه فرمولی بنویسم که در صورت برقراری شرط (مثلا تیک خوردن چک باکس) اجازه دسترسی به لیست کشویی داده شود ... یعنی اگر تیک چک باکسم خورد، اون موقع تو سلول بعدی لیست کشویی که قبلا تعریف کردم فعال بشه و امکان انتخاب به من بده.
ممنون میشم راهنمایییم کنید چجوری باید بنویسم و از چی استفاده کنم...

[iranweld]

با سلام

فایل پیوست را بررسی کنید

Sub Macro1()

If ActiveSheet.Shapes("Check Box 1").OLEFormat.Object.Value = 1 Then

ActiveSheet.Shapes("Drop Down 2").Visible = msoTrue

Else

ActiveSheet.Shapes("Drop Down 2").Visible = msoFalse

End If

End Sub