IT備忘録

Excel VBA のちょっとしたTipsです。

--画面表示を非表示にする
Application.ScreenUpdating = False

' *** 処理 ***

Application.ScreenUpdating = True

画面表示を非表示にすると、処理速度が上がります。

--シートを表示する・非表示にする
Sheets("tmp").Visible = xlSheetVisible
Sheets("tmp").Visible = xlSheetVeryHidden

シート"tmp"を表示にしたり、非表示にしたりします。

--カレントパス
ThisWorkbook.Path

例）カレントパスにブックを保存する
Dim Sheet_name As String
Sheet_name = ThisWorkbook.Worksheets("tmp").Range("A1")

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Sheet_name & ".xls"