ExcelVBAでキーボード方向キーを押したら塗りつぶしセルを移動する方法

質問

• ExcelVBAを使用して、キーボードの方向キーを押すと、その方向に塗りつぶしからセルを移動したいです。
• 現在、方向キーを押すと、塗りつぶしたセルが一瞬で移動してしまいます。
• どのように修正すれば、キーボードの方向キー入力を正しく処理できるでしょうか。

回答No.4

mimeu · ベストアンサー

> ExcelVBAで、キーボード方向キーを押したら、
> その方向に塗りつぶしたセルを移動させたい

何のためにこのマクロを作るのかによって答えは全然違ってきますが、
　　目的：マクロのお勉強で、背景色をセル移動してみたい
　　セルを移動：　セルのデータではなく背景色だけ移動する
と勝手に仮定してアドバイスをします　　　（＾＿＾）

まず、この目的で GetAsyncKeyState API を使うのは不適切でしょう。
その理由は、いくつか試されたら簡単にわかります。

で、例えばこんな感じでもイケます
以下のコードを目的のシートのコードペイン（モジュールではなくて）
に貼り付けてください。
なお、この例では事前に目的のシートの "D6" を選択し、背景色をつけておいてから試します。

Option Explicit

Dim 初期化済み As Boolean
Dim 直前の色つきセル As Range
Dim 色番号 As Variant

Private Sub 初期設定()
Set 直前の色つきセル = Range("D6") ' ★★★ ここは適当にアレンジしてね
色番号 = 直前の色つきセル.Interior.ColorIndex
初期化済み = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r0 As Long, c0 As Long, r1 As Long, c1 As Long
If Not 初期化済み Then 初期設定
r0 = Abs(Target.Row - 直前の色つきセル.Row)
c0 = Abs(Target.Column - 直前の色つきセル.Column)
If r0 > 1 Or c0 > 1 Then Exit Sub ' 方向キー以外で移動したときは処理しない
直前の色つきセル.Interior.ColorIndex = xlColorIndexNone
Target.Interior.ColorIndex = 色番号
Set 直前の色つきセル = Target
End Sub

以下、余談ですが
Ｅｘｃｅｌ上ではなく　Ｖｉｓｕａｌ Ｂａｓｉｃ ２００８ですとか、その他本格的なプログラム言語でつくる Ｗｉｎｄｏｗ ならキー入力イベントがありますから、それで方向キー入力をイベントドリブンで処理できます。
しかしＥｘｃｅｌ上にはその機能がないので、方向キーなど、キー入力に応じて何かするというのは、難しいとおもいます。
なので、ご質問のようなことをなさるには本格的なプログラム言語をお使いになることを薦めます。