Do Until~Loop
'条件を満たすまで 前判定Dim n As Longn = 1Do Until n > 5 Debug.Print n n = n + 1Loop'条件を満たすまで 後判定n = 1Do Debug.Print n n = n + 1Loo...
Excel VBA スニペット
Do While～Loop
'条件を満たす間まで 前判定Dim n As Longn = 1Do While n < 5 Debug.Print n n = n + 1Loop'条件を満たす間まで 後判定n = 1Do Debug.Print n n = n + 1L...
表示形式
’標準Rangeオブジェクト.NumberFormatLocal = "G/標準"'文字列Rangeオブジェクト.NumberFormatLocal = "@"’数値Rangeオブジェクト.NumberFormatLocal = "0"
行と列の選択
'行選択 2行目から3行目Range("2:3").Select'行選択 2行目から3行目Rows("2:3").Select'B列からC列Range("B:C").Select'B列からC列Columns("B:C").Select
セル選択
'セル範囲【B2:D3】Range("B2:D3").Select 'セル範囲【B2:D3】Range("B2", "D3").Select'セル【B2】と【D3】Range("B2,D3").Select
対象ブックが存在するか確認（Dir利用)
'ブック確認Sub 対象ブックが存在するか確認_D() Dim filePath As String filePath = "C:\Sample\Book1.xlsx" If Dir(filePath) <> "" Then Debug.P...
対象ブックが存在するか確認（ファイルオブジェクト)
Sub 対象ブックが存在するか確認_Fso() Dim fso As Object Dim filePath As String filePath = "C:\Sample\Book1.xlsx" Set fso = CreateObjec...
シート存在確認
Sub シートの存在確認() Dim ws As Worksheet Dim flag As Boolean For Each ws In Worksheets If ws.Name = "〇〇" Then flag = True End ...
ブックが開かれているか確認
Sub ブックが開いているか確認() Dim wb As Workbook Dim flag As Boolean For Each wb In Workbooks If wb.Name = "Book1.xlsx" Then flag =...
ワークシートの移動
'「temp」シートを末尾に移動 Worksheets("temp").Move after:=Worksheets(Worksheets.Count)