返回列表 上一主題 發帖

[發問] 請問放在工作表內的可以設定快速鍵嗎?

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-9-28 15:16 | 只看該作者

[發問] 請問放在工作表內的可以設定快速鍵嗎?

如下,是否可設定成錄製巨集時那種快速鍵呢?
想設定按下ctrl+E時執行
  1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  2.     msgbox("測試)
  3. End Sub
複製代碼
收藏 分享

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-17 
2#
發表於 2018-9-28 20:19 | 只看該作者
https://msdn.microsoft.com/zh-tw/library/office/ff197461%28v=office.14%29.aspx

TOP

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
3#
發表於 2018-9-29 01:44 | 只看該作者
本帖最後由 n7822123 於 2018-9-29 01:49 編輯

回復 1# starry1314


方法一:
按Alt+F8


方法二:
先執行 程序 "TTT" 即可
  1. Sub TTT()
  2.   Application.OnKey "^e", "TAA"
  3. End Sub
  4. Sub TAA()
  5.   MsgBox ("測試")
  6. End Sub
複製代碼
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題