CapsLockを特定の部分だけオンにする

質問

EXCELのシートで特定のシートだけ、セルだけCapsLockをオンにするということはできますか？
それ以外のセルやシートなどではCapsLockをオフにするということはできますか？

回答No.2

matsu_jun

Excelのマクロは使えますでしょうか？
以下の方法をお試しください。

1) 目的のブックを開きます。
2) Alt + F11キーを押して、Microsoft Visual Basicを開きます。
3) 開いたMicrosoft Visual Basicの左側、「プロジェクト－VBAProject」に
　　シート名が何かエクスプローラーのようになっていると思いますが、
　　その中の目的のシート名が書かれている部分をダブルクリックします。
　　右側が灰色から白くなり、文字を入力することができるようになります。
4) 目的に応じて、下のA)、B)いずれかをコピーして貼り付けてください。

A) 特定のシートだけCapsLockをオンしたい場合
'ここから--------------------------------------------------------------------------
Private Declare Function GetKeyboardState Lib "User32" (pbKeyState As Byte) As Long
Private Keys(0 To 255) As Byte

Private Sub Worksheet_Activate()
　　GetKeyboardState Keys(0)
　　If CBool(Keys(&H14)) = False Then
　　　　SendKeys "+{CAPSLOCK}"
　　　　Application.SendKeys "+{CAPSLOCK}"
　　End If
End Sub

Private Sub Worksheet_Deactivate()
　　GetKeyboardState Keys(0)
　　If CBool(Keys(&H14)) = True Then
　　　　SendKeys "+{CAPSLOCK}"
　　　　Application.SendKeys "+{CAPSLOCK}"
　　End If
End Sub
'ここまで--------------------------------------------------------------------------

B) 特定のセルだけCapsLockをオンしたい場合(下の例ではセルA1になっています)
'ここから--------------------------------------------------------------------------
Private Declare Function GetKeyboardState Lib "User32" (pbKeyState As Byte) As Long
Private Keys(0 To 255) As Byte

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　Dim FCaps As Boolean
　　FCaps = True
'下の行にCapsLockをしたいセルA1が指定されています。
'変更したい時は、絶対参照($付き)で、かつ列名は大文字で指定します。
　　If Target.Address = "$A$1" Then FCaps = False
　　GetKeyboardState Keys(0)
　　If CBool(Keys(&H14)) = FCaps Then
　　　　SendKeys "+{CAPSLOCK}"
　　　　Application.SendKeys "+{CAPSLOCK}"
　　End If
End Sub
'ここまで--------------------------------------------------------------------------

5) Microsoft Visual Basicを終了します。

なおソース中にも書いてありますが、Bの例で別のセルを指定したい場合は、
絶対参照かつ大文字で書いてください。例えばセルB10を指定したい場合は、
　　If Target.Address = "$B$10"
とします。
複数のセルを指定したい場合は、上の行を必要なだけ追記してください。
　　If Target.Address = "$A$1" Then FCaps = False
　　If Target.Address = "$B$10" Then FCaps = False
　　If Target.Address = "$C$3" Then FCaps = False
と3行続けて書けば、A1とB10とC3にマウスを合わせた時にCapsLockがオンします。
当然A1に合わせてからB10に合わせ直してもCapsLockはオンのままですよ。

お礼

ありがとうございます。
やはりマクロを使うしかないのでしょうか？
できればマクロを使いたくないので。。。