راه اندازی ماکرو با فرمول

[~M*E*H*D*I~]

سلام به دوستان

من مدتی هس رو یه قضیه فکر میکنم راه های مختلفی امتحان کردم به جواب نرسیدم سوال من اینه با فرمول شرطی در صفحه اکسل میشه یه ماکرو رو راه اندازی کرد یانه؟مثلا
if(a1>0;run a macro;don't run( البته این فقط یه مثاله

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Javid Mokhtari]

با سلام.
آری ، می شود.

فرض کنید کد Macro1 به شکل زیر باشد:

Sub Macro1()
MsgBox "Hi"
End Sub

حالا شرط اجرای کد Macro1 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1") > 1 Then
Call Macro1
End If
End Sub

البته به قول شما این فقط یه مثاله.

[~M*E*H*D*I~]

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

[Javid Mokhtari]

متوجه منظورتان نشدم.مگر سئوال شما چیز دیگری بود...؟میشه بیشتر توضیح بدین.

[~M*E*H*D*I~]

سوال من دقیقا نوشتن یه فرمول در سل اکسل برای فراخوانی یک ماکرو هس مثل بقیه فرمول ها

[plc_pcb]

سلام به دوستان

من مدتی هس رو یه قضیه فکر میکنم راه های مختلفی امتحان کردم به جواب نرسیدم سوال من اینه با فرمول شرطی در صفحه اکسل میشه یه ماکرو رو راه اندازی کرد یانه؟مثلا
if(a1>0;run a macro;don't run( البته این فقط یه مثاله

با سلام

شما میتونید یه فانکشن در اکسل درست کنید یه چیزی مثل کد زیر

Public Function test(ByVal mac As String)
Application.Run (mac)

End Function 

بعد توی برنامت توی شرط فانکشنت رو بنویسی

مثلا

=IF(J6=2;test("Macro1");"") 

برای ماکرو هم

Sub Macro1()

  MsgBox "Hello"
  
End Sub 

[~M*E*H*D*I~]

جالب بود میتونی یه فایل در حد msgbox بذاری؟

[plc_pcb]

جالب بود میتونی یه فایل در حد msgbox بذاری؟

مثال بالا پیغام میفرسته دیگه
اگه منظورتون ارسال فایله براتون یه نمونه قرار میدم

[~M*E*H*D*I~]

آره منظورم نمونس (در حد msgbox یعنی یه نمونه خیلی ساده)

[plc_pcb]

آره منظورم نمونس (در حد msgbox یعنی یه نمونه خیلی ساده)

توضیحات مربوطه داخل فایل می باشد

http://www.faupload.com/upload/90.1/Esfand/file.rar