حالت 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]

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

Private Sub Worksheet_Change(ByVal Target As Range)

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

[علی فاطمی]

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

[mokaram]

خدمت شما

[ali.b]

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

[mokaram]

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

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