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

تحميل كاتب اكواد الاكسل
   / @yassermunir  
===================
فى هذا الجزء نشرح طريقة عمل نموذج لادخال البيانات و كذلك وضع زرين فقط احدهم لحفظ البيانات فى شيت اخر (ترحيل البيانات) ام الزر الاخر فقط لازالة البيانات من النموذج و عمل استعاده للوضع الاصلى للنموذج
تم تسمية الزر الاول 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/xv7j1v...
الجزء الثانى
https://www.mediafire.com/file/memtep...


الجزء الثانى من الشرح
   • Видео