KI50NG قام بنشر أكتوبر 9, 2017 مشاركة قام بنشر أكتوبر 9, 2017 السلام عليكم . اخواني الاعزاء عملت برنامج اكسل واريد بعض التعديلات . الملف اسمه h1 -- اسم المستخدم ( حسن ) باسورد ( 1234) المشكلة .. 1- الحين عند فتح البرنامج - وادخال اسم المستخدم والدخول - نذهب الى اضافة . ونملي البيانات ونضغط على حفظ . الان البيانات ترحل الى ملف الاكسال . بشيت ( h1 ) فعند اختياري لـ ( مربع صح ) يظهر لي true واذا لم اختار يظهر false كما هو ظاهر في الملف عندما تفتحه . المطلوب هو في كود التعديل لزر الحفظ . بحيث عند الضغط على صح ويتم الحفظ . يظهر تم اختيار القسم . واذا لم اضغط لا يظهر شيء . بمعنى اوضح . ( true = صح - false = لا يظهر شيء ) ويرجى مراجعت الملفات لمن يحب الاطلاع عليه وتعديله وابلاغي بالتعديلات وانا مشكور جدا ً لمن يحب المساعده . ( واعذروني لم استطع ارفاق الملف لكبر حجمة _ تم رفعة على موقع top4top ) https://up.top4top.net/downloadf-64782m4l1-zip.html 1 رابط هذا التعليق شارك More sharing options...
KI50NG قام بنشر أكتوبر 11, 2017 الكاتب مشاركة قام بنشر أكتوبر 11, 2017 ؟؟؟؟؟؟؟ رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر أكتوبر 11, 2017 مشاركة قام بنشر أكتوبر 11, 2017 وعليكم السلام اخي الكريم ضع هذا الكود في زر حفظ وان شاء الله يكون المطلوب 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 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.