標題: [發問] 如何做出上一筆下一筆的效果 [打印本頁]

---

作者: sammay    時間: 2012-4-20 13:17     標題: 如何做出上一筆下一筆的效果

請問各位大大前輩們:
如何做出上一筆下一筆的循環效果呢？
[attach]10530[/attach]
[attach]10531[/attach]

---

作者: GBKEE    時間: 2012-6-3 11:40

回復 1# sammay
請重新制訂表單 控制項  TextBox   名稱依序排列 為 1-6   

表單的程式碼

1. Dim DataSh As Worksheet, Row_No As Integer, Row_Min As Integer, Row_Max As Integer
   
2. Private Sub UserForm_Initialize()                               '表單顯示前的預設程序
   
3.     Set DataSh = Sheets("sheet1")                               '資料的工作頁
   
4.     Row_Min = 2                                                 '第一筆的列號
   
5.     Row_Max = DataSh.Cells(Rows.Count, 1).End(xlUp).Row         '最後一筆列號
   
6.     'Row_No 沒有給值 = 0
   
7. End Sub
   
8. Private Sub CommandButton1_Click()   '上一筆
   
9.     If Row_No > Row_Min Then
   
10.         Row_No = Row_No - 1
    
11.     Else
    
12.         Row_No = Row_Min
    
13.     End If
    
14.     Show_Data
    
15. End Sub
    
16. Private Sub CommandButton2_Click()  '下一筆
    
17.     If Row_No < Row_Max Then
    
18.         Row_No = Row_No + 1
    
19.     ElseIf Row_No = 0 Then
    
20.         Row_No = Row_Min
    
21.     End If
    
22.     Show_Data
    
23. End Sub
    
24. Private Sub Show_Data()             '顯示在TextBox的數據
    
25.     Dim xi As Integer
    
26.     For xi = 1 To 6
    
27.         Me.Controls("TextBox" & xi) = DataSh.Cells(Row_No, xi).Text
    
28.     Next
    
29. End Sub

複製代碼

---

作者: sammay    時間: 2012-6-15 14:48

回復 2# GBKEE
謝謝GBKEE大大的回覆，感恩。
是否有更簡單的寫法呢？

---

作者: GBKEE    時間: 2012-6-15 17:13

回復 3# sammay
滑鼠 點選於資料的任一儲存格 然後 如圖

[attach]11402[/attach]

---

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