🎄teratailクリスマスプレゼントキャンペーン2024🎄』開催中!

\teratail特別グッズやAmazonギフトカード最大2,000円分が当たる!/

詳細はこちら
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

Q&A

1回答

4344閲覧

ExcelVBAで指定セル範囲に大量のチェックボックスを配置したい

tkdtkdtkd

総合スコア0

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

0グッド

0クリップ

投稿2020/11/27 02:02

前提・実現したいこと

Excelにて、チェックボックスを5列*600行セル(C6:G605)に1セルに1つずつ配置し、
配置したセルを「リンクするセル」(=チェック真偽を返す部分)として、
それを別の関数で参照したく思っています。

ただ、対象数が多く、オートフィルでは手動での設定変更が必要であることなどの問題が発生していることから、
指定セル範囲に
①フォームコントロールのチェックボックスで背景色など邪魔することなく、
②「リンクするセル」が自動で配置された各セルに設定した状態で
一気に配置できるようなVBAマクロをお教えいただきたく思っております。

自身でも調べてはおりますが、
どうかお力添えいただければと存じます。

発生している問題・エラーメッセージ

'オートフィルにてチェックボックスを複製した場合 チェックボックスの書式設定「リンクするセル」がコピー元と同一箇所に設定されてしまい、 コピーしたどのチェックボックスをチェックしてもコピー元と同じ個所がTRUEになってしまうようになった。 セル数が多いため、手動で設定しなおすのは時間がかかるので自動で各セルに設定されるようにしたい。 '下記VBAマクロで実行した場合 ActiveXチェックボックスが配置されてしまい、セルの背景色が見えなくなってしまった。

該当のソースコード

VBA

1Sub Check作成() 2Dim myChk As Object 3Dim i As Long 4Dim Sakuseisuu As Long 5Dim StartCell As Range 6 7'現在のブックのアクティブシートに作るにはこの下のWorkbooks.Addを消して下さい。 8'Workbooks.Add 9Sakuseisuu = 5 'チェックボックスの作成数 10Set StartCell = Range("C50") 'スタートする位置 11 12For i = 0 To Sakuseisuu - 1 13With StartCell.Offset(i) 14Set myChk = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _ 15DisplayAsIcon:=False, _ 16Left:=.Left, Top:=.Top, _ 17Width:=.Width, Height:=.Height) 18End With 19With myChk 20.LinkedCell = StartCell.Offset(i, 0).Address 21.Object.Caption = "" '空白にするのは何でだったかなー? 22.Object.Value = False 23End With 24Next 25End Sub

補足情報(FW/ツールのバージョンなど)

MicrosoftExcel(M365)

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

フォームのチェックボックスはCheckBoxes.Addです。
リンクはLinkedCellであっています。
マクロの記録で試していただくとわかりやすいと思いますよ。

投稿2020/12/03 04:52

radames1000

総合スコア1925

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだベストアンサーが選ばれていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.36%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問