عايز مساعده فى كود دابل كليك

[محمد عبد الناصر]

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

 

عايز كود دابل كليك يطلع علامة صح من  C5 الى L5 حتى C1000 الى L1000 او لو فى طريقة اعمل بيها دبل كليك على الخانه يطلعلى علامة صح

وشكرا

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

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

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

اقبل تحياتي واحترامي

وضع علامة صح في الخليه.rar

[بن علية حاجي]

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

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

 

عايز كود دابل كليك يطلع علامة صح من  C5 الى L5 حتى C1000 الى L1000 او لو فى طريقة اعمل بيها دبل كليك على الخانه يطلعلى علامة صح

وشكرا

أخي الكريم، إن كنت قد فهمت المطلوب؟ ضع هذا الكود في حدث الشيت، وهو كود يقوم بوضع علامة صح في أي خلية من النطاق C5:L1000 بمجرد النقر عليها نقرا مزدوجا... أرجو أن يكون المطلوب...

 

الكود :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([C5:L1000], Target) Is Nothing Then
    Target.FormulaR1C1 = "P"
    With Selection
        .Font.Name = "Wingdings 2"
        .Font.FontStyle = "BOLD"
        .Font.Size = 18
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
End If
Target.Offset(1, 0).Select
End Sub

أخوك بن علية

[محمد عبد الناصر]

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

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

 

عايز كود دابل كليك يطلع علامة صح من  C5 الى L5 حتى C1000 الى L1000 او لو فى طريقة اعمل بيها دبل كليك على الخانه يطلعلى علامة صح

وشكرا

أخي الكريم، إن كنت قد فهمت المطلوب؟ ضع هذا الكود في حدث الشيت، وهو كود يقوم بوضع علامة صح في أي خلية من النطاق C5:L1000 بمجرد النقر عليها نقرا مزدوجا... أرجو أن يكون المطلوب...

 

الكود :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([C5:L1000], Target) Is Nothing Then
    Target.FormulaR1C1 = "P"
    With Selection
        .Font.Name = "Wingdings 2"
        .Font.FontStyle = "BOLD"
        .Font.Size = 18
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
End If
Target.Offset(1, 0).Select
End Sub

أخوك بن علية

شكرااااااااااااااااااااااااااااااااااااااااااااااا جداااااااااااااااااااااااااااااااااا يا بن على ربنا يعزك اخر حاجه بس عايز لما ادوس عليه تانى تتشال علامة الصح

تم تعديل يناير 11, 2015 بواسطه mxfouad

[محمد عبد الناصر]

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

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

اقبل تحياتي واحترامي

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

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

تفضل الرابط التالي

http://www.officena.net/ib/index.php?showtopic=55781&hl=

[محمد عبد الناصر]

تفضل الرابط التالي

http://www.officena.net/ib/index.php?showtopic=55781&hl=

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