单元格自动输入对号或者插入复选框添加对号

shiwang612

想在D18:D23、F18:F23、H18：H23和J18:J23自动插入√（无需手动输入），并且满足每行只能出现一个符号

山菊花

1、右键点击工作表标签，选择“查看代码”。
2、将下面的代码粘贴到代码窗口光标处：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim nRow%
    If Target.Column Mod 2 = 1 Then Exit Sub
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("d18:j23")) Is Nothing Then Exit Sub
    nRow = Target.Row
    Application.EnableEvents = False
    For i = 4 To 10 Step 2
        Cells(nRow, i).ClearContents
    Next
    Target.Value = "√"
    Application.EnableEvents = True
End Sub
3、关闭代码窗口，返回工作表。

shiwang612

山菊花 发表于 2020-3-21 20:04
1、右键点击工作表标签，选择“查看代码”。
2、将下面的代码粘贴到代码窗口光标处：
Private Sub Worksh ...

谢谢大神！

shiwang612

山菊花 发表于 2020-3-21 20:04
1、右键点击工作表标签，选择“查看代码”。
2、将下面的代码粘贴到代码窗口光标处：
Private Sub Worksh ...

大神！单元格内的√无法统计个数呀！用countif函数求值为0，这个代码如何修改才可以求值？

山菊花

shiwang612 发表于 2020-3-22 15:13
大神！单元格内的√无法统计个数呀！用countif函数求值为0，这个代码如何修改才可以求值？

用countif()可以。

shiwang612

山菊花 发表于 2020-3-22 15:16
用countif()可以。

大神！试过了还是不能求个数

山菊花

好奇怪，公式是正确的，想不出问题在哪。