تحميل كاتب اكواد الاكسل
/ @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
تحميل ملف العمل
الجزء الاول
www.mediafire....
الجزء الثانى
www.mediafire....
الجزء الثانى من الشرح
• Video
23 сен 2024