汎用テンプレで記憶の壁をぶち破る
まあ、VBAを毎日書いているような開発者は、VBAコーダーのほんの一握りなわけです。大半は、デスマーチと化した社内業務をサクッと効率よく、正確にやって、クールないい気分に浸りたいわけですよ。となると、一度VBAを書いても、当たり前のようにすぐ忘れてしまんですね。そこで、テンプレをどこかに置いておいて、それ以外のところを調べて、コーディングを行います。そこで、いつも使う私のVBAテンプレを貼っておきます。
私の汎用テンプレ(VBA)
Option Explicit '変数は必ず宣言 Sub テンプレ() '画面遷移をなくす 'Application.ScreenUpdating = False 'よく使う変数 Dim i As Long Dim lstRow As Long Dim lstColumn As Long Dim path As String Dim a as Valiant '最終行、最終列の取得 lstRow = ThisWorkbook.Sheets("前月").Cells(Rows.Count, 1).End(xlUp).Row lstColumn = ThisWorkbook.Sheets("前月").Cells(1, Columns.Count).End(xlToLeft).Column '繰り返し処理 for文 For i = lstRow1 To 1 Step -1 Next 'ケース文 Select Case a Case Is <= 0 Case Is <= 10 Case Else End Select 'フォルダからファイル選択してパスを取得 path = Application.GetOpenFilename 'ファイルを保存する ActiveWorkbook.SaveAs _ FileName:="C:\Users\user\Documents\保存ファイル", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled '画面遷移を戻す Application.ScreenUpdating = True