كود تحديد خلايا معينة

[Akram Galal]

السلام عليكم ورحمة الله وبركاتة

أحبتي في الله

أريد كود يقوم بالأتي:

عند تحد أي خلية في العمود A يقوم تلقائياً بتحد الخلية المقابله لها في العمود B و D

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

تم تعديل مايو 27, 2013 بواسطه Akram Galal

[أبو حنــــين]

السلام عليكم

جرب الكود التالي في حدث الورقة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
For Each cl In Range("A:A")
      If Target.Address = cl.Address Then
        Application.Union(cl, cl.Offset(0, 1), cl.Offset(0, 3)).Select
        Exit For
    End If
Next
End Sub

[Akram Galal]

أ/ أبو حنين

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

كود جميل جداً

ولكن أريد أيتم التحديد فقط عند عمل كليك علي الخلايا في العمود A

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

وشكراً .

[أبو محمد عباس]

الاستاذ والاخ الحبيب ابو حنين حفظكم الباري عز وجل ورعاكم

اكوادكم روعة كروعة اخلاقكم وشخصكم الكريم

نور المنتدى بمشاركتك استاذنا الفاضل ونحن مشتاقون لحضوركم الفاعل في المنتدى

ومشاركاتكم الرائعة والمتميزة

نسال الله سبحانه وتعالى ان يديم عليك نعمة العلم والمعرفة

ويزيدك من فضله علما وشرفا

تقبل الله منكم ومنا صالح الاعمال

 

[رجب جاويش]

أخى الحبيب / أبو حنين

نورت المنتدى كله

والله وحشتنا ووحشتنا ابداعاتك القيمة

أرجو من الله ألا تغيب عنا مرة أخرى

تقبل أرق وأجمل تحيات أخوك / رجب جاويش

[حمادة عمر]

الاستاذ الحبيب جدا الي قلب الجميع / ابو حنين

نورت المنتدي من جديد

والله كان ينقصنا شئ كبير جدا بغيابك

كفاية غياب ... كده كتير خالص

نورت بيتك الثاني

[حمادة عمر]

حمد الله علي السلامة