عمل مربعا خيارات صح وخطأ على اكسل

[رورو محمد]

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

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

[عبد العزيز البسكري]

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

أخي الكريم محمد رورو ماذا تقصد بسؤالك لو سمحت ..

هل أنت تقصد علامة الصح بهذا الشّكل :

أم تقصد علامة الصح بهذا الشّكل :

فائق احتراماتي

 

[رورو محمد]

الخيار الاول لو سمحت وكيف لما اضغط عليه يطلع صح او بروح يعني يا صح يا لا 

وشكرا الك على ردك

ث

تم تعديل أكتوبر 1, 2015 بواسطه رورو محمد

[عبد العزيز البسكري]

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

أخي الكريم محمّد رورو .. ما تطلبه له عدّة تفسيرات .. هل تريد مثلا ً بهذه الكيفية حيث يمكنك اختيار الخلايا التي تريد العمل عليها .. و كذلك إمكانيّة تغيير ما تريده داخل هذه الخلايا .. بواسطة الفورم أم فقط على ورقة العمل..جرّب المرفق و أي استفسارات أخرى فكل أعضاء منتدى أوفيسنا في خدمة حضرتك ..

فائق احتراماتي

 

CHECKBOX.rar

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

انظر الي هذة الطريقة

الكود للاستاذ ياسر خليل

 

 

وضع علامة صح في عمود معين.rar

[رورو محمد]

لا بدي الخيار الاول يعني مربع ولما اضغط عليه يجي صح او يروح 

مثلا
الجنسية	فلسطينية	غير فلسطينية

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

[عبد العزيز البسكري]

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

أخي الكريم محمد الخازمي .. الملف الذي أرسلته أراه فارغًا من الكود .. على كلٍّ قد ملأته بما كنتَ تقصده .. وبالإمكان تغيير تسمية النطاقات

 

 

التشيك بوكس.rar

[رورو محمد]

 

شكرا كتير الك 

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

[عبد العزيز البسكري]

جرّب أخي الفاضل محمد رورو هذا المرفق .. هو طبعًا لمشاركتي الأولى فقط قمت بتغيير الكلمات .. يمكنك التّلاعب بمكان الخلايا مثلما شئت .. طبعًا هناك طرق أخرى بدون اليوزرفورم سأحاول أن أختار لك ما يروق لك .. أرسلت لك هذا الملف فقط للإستفادة

                                                                                                    خالص احتراماتي

 

CHECKBOX 1.rar

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

استاذ عبد العزيز

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

علي  العموم هذا هو الكود ان كان هو طلب السائل ............. توضيح الكود للاستاذ " ياسر خليل "

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

 

[عبد العزيز البسكري]

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

أستاذنا القدير ياسر خليل أبو البراء .. بارك الله فيك على الكود المميّز .. جزاك الله خيرًا و زادها بميزان حسناتك .. أفضالك علينا كثُرت .. بغيابك أو بحضورك .. ماشاء الله عليك سيّدي الكريم

أتمنى أن يجد الأخ الكريم محمد رورو ما يرضيه ويفي بالغرض ..

                                                                                                               خالص احتراماتي

 

[رورو محمد]

اه الله يسعدك اخ عبد العزيز البسكري 

المطلوب وصلني ونفذته وشكرا كتير الك

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

تم تعديل أكتوبر 2, 2015 بواسطه رورو محمد