[[20220310170351]]　『チェックボックスのコピーの仕方』（モー）　ページの最後に飛ぶ

『チェックボックスのコピーの仕方』（モー）

チェックボックスを縦にコピーしたら相対参照が反映されません。
ネットで調べたら、マクロを組み込むか、手作業で一つ一つ
設定を変えないといけないらしく、後者はやっていたら日が暮れるので、
マクロを組み入れたいと思いますが、どうやるのかわかりませんので、
教えてください。

チェックボックスがあるところで右クリック→マクロの登録→
マクロ名（チェック39_Click）→この下の空白の欄に記述すると思うのですが・・。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

[[20220309160856]]

こちらはほっぽりだしですか。

＞チェックボックスがあるところで右クリック→マクロの登録
ここは相対参照を設定する場所ではありません。
マクロについての知識はあるのですか。

（nm） 2022/03/10(木) 22:13

わからないから聞いているのですかが？

（モー） 2022/03/11(金) 11:27

自力で頑張れ
（aho） 2022/03/11(金) 11:31

以下を参考してください。

https://kirinote.com/excelvba-checkbox-link/

大量にチェックボックスがあると、
シートの更新や管理が大変じゃないですかね。
一見便利そうに見えますが、
慣れてくるとマウスなんて使わず、
キーボード操作がメインになるので、
逆に面倒になると思いますが。
（tkit） 2022/03/11(金) 11:40

 ネットであったものを保存していたものです。

 実行するとメッセージボックスが現れるので指示に従ってください。

 Sub チェックボックス生成()
    Dim i       As Long
    Dim bufA    As String
    Dim bufB    As String
    Dim bufC    As Long
    Dim bufD    As Long
    bufA = Application.InputBox("チェックボックスを表示する列 (例)A", "入力1 / 4", Type:=2)
    bufB = Application.InputBox("リンクするセル (例)B", "入力2 / 4", Type:=2)
    bufC = Application.InputBox("入力を開始する行番号 (例)1", "入力3 / 4", Type:=1)
    bufD = Application.InputBox("入力を終了する行番号 (例)10", "入力3 / 4", Type:=1)
    For i = bufC To bufD
        ActiveSheet.CheckBoxes.Add(442, 162, 27.5, 19).Select
        With Selection
            .Caption = ""
            .Value = xlOn
            .LinkedCell = CStr(bufB) & i
            .Display3DShading = False
            .Top = ActiveSheet.Range(CStr(bufA) & i).Top
            .Left = ActiveSheet.Range(CStr(bufA) & i).Left
        End With
    Next
 End Sub
（nm） 2022/03/11(金) 12:42

マクロが全くわからないようなので。

https://excel-ubara.com/excelvba1/
（通りすがり） 2022/03/11(金) 16:23

コメント返信：

[ 一覧(最新更新順) ]

[[20220310170351]] 『チェックボックスのコピーの仕方』（モー） ページの最後に飛ぶ

[[20220310170351]]　『チェックボックスのコピーの仕方』（モー）　ページの最後に飛ぶ