كيفية تنفيذ ماكرو عند الضغط على انتر -سؤال

[khalid.kholaidy]

السلام عليكم؛

هذه أول مشاركة لى فى منتدى

 

أسأل عن كيفية تنفيذ ماكرو بمجرد الضغظ على انتر بعد تغير قيمة خلية معينة
بمعنى لدىّ كود ماكرو يتم تنفيذه عند الضغط على "زر" هذا الكود فى الاساس يعتمد على قيمة الخلية

c2
اريد ان الغى هذا الزر ويتم تنفيذ هذا الكود عند الانتهاء من ادخال القيمة  فى الخلية

c2

ثم الضغط على انتر؛ اى انهاء الكتابة داخل الخلية
آمل انّى استطعت ايصال السؤال,ومعذرة الاطالة

 

[ياسر خليل أبو البراء]

طلبك أخي الكريم سهل للغاية

يمكنك العمل على حدث تغير ورقة العمل ...

بفرض أن لديك الماكرو التالي في موديول

Sub MyMacro()
    MsgBox "Hello Officena"
End Sub

قم بعمل كليك يمين على اسم ورقة العمل ثم View Code ثم ضع الكود التالي في حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$2" Then
        Call MyMacro
    End If
End Sub

عند حدوث تغيير في الخلية C2 سيتم تنفيذ الماكرو المسمى MyMacro

[khalid.kholaidy]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$2" Then
        Call MyMacro
    End If
End Sub

عند حدوث تغيير في الخلية C2 سيتم تنفيذ الماكرو المسمى MyMacro

شكرا أخى الكريم

 

لقد وضعت مسبقا الماكرو على حدث تغير ورقة العمل بالفعل...

ولكن حدث خطأ جسيم ؛حيث بدأ الكود فى التكرار ولم يتوقف وتسبب فى تعطيل البرنامج

اما الآن فقد تم حل المشكلة باضافة الشرط

 

If Target.Address = "$C$2" Then

Call MyMacro

End If

اشكرك مجددا  وكل عام وانت بخير

[ياسر خليل أبو البراء]

كل عام وأنت بخير أخي خالد

يرجى تغيير اسم الظهور للغة العربية

كما يرجى الإطلاع على رابط التوجيهات في الموضوعات المثبتة في المنتدى

تقبل تحياتي