| 目的 | コマンド |
| シートを選択 | Sheets(“Input”).Select |
| 名前/名前の変更 | ActiveSheet.Name = “NewName” |
| シートの追加 | Sheets.Add |
| 新しい名前でシートを追加 | Sheets.Add.Name = “NewSheet” |
| シートのコピー | Sheets(“Sheet1”).Copy |
| シートのコピー | Sheets(“Sheet1”).Delete |
| シートのクリア | Sheets(“Sheet1”).Cells.Clear |
| ワークブック追加 | Workbooks.Add |
| ブックを閉じる | Workbooks(“Book1”).Close SaveChanges:=False Workbooks(“Book1”).Close SaveChanges:=True |
| 保存する | Workbooks(“Book1”).Save |
| 名前をつけて保存する | Workbooks(“Book1”).SaveAs strFileName |
| 最初に開いたブックを表示 | Workbooks(1).Activate |
| セルをアクティブ化 | Range(“A1”).Activate Cells(3,2).Activate |
| セルをコピー | Range(“A1:B2”).Copy |
| セルをカット | Range(“A1:B2”).Cut |
| マージ/アンマージ | Range(“A1:A2”).Merge Range(“A1:A2”).UnMerge |
| セルをカウント | Range(“A1:A2”).Count |
| セルをクリア | Range(“A1:A2”).Clear Range(“A1:A2”).ClearContents Range(“A1:A2”).ClearFormat |
| セルを削除 | Range(“A1:B2”).Delete |
| 行をアクティブ化 | Rows(1).Activate |
| 最後の行 | Dim lRow as long lRow = Cells(Rows.Count, 1).End(xlUp).Row |
| コードを停止してエラーを表示 | On Error Goto 0 |
| エラーをスキップして実行を継続 | On Error Resume Next |
| エラーをクリア(リセット) | On Error GoTo -1 |
| テキスト比較 | Opetion Compare Text |
| 目的 | コマンド |
| 文字列を検索し位置を返す | InStr(対象, “検索したい文字列”) |
| 文字列から文字列を抜き出す | Mid(対象文字列, 抜き出す開始,抜き出す長さ) |
Dim 変数 As データ型
コメント