وضع علامة صح بمجرد النقر المزدوج في الخلية

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

السلام عليكم إخواني الكرام في المنتدى الرائع

أقدم لكم كود بسيط يتم وضعه في حدث Worksheet_BeforeDoubleClick

يقوم الكود بوضع علامة صح عند النقر المزدوج على أي خلية في النطاق A1:A100 يمكنك تغيير النطاق إلى أي نطاق تريده ..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
     Cancel = True
        Target.Font.Name = "Marlett"
        If Target = vbNullString Then
           Target = "a"
        Else
           Target = vbNullString
        End If
    End If
End Sub

[محمد الورفلي1]

احسنت بارك الله فيك

[طلعت محمد حسن]

بارك الله فيك جميل جدا

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

الأخوة الكرام / محمد الخازمي والأخ / طلعت محمد حسن

أشكركم على مروركم الكريم على موضوعي المتواضع وأسأل الله أن ينفع الناس بما علمنا وأن يجعله شاهدا لنا لا علينا

[ahmd_asd4]

بسم الله مشاء الله أحسنت

[احمد عبدة]

رائع اكثر من رائع بارك الله فيك وذادك من علمة

تحياتى

[علي الرويلي]

يارك الله فيك اخي العزيز

 

هل ممكن تعدد النطاقات مثلا عدة اعمده

 

مثال ارغب في تحديد النطاقات التالية

A1:A100

C1:C100

M1:M100

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

الأخ الحبيب علي الرويلي

أكيد ممكن مش ممكن ليه

تفضل جرب الكود

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:A100,C1:C100,M1:M100")) Is Nothing Then
     Cancel = True
        Target.Font.Name = "Marlett"
        If Target = vbNullString Then
           Target = "a"
        Else
           Target = vbNullString
        End If
    End If
End Sub

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

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

الاستاذ الفاضل والاخ الحبيب ابو البراء جزاكم الله خيرا

ابداع منقطع النظير

وجهد كبير ومستمر لمساعدة الاخوة الاعضاء

اثابكم الله واعانكم لعمل الخير 

تقبل فائق احترامي وتقديري

[ابو تراب]

فكرة الكود جميلة .. جزاك الله خيرا

[علي الرويلي]

ياسلام عليك يارهيب يالذيذ يارايق

[الرملى]

جميل جدا وهل يمكن عمل اضافة للكود بحيث يقوم بعد الخلايا التى تم تأشير العلامة داخلها فى خلية للاجمالى؟

تم تعديل ديسمبر 10, 2014 بواسطه الرملى

[ibrahim al esawy]

السلام عليكم

ممكن اعرف الكود بيتحط فين تحديدا 

انا مش عارف اوصل للقائمة او المكان الى هيتحط فية الكود

ممكن المساعدة

Worksheet_BeforeDoubleClick

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

أخي الغالي

اضغط Alt + F11 للدخول لمحرر الأكواد ..

هتلاقي فيه نافذة المشروع على اليسار فيها أسماء الشيتات ..دبل كليك على الشيت المراد وضع الكود فيه ..بس خلاااااااص

[عبدالله فاروق ابو ريان]

بارك الله فيك استاذنا ياسر خليل

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

جزيت خيراً أخي عبد الله فاروق على مرورك العطر

وأشكرك على جهدك الكبير المبذول بالمنتدى ، جعله الله في ميزان حسناتك ..

وبحسدك على صبرك مع بعض الأعضاء

تقبل تحياتي

[ابو جودى]

استاذ/ ياسر

فكرة مميزة

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

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

مشكور على مرورك المميز والعطر أخي عمرو

[عبدالله فاروق ابو ريان]

استاذي ياسر خليل نحن نتعلم منكم
فانت من خير اساتذة المنتدى

[أ/حكيم]

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

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

قبل صلاه العشاء والتراويح 

حبيب اجى واقول جزاك الله كل الخير

وجدت ضالتى فى موضوعك

(Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean
    If Not Intersect(Target, Range("h5:g17")) Is Nothing Then
     Cancel = True
Call mas
End If
End Sub

()Sub mas()
("ActiveCell = Format(Now, "hh:nn ampm
End Sub

[زوهير]

فكرة رائعة جزاك الله خيرا وزادك علما