اجرای ماکرو با زدن اینتر روی سلول خاص

[60vahidsalehi]

با سلام
آیا ممکن هست با زدن اینتر روی سلولی خاص مثلا f5 یک مارو اجرا بشه ؟؟؟؟؟؟؟؟؟؟؟؟؟
اگر بله لطفا راهنمایی کنید ممنون میشم

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

بینهایت سپاسگزار از اساتید گرامی بخصوص جناب پارسا و جناب میر که همیشه کمک کننده اعضا هستند

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

[generalsamad]

با سلام
این کد رو ببینید
همین مد نظرتون هست؟

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$F$5" Then
        Call Macro1
    End If
End Sub 

فایل ضمیمه گردید

[60vahidsalehi]

با سلام
این کد رو ببینید
همین مد نظرتون هست؟

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$F$5" Then
        Call Macro1
    End If
End Sub 

فایل ضمیمه گردید

ممنون و متشکر اما من میخوام همین کاری که شما کفتین رو انجام بده با این تفاوت که

میخوام وقتی مقدار سلول f5 رو تغییر میدم و یا اینتر میزنم روی f5

اون موقع داده های f5 و a1 رو جمع کنه

البته میدونم راههای ساده تری داره اما من برای مورد خاصی احتیاج به کد دارم چون اصل مطلب مورد نظر به این سادگی نیست

امیدوارم تونسته باشم منظورمو برسونم

پیشاپیش تشکر میکنم از شما

[generalsamad]

فایل ضمیمه رو مشاهده کنید
ببینید همین منظورتون بوده؟

فایل ضمیمه گردید

[Ali Parsaei]

سلام،
اينجا چند تا موضوع وجود دارد:
1-با انتخاب سل ماکرو اجرا گردد
2-پس از تغيير محتويات سل ماکرو اجرا گردد
يا دقيقا" برابر گفته اول شما: اگر سل در حالت انتخاب باشد و اينتر را کليک کنيم ماکرو اجرا گردد
من اين حالت آخر را توضيح مي دهم،
فرض کنيم از قبل يک ماکرو به نام MACRO1 داريم و مي خواهيم وقتي سل F5 در حالت انتخاب است و اينتر را مي زنيم ماکرو1 اجرا گردد، در اين صورت بايد در رويداد SelectionChange شيت کد زير را بنويسيد:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$F$5" Then
Application.OnKey "~", "MACRO1"
Else
Application.OnKey "~"
End If
End Sub 

البته ما دو تا کليد ENTER داريم يکي در قسمت صفحه کليد اصلي و يکي در قسمت شماره اي صفحه کليد (يا در لپ تاپ ها ENTER در حالت فعال بودن کليد FN)، کد فوق فقط براي ENTER قسمت اصلي صفحه کليد کار مي کند، براي اعمال آن روي کليد ENTER قسمت شماره اي بايد به جاي: "~" در کد فوق از "{ENTER}" استفاده کنيد، يا اينکه هر دو را با هم بنويسيد، به اين صورت:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$F$5" Then
Application.OnKey "~", "MACRO1"
Application.OnKey "{ENTER}", "MACRO1"
Else
Application.OnKey "~"
Application.OnKey "{ENTER}"
End If
End Sub