特定のセルにのみチェックボックスを入力しようとしています

Question

私はこのコードを発見したので、開発者のチェックボックスを避けたいのですが、複数の列をチェックボックスにする必要があります。特に列4,5,6。

私は単純です。ここで私は

Option Explicit 
 

 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
 
    With Target 
 
    'Column D 
 
     If .Column <> 4 Then Exit Sub 
 
     On Error Resume Next 
 
     If Asc(.Value) = 168 Then 
 
      .Font.Name = "Wingdings" 
 
      .Value = Chr(254) 
 
     Else: .Value = Chr(168) 
 
     End If 
 
    End With 
 
End Sub

おかげ

Answer 1

ただ、テスト列D、E、Fで働いているものです：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    With Target 
    'Column D & E & F 
     If .Column = 4 Or .Column = 5 Or .Column = 6 Then 
      On Error Resume Next 
      If Asc(.Value) = 168 Then 
       .Font.Name = "Wingdings" 
       .Value = Chr(254) 
      Else 
       .Value = Chr(168) 
      End If 
     End If 
    End With 
End Sub