选择√的项目显示到指定单元格，不选择的不显示，中间不能有空白。。

糖↗小冷

在“类别”中点击F列中的复选框√，相应的检测项目、检测规程、检测方法内容会同

步到“委托书”检测项目、检测规程、检测方法单元格内；F列复选框√不选择时，在

委托书中不显示。（即选择那个（E列为TRUE），相应内容就在委托书相应单元格内排

列，不选择就不显示），评定依据复选框同上，设置一个提交按钮。

糖↗小冷

为什么唯独我这个一个回复都没

ykcbf1100

你用了复选框，做不了，只能不回复。

于箱长

糖↗小冷 发表于 2022-12-14 11:07
为什么唯独我这个一个回复都没

根据E列变动 整个触发事件

蓝桥玄霜

删除复选框，直接在单元格中输入√，既简单又直观。
用很多复选框，需要使用类来处理，增加了很多难度。

WANT-T

这种交互形式，工作量太大，看来是 真没有人愿意动手呀

3190496160

Sub 复选框()
    ReDim arr(1 To ActiveSheet.CheckBoxes.Count, 1 To 12)
    For Each ob In ActiveSheet.CheckBoxes
        mm = ob.Value
        mc = ob.Caption
        If ob.Value = 1 Then
            If ob.TopLeftCell.Column = 6 Then
                r = ob.TopLeftCell.Row
                n = n + 1
                arr(n, 1) = Cells(r, 2)
                arr(n, 4) = Cells(r, 3)
                arr(n, 8) = Cells(r, 4)
                arr(n, 12) = Cells(r, 7)
            End If
        End If
    Next ob
    If n <> "" Then
        With Sheets("委托书")
            r = .Cells(Rows.Count, 8).End(xlUp).Row
            If r > 10 Then .Range("h11:v" & r) = Empty
            .[h11].Resize(n, 12) = arr
        End With
    End If
End Sub
Sub 指定宏()
With ActiveSheet
    For Each ob In .CheckBoxes
        If ob.TopLeftCell.Column = 6 Then
            ob.Select
            Selection.OnAction = "复选框"
        End If
    Next ob
End With
MsgBox "ok!"
End Sub

糖↗小冷

蓝桥玄霜 发表于 2022-12-14 11:33
删除复选框，直接在单元格中输入√，既简单又直观。
用很多复选框，需要使用类来处理，增加了很多难度。

可以的，老师， 如果摒弃复选框能做也可以

3190496160

选择提交附件.rar (200.23 KB, 下载次数: 8)

2022-12-14 11:44 上传

点击文件名下载附件

糖↗小冷

3190496160 发表于 2022-12-14 11:44

老师，你好，  评定依据的复选框与  F列的联动了，如何改？ I列的复选框需要单独执行，选择就有，不选择就不显示