Skip to main content
2 / 5
本文に 5 文字追加
inu shiba
  • 247
  • 1
  • 15

セルのクリックでセルを着色・脱色し、範囲選択で一括脱色したい

やりたいことはタイトルの通りです。
コードと問題点は以下の通りです。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  '複数選択したセルを着色
  '下記2行を有効にすると、下記2行含む、以下全てのコードが機能しなくなります。
  '下記2行を無効にすると、複数選択したセルの脱色が有効になり、クリックしたセルも着色されます。
  If Target.Count <= 1 Then Exit Sub
     Target.Interior.ColorIndex = xlNone

  '「Row」と入力しても、なぜか自動で「row」になります
  'その上、指定した通りの範囲条件が適用されません
  If Target.row >= 11 And Target.Column >= 6 Then Exit Sub

      Select Case Target.Interior.ColorIndex 'クリックしたセルの色が

        Case Is = xlNone '無色の場合は
            Target.Interior.ColorIndex = 3 '「3」赤色に着色

        Case Else 'それ以外の色の場合は
            Target.Interior.ColorIndex = xlNone '無色にする

  End Select


End Sub

以上、どなたか問題点をご教示いただけないでしょうか。

inu shiba
  • 247
  • 1
  • 15