تنفيذ ماكرو بناء على خلية

[خالد الشاعر]

السادة الخبراء

 

لى سؤال بفكر به

 

هل ممكن تنفيذ ماكرو بدون اى زر

 

بناء على قيمة خلية

 

مثال لو ان قيمة الخلية رقم  A2  اكبر من 10 ينفذ الماكرو .....  بدون الضغط على زر

 

فهل هذا ممكن

 

و جزاكم الله كل خير

تم تعديل مايو 29, 2013 بواسطه خالد الشاعر

[ضاحي الغريب]

اخي الكريم

نعم ممكن ان يعمل الكود بناء علي قيمة خلية

مثال

فرضا لو اريد ان الون الخلايا من (( A8:A20)) باللون الاصفر عندما تكون قيمة الخلية (A2) = 10

سوف اعمل كود كالتالي

Sub TEST()
    Range("A8:A20").Select
    With Selection.Interior
        .ColorIndex = 36
        .Pattern = xlSolid
    End With
End Sub

وكود اخر وذلك لو ان القيمة في الخلية ((A2)) لا تساوي 10 اجعل الخلايا بدون لون كالتالي

Sub TEST2()
    Range("A8:A20").Select
    Selection.Interior.ColorIndex = xlNone
End Sub
 

وفي حدث الصفحة اقوم بوضع الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)
If [A2] = 10 Then
Call TEST
Else
Call TEST2
End If
End Sub

والتطبيق بالمرفقات

Book1B.rar

[خالد الشاعر]

استاذ ضاحى

 

الف شكر و جزاك الله كل خير

[حمادة عمر]

احسنت اخي الحبيب / ضاحي ... ابوعمرو

جزاك الله خيرا

[ضاحي الغريب]

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

الاستاذ// حمادة عمر

ما اطيب من مرورك

بارك الله فيك وجزاك خيرا

تقبل تحياتي

[ضاحي الغريب]

استاذ ضاحى

 

الف شكر و جزاك الله كل خير

أخي العزيز // خالد الشاعر

بارك الله فيك

والله ولي التوفيق

[رائد 1982]

يا لروعتك

استاذنا القدير / ضاحي الغريب

انت بحق تستاهل اكثر من ذلك

جزاك الله خيرا

[ضاحي الغريب]

يا لروعتك

استاذنا القدير / ضاحي الغريب

انت بحق تستاهل اكثر من ذلك

جزاك الله خيرا

اخي الحبيب // رائد

بارك الله فيك

علي كلماتك الجميلة ودعائك

وجزاك الله خيرا

وادعوا الله ان اكون عند حسن ظنكم في

تقبل تحياتي