標題: [發問] 上一欄、下一欄怎麼設計? [打印本頁]

---

作者: kkooo15    時間: 2019-7-18 22:29     標題: 上一欄、下一欄怎麼設計?

我想要可以按下一頁就下一欄修改資料
到第一欄就MsgBox ("資料最上層")
按上一頁就上一欄修改資料
到最後一欄沒有資料就MsgBox ("沒有資料")

[attach]31049[/attach]

1. Private Sub CB1_Click()
   
2. i = i - 1
   
3. TB1.Text = xSh.Cells(i, 3)
   
4. End Sub
   
5. 
   
6. Private Sub CB2_Click()
   
7. i = i + 1
   
8. TB1.Text = xSh.Cells(i, 3)
   
9. End Sub
   
10. Private Sub CB3_Click()
    
11. Set xSh = Sheets("工作表1")
    
12. '讀取資料
    
13. Dim i As Integer
    
14. i = 4
    
15. Do
    
16. i = i + 1
    
17. If xSh.Cells(i, 4) = "" Then Exit Do
    
18. If TB1.Text = xSh.Cells(i, 3) Then
    
19.     '廠商客戶資料TBox1~3
    
20.     TB2.Text = xSh.Cells(i, 4)
    
21.     TB3.Text = xSh.Cells(i, 5)
    
22.     TB4.Text = xSh.Cells(i, 6)
    
23.     TB5.Text = xSh.Cells(i, 7)
    
24.     TB6.Text = xSh.Cells(i, 8)
    
25. Exit Sub
    
26. End If
    
27. Loop
    
28. End Sub
    
29. Private Sub CB4_Click()
    
30. Set xSh = Sheets("工作表1")
    
31. '修改資料
    
32. Dim i As Integer
    
33. i = 4
    
34. Do
    
35. i = i + 1
    
36. 
    
37. If xSh.Cells(i, 4) = "" Then Exit Do
    
38. If TB1.Text = xSh.Cells(i, 3) Then
    
39.   
    
40.     '廠商客戶資料TBox1~3
    
41.     xSh.Cells(i, 4) = TB2.Text
    
42.     xSh.Cells(i, 5) = TB3.Text
    
43.     xSh.Cells(i, 6) = TB4.Text
    
44.     xSh.Cells(i, 7) = TB5.Text
    
45.     xSh.Cells(i, 8) = TB6.Text
    
46. 
    
47. Exit Sub
    
48. End If
    
49. Loop
    
50. End Sub

複製代碼

[attach]31048[/attach]

---

作者: 准提部林    時間: 2019-7-19 11:21

參考檔:
[attach]31053[/attach]

---

作者: kkooo15    時間: 2019-7-20 01:30

回復 2# 准提部林

太酷了，內容要花一點時間吸收。
１．原來宣告可以整個表單使用。
２．原來表單的資料也可以用ＦＯＲ　回圈填入資料。
謝謝大大。

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)