起動時 Private Sub Workbook_Open() MsgBox "hello world" End Sub 終了時 BeforeClose を使うとブックを閉じた時に実行される。 Private Sub Workbook_BeforeClose(Cancel As Boolean) MsgBox "さようなら" End Sub シートアクティブ 対象のシート選択時実…

ExcelVBA 基本操作 辞書 Excel 基本操作 ピボットテーブル パワーピボット パワークエリ Access Word その他 VBAと同時にExcelの基礎もしっかりしておかないといろいろと遠回りになると思います。その意味でも、どんな操作があるのかをある程度知るという意…

全てのシートでA1を Dim i As Long For i = Sheets.Count To 1 Step -1 Sheets(i).Select Range("A1").Select Next For i = Sheets.Count To 1 Step -1 Step -1 とすることで、最後に１番目のシートが選択されて終了する。

VLOOKUPと違い、キーの左の列に合っても関係なく表示できる。 =INDEX(マスタ!$A$1:$C$6,MATCH(A2,マスタ!$B:$B,0),1) 【明細シート】 【マスタシート】 INDEX関数 ・マスタシートの$A$1:$C$6,を範囲指定。 ・MATCH関数で指定された行と、１列目が交差してい…

不要シートを削除する Dim i As Long For i = Sheets.Count To 1 Step -1 If Sheets(i).Name Like "★*" Then Else Sheets(i).Delete End If Next ★がついたシートは毎回使用する為削除しない。 ★以外のシートを全て削除する。 For i = Sheets.Count To 1 Ste…

シートをPDFにして保存する。 Dim i As Long Dim Name As String For i = 3 To Sheets.Count Name = ThisWorkbook.Path & _ "￥" & Sheets(i).Name & _ Format(Date, "yyyymmdd") Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Name Next ★明細…

明細シートを参照し、まとめシートを作成。 完成したまとめシートを後ろにコピーしていく。 Dim i As Long With Sheets("★明細") For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row Sheets("★まとめ").Copy after:=Sheets(Sheets.Count) ActiveSheet.Name …