チェックボックスにマクロを入れて印刷する
チェックボックスにマクロを入れて印刷するやり方について
ご教授いただきたく、質問させていただきます。
シート1
A B C D
1 あ ● TRUE レ
2 い × FALSE
3 う ▲ TRUE レ
エクセルで上記のシートA1,B1にデータを入力し、
Dにあるチェックボックスにチェックを入れると
A1の「あ」をコピーし、シート2のX1にペーストして
VLOOKUPを使ってシート1のB1をA1に表示させ、
印刷したいと思っています。
(もちろん、「あ」と「●」の2項目しかないわけではなく、
1行に8項目あり、シート1では横一列に並んでいるものを、
シート2の見栄えのいいフォーマットで、印刷します。
行数は100行くらいあります。)
シート2
A X
1 ● あ
マクロの記録で、「チェックを入れる→コピー→ペースト→印刷→シート1に戻る」とし、
Application.Run "Book1.xls!印刷"
Range("A1").Select
Selection.Copy
Sheets("Sheet2").Select
Range("X1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("元").Select
となりましたが、チェックを入れても動作しなかったため、
「Application.Run "Book1.xls!印刷"」を削除したところ、
正常に動きました。
問題は・・・・
チェックを入れると動作する(^_^)
チェックを外す時も動作する(T_T)
1個のチェックボックスにマクロは設定できたけれど、
100行あったとしたら、100個のチェックボックスを作成し
1個1個マクロを記録させる?まとめてはできない?
チェックボックスをコピー&ペーストしたところ、
うまくいきませんでした。
(チェックを入れると印刷という動作でOKで、
チェックをあらかじめ入れておき、最後に印刷ボタンで
印刷するというやり方ではありません。
VLOOKUPを使っているので、無理ですよね(・_・;))
初めてのチェックボックスですが、途中まで簡単にできた!と思ったけど、つまづいてしまいました。
色々調べたのですが、素人同然の私には難しくご質問させていただきました。
皆様お忙しいと思いますが、宜しくお願いいたします。
お礼
ありがとうございました。 太い解説書を買ってきて、今ユーザーフォームで製作する事に致しました。 もしかして解らなくなったらまた質問を投稿させていただくかもしれませんが、その時は宜しく御願い致します。