طلب اضافة كود

[KI50NG]

السلام عليكم . 

اخواني الاعزاء عملت برنامج اكسل واريد بعض التعديلات . 

الملف اسمه h1  -- اسم المستخدم ( حسن ) باسورد ( 1234) 

المشكلة .. 

1- الحين عند فتح البرنامج - وادخال اسم المستخدم والدخول - نذهب الى اضافة . ونملي البيانات ونضغط على حفظ . 
الان البيانات ترحل الى ملف الاكسال . بشيت ( h1 )  فعند اختياري لـ ( مربع صح ) يظهر لي true واذا لم اختار يظهر false كما هو ظاهر في الملف عندما تفتحه . 

المطلوب هو في كود التعديل لزر الحفظ . بحيث عند الضغط على صح ويتم الحفظ . يظهر تم اختيار القسم . واذا لم اضغط لا يظهر شيء . 

بمعنى اوضح . ( true = صح - false =  لا يظهر شيء ) 

ويرجى مراجعت الملفات لمن يحب الاطلاع عليه وتعديله وابلاغي بالتعديلات وانا مشكور جدا ً لمن يحب المساعده . 

( واعذروني لم استطع ارفاق الملف لكبر حجمة _ تم رفعة على موقع top4top ) 

https://up.top4top.net/downloadf-64782m4l1-zip.html

 

[KI50NG]

؟؟؟؟؟؟؟

[سمير نجار]

وعليكم السلام

اخي الكريم

ضع هذا الكود في زر حفظ

وان شاء الله يكون المطلوب

Private Sub CommandButton1_Click()
Dim a1 As Long
Dim sh As Worksheet
Set sh = Worksheets("h1")
a = sh.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
sh.Cells(a, 1).Value = Me.TextBox1.Value
sh.Cells(a, 2).Value = Me.TextBox2.Value
sh.Cells(a, 3).Value = CheckBox1.Value
sh.Cells(a, 4).Value = CheckBox2.Value
sh.Cells(a, 5).Value = CheckBox3.Value
sh.Cells(a, 6).Value = CheckBox4.Value
sh.Cells(a, 7).Value = CheckBox5.Value
sh.Cells(a, 8).Value = CheckBox6.Value
sh.Cells(a, 9).Value = CheckBox7.Value
sh.Cells(a, 10).Value = Me.TextBox3.Value

If Me.CheckBox1.Value = True Then
MsgBox "تم الحفظ واخيتار تحليلات مرضية"
ElseIf Me.CheckBox2.Value = True Then
MsgBox "تم الحفظ واخيتار علوم الحياة"
ElseIf Me.CheckBox3.Value = True Then
MsgBox "تم الحفظ واخيتار هندسة الحاسوب"
ElseIf Me.CheckBox4.Value = True Then
MsgBox "تم الحفظ واخيتار مالية مصرفية"
ElseIf Me.CheckBox5.Value = True Then
MsgBox "تم الحفظ واخيتار قانون"
ElseIf Me.CheckBox6.Value = True Then
MsgBox "تم الحفظ واخيتار تاريخ"
ElseIf Me.CheckBox7.Value = True Then
MsgBox "تم الحفظ واخيتار لغة عربية"
End If

Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
CheckBox5.Value = False
CheckBox6.Value = False
CheckBox7.Value = False
Me.TextBox3.Value = ""

TextBox2.SetFocus


End Sub