กดปุ่มถัดไป โดยเรียงลำดับ VBA
Posted: Thu May 02, 2019 2:53 pm
พอดีทำปุ่มถัดไปแล้วไม่สามารถกดได้
โดยตอนนี้ Userform ของผม มีการเลือกข้อมูล 4 ขั้น 1 2 3 4
โดยมีปุ่ม Next เพื่อกดข้อมูลถัดไป อยากจะให้มัน Next แล้วไล่ข้อมูลของ 4 ให้ หมด แล้วก็ไปข้อมูลของ3 ต่อไปซึ่งใน 3ก็มี 4 อยู่( 4เป็นชื่อคน)
ไล่ไปเรื่อยๆจนหมดแล้วกดถัดไปเมื่อสุดข้อมูล3แล้วจะไปขึ้น2 อันถัดไป แล้วมาไล่3 เหมือนเดิม
แบบนี้มันทำได้ไหมครับ
โดยตอนนี้ Userform ของผม มีการเลือกข้อมูล 4 ขั้น 1 2 3 4
โดยมีปุ่ม Next เพื่อกดข้อมูลถัดไป อยากจะให้มัน Next แล้วไล่ข้อมูลของ 4 ให้ หมด แล้วก็ไปข้อมูลของ3 ต่อไปซึ่งใน 3ก็มี 4 อยู่( 4เป็นชื่อคน)
ไล่ไปเรื่อยๆจนหมดแล้วกดถัดไปเมื่อสุดข้อมูล3แล้วจะไปขึ้น2 อันถัดไป แล้วมาไล่3 เหมือนเดิม
แบบนี้มันทำได้ไหมครับ
Code: Select all
Private Sub NextAGENT01_Click()
Dim lastrow, nextRow As Integer
lastrow = Sheets("AGENT01").Range("A" & Rows.Count).End(xlUp).Row
For N = 2 To lastrow
If Sheets("AGENT01").Cells(N, "A").Value = (Me.NameAgent01) Then
nextRow = N + 1
End If
Next N
Sheets("AGENT01").Select
Cells(nextRow, 1).Activate
NameAgent01.Value = Cells(nextRow, 1)
End Sub
กรุณาแนบไฟล์ที่ลองเองมาแล้วด้วยจะได้สะดวกในการตอบของเพื่อนสมาชิกครับ