أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil الترقيم بشرط معين اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





التنقل بين السجلات بواسطة أدة سبين بوتن

السلام عليكم ورحمة الله وبركاته أخواني الكرام : في الملف المرفق فورم ترحيل درجات الطلاب أريد بعد درجات الطالب وترحيلها ..


موضوع مغلق


20-10-2020 04:44 مساء
Khairi
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1466
المشاركات : 181
الجنس : ذكر
تاريخ الميلاد : 20-12-1973
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 116
 offline 

السلام عليكم ورحمة الله وبركاته 

أخواني الكرام :
في الملف المرفق فورم ترحيل درجات الطلاب أريد بعد درجات الطالب وترحيلها والضغط على الأداة يتنقل إلة الطالب التالي كما في الملف المرفق

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  التنقل بين السجلات (1).xlsm   تحميل xlsm مرات التحميل :(9)
الحجم :(1248.142) KB



أفضل إجابة مقدمة من ali mohamed ali وهي:
وعليكم السلام-تفضل تم عمل وضبط الكود من قبل الأستاذ الكبير ابراهيم الحداد له منا كل المحبة والإحترام

Private Sub ToggleButton1_Click()
Dim ws As Worksheet
Dim LR  As Long, i As Long
Dim x As Integer
Dim SName As String
Set ws = Sheets("mark")
LR = ws.Range("C" & Rows.Count).End(xlUp).Row
SName = Me.ComboBox1.Text
If SName = "" Then
MsgBox " من فضلك اختر اســم الطالب  "
Exit Sub
Else
i = 9
Do While i <= LR
If ws.Cells(i, 3).Text = SName Then
x = 9
ws.Cells(i, x).Value = Me.Text1
ws.Cells(i, x + 1).Value = Me.Text2
ws.Cells(i, x + 2).Value = Me.Text3

ws.Cells(i, x + 10).Value = Me.Text4
ws.Cells(i, x + 11).Value = Me.Text5
ws.Cells(i, x + 12).Value = Me.Text6
End If
i = i + 1
Loop
End If
Me.Text1 = ""
Me.Text2 = ""
Me.Text3 = ""
Me.Text4 = ""
Me.Text5 = ""
Me.Text6 = ""
End Sub
Private Sub SpinButton1_Change()
Set ws = Sheets("mark")
For i = 9 To 1000
If Me.ComboBox1.Value = ws.Cells(i, 3).Value Then
Me.SpinButton1.Value = i + 1
Me.ComboBox1.Value = ws.Cells(i + 1, 3).Value
Exit For
End If
Next
End Sub



 
عرض الإجابة




21-10-2020 01:35 صباحا
مشاهدة مشاركة منفردة [1]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1766
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9632
عدد الإجابات: 46
 offline 
look/images/icons/i1.gif التنقل بين السجلات بواسطة أدة سبين بوتن
وعليكم السلام-تفضل تم عمل وضبط الكود من قبل الأستاذ الكبير ابراهيم الحداد له منا كل المحبة والإحترام

Private Sub ToggleButton1_Click()
Dim ws As Worksheet
Dim LR  As Long, i As Long
Dim x As Integer
Dim SName As String
Set ws = Sheets("mark")
LR = ws.Range("C" & Rows.Count).End(xlUp).Row
SName = Me.ComboBox1.Text
If SName = "" Then
MsgBox " من فضلك اختر اســم الطالب  "
Exit Sub
Else
i = 9
Do While i <= LR
If ws.Cells(i, 3).Text = SName Then
x = 9
ws.Cells(i, x).Value = Me.Text1
ws.Cells(i, x + 1).Value = Me.Text2
ws.Cells(i, x + 2).Value = Me.Text3

ws.Cells(i, x + 10).Value = Me.Text4
ws.Cells(i, x + 11).Value = Me.Text5
ws.Cells(i, x + 12).Value = Me.Text6
End If
i = i + 1
Loop
End If
Me.Text1 = ""
Me.Text2 = ""
Me.Text3 = ""
Me.Text4 = ""
Me.Text5 = ""
Me.Text6 = ""
End Sub
Private Sub SpinButton1_Change()
Set ws = Sheets("mark")
For i = 9 To 1000
If Me.ComboBox1.Value = ws.Cells(i, 3).Value Then
Me.SpinButton1.Value = i + 1
Me.ComboBox1.Value = ws.Cells(i + 1, 3).Value
Exit For
End If
Next
End Sub



 
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله



الكلمات الدلالية
سبين ، بواسطة ، التنقل ، السجلات ، بوتن ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:09 صباحا