您的位置: 首页 > EXCEL技巧 > ExcelVBA >

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

时间:2013-12-10 整理:docExcel.net

要用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

怎么样检查Word2007文档是否有批注和修订,并除去 问题:怎么样检查Word2007文档是否有批注和修订,并除去
回答: Office Word 2007 提供了一项称为“文档检查器”的功能,该功能用于检查文档中是否有修订、批注、隐藏文字和其他个人信息。要检查文档,请执行下列操作: 1、打开检查是否有修订和批注的文档。 2、单击“Microso...
巧妙动手 为Word文档添加背景音乐 问题:巧妙动手 为Word文档添加背景音乐
回答:...关的硬件设备,这部分可以打开设备管理器窗口,在这里检查“声音、视频和游戏控制器”下是否有问号或感叹号出现,保证默认播放器播放音乐没有任何问题。 软件准备:检查Word是否完整安装,如果当初安装时选择了...
Word2003如何检测语言 问题:Word2003如何检测语言
回答:...键入的每个句子以及粘贴或插入到文件中的任何文字进行检查。如果打开了从未检查过的文档,Word 将检查文档中的每个句子。Word 还将重新检查您编辑过的句子。 Word 能记录已检查过的文字,这样就不会在每次打开文档时重新...
怎样删除PowerPoint2013中的所有批注信息 问题:怎样删除PowerPoint2013中的所有批注信息
回答:...删除技巧,大家感受一下。 ①打开PowerPoint,单击文件--检查问题--检查文档。 ②这时会友好的提示你是否保存,我们可以选择保存也可以不保存。 ③弹出文档检查器,勾选批注和注释,单击检查按钮。 ④检测完毕,单...
Microsoft Word 2007在打开后不能撰写任何文档 问题:Microsoft Word 2007在打开后不能撰写任何文档
回答:...t;标记为最终状态"~看看是否可以编辑,如果还不行请检查一下文档属性是否为只读。
献给iPhone保修即将到期的小伙伴 问题:献给iPhone保修即将到期的小伙伴
回答:... 1 年保修哦。否则保修期过后再发现问题为期已晚。 1、检查你的 iPhone 机能 首先检查手机的机能上是否正常,例如:Home 键、电源键、音量键有没有损坏,屏幕触控是否灵敏,镜头是否出现奇怪现象,甚至镜头是否有尘,或类...
相关推荐: