こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

EXCEL VBA 社員名簿印刷したい

お世話になります。

EXCEL VBAを使って社員名簿を印刷したいのです。

データというシートに社員情報が入っています。(可変ですが100名ほど)
このシートに[印刷]というボタンを配置してこれをクリックしたらSheet1の様式にあてはめて
社員人数分印刷をしたいのです。

どのたかお知恵をおかりできますでしょうか?

よろしくお願い致します。

EXCEL2013

投稿日時 - 2015-04-28 08:33:28

QNo.8964990

すぐに回答ほしいです

質問者が選んだベストアンサー

ひとりずつ印刷するようになっているので
間違っているところがあると紙の無駄になるので
2、3名の表でテストしてみてください。

Sub 社員名簿印刷()
Dim WS As Worksheet
Dim i As Integer
Set WS = Worksheets("データ")

Worksheets("sheet1").Select
For i = 2 To WS.Cells(Rows.Count, "A").End(xlUp).Row
Range("B4") = WS.Range("A" & i).Value
Range("B6") = WS.Range("B" & i).Value
Range("B8") = WS.Range("C" & i).Value
Range("B10") = WS.Range("D" & i).Value
Range("B12") = WS.Range("E" & i).Value
Range("E4") = WS.Range("F" & i).Value
Range("E6") = WS.Range("G" & i).Value
ActiveSheets.PrintOut
Range("B4:B12,E4:E6").ClearContents
Next i
End Sub

投稿日時 - 2015-04-28 13:02:21

お礼

mar00さん、ご連絡ありがとうございました!

ご連絡が遅くなりまして申し訳ございませんでした。

ご教授いただきました方法でユーザーからの要望を完璧に対処できました!!
すごいです!感動です。本当に助かりました。m(_ _)m
本当にありがとうございました!!

投稿日時 - 2015-04-28 22:16:31

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問