我有两个 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
谢谢
答案1
你缺少一些双引号在里面范围()功能:
Sub qwerty()
With Sheets("Customer View")
.OLEObjects("CheckBox7").Object.Caption = .Range("J13").Value
End With
End Sub
答案2
我最终选择了最简单的解决方案:将复选框的标题留空,并将复选框放置在与空单元格对齐的位置。然后我只需使用该单元格来显示我想要的文本即可。