2016-04-28 20 views
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 

このコードを実行すると、次のようになります。 ありがとう:私が欲しいもの enter image description here

は、オプションボタンが空白のセル(U1、U2、U3、U4、...等)なしでセルをリンクされていることです。

答えて

0

少なくとも、自分のコードで何が問題なのかを教えてください。トリックは質問番号であり、価値があり、私はいつも同じ列を必要としますが、スペースは必要ありません。

関連する問題