セルがクリックされた場所　 次の文書

Dim 変更先Row
Dim 変更先Column
Dim 変更元Row
Dim 変更元Column

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error GoTo エラーメッセージ ' エラー処理を設定します。

'MsgBox Target.Row
'MsgBox Target.Column
'MsgBox Target.Value

i = Target.Row
j = Target.Column
値 = Target.Value

'変更先セル
変更先Row = i
変更先Column = j
If 値 = "1" Then 変更先Column = 変更先Column + 1
If 値 = "2" Then 変更先Column = 変更先Column + 2
If 値 = "3" Then 変更先Column = 変更先Column + 3
If 値 = "4" Then 変更先Column = 変更先Column + 4
If 値 = "5" Then 変更先Column = 変更先Column + 5
If 値 = "6" Then 変更先Column = 変更先Column + 6


'一時的にイベントを無効状態にする｡
Application.EnableEvents = False

Range(Cells(変更元Row, 変更元Column), Cells(変更元Row, 変更元Column)).Select
Selection.Interior.ColorIndex = xlNone

Range(Cells(変更先Row, 変更先Column), Cells(変更先Row, 変更先Column)).Select
With Selection.Interior
.ColorIndex = 38
.Pattern = xlSolid
En
　



← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)