سلام
توی فایل پیوست شده من میخوام وقتی کلید اینتر زده شد (اینتر قسمت NumPad) توی محتویات اون سلول(به شرطی که توی محدوده ستون b باشه) یه تغییراتی داده بشه و بعد بره به سلول مورد نظرم
چیزی که خودم سرچ کردم این هست که باید از کد
Application.OnKey "{Enter}", "EnterPressKey"
استفاده کنم
اما مشکل موقع فرا خوانی تابع EnterPressKey به وجود میاد
اگه این تابع رو توی همون worksheet بنویسم که اصلا میگه ماکرو EnterPressKey وجود نداره!
وقتی هم یه ماژول جدید ایجاد میکنم (چیزی که الان توی فایل پیوست هست) به کد های داخل تابع گیر میده!!
میشه دوستان چک کنن ببین مشکل کار کجاست؟
مثلا به این سه تا خط گیر میده:
من میخوام یه سری اطلاعات رو از اون سلولی که داخلش بودیم و کلید اینتر زده شده بخونم و بعد تغییرش بدم باید چطوری کدش رو بنویسم؟
با تشکر
توی فایل پیوست شده من میخوام وقتی کلید اینتر زده شد (اینتر قسمت NumPad) توی محتویات اون سلول(به شرطی که توی محدوده ستون b باشه) یه تغییراتی داده بشه و بعد بره به سلول مورد نظرم
چیزی که خودم سرچ کردم این هست که باید از کد
Application.OnKey "{Enter}", "EnterPressKey"
استفاده کنم
اما مشکل موقع فرا خوانی تابع EnterPressKey به وجود میاد
اگه این تابع رو توی همون worksheet بنویسم که اصلا میگه ماکرو EnterPressKey وجود نداره!
وقتی هم یه ماژول جدید ایجاد میکنم (چیزی که الان توی فایل پیوست هست) به کد های داخل تابع گیر میده!!
میشه دوستان چک کنن ببین مشکل کار کجاست؟
مثلا به این سه تا خط گیر میده:
کد:
MMk = ActiveWoekbook.ActiveSheet.Range("D2").Value
YYK = Cells("E2")
Tarikh = Target.Value
با تشکر