Question

我正在尝试将一系列的作业作为一系列CheckBox生成，以便可以将其清除为已完成。我的代码搜索符合特定条件的前10个作业，然后将作业标题分配为复选框标题，该标题显示在用户窗体中。我想在同一行中链接一个单元格，但是我不知道该如何写。

如果我注释掉尝试分配LinkedCell的位，则一切正常。我已经阅读了许多此类问题的答案，并且可以看到，在理想情况下，链接的单元格格式为“ A1”，但我不知道如何重写'srcWS.Cells（cardRow，faultClosed）.Address '，因此可以使用

Set srcWS = ActiveWorkbook.Worksheets("Sheet1")
For Each contr In Me.Controls
    If TypeName(contr) = "CheckBox" Then
        For cardRow = startCount To srcWS.Range(staffID & srcWS.Rows.count).End(xlUp).row
            If srcWS.Cells(cardRow, defectDesc).Value <> "" Then
                contr.Caption = srcWS.Cells(cardRow, defectCount).Value & "   " & srcWS.Cells(cardRow, defectDesc).Value _
                & "   " & srcWS.Cells(cardRow, taskcardID).Value
                contr.LinkedCell = srcWS.Cells(cardRow, defectClosed).Address
                startCount = cardRow + 1
                Exit For
            End If
        Next
    End If
Next
End Sub

我收到一条错误消息，提示“对象不支持此属性或方法”

Answer 1

里卡多A和蒂姆·威廉姆斯，你绝对的传说！！感谢您抽出宝贵时间为我指明正确的方向。我设置

contr.Tag = cardRow

然后写

srcWS.Cells(CheckBox1.Tag, defectClosed).Value = "Closed"

每当单击该复选框时。

将CheckBox LinkedCell分配给变量

1 个答案: