Tạo phím Next,Back

chào diễn đàn,chúc mừng năm mới.
tôi muốn tạo 2 nút bấm Next,Back trong Form lấy data cho 3 cell kế tiếp :
vd active cell đang ở A1 thì có 3 textbox thể hiện 3 nội dung của cell A1,B1,C1.
khi tôi click Next thì thể hiện nội dung của 3 cell A2, B2,C2 và cứ tiếp tục khi muốn dừng hoặc ngược lại cho Back.
Tôi bó tay .Mong diễn đàn giúp cho.Cảm ơn diễn đàn……mời Rượu Bầu Đá..Hi

Private indez As LongPtr
Private Sub cmdlui_Click()
    indez = WorksheetFunction.Max(2, indez - 1)
    txtstt.Value = Sheet1.Range("A" & indez).Value
    txtten.Value = Sheet1.Range("B" & indez).Value
    txtnamsinh.Value = Sheet1.Range("C" & indez).Value

End Sub

Private Sub cmdtoi_Click()
    indez = WorksheetFunction.Min(Sheet1.Range("a1").End(xlDown).Row, indez + 1)
    txtstt.Value = Sheet1.Range("A" & indez).Value
    txtten.Value = Sheet1.Range("B" & indez).Value
    txtnamsinh.Value = Sheet1.Range("C" & indez).Value
End Sub

www.giaiphapexcel.com/diendan/threads/t%E1%BA%A1o-ph%C3%ADm-next-back.100719/#post-628618

Khóa học SprinGO phù hợp

Khóa học Power PI – Ứng dung trong Nhân sự

TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...

Xem khóa học