Вам не хватает некоторых двойных кавычек в функции Range () :
Sub qwerty() With Sheets("Customer View") .OLEObjects("CheckBox7").Object.Caption = .Range("J13").Value End With End Sub
У меня есть два флажка 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
Спасибо
Вам не хватает некоторых двойных кавычек в функции Range () :
Sub qwerty() With Sheets("Customer View") .OLEObjects("CheckBox7").Object.Caption = .Range("J13").Value End With End Sub
В конце концов я выбрал самое простое решение: оставьте заголовок флажка пустым и установите флажок так, чтобы он совпадал с пустой ячейкой. Затем я просто использую эту ячейку, чтобы показать текст, который я хочу.