savedRowIdx = 2
For i = savedRowIdx To Sheets("異動檔").Range("C2").End(xlDown).Row
If data1.Text = Cells(i, "C") Then
savedRowIdx = i + 1
T1.Text = Cells(i, "D")
T2.Text = Cells(i, "B")
T3.Text = Cells(i, "E")
Else
For j = 2 To Sheets("異動檔").Range("C2").End(xlDown).Row
If data1.Text = Cells(j, "C") Then
T1.Text = Cells(j, "D")
T2.Text = Cells(j, "B")
T3.Text = Cells(j, "E")
End If
Next
End If
Next
我碰到2個問題 不知道怎麼修改
第一個問題
我按下一筆資料的按鈕 卻跑到第三筆資料
第二個問題
我else應該可以有2個作用才對
第1個作用是若資料只有一筆 它就停在那筆資料
第2個作用是若資料是最後一筆 它就會回到第一筆資料
但是卻卡住了
我不知這樣寫 哪裡錯誤 請多指教
謝謝
在程式碼中間 按下F8 看看那一行的程式碼的動作 不如您預期的
一行一行解決~~
剛無聊 幫你 弄了一下 你看一下
大約能 跑出你要的功能,但實際還是得測試
因為沒有看到 你的TABLE是長怎樣的
其本上 第二個 FOR是多餘的
Sub 按鈕2_Click()
savedRowIdx = 2
GG = Sheets("異動檔").Range("C2").End(xlDown).Row
Data1 = 2
T1 = ""
T2 = ""
T3 = ""
For i = savedRowIdx To GG
If Cells(i, 3) = Data1 Then
savedRowIdx = i + 1
T1 = Cells(i, 4)
T2 = Cells(i, 2)
T3 = Cells(i, 5)
Else
For j = 2 To GG
If Cells(i, 3) = Data1 Then
T1 = Cells(j, 4)
T2 = Cells(j, 2)
T3 = Cells(j, 5)
End If
Next
End If
Next
End Sub
我的 測試 TABLE