试图只在特定单元格中inputcheckbox

我想避免开发人员checkbox，所以我发现这个代码，但需要多个列是checkbox。 具体列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

只要testingD，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