摘要： 要用VBA代码判断Caps Lock键、Num Lock键及Scroll Lock键的开启状态，可以用下面的代码，前四行代码为API声明，需放置在代码窗口的最上方： Private Declare Function GetKeyState Lib...
要用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
Excel中利用VBA选择上一个或下一个工作表
如果需要用VBA代码在Excel工作簿中选择下一个或上一个工作表，可以使用下面的代码。 Sub DownSheet()Dim i As Integeri = Worksheets.CountIf ActiveSheet.Index < i ThenWorksheets(ActiveSheet.Index 1
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
利用VBA读写excel文档属性
要实现限制文件的使用次数，想来应该在某个地方存储文档已用的次数，并且在文档每被使用一次这个使用次数就得发生相应的更改。如果这个思路正确的话，我们就可以利用文档属性的某个位置来实现这一想法，故有了以下两种形式：一、利用自定义属性：因为我们可以自定义数字型的属性，这一点非常符合我们的需求先用一行代码ThisWorkbook
