請問如何用鍵盤鍵跟CommandButton有相同功能
- 帖子
- 185
- 主題
- 40
- 精華
- 0
- 積分
- 227
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- 旗舰版
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-14
- 最後登錄
- 2024-5-14
|
請問如何用鍵盤鍵跟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
- 主題
- 40
- 精華
- 0
- 積分
- 227
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- 旗舰版
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-14
- 最後登錄
- 2024-5-14
|
15#
發表於 2010-10-7 13:48
| 只看該作者
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
14#
發表於 2010-10-7 13:22
| 只看該作者
回復 13# cdkee
要達到一個結果的程式碼 寫法不一定都是一樣的 自己高興就好 |
|
|
|
|
|
|
|
- 帖子
- 185
- 主題
- 40
- 精華
- 0
- 積分
- 227
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- 旗舰版
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-14
- 最後登錄
- 2024-5-14
|
13#
發表於 2010-10-7 12:57
| 只看該作者
et5323是說少用API函數
請看附檔
GBKEE 發表於 2010-10-7 07:27 
跟版大的方法成功了，但小輩仍在思考...這方式有什麼不好?大大們好像不大建議，是小輩小見，再請大大們教導。 |
|
|
|
|
|
|
|
- 帖子
- 185
- 主題
- 40
- 精華
- 0
- 積分
- 227
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- 旗舰版
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-14
- 最後登錄
- 2024-5-14
|
12#
發表於 2010-10-7 12:27
| 只看該作者
et5323是說少用API函數
請看附檔
GBKEE 發表於 2010-10-7 07:27
謝謝版大!先下蛓來學習... |
|
|
|
|
|
|
|
- 帖子
- 185
- 主題
- 40
- 精華
- 0
- 積分
- 227
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- 旗舰版
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-14
- 最後登錄
- 2024-5-14
|
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不能利用!
請教大大怎樣改，也可會做到? |
|
|
|
|
|
|
|
- 帖子
- 185
- 主題
- 40
- 精華
- 0
- 積分
- 227
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- 旗舰版
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-14
- 最後登錄
- 2024-5-14
|
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就不行? |
|
|
|
|
|
|
|
- 帖子
- 128
- 主題
- 13
- 精華
- 1
- 積分
- 118
- 點名
- 0
- 作業系統
- WinXP
- 軟體版本
- Office2003
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 四川成都邛崃
- 註冊時間
- 2010-9-13
- 最後登錄
- 2017-5-12
|
8#
發表於 2010-10-6 21:26
| 只看該作者
這要用API的Hook(鉤子函數)來監視你的鍵盤操作，比較麻煩，很多木馬就使用了這個技術來得到你輸入的密碼、帳號等資訊。
你在錄製巨集時，會允許你設置一個“快捷鍵”，通過這個快捷鍵來運行宏代碼，也可以得到同樣的目的。 |
|
|
|
|
|
|
|
- 帖子
- 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 要修改嗎? |
|
|
|
|
|
|
|
