- 帖子
- 66
- 主題
- 16
- 精華
- 0
- 積分
- 99
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-8-12
- 最後登錄
- 2023-10-26
|
焦點及控制權問題
本帖最後由 reangame 於 2023-4-19 23:21 編輯
- Private Sub CommandButton1_Click()
- ActiveCell.Value = "▲"
- ActiveCell.Offset(0, 1).Select
- ThisWorkbook.ActiveSheet.Activate ' 將控制權轉移到目前工作表
- End Sub
然後表單上建立按鈕2(上方為程式碼)，
在工作表當前儲存格插入文字後，選取右邊儲存格，執行都正確，
但是，結束之後，無法直接使用鍵盤在工作表輸入資料，
點擊方向鍵，發現表單上的按鈕在切換選取狀態，
該如何撰寫程式碼，點擊按鈕2完成動作之後，可以直接使用鍵盤在工作表輸入資料呢?- Private Sub UserForm_Activate()
- Dim ctrl As Control
- For Each ctrl In Me.Controls
- If TypeName(ctrl) = "CommandButton" Then
- ctrl.TabStop = False
- End If
- Next ctrl
- End Sub
- Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
- If KeyCode = vbKeyTab Then
- Application.SendKeys "{TAB}"
- KeyCode = 0
- End If
- End Sub
- Sub showUF1()
- UserForm1.Show modeless
- End Sub
|
|
發表於 2023-4-19 23:16
| 
