請問如何用鍵盤鍵跟CommandButton有相同功能
- 帖子
- 185
- 主題
- 46
- 精華
- 0
- 積分
- 227
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- 旗舰版
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-14
- 最後登錄
- 2024-10-25
|
請問如何用鍵盤鍵跟CommandButton有相同功能
本帖最後由 cdkee 於 2010-10-6 18:00 編輯
Public i As Integer
Private Sub CommandButton1_Click()
i = i + 1
Sheets("sheet1").Cells(i, 1) = "X="
Sheets("sheet1").Cells(i, 2) = Int((10 * Rnd) + 1)
End Sub
請教大大，按鍵盤鍵(例如"F1")跟按CommandButton1有相同功能，是怎樣寫成的?謝謝! |
|
|
|
|
|
|
|
- 帖子
- 185
- 主題
- 46
- 精華
- 0
- 積分
- 227
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- 旗舰版
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-14
- 最後登錄
- 2024-10-25
|
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
試了這個，但不成功... |
|
|
|
|
|
|
|
- 帖子
- 185
- 主題
- 46
- 精華
- 0
- 積分
- 227
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- 旗舰版
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-14
- 最後登錄
- 2024-10-25
|
3#
發表於 2010-10-6 19:10
| 只看該作者
Private Sub CommandButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
找到這個，但不懂有沒有關係... |
|
|
|
|
|
|
|
- 帖子
- 185
- 主題
- 46
- 精華
- 0
- 積分
- 227
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- 旗舰版
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-14
- 最後登錄
- 2024-10-25
|
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
試了這個，也不成功... |
|
|
|
|
|
|
|
- 帖子
- 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
- 主題
- 46
- 精華
- 0
- 積分
- 227
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- 旗舰版
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-14
- 最後登錄
- 2024-10-25
|
6#
發表於 2010-10-6 20:29
| 只看該作者
回復 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
|
7#
發表於 2010-10-6 21:15
| 只看該作者
回復 6# cdkee
Sub Ex()
Application.OnKey "{F1}", "Sheet1.CommandButton1_Click"
End Sub
Private Sub CommandButton1_Click() -> 是Sheet1 的私用程序嗎? <- Sheet1 要修改嗎? |
|
|
|
|
|
|
|
- 帖子
- 128
- 主題
- 13
- 精華
- 1
- 積分
- 118
- 點名
- 0
- 作業系統
- WinXP
- 軟體版本
- Office2003
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 四川成都邛崃
- 註冊時間
- 2010-9-13
- 最後登錄
- 2017-5-12
|
8#
發表於 2010-10-6 21:26
| 只看該作者
這要用API的Hook(鉤子函數)來監視你的鍵盤操作，比較麻煩，很多木馬就使用了這個技術來得到你輸入的密碼、帳號等資訊。
你在錄製巨集時，會允許你設置一個“快捷鍵”，通過這個快捷鍵來運行宏代碼，也可以得到同樣的目的。 |
|
|
|
|
|
|
|
- 帖子
- 185
- 主題
- 46
- 精華
- 0
- 積分
- 227
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- 旗舰版
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-14
- 最後登錄
- 2024-10-25
|
9#
發表於 2010-10-6 22:21
| 只看該作者
回復 cdkee
Sub Ex()
Application.OnKey "{F1}", "Sheet1.CommandButton1_Click"
End Sub
Private ...
GBKEE 發表於 2010-10-6 21:15 
Sheet1是私用程序，要修改那些?謝謝版大!
這要用API的Hook(鉤子函數)來監視你的鍵盤操作，比較麻煩，很多木馬就使用了這個技術來得到你輸入的密碼、帳 ...
et5323 發表於 2010-10-6 21:26
大大是說沒有API就不行? |
|
|
|
|
|
|
|
- 帖子
- 185
- 主題
- 46
- 精華
- 0
- 積分
- 227
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- 旗舰版
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-14
- 最後登錄
- 2024-10-25
|
10#
發表於 2010-10-6 22:58
| 只看該作者
1. In design mode, select your CommandButton1;
2. In the Properties window, enter a single letter for the field Accelerator;
Suppose the caption of your CommandButton1 is “Fire” and a letter “r” is typed in step 2, then letter “r” will be underlined.
Other letters will be accepted but the underline will not shown in the caption.
Also note that it is different for lower and upper case letters.
To run your subroutine, press ALT+r or click CommandButton1 for the above example.
找到像樣的，但要按2個KEY，及FUNCTION KEY不能利用!
請教大大怎樣改，也可會做到? |
|
|
|
|
|
|
|
