【エクセルマクロ】チェックボックスのリンクセル一括設定:リンクセル指定

エクセルマクロで効率化する

エクセルマクロで、チェックボックスのリンクするセルを一括設定するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
せひ、お試しください。

チェックボックスのリンクセル一括設定

以下のマクロを実行すると、チェックボックスのリンクするセルを一気に設定します。

Sub チェックボックスのリンクを作成する()

Dim cb As checkbox

    For Each cb In ActiveSheet.CheckBoxes
    
        'チェックボックスの右側にリンクを作成
        cb.LinkedCell = cb.TopLeftCell.Offset(0, 1).Address
        
    Next cb
    
End Sub

 

マクロ実行後

チェックボックスの右隣にリンクするセルを設定しました。


 
 

リンクセルがズレてしまう場合の直し方

下図では、リンクさせるセルを右隣に設定したはずが、

リンクが右隣の上のセルに設定されてしまいました。


 

【要因】

原因はチェックボックスのオブジェクトの左上部分が、上のセルに入ってしまっていることです。

(例)セルB6のチェックボックスの左上が、セルB5内に入っている。

   そのため、リンクするセルはセルC5に設定されている。


 

【エクセルマクロ】チェックボックスを自動操作する:超便利10選
...