اذهب الي المحتوي
أوفيسنا

مساعدة في Checkboxes


الردود الموصى بها

السلام عليكم

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

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

 

سؤالي هو:

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

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

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

 

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

 

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

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

رابط هذا التعليق
شارك

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

CheckBox.rar

  • Like 2
رابط هذا التعليق
شارك

 

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

 

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

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

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

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

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

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

رابط هذا التعليق
شارك

 

 

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

 

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

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

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

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

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

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

 

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

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

YpC8zF.png
رابط هذا التعليق
شارك

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

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

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

!

!

!

!

!

!

!

 

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

  • Like 1
رابط هذا التعليق
شارك

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

 

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

 

هجرب وارد

  • Like 1
رابط هذا التعليق
شارك

انا جربت وزبط

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

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

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

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

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

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

وشكرا

رابط هذا التعليق
شارك

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

 

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

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

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

 

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

شكرا ليكم

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information