عمل نموذج ادخال بيانات من الشيت Malaysia

كاتب الاكواد http://wcodew.com/ تعلم الاكسل من الصفر http://wcodew.com/excel/ribbon/index.php تعلم EXCEL VBA من الصفر http://wcodew.com/excel_vba_ar/software/two_minutes.php تعلم فيجول بيسك من الصفر http://wcodew.com/visual_basic_ar/basic/index.php تعلم سى شارب من الصفر http://wcodew.com/csharp/intro/index.php صفحة الفيس بوك للتواصل معنا https://web.facebook.com/wcodew/ فى هذا الجزء نشرح طريقة عمل نموذج لادخال البيانات و كذلك وضع زرين فقط احدهم لحفظ البيانات فى شيت اخر (ترحيل البيانات) ام الزر الاخر فقط لازالة البيانات من النموذج و عمل استعاده للوضع الاصلى للنموذج تم تسمية الزر الاول cmdSave الكود الخاص به Private Sub cmdSave_Click() Application.ScreenUpdating = False Dim iRow As Long iRow = Sheets(2).Range("A1048576").End(xlUp).Row + 1 With ThisWorkbook.Sheets(2) .Range("A" & iRow).Value = iRow - 1 .Range("B" & iRow).Value = txtName.Value .Range("C" & iRow).Value = IIf(optMale.Value = True, "ذكر", "انثى") .Range("D" & iRow).Value = cmbQualification.Text .Range("E" & iRow).Value = txtCity.Value End With Call Reset Application.ScreenUpdating = True End Sub الزر الاخر يسمى cmdReset و الكود الخاص به Private Sub cmdReset_Click() Dim i As Integer i = MsgBox("Do you want to reset this form?", vbQuestion + vbYesNo + vbDefaultButton2, "Form Reset") If i = vbYes Then Call Reset End If End Sub مع وضع داله فى الاول لعمل مسح لما بداخل النموذج Function Reset() Application.ScreenUpdating = False txtName.Value = "" txtName.BackColor = vbWhite optMale.Value = False optFemale.Value = False cmbQualification.Text = "" cmbQualification.BackColor = vbWhite txtCity.Value = "" txtCity.BackColor = vbWhite Application.ScreenUpdating = True End Function تحميل ملف العمل الجزء الاول https://www.mediafire.com/file/xv7j1vb9ez9akeg/ الجزء الثانى https://www.mediafire.com/file/memteppl9mfwzb5/� �موذج+ادخال+البيانات+من+الشيت+الجزء+الثانى.rar/file الجزء الثانى من الشرح /watch/kAhd735aQZRad

Category