如何用VBA检查Caps Lock键是否打开
发布时间：2022-06-22 07:00:10
标签：代码,判断,开启,打开,Excel函数
要用VBA代码判断Caps Lock键、Num Lock键及Scroll Lock键的开启状态，可以用下面的代码，前四行代码为API声明，需放置在代码窗口的最上方：
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Const VK_NUMLOCK = &H90
Const VK_SCROLL = &H91
Const VK_CAPITAL = &H14
Private Sub KeyStates()
If GetKeyState(VK_CAPITAL) Then ‘Caps Lock键
MsgBox "Caps Lock ON"
Else
MsgBox "Caps Lock OFF"
End If
If GetKeyState(VK_NUMLOCK) Then ‘Num Lock键
MsgBox "Num Lock ON"
Else
MsgBox "Num Lock OFF"
End If
If GetKeyState(VK_SCROLL) Then ‘Scroll Lock键
MsgBox "Scroll Lock ON"
Else
MsgBox "Scroll Lock OFF"
End If
End Sub
另外，在Word中可以使用下面的VBA代码来判断Caps Lock键是否开启：
Sub KeyStates()
If Selection.Information(wdCapsLock) Then
MsgBox "Caps Lock 键已开启"
Else
MsgBox "Caps Lock 键已关闭"
End If
End Sub
0
投稿猜你喜欢
- 如何注册认证支付宝企业账户？很多小伙伴不知道，其实支付宝分为个人版和企业版，两者还是有区别的。如果你想注册支付宝企业账户，必须按照相关流程进
我们大多数人每天都在使用 PDF，而 macOS 可以轻松组合 PDF。这意味着您可以快速将两个或多个 PDF 文件合并为一个。此外，您还可- 创建页眉或页脚时，Word自动在整篇文档中使用同样的页眉或页脚。要为部分文档创建不同于其他部分的页眉或页脚，需要对文档进行分节，然后断开当前
- 借助Word2010提供的图片柔化边缘功能，用户可以为Word2010文档中的图片设置柔化边缘效果，使图片的边缘呈现比较模糊的效果。借助Wo
- wps全屏怎么关？在写作过程中，除了灵感以外，最重要的就是不被打扰了。所以我在写作的时候会带上降噪耳机，播放轻柔的音乐，隔绝外界的声音，完全
- 影子系统是一个非常安全可靠的软件，主要功能就是可以不用重装系统，上网没有痕迹，病毒木马无法破坏电脑，重启后自动消失复原，一般用于酒店电脑，网
- 在word文档中怎么输入分数?很多朋友并不是很清楚，所以下面小编就为大家详细介绍一下，不会的朋友可以参考本文，来看看吧在日常工作中word也
- 苹果手机怎么截长图的方法今天和大家一起来分享一下。我们在使用手机的时候，有时候一些图文需要进行长截屏来分享给好友。但是一部分使用苹果ios系
- 若要在不连续的单元格中输入同一数据，就不能再使用自动填充功能，但此时可使用【Ctrl+Enter】组合键，来excel2010快速实现同一数
- 在WPS或Excel 处置多个表格数据的 时分， 咱们 需求用到VLOOKUP函数。 常常有人不会用VLOOKUP函数，会想 进修：VLOO
- 有许多用户都喜欢把文件放在Windows桌面上，这样查找和使用起来都很方便。但是因为“桌面”的路径默认是在系统分区，所以这样一来就会带来两个
- 我们在上网的时候，右下角都会有一个网络连接图标，看到这个图标就说明已经连接上网络了，可以上网了。但最近有Win7系统用户反应，他开电脑进入系
- 太阳升起落下在生活中是很平常的事情，在我们的幼儿园中经常会使用到日出现象给儿童制作一些动画，那么在幻灯片中我们要如何才能制作出可爱的太阳上升
- WPS表格中条件格式的应用，通过一则查找双重重复项的实例，更能帮助我们理解条件格式的用法。以下是小编为您带来的关于利用条件公式找出WPS表格
- 安全启动，又叫Secure Boot，主要功能就是利用预置的公钥密码，验证主板上加载的操作系统或者驱动程序，是否受信任。在Win8发布时微软
- 苹果秋季新品发布会后，不仅是iPhone6发布，iOS8正式版也和我们见面了。那么，对于iPhone4S及以后机型的用户而言，到底要不要升级
- 如何在wps中设置添加备注呢，新手不会，上网找怕麻烦，而且教程太乱没有统一的答案怎么办,哪里有更好的方法?下面小编就为你提供wps文字如何添
- 首先选中一个单元格，在右击菜单中选中“删除”按钮，如下图所示。在删除对话框中我们可以看到四种选项;1、右侧单元格左移：表示删除选中单元格后，
- WebStorm 是jetbrAIns公司旗下一款JavaScript 开发工具。目前已经被广大中国JS开发者誉为“Web前端开发神器”、“
- word2019如何设置纸张方向？当我们使用word2019想设置纸张的方向应该怎么办呢？今天小编就教给大家word2019设置纸张方向的具
