مساعدة في Checkboxes

[اسامة ابو عمر]

السلام عليكم

أحب ان اشكر جميع من قائم على هذا الموقع الرائع

واشكر الاخوه الذين يقومون بالمساعدة والاجابه عن الاسئلة

 

سؤالي هو:

اريد عمل Checkboxes في برنامج الاكسل 

انا عرفت الطريقة بس انا عايز لما اعمل مثلا صح او اضغط على المربع ويديني صح يقوم بالخليه اللي جبنها باضافة التاريخ وقت وضع علامة صح

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

 

يعني مثلا انا عملت صح دلوقي يقوم بالخلية اللي جنبها يديني الوقت اللي عملت فيه صح

 

هل هذا الكلام ممكن عمله في برنامج الاكسل ؟؟؟؟

ارجو المساعدة

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

أخي الفاضل جرب الملف التالي

CheckBox.rar

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

أما إذا أردت عدم التقيد بخلية محددة وأن يظهر التاريخ حيثما وضعت الـ CheckBox فجرب المرفق التالي

CheckBox.rar

[اسامة ابو عمر]

 

أما إذا أردت عدم التقيد بخلية محددة وأن يظهر التاريخ حيثما وضعت الـ CheckBox فجرب المرفق التالي

 

ايه بالظبط كده 

بس انتا عملتها ازاي ؟؟؟

انا عاوز اكررها على اكتر من خليه

وبعدين عاوز اتحكم فيها وامسح كلمة تشك بوكس 1 

وهل يمكن اضافة الوقت ايضا ؟؟؟

شكرا ليك جدا على المساعده

[الجموعي]

 

 

أما إذا أردت عدم التقيد بخلية محددة وأن يظهر التاريخ حيثما وضعت الـ CheckBox فجرب المرفق التالي

 

ايه بالظبط كده 

بس انتا عملتها ازاي ؟؟؟

انا عاوز اكررها على اكتر من خليه

وبعدين عاوز اتحكم فيها وامسح كلمة تشك بوكس 1 

وهل يمكن اضافة الوقت ايضا ؟؟؟

شكرا ليك جدا على المساعده

 

بالنسبة لمسح تشك بوكس

إتبع الشرح المصور

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

أخي الحبيب خطوات العمل :

1- قم بالذهاب إلى التبويب Developer ثم انقر Design Mode واختر من قائمة Insert على يسار وضع التصميم الجزء الخاص بـ ActiveXControls ثم ارسم CheckBox على ورقة العمل.

2 - لتغيير اسم الـ CheckBox كليك يمين ثم Poperties ثم الخاصية Caption غير الاسم من خلالها.

3- بالنسبة للكود المرتبط بالـ CheckBox اعمل كليك يمين على الـ CheckBox ثم الأمر View Code .. وفي نهاية الأمر لا تنسى الضغط مرة أخرى على Design Mode للخروج من وضع التصميم.

* بالنسبة لإضافة الوقت قم بتغيير الكود إلى هذ الشكل لتحصل على التاريخ والوقت معاً في نفس الخلية ..

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        CheckBox1.TopLeftCell.Offset(1, 2).Value = Date & " " & Time
    Else
        CheckBox1.TopLeftCell.Offset(1, 2).Value = vbNullString
    End If
End Sub

أما إذا أردت التاريخ في خلية والوقت في خلية أخرى فجرب الكود التالي:

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        CheckBox1.TopLeftCell.Offset(1, 2).Value = Date
        CheckBox1.TopLeftCell.Offset(1, 3).Value = Time
    Else
        CheckBox1.TopLeftCell.Offset(1, 2).Value = vbNullString
        CheckBox1.TopLeftCell.Offset(1, 3).Value = vbNullString
    End If
End Sub

آخر خطوة ودي أهم خطوة ..
 

!

!

!

!

!

!

!

 

متنساش أخوك بدعوة بظهر الغيب

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

والأخ الجموعي بارك الله فيه وضح بالصورة ما تعبت في كتابته بالكلام

مشكور أخي الجموعي على الروائع التي تقدمها

[اسامة ابو عمر]

اوكي انا حجرب واقولك

بالنسبة للدعاء فالدعاء لك دائما وللاخ اللي وضع الصور

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

 

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

 

هجرب وارد

[اسامة ابو عمر]

انا جربت وزبط

بس عندي شوية استفسارات

هل يمكن عمل اكثر من تشك بوكس بنفس الصفحة ؟؟؟

حاولت اعمل اكثر من واحد بنفس الكود بس ما زبطتش 

الاستفسار الثاني هل يمكن عمل نفس الشي على قائمة list ???

مع العلم انا اصلا مش عارف ازاي ممكن تتعمل الlist

ارجو المساعده

وشكرا

[اسامة ابو عمر]

اسف 

احب ان اشكر ايضا الاخ الجموعي على المساعدة

[اسامة ابو عمر]

هل الموضوع صعب ؟؟؟

[اسامة ابو عمر]

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

 

دلوقتي فاضل استفساري بخصوص الlist

هل يمكن عم نفس الشيء

يعني اعمل ليست باسماء اشخاص ولما اختار اي شخص بيظهر عندي التاريخ والوقت

 

معلش انا غلبتكم معايا

شكرا ليكم

[اسامة ابو عمر]

معلش يا جماعه الا يوجد احد يستطيع مساعدتي؟؟