- 帖子
- 559
- 主題
- 58
- 精華
- 0
- 積分
- 626
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2013
- 閱讀權限
- 50
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2010-11-22
- 最後登錄
- 2024-6-14
|
回復 5# bowwow1975
表單的架構圖
- '表單內的程式碼
- Private Sub CommandButton1_Click() 'Add
- A = Sheet1.Range("A65536").End(xlUp).Offset(1, 0).Row
- With UserForm1
- Sheet1.Range("A" & A).Select
- Sheet1.Range("A" & A) = .TextBox2.Text
- .TextBox1.Text = A
- End With
- End Sub
- Private Sub CommandButton2_Click() '上一筆
- With UserForm1
- K = .TextBox1.Value - 1
- If K < 3 Then
- MsgBox "已經到資料的第一筆"
- Sheet1.Range("A3").Select
- .TextBox1.Text = 3
- Else
- Sheet1.Range("A" & K).Select
- .TextBox1.Text = Sheet1.Range("A" & K).Row
- .TextBox2.Text = Sheet1.Range("A" & K)
- End If
- End With
- End Sub
- Private Sub CommandButton3_Click() '下一筆
- With UserForm1
- K = .TextBox1.Value + 1
- S = Sheet1.Range("A65536").End(xlUp).Row
- If K > S Then
- MsgBox "已經到資料的最後一筆"
- Sheet1.Range("A" & S).Select
- .TextBox1.Text = S
- Else
- Sheet1.Range("A" & K).Select
- .TextBox1.Text = Sheet1.Range("A" & K).Row
- .TextBox2.Text = Sheet1.Range("A" & K)
- End If
- End With
- End Sub
- Private Sub UserForm_Activate() '執行UserForm時的各項預設
- '===== 初始的UserForm的設定======
- With UserForm1
- .CommandButton1.Caption = "Add"
- .CommandButton2.Caption = "上一筆"
- .CommandButton3.Caption = "下一筆"
- .Label1.Caption = "現在是第"
- .Label2.Caption = "列資料"
- .TextBox1.Text = Sheet1.Range("A3").Row
- .TextBox1.Enabled = False
- .TextBox2.Text = Sheet1.Range("A3")
- End With
- '=================================
- End Sub
|
|
發表於 2012-7-17 10:08
| 
