làm thế nào để tạo một nút chọn dòng liên tục

[ongtrungducmx25]

em có đoạn code :Range("D129").Select, em muốn tạo ra một nút chọn trong UF để nhấn click vào một lần thì chọn Range("D129").Select ,nhấn lần hai thì chọn Range("E1:E29").Select,lần ba thì Range("F1:F29").Select, còn nhấn lần thư 4 thì quay về Range("D129").Select.

 

[tedaynui]

Trong thời gian chờ đáp án tối ưu, anh thầy làm thử cách củ chuối này xem.
Mỗi lần click, anh thầy gán giá trị vào 1 ô trên sheet. Ví dụ : ô Sheet1!A1, mỗi lần click thì nó cộng thêm 1, nếu giá trị là 5 thì nó lại trả về 1.
Vậy trong code, anh thầy cho kiểm tra : nếu ô này là 1 thì Select D129, nếu là 2 thì Select E1:E29 ...

TDN

 

[ongtrungducmx25]

là sau pác phước em không hiểu vậy thêm vào mã doạn code như thế nào

Private Sub CommandButton1_Click()
Range("D1:D29").Select
End Sub

 

[tedaynui]

Đây anh thầy thử code này xem

Sub Macro1()
Dim Temp As Integer
Temp = Sheet1.Range("A1")
If Temp = 4 Then Sheet1.Range("A1").Value = 1 Else Sheet1.Range("A1").Value = Temp + 1
Select Case Temp
    Case 1: Range("D1:D29").Select
    Case 2: Range("E1:E29").Select
    Case 3: Range("F1:F29").Select
    Case 4: Range("G1:G29").Select
End Select
End Sub

TDN

 

[voda]

Bạn thử đoạn code này xem:

Public i As Integer
Private Sub CommandButton1_Click()
Range(Cells(1, 4 + i), Cells(29, 4 + i)).Select
i = i + 1
If i = 5 Then i = 0
End Sub

 

[anhtuan1066]

Hay ghê... ngắn gọn, giống như vòng lập lại chẳng thấy vòng lập nào.. Cảm ơn thầy Voda!
Bắp chước thầy Voda, tôi dùng MOD như sau:

Public i As Integer
Public k As Integer
Private Sub CommandButton1_Click()
Range(Cells(1, 4 + k), Cells(29, 4 + k)).Select
i = i + 1
k = i Mod 5
End Sub

ANH TUẤN