0
これは私の最初のメッセージです。私の英語はあらかじめごめんなさい。 ワークシートに複数のオプションボタンを追加しました。このコードを書きました。オプションボタンリンクセル(空白セルなし)
Dim btn As OptionButton
For Each btn In ActiveSheet.OptionButtons
btn.LinkedCell = btn.TopLeftCell.Offset(-4, 5).Address(RowAbsolute:=False, columnabsolute:=False)
Next btn
このコードを実行すると、次のようになります。 ありがとう:私が欲しいもの
は、オプションボタンが空白のセル(U1、U2、U3、U4、...等)なしでセルをリンクされていることです。