請問如何用鍵盤鍵跟CommandButton有相同功能

帖子: 184
主題: 39
精華: 0
積分: 225
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-1-31

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

試了這個，但不成功...

帖子: 184
主題: 39
精華: 0
積分: 225
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-1-31

3^#

發表於 2010-10-6 19:10 | 只看該作者

Private Sub CommandButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
找到這個，但不懂有沒有關係...

帖子: 184
主題: 39
精華: 0
積分: 225
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-1-31

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
試了這個，也不成功...

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2010-10-6 20:20 | 只看該作者

回復 2# cdkee
必先執行下面程式
Sub Ex()
Application.OnKey "{F1}", "Sheet1.CommandButton1_Click"
End Sub

帖子: 184
主題: 39
精華: 0
積分: 225
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-1-31

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
謝謝版大!但還是不成...小輩還有什麼錯?

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2010-10-6 21:15 | 只看該作者

回復 6# cdkee
Sub Ex()
Application.OnKey "{F1}", "Sheet1.CommandButton1_Click"
End Sub

Private Sub CommandButton1_Click() -> 是Sheet1 的私用程序嗎? <- Sheet1 要修改嗎?

et5323

尊貴會員 Rank: 5 Rank: 5

帖子: 128
主題: 13
精華: 1
積分: 118
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 50
性別: 男
來自: 四川成都邛崃
註冊時間: 2010-9-13
最後登錄: 2017-5-12

8^#

發表於 2010-10-6 21:26 | 只看該作者

這要用API的Hook(鉤子函數)來監視你的鍵盤操作，比較麻煩，很多木馬就使用了這個技術來得到你輸入的密碼、帳號等資訊。
你在錄製巨集時，會允許你設置一個“快捷鍵”，通過這個快捷鍵來運行宏代碼，也可以得到同樣的目的。

帖子: 184
主題: 39
精華: 0
積分: 225
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-1-31

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就不行?

帖子: 184
主題: 39
精華: 0
積分: 225
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-1-31

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不能利用!
請教大大怎樣改，也可會做到?