Indirect in Vba

[hosein.mirjalili]

با سلام
در VBA چگونه از Indirect استفاده میشه
مثلا ما چند ناحیه در اکسل تعریف می کنیم مانند ذیل

mm1 = Range("Mahi_01")
mm2 = Range("Mahi_02") 

حال می خواهیم با توجه به مقداری که در سلول A1 هست ناحیه های ما انتخاب شود مثلا اگر A1 برابر با 1 بود

 mm1 = Range("Mahi_01")

و اگر 2 بود

mm2

انتخاب شود ممنون

[amir_ts]

با سلام
کد زیر و امتحان کنید.

[LEFT]
Sub test()
Dim mm1, mm2 As Range

If Range("a1").Value = 1 Then
    Set mm1 = Range("MAHI_01")
    mm1.Value = "excel"
ElseIf Range("a1").Value = 2 Then
    Set mm2 = Range("MAHI_02")
    mm2.Value = "iran"
End If

End Sub
[/LEFT]