請問如何用鍵盤鍵跟CommandButton有相同功能
- 帖子
- 185
- 主題
- 48
- 精華
- 0
- 積分
- 227
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- 旗舰版
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-14
- 最後登錄
- 2025-1-27
|
回復 5# GBKEE
Public i As Integer
Sub Ex()
Application.OnKey "{F1}", "Sheet1.CommandButton1_Click"
End Sub
Private Sub CommandButton1_Click()
i = i + 1
Sheets("sheet1").Cells(i, 1) = "X="
Sheets("sheet1").Cells(i, 2) = Int((10 * Rnd) + 1)
End Sub
謝謝版大!但還是不成...小輩還有什麼錯? |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
5#
發表於 2010-10-6 20:20
| 只看該作者
回復 2# cdkee
必先執行下面程式
Sub Ex()
Application.OnKey "{F1}", "Sheet1.CommandButton1_Click"
End Sub |
|
|
|
|
|
|
|
- 帖子
- 185
- 主題
- 48
- 精華
- 0
- 積分
- 227
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- 旗舰版
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-14
- 最後登錄
- 2025-1-27
|
4#
發表於 2010-10-6 20:15
| 只看該作者
Public i As Integer
Private Sub CommandButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = Asc("{F1}") Then
CommandButton1_Click
End If
End Sub
Private Sub CommandButton1_Click()
i = i + 1
Sheets("sheet1").Cells(i, 1) = "X="
Sheets("sheet1").Cells(i, 2) = Int((10 * Rnd) + 1)
End Sub
試了這個，也不成功... |
|
|
|
|
|
|
|
- 帖子
- 185
- 主題
- 48
- 精華
- 0
- 積分
- 227
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- 旗舰版
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-14
- 最後登錄
- 2025-1-27
|
3#
發表於 2010-10-6 19:10
| 只看該作者
Private Sub CommandButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
找到這個，但不懂有沒有關係... |
|
|
|
|
|
|
|
- 帖子
- 185
- 主題
- 48
- 精華
- 0
- 積分
- 227
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- 旗舰版
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-14
- 最後登錄
- 2025-1-27
|
2#
發表於 2010-10-6 18:07
| 只看該作者
Public i As Integer
Private Sub CommandButton1_Click()
Application.OnKey "{F1}"
i = i + 1
Sheets("sheet1").Cells(i, 1) = "X="
Sheets("sheet1").Cells(i, 2) = Int((10 * Rnd) + 1)
End Sub
試了這個，但不成功... |
|
|
|
|
|
|
|
