اسهل طريقة لسجل قيد الطلاب 2021
اسهل طريقة لسجل قيد الطلاب 2021
سنقدم لكم اسهل طريقة لسجل قيد الطلاب فى المدارس بالتنسيق الجديد المطلوب
من البيانات النسخة التى تعتمدها الادارة لسجل قيد الطلاب 2021 والتى تحتوى
على البيانات التالية فى جدول :
مسلسل - كود الطالب - اسم الطالب - الرقم القومى مقسم لخانتين - تاريخ الالتحاق بالمدرسة 1/10/ 2020 -
السن فى 1/10/2020 - اسم ولى الامر - عنوان ولى الامر .
وهذه الاكواد التى تستخدمها فى البرنامج:
Private Sub CommandButton1_Click()
If TextBox1.Value <> "" And TextBox2.Value <> "" And TextBox3.Value <> "" And TextBox4.Value <> "" Then
ورقة1.Activate
LROW = Range("d" & Rows.Count).End(xlUp).Row
Range("d" & LROW + 1).Value = TextBox1.Value
Range("d" & LROW + 1).Offset(0, 1).Value = TextBox2.Value
Range("d" & LROW + 1).Offset(0, 2).Value = TextBox3.Value
Range("d" & LROW + 1).Offset(0, 3).Value = TextBox4.Value
Range("d" & LROW + 1).Offset(0, 4).Value = TextBox5.Value
Range("d" & LROW + 1).Offset(0, 5).Value = TextBox6.Value
Range("d" & LROW + 1).Offset(0, 6).Value = TextBox7.Value
Range("d" & LROW + 1).Offset(0, 7).Value = TextBox8.Value
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
Else
MsgBox ("يرجى التاكد من ادخال كافة البيانات")
End If
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
For I = 2 To 10000
If Cells(I, 8) = TextBox1.Text Then
Cells(I, 8).Select
Exit For
End If
Next I
ActiveCell.Offset(0, 1) = TextBox2.Text
ActiveCell.Offset(0, 2) = TextBox3.Text
ActiveCell.Offset(0, 3) = TextBox4.Text
ActiveCell.Offset(0, 4) = TextBox5.Text
ActiveCell.Offset(0, 5) = TextBox6.Text
ActiveCell.Offset(0, 6) = TextBox7.Text
ActiveCell.Offset(0, 7) = TextBox8.Text
End Sub
Private Sub CommandButton3_Click()
End Sub
Private Sub CommandButton4_Click()
UserForm1.Hide
Application.Quit
End Sub
Private Sub CommandButton5_Click()
UserForm1.Hide
Application.Visible = True
End Sub
Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
End Sub
Private Sub CommandButton7_Click()
Application.Dialogs(xlDialogPrint).Show
UserForm1.Hide
End Sub
Private Sub CommandButton8_Click()
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub Label4_Click()
End Sub
Private Sub Label7_Click()
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub MultiPage1_Change()
End Sub
Private Sub SpinButton1_Change()
End Sub
Private Sub TextBox1_Change()
lr = WorksheetFunction.CountIf(Range("d2:d10000"), Val(TextBox1.Value))
If TextBox1.Value <> "" And lr = 1 Then
TextBox2.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("d:h10000"), 2, 0)
TextBox3.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("d:h10000"), 3, 0)
TextBox4.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("d:h10000"), 4, 0)
TextBox5.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("d:h10000"), 5, 0)
TextBox6.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("d:h10000"), 6, 0)
TextBox7.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("d:h10000"), 7, 0)
TextBox8.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("d:h10000"), 8, 0)
Else
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
End If
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub TextBox4_Change()
End Sub
Private Sub TextBox6_Change()
End Sub
Private Sub TextBox9_Change()
End Sub
Private Sub ToggleButton1_Click()
End Sub
Private Sub UserForm_Click()
End Sub
رابط الفيديو من هنا
شرح البرنامج فى المدونة من هنا
ليست هناك تعليقات:
إرسال تعليق