106

view

こんにちは～＾＾Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim s As String If Intersect(Target, Range("C14,F7,F14,H14")) Is Nothing Then Exit Sub With Target Select Case .Address(0, 0) Case "C14": s = "F2" Case "F7": s = "H2" Case "F14": s = "C2" Case "H14": s = "F10" End Select End With Range(s).ActivateEnd Subこんな感じで如何でしょ＾＾；必ず入力するってことならもうちっと違う方法でやるけど＾＾；あ、、、対象のシートモジュールに貼り付けてね＾＾シートモジュールはシート見出しを右クリックしてコード表示を選択して出てきたところです＾＾＜補足に対して＞このマクロはシートモジュールに貼り付けてセル選択した時点で実行されるマクロです。シートモジュールの説明は既にしてますので確認してください。後はシートに戻ってセルを移動してみれば大丈夫です。