如何用VBA检查Caps Lock键是否打开|萝卜系统下载站

Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使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

Excel整体界面趋于平面化，显得清新简洁。流畅的动画和平滑的过渡，带来不同以往的使用体验。

温馨提示：喜欢本站的话，请收藏一下本站！

当前位置:萝卜系统下载站 > 办公软件教程 > 详细页面

如何用VBA检查Caps Lock键是否打开

本类教程下载

系统下载排行