آیا امکان ترکیب ماکرو و فرمول وجود دارد؟

[ajax]

آیا امکان ترکیب ماکرو و فرمول وجود دارد ؟
یعنی در فایلی که چندین ماکرو وجود دارد با استفاده از فرمول ماکروها را اجرا نماییم.
مثلاً بگوییم اگر سلول a1 اگر برابر فلان مقدار یا فلان سلول شد ماکروی شماره 1 اجرا شود و در غیر این صورت ماکروی 2 اجرا شود و الی آخر ...
اگر امکانش باشد لطفاً راهنمایی نمایید و اگر امکانش از این طریق نیست راه حل جایگزین اگر دارد بفرمایید.
با سپاس

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

[DOLFIN]

سلام دوست عزیز
شما می خواهید مثلا در شیت 1 یک فایل اکسل ، اگر مقدار سلول a1 برابر با یک بود macro1 و اگر مقدار سلول a1 برابر با دو بود macro2 اجرا شود به این صورت عمل می کنیم :
از قسمت ویژوال بر روی شیت مورد نظر یعنی شیت 1 می رویم و این کد را درون آن قرار می دهیم .

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheet1.Range("a1").Value = "1" Then
Call Macro1
ElseIf Sheet1.Range("a1").Value = "2" Then
Call Macro2
End If
End Sub

[ajax]

ممنون از پاسخ شما ولی فکر کنم درخواست من مقداری گنگ بود به همین خاطر فایل نمونه را به پپیوست ارسال می نمایم که توضیحات کامل در داخل آن داده شده است.
با سپاس

[DOLFIN]

دوست عزیز منظور اصلی در کد نویسی اول خدمت شما ارائه شد و شما می توانید بسته به نیاز کد ها را تغییر بدید.
تنها فرق درخواست شما با کد اول این هست که شما می بایست ابتدا یک module ایجاد کنید سپس کد ها را درون یک ماکرو کپی کنید و رنج ها را تغییر بدید. به این صورت :

Sub SABT()
If Sheet1.Range("c2").Value = "A" Then
Call Macro1
ElseIf Sheet1.Range("c2").Value = "B" Then
Call Macro2
Else
MsgBox "پیام شما !", vbCritical
End If
End Sub

[mokaram]

آیا امکان ترکیب ماکرو و فرمول وجود دارد ؟
یعنی در فایلی که چندین ماکرو وجود دارد با استفاده از فرمول ماکروها را اجرا نماییم.
مثلاً بگوییم اگر سلول a1 اگر برابر فلان مقدار یا فلان سلول شد ماکروی شماره 1 اجرا شود و در غیر این صورت ماکروی 2 اجرا شود و الی آخر ...
اگر امکانش باشد لطفاً راهنمایی نمایید و اگر امکانش از این طریق نیست راه حل جایگزین اگر دارد بفرمایید.
با سپاس

شما می تونید این کار را با تابع if انجام بدید به فایل پیوست مراجعه نمایید ( توضیح : اگر سل c5 برابر با مقدار 2 باشد ماکرو اول و اگر برابر با 2 نباشد ماکرو دوم اجرا می شود )

[ajax]

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