- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2012-6-3 11:40
| 只看該作者
回復 1# sammay
請重新制訂表單 控制項 TextBox 名稱依序排列 為 1-6
表單的程式碼- Dim DataSh As Worksheet, Row_No As Integer, Row_Min As Integer, Row_Max As Integer
- Private Sub UserForm_Initialize() '表單顯示前的預設程序
- Set DataSh = Sheets("sheet1") '資料的工作頁
- Row_Min = 2 '第一筆的列號
- Row_Max = DataSh.Cells(Rows.Count, 1).End(xlUp).Row '最後一筆列號
- 'Row_No 沒有給值 = 0
- End Sub
- Private Sub CommandButton1_Click() '上一筆
- If Row_No > Row_Min Then
- Row_No = Row_No - 1
- Else
- Row_No = Row_Min
- End If
- Show_Data
- End Sub
- Private Sub CommandButton2_Click() '下一筆
- If Row_No < Row_Max Then
- Row_No = Row_No + 1
- ElseIf Row_No = 0 Then
- Row_No = Row_Min
- End If
- Show_Data
- End Sub
- Private Sub Show_Data() '顯示在TextBox的數據
- Dim xi As Integer
- For xi = 1 To 6
- Me.Controls("TextBox" & xi) = DataSh.Cells(Row_No, xi).Text
- Next
- End Sub
|
|
發表於 2012-4-20 13:17
| 
