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

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

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

Answer 2

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

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

2 个答案: