給与明細書発行 エクセルVBA　実務編

みなさんおはようございます！
今日もマインドブロックをぶち抜いていきましょう！！

エクセルVBAで、どんなことができるか。
今回は、実務編です。

例えば、社員1000人分の給与明細を
プリントアウトしなければならない仕事があるとします。
もし、自分がそれを、毎月やらなければならないとした場合、

マクロで自動化した場合と、そうでない場合
処理時間、疲労、ミス発生の有無に　雲泥の差が生じます。
その理由は、この動画を見て頂ければ一目瞭然！

プログラムの細かい内容については、次回以降の動画でお伝えしていきます。

下記SNSもやってます！
◆Twitter
https://twitter.com/321Libet
◆Instagram
https://www.instagram.com/libet321/
◆BLOG
https://ameblo.jp/libet-321
◆YouTube
https://www.youtube.com/channel/UCFpi4qhR-Zuj06wBot3hdbQ?view_as=subscriber

以下に、プログラムを貼り付けますのでご自由にお使いください。
Sub 給与明細書発行()

Application.ScreenUpdating = False

'1.配列の設定
'************************************

Dim 配列(4) As Variant 'あらゆる種類の値を保存できる型

配列(0) = "社員名"
配列(1) = "基本給"
配列(2) = "残業代"
配列(3) = "社会保険"
配列(4) = "差引支給額"

'*************************************

'2.データベース抽出シートのクリア　と　データベースオープン
'*************************************

Workbooks("エクセル技・関数・マクロ.xlsm").Worksheets("3A").Activate

Cells.Clear

Workbooks.Open ("C:\YOUTUBE用\給与データベース.xlsx")
Worksheets("今月").Activate

'*************************************

'3.データベース抽出工程
'*************************************

Dim i As Long '長整数型

For i = 0 To 4

Columns(Cells.Find(WHAT:=配列(i)).Column).Copy
Workbooks("エクセル技・関数・マクロ.xlsm").Worksheets("3A").Activate
Cells(1, i + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

Workbooks("給与データベース.xlsx").Activate

Next

Workbooks("給与データベース.xlsx").Close SAVECHANGES:=False

'**************************************

'4.処理を継続するか否か
'*************************************

Dim A04 As Long

A04 = MsgBox("印刷してもいいですか？", vbYesNo)

If A04 = vbNo Then

Workbooks("エクセル技・関数・マクロ.xlsm").Worksheets("3").Activate
Range("A1").Select

Exit Sub

End If

'*************************************

'5.プリントアウト実行
'*************************************

Workbooks("エクセル技・関数・マクロ.xlsm").Worksheets("3A").Activate

Dim A05 As Long
A05 = Cells(Rows.Count, 1).End(xlUp).Row + 1

P01:

Worksheets("3").Activate

'ActiveSheet.PrintOut 'プリンターでプリントアウトするときに使用

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, Filename:="C:\YOUTUBE用\" & Range("A4") & ".pdf"
'pdfで出力するときに使用

Worksheets("3A").Activate
Range("A3", "E" & A05).Copy
Range("A2").Select
ActiveSheet.Paste

If Range("A2") 山かっこはYOUTUBEにペーストできませんでした、各自で直接入力ください "" Then

GoTo P01

End If

Application.CutCopyMode = False

MsgBox "印刷を終了します。"

'*************************************

Workbooks("エクセル技・関数・マクロ.xlsm").Worksheets("3").Activate
Range("A1").Select

End Sub

#働き方改革 #プログラミング #エクセル 伊川直助
https://www.youtube.com/user/naonaokeikei
https://youtu.be/QdnEZRhnHVI

メンタエクセル
https://www.youtube.com/channel/UCAnUUkliBXa1z4QPGUK3ikQ
https://youtu.be/y41UI-qUqk0

エクセル兄さん たてばやし淳
https://www.youtube.com/user/LifeworkKnowledge
https://youtu.be/t3Bpj2xkjaM

AttainDVD
https://www.youtube.com/user/AttainDVD
https://youtu.be/Wh0JsNy9s50

いつも隣にITのお仕事
https://www.youtube.com/channel/UCqY11fnElmeEoTVyvVELvDQ
https://youtu.be/WuLj801YZeo

パソコン教室わかるとできる
https://www.youtube.com/user/wakadekichannel
https://youtu.be/namR-B6-MnI

浜田こうじ
https://www.youtube.com/channel/UCDb5CwK9KhibclkBd3BrR-Q
https://youtu.be/R4n4VOQSyIc

チュートリアル道場
https://www.youtube.com/user/jTutorial2012
https://youtu.be/UBYOo2YtyDA

エクセル　プログラミング　プログラム　マクロ
コード　コーディング　デバッグ　表計算　VBA VBE
プロシージャー　イベント　時短　現場
実際　使用例　具体例　初心者　初学者　入門
実践　仕事　改善　基礎　勉強　学習　応用例
ブラック企業　働き方改革　副業　子育て
高齢化社会　残業　サービス残業　ワークライフバランス
私定時で帰ります　人工知能　ロボット　自動化
在宅ワーク　2000万円問題　2020年　教育　必修化
DIY ゲーム　クリエイター　脳トレ　ボケ防止
家計簿　数式　関数　引数　戻り値　VLOOKUP
XLOOKUP INDEX MUCH IF WHILE LOOP UNTIL CASE
FOR NEXT RND オートメーション化　時間削減
脱社畜　仕事　サラリーマン
エクセルVBA 実務編
https://youtu.be/7m4oamsoHtI?list=PLSud-p3HDHul-25KqwkDOya9nf4bWr58w

エクセルVBAの基礎
https://youtu.be/OKKJ6A8qJO4?list=PLSud-p3HDHunXOUL4tUdr0rdnEbLl_L-r

エクセルVBAの基礎の基礎
https://youtu.be/ulGHcuDHmBA?list=PLSud-p3HDHumcHu46a5IkOxbR9YmFWOzg

エクセルVBAでゲームを作ってみた
https://youtu.be/iRwl2gWnSEc?list=PLSud-p3HDHuln-xi6iD8KNGvI-FNSuUZA

エクセル超時短テクニック
https://youtu.be/0hSO-mpJ6TQ?list=PLSud-p3HDHumZ4z8I_1OyZ7TBDLat993g