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

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