DIYプログラマーを目指す良太と猫社長の部屋's video: 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