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

Question

我有两个 activeX 复选框（checkbox7 和 checkbox10），我希望显示在复选框旁边的标题随着 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

假设代码驻留在包含 sheet Customer View 的工作簿中，将此代码插入您的过程中。

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

Answer 2

我最终采用了最简单的解决方案：将复选框的标题留空，然后放置复选框，使其与空单元格对齐。然后我就用那个单元格来显示我想要的文本。

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

change activeX checkbox caption on cell value excel

checkbox

caption

activexobject

excel-2010