حالت if در vba

[ali.b]

با سلام خدمت دوستان عزیز
من ی کدی تو vb دارم به صورت زیر هست

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" Then Call b
End Sub

کارش اینه که برحسب نامی که تو سلول A3 نوشته ماژول b رو فراخوانی میکنه . حالا چکار باید کنم که مثل تابع IF اگه تو سلول A3 نوشتم A خودکار ماژول A و اگه نوشتم B ماژول B و همینجور چندتای دیگه رو اجرا کنه
میشه چنین کدی نوشت؟

[علی فاطمی]

با سلام ببین کد زیر کمکی بهت می کنه :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim z
z = Sheet1.Range("a3").Value
If Target.Address = "$A$3" Then
Application.Run z
End If
End Sub

یه متغیر به اسم z تعریف کردم و مقدارش رو همون A3 که خواسته بودین گذاشتم.

[ali.b]

همش ارور میده
ی فایل نمونه گذاشتم در شیت a وقتی از قسمت a1 از لیست عدد مثلا 1 رو انتخاب کردم خودکار کدی که تو شیت 1 هست رو اجرا کنه و همنیجور برای شیت های دیگه

[mokaram]

دوست عزیز شما تو شیت یک کدی ننوشتید
منظورتون کدوم کده؟

[mokaram]

با سلام خدمت دوستان عزیز
من ی کدی تو vb دارم به صورت زیر هست

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" Then Call b
End Sub

کارش اینه که برحسب نامی که تو سلول A3 نوشته ماژول b رو فراخوانی میکنه . حالا چکار باید کنم که مثل تابع IF اگه تو سلول A3 نوشتم A خودکار ماژول A و اگه نوشتم B ماژول B و همینجور چندتای دیگه رو اجرا کنه
میشه چنین کدی نوشت؟

این کد به کارتون میاد!

if sheet1.range("a3").value="A" then
call A
elseif sheet1.range("a3").value="B" then
call B
end if 

[ali.b]

این ارور رو میده

[FONT=Tahoma]Private Sub Worksheet_Change(ByVal Target As Range)[/FONT]

رنگشو زرد میکنه
ممکنه تو فایل نمونه اجراییش کنین

[علی فاطمی]

با سلام فایل پیوست رو ملاحظه کنین.

[mokaram]

خدمت شما

[ali.b]

عالی بود ممنونم

[mokaram]

عالی بود ممنونم

تیک حل شده فراموش نشه دوست عزیز