عمل نموذج ادخال بيانات من الشيت
فى هذا الجزء نشرح طريقة عمل نموذج لادخال البيانات و كذلك وضع زرين فقط احدهم لحفظ البيانات فى شيت اخر (ترحيل البيانات) ام الزر الاخر فقط لازالة البيانات من النموذج و عمل استعاده للوضع الاصلى للنموذج
تم تسمية الزر الاول 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
الجزء الثانى من الشرح
https://youtu.be/RZQa537dhAk
Видео عمل نموذج ادخال بيانات من الشيت канала Yasser Munir
تم تسمية الزر الاول 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
الجزء الثانى من الشرح
https://youtu.be/RZQa537dhAk
Видео عمل نموذج ادخال بيانات من الشيت канала Yasser Munir
Показать
Комментарии отсутствуют
Информация о видео
Другие видео канала
اكسل excel الزر اضافة وتعديل وحذف حيث يتم ترحيل البيانات من الفورم الى ورقة العملبرمجة الإكسل | عمل نموذج إدخال بيانات داخل شيت الإكسيل excel vbaبدون اى اكواد .. فورم البحث باستخدام الكومبوبوكس المتعددةتعلم ترحيل البيانات و انت مغمض عينيكخدعة إنقسام الخلية | من أهم خدع الإكسيلتصميم نموذج ادخال بيانات الموظفين داخل الشيت واضافة ازرار اضافة وتعديل واستعلام وحذف وطباعة اكسلكيفية ربط ملف الاكسيل بالواتس ..مهم جدا لكل موظفين الموارد البشريةاسهل وابسط طريقة لفهم دالة IF البسيطة والمركبة Excelتعلم طريقة ترحيل البيانات فى دقائق معددوةأكثر من #مليون #مشاهدة وخلال ساعتين فقط | تعلم الإكسل من خلال بناء برنامج محاسبة مع التحميل!😎👌✌طريقة عمل كشف حضور و غياب للموظفينخمس اسئله عن الاكسيل يجب عليك معرفتها قبل اى مقابلة العمل ( انترفيو )عمل برنامج مخازن كامل بالنماذج بدون دخول المستخدم لشيت الاكسيل الجزء الاولأكسس 2007 Access طريقة عمل برنامج عيادةتصميم نموذج إدخال بيانات من الشيت فى الإكسيل excel vbaخدعة التعبئة التلقائية | الطريقة الأولىتصميم برنامج لترحيل البيانات من شيت ل شيت اخر وعمل تقارير المتابعه بأسهل الطرق الاحترافيهللمبتدئين ... تصميم فورم خطوة خطوة واضافة ازرار ترحيل وتعديل وحذف وطباعةعمل نموذج ادخال بيانات داخل شيت الاكسل بأسهل الطرق الاحترافيه