ボタンを使ったマクロの作成

質問

ボタンを使ったマクロの作成

エクセルでボタンを押すと
あるセルの数字に１が加算され
そのシートが印刷されるマクロを
恐れ入りますがどなたか教えて（作成して）下さい。

マクロに関しましては
まったくわかっておりませんので
トンチンカンなことを言い出すかもしれませんが
どうぞよろしくお願い致します。

回答No.2

hana-hana3 · ベストアンサー

標準モジュールに下記のコードをコピーしてください。

VBE(Visual Basic Editor/VBエディタ)の画面について
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_vbe.html
http://home.att.ne.jp/zeta/gen/excel/c04p43.htm

エクセルのボタンにマクロ登録
http://allabout.co.jp/gm/gc/3918/

Excel(エクセル) VBA入門：マクロの自動記録と実行
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_01.html

--------------------------------------------------------------

Sub sample()
'セルＡ１に加算
Range("A1").Value = Range("A1").Value + 1
'印刷プレビュー
'ActiveWindow.SelectedSheets.PrintPreview
'印刷
ActiveWindow.SelectedSheets.PrintOut
End Sub

お礼

ありがとうございます。
今まさに作成中のデーターに使いたかったものでして。。。
取り急ぎお礼まで。

回答No.3

keithin

マクロを使うと「いろんな事ができます」から，逆に「何をしたいのか明確でない」と，すぐに結果が違うマクロになります。

作成例：
ALT+F11を押す
プロジェクトエクスプローラで当該のブックのVBAProjectのThisWorkbookをＷクリックする
現れたシートに

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1") = Range("A1") + 1
End Sub

と作成する。

VBE画面を閉じてブックを普通に印刷（印刷プレビュー）すると，開いていたシートのA1セルを＋１して印刷します。
詳しく言うと，印刷される前にA1を＋１する動作が割り込んでから印刷します。このマクロの中で印刷する必要はありません（してはいけません）。

お礼

ありがとうございました。
お礼が遅くなり、失礼致しました。

おかげさまで、とりあえず急場は凌ぐ事ができました。
これから改めてじっくり勉強しょうと思っております。

回答No.1

tsline

私も全然無知のところからこのHPさんで勉強してマクロやVBAを覚えました。
頑張ってください！

参考URL：

http://www.sigoto.co.jp/excel/

お礼

ありがとうございます。
とても良いサイトを教えていただきました。

しかしながら、今は自分で試行錯誤している時間がなく
できればどなかにダイレクトなご回答をいただければと思っております。

このサイトでの勉強は
おいおいやらせていただきます。