如何将预定义文本作为纯文本输入到活动单元格中？

Question

我希望按 F1（Windows 操作系统）打印，即活动 Excel 单元格中的“XZ”（作为纯文本/无格式文本），但这样我就可以输入“123”此后立即执行，因此导致单元格值为 XZ123。

此 .xls 由其他用户共享，其中有四个用户在任何给定时间都在文档中添加数据。我们将其保存到 SharePoint 文件夹，但团队中没有人通过 Web 版本的 Excel 访问该文档。相反，我们只需双击文档，此时 Excel 将从本地硬盘启动，但当文档加载时，我们可以根据单元格周围的突出显示及其缩写来查看其他用户的活动单元格。

我希望这个两个字母的自动化可以从我的计算机触发，而不是嵌入到文档文件本身中。

Answer 1

不幸的是，vba 进入编辑模式的唯一方法是使用 SendKeys

您需要使用OnKey 将功能映射到 F1

Const StringToEnter As String = "XZ"

Sub EnterValue()
    Application.SendKeys "{F2}" & StringToEnter
End Sub

' Run this once to map F1 key.  Maybe call from the `Workbook_Open` event
Sub SetupMappingToF1()
    Application.OnKey "{F1}", "EnterValue"
End Sub