如何使Application.key快捷方式特定于WorkBook？
在Excel中，Application.key是一个表示键盘上的某个键的代码的属性。要使Application.key快捷方式特定于Workbook，可以使用VBA编程来实现。
首先，需要在Workbook的VBA代码模块中添加以下代码：
Private Sub Workbook_Open()
Application.OnKey "{快捷键}", "宏名称"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{快捷键}"
End Sub其中，"{快捷键}"是你想要设置的快捷键，"宏名称"是你想要执行的宏的名称。
例如，如果你想要将Ctrl+Shift+K设置为快捷键，并执行名为"Macro1"的宏，代码应该如下：
Private Sub Workbook_Open()
Application.OnKey "^+K", "Macro1"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^+K"
End Sub这样，在打开Workbook时，Ctrl+Shift+K将触发"Macro1"宏的执行；关闭Workbook时，快捷键将被取消。
这种方式可以使特定的快捷键与Workbook相关联，以便在特定的Workbook中执行特定的操作。
相关·内容
我在工作簿激活和停用事件上添加了application.key代码，以便在打开多个此类型的文件时可以使用快捷方式。以下是我的代码：Private Sub Workbook_Activate() .OnKey "^R", "ReadCurrentRecord" End WithPrivate Sub Workbook_Deactivate()
Applica
浏览 14提问于2018-08-14得票数 4
我有一个爱特梅尔SAM4S Xplained，我通过USB电缆和爱特梅尔的车载EDBG芯片(换句话说，上帝想要的方式)来编程和调试。目前，如果我通过Atmel Studio (v7.0)“停止调试”，代码似乎会继续运行(因为我继续在终端中获得输出，这是特定于应用程序的输出)。有没有人知道如何阻止这种情况发生，即如何使“停止”意味着“停止”？它把我的头扎进去了！
浏览 2提问于2015-11-25得票数 0
回答已采纳
我试图添加一个特定于程序的快捷方式，即仅在OneNote应用程序中使用的快捷方式，而不是打开应用程序本身的捷径。+d{)} 但是上面这个程序在OneNote桌面上工作，而不是在"OneNote for Windows 10“应用程序(OW10A)中工作；如何使它在商店应用程序中工作呢？
浏览 0提问于2018-08-11得票数 3
回答已采纳
我在从Visual Studio2010部署项目的桌面上创建应用程序快捷方式时遇到问题。快捷方式创建得很好，但当我将特定于应用程序的文件拖放到快捷方式上时，它不起作用(光标变成红色圆圈，中间有一个斜线)。有趣的是，如果我在安装后手动创建可执行文件的快捷方式，它也可以将文件拖放到该快捷方式上。我在尝试解决这个问题时发现了一些有用的东西，那就是如果我打开这两个快捷方式的属性对话框(部署项目创建了一个快捷方式和我手动创建的那个快捷方式)，手
浏览 4提问于2011-10-04得票数 0
回答已采纳
1回答
我正试图设置一个快捷方式，以便发送这样的输出:DATE_the雷特/cursor.否则这是linux下的AutoKey脚本：keyboard.send_keys(output)
您知道如何使用此脚本将光标插入到右侧的位置吗PS: Autokey还让我使用“短语
浏览 1提问于2018-02-18得票数 0
回答已采纳
1回答
下面是两个宏来安排强制关闭/取消(分别)Application.Visible = False
我在Workbook_Open()工作簿中将宏保存
浏览 2提问于2017-05-16得票数 0
可以通过键盘快捷方式和上下文菜单中的条目运行该子程序。Application.ScreenUpdating = False
Set wbHandle = Workbooks.Open("wb.xls如何使潜艇正确运行，而不考虑它是由上下文菜单条目或键盘快捷方式调用的？
浏览 1提问于2016-09-20得票数 1
回答已采纳
1回答
发布的所有链接要么需要打开工作簿的链接，要么不特定于probelm。我在这里张贴我的代码，请建议如何使第6排黄色。_Application app = new Microsoft.Office.Interop.Excel.Application();
//
浏览 1提问于2017-10-24得票数 1
回答已采纳
由于我们在此工作簿上运行了许多不同的宏，因此有快捷方式来调用它们是非常方便的。快捷方式是在excel中定义的，如下所示：PERSONAL.xlsb文件是特殊的，因为每当您打开Excel文件时，excel都会自动将其作为隐藏的后台工作簿打开。这很好，因为它使您能够在当前工作簿上调用PERSONAL.xlsb中的用户定义宏，而不需要启用当前工作簿。
.xlsb是一个二进制扩展，使用了一些专有的微软压缩算法。我几乎实现了所有这些，但我不知道如何为代码模块分配快捷键。module.Name = Path.GetFile
浏览 1提问于2017-12-29得票数 4
我如何处理部署上述应用程序的一般“内务管理”？我考虑的是“放手”的可用性，就像用户可能会下载像firefox这样的程序，它只会创建所有必需的文件、文件夹和桌面快捷方式。
您在哪里存储特定于用户的配置设置？你怎么才能在启动时为他们检查呢？
浏览 8提问于2021-09-08得票数 0
1回答
如何让tesseract知道中间分隔两列信息的实线？此外，有些数据行是2行而不是1行。最好的解决方法是什么？ 我是使用tesseract的新手，如果有任何帮助，我将不胜感激！ ?
浏览 25提问于2021-03-01得票数 0
这里的问题是，根据
VisualC++命令行工具使用PATH、TMP、INCLUDE、LIB和LIBPATH环境变量，还可以使用特定于工具的环境变量。由于这些环境变量的值特定于您的安装，并且可以通过产品更新或升级来更改，因此建议您使用vcvarsall.bat或开发人员命令提示符快捷方式，而不是自己设置它们。我该如何解决这个问题？我正在考虑编写我自己的batch文件，但是如果第一个文件不能工作，为什么我的文件会这样呢？我没有在附加的MSDN页面上看到任何东西，也没有看到任何关于如何使P
浏览 8提问于2017-07-12得票数 4
回答已采纳
1回答
目前用户只是使用电子表格输入他们的数据，但现在我正在开发一个vb.net用户界面，允许他们输入他们的数据，并为我们提供更多的灵活性和功能，使他们的生活变得更容易，让他们摆脱Microsoft Excel我的问题是:如果我的应用程序正在运行(这意味着我想要的工作簿是在后台打开的)，并且我通过桌面上的快捷方式打开了另一个工作簿，当我在另一个工作簿打开的情况下关闭我的应用程序时，它会尝试关闭第二个工作簿，用户会收到我该如何解决这个问题呢？我是否需要找到特定于我的计算工作簿的进程并将其关闭，而不是关闭我创建的Excel对象？As
浏览 4提问于2013-04-16得票数 1
回答已采纳
2回答
理解用户在幕后的输入？
、、、
我对用户输入是如何在游戏引擎的幕后接收和处理感到有点困惑。假设我有一个简单的游戏循环如下..。while (true) processInput(); renderGameWorld();如果在程序执行不同的函数时键被快速按下和释放，那么引擎如何能够访问仅仅凭直觉(我在这里可能大错特错)，我猜想键盘输入会强制硬件中断，将键值存储到某种特定于设备的存储缓冲队列中，然后程序可以在正确的时间(下一个processInput()调用)访问和刷新？如果这是真的，引擎如
浏览 0提问于2022-05-20得票数 0
(尽管许多发行版没有从包管理器中删除这个pam模块)
如果有人能告诉我如何做到这一点，我将不胜感激。
浏览 0提问于2022-12-20得票数 1
4回答
我想支持通过短信，推特，电子邮件或任何其他媒体的请求-响应循环，我可以做一个适配器。是否有一个框架能很好地做到这一点？路由看起来类似于：推特或短信线路会是什么样子
浏览 7提问于2008-09-22得票数 11
回答已采纳
：COM可调用包装器如何生成COM接口in？如何知道接口是否已更改并需要生成新的IID？是否更安全，只生成自己的接口并在源文件中声明？
浏览 4提问于2011-07-03得票数 8
回答已采纳
1回答
当我使用OS时，有一个快捷方式(Cmd+D)，当关闭一个未保存更改的窗口时，它会取消“您想要保存”对话框。在Ubuntu中是否有类似的方法，如果没有，是否有一种在全系统实现这一功能的方法？
📷
浏览 0提问于2015-03-07得票数 5
回答已采纳
也许这实际上是一个bug，但由于找不到任何表明它是已知的东西，我假设我做错了什么。我想首先按优先级对研究对象进行排序(因此，首先对它们进行优先级较高的分组)，然后按日期时间排序，最早排序。这样，Stat将位于列表的顶部，最旧的在前，依此类推。ordered = ordered = models.Study.objects.all().order_by('arrived').orde
浏览 0提问于2013-05-31得票数 0
回答已采纳
2回答
在Rubber鸭2.0.11.2453中运行代码检查之后，有4个范围引用被标记为：
Private Sub RunORatio(ByVal TabNum As Integer) Dim wsORatio As Worksheet, wsData As Worksheet, wsMac
浏览 0提问于2017-02-01得票数 7
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
