Q&A
チェックボックスで選択したリストを印刷したいです
VBAを使って簡単な差し込み印刷ができるシステムを作っています。
具体的には会員名簿から郵便局の払込票に挿し込み印刷をかけれるようにしたいです。
現在は、下の画像のような感じで１名ずつの印刷はできるようになりました。
選択したデータは印刷できるが、、、
名簿とフォームと払込票という３つのワークシートを作り、名簿のID部分（下の画像の黄色部分）を複数選択すると選択したデータは印刷できるようになったのですが、もう少し使いやすくするためにセルの選択からチェックボックスを使った選択方法にしたいのですがなかなか思うようにできません。
選択したデータを印刷する時に使っているコードは下です。
Sub 選択したデータを印刷する() For Each セル In Selection Worksheets("フォーム").Range("B2").Value = セル.Row - 3 Worksheets("払込票").PrintOut Next End Sub
これをチェックボックスで選択するようにしたい
ID部分が選択できれば希望の印刷はできるのでチェックボックスを作ってActivateを使ってID部分を選択させる、とかいろいろ試しては見たのですがなかなか上手く行かず・・・。
自分なりに調べてみたのですが良い解決方法が見つからなかったので質問させていただきました。
よろしくお願いいたします。
補足情報（FW/ツールのバージョンなど）
エクセルのバージョン情報はエクセル2016となっています。
回答1件
0
ベストアンサー
ユーザーが複数データを簡単に選択できるようにしたい、ということですよね。いろいろ方法があると思いますが、現状の質問内容では具体的に回答は難しいので、アイデアだけ提示しておきます。
一番簡単なのは、CTRLキーを押しながらID列のセルを選択すればとびとびのセルでも選択できます。この方法で選択してもらうようにすれば現状のVBAコードがそのまま使えます。
フォームコントロールのチェックボックスをセルに配置してそれで選択してもらう方法もあります。チェックボックスの書式設定でセルとリンクさせることができますので、そのセルをもとに印刷したいデータを取得することができます。配置する方法は下記などを参考にしてください。
Excel(エクセル)のチェックボックスの作成方法｜削除や連動する方法も解説
データ数が数が多いと手作業では面倒なのでVBAで配置するのも検討するといいでしょう。下記などが参考になりそうです。
[【Excel VBA】複数のチェックボックスを一瞬で作成する方法！サイズも自動で！ - エク短
自分がするなら、ユーザーフォームにリストボックスを配置して、そこで選択してもらう方法にするかな。
シート上にコマンドボタンを配置して、そのクリックでユーザーフォームが開き、リストボックスで印刷したいデータを選択、ボタンクリックで印刷、というインターフェイスにします。下記などが参考になりそうです。
Excel VBA リストボックスで複数行選択して値を取得する
紹介したリンク先は、今回検索して最初に見つかったものを載せています。このリンク先だけでは目的のものは作成できないと思いますが、この手のありがちなものは検索すればいろいろ情報が見つかるのでそれらを参考にしながら作成してみてください。
その上で行き詰ったら、その時点で再質問すれば具体的な回答が得られると思います。
投稿2022/01/01 08:08
総合スコア34075
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2022/01/02 03:56
2022/01/02 04:23
2022/01/04 09:09