更改单元格值excel上的activeX复选框标题

Question

我有两个activeX复选框（checkbox7和checkbox10），我希望tickbox旁边显示的标题随Sheet1单元格J13的值而更改。J13可以通过IF语句更改值

我试过几件事。尝试使用我在网上找到的代码，但它是从头开始创建多个复选框，然后更改标题。我试图隔离他们更改标题并复制的部分，但这对我没有任何帮助。

这就是我现在拥有的：

>     Sheets("Customer View").OLEObjects("CheckBox7").Object.Caption = Sheets("Customer View").Range("J13").Value
    Sheets("Customer View").OLEObjects("CheckBox10").Object.Caption = Sheets("Customer View").Range("J13").Value

感谢

Answer 1

假设代码位于包含工作表Customer View的工作簿中，则在过程中插入此代码。

With ThisWorkbook.Sheets("Customer View")
    .CheckBox7.Caption = .Range("J13").Value2
    .CheckBox10.Caption = .Range("J13").Value2
End With

Answer 2

我最终采用了最简单的解决方案：将复选框的标题留空，并将复选框定位为与一个空单元格对齐。然后我就用这个单元格来显示我想要的文本。