VBAメモ：よく使う最終行取得などのコード集
エクセルVBAを使ったアプリケーション開発では、日常的に使用するコードを集めたライブラリを作成するのが一般的です。この記事では、最終行の取得、シートの追加、ファイルパスの取得など、VBA開発でよく使うコードの集大成を紹介します。同じ処理を何度も書く手間を省き、開発の効率化を図ることができます。さらに、コードの標準化により、メンテナンスの負担も軽減できます。本稿では、VBA初心者から経験者まで、開発の生産性を上げるために役立つ有用なコードを紹介します。
VBAメモ：よく使う最終行取得などのコード集
VBA（Visual Basic for Applications）を使用してExcelなどのマイソフトオフィスの自動化を実現する際、よく使用するコードを紹介します。
最終行の取得
最終行を取得するコードは以下の通りです。 vb Dim lastRow As Long lastRow = Cells.Find(, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row このコードでは、最後に値が入力されているセルを検索し、行番号を取得します。
最終列の取得
最終列を取得するコードは以下の通りです。 vb Dim lastColumn As Long lastColumn = Cells.Find(, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column このコードでは、最後に値が入力されているセルを検索し、列番号を取得します。
ワークシートの追加
ワークシートを追加するコードは以下の通りです。 vb Worksheets.Add このコードでは、新しいワークシートを追加します。
行の挿入
行を挿入するコードは以下の通りです。 vb Rows(5).Insert このコードでは、5行目に新しい行を挿入します。
列の挿入
列を挿入するコードは以下の通りです。 vb Columns(5).Insert このコードでは、5列目に新しい列を挿入します。
セルの書式設定
セルの書式設定を行うコードは以下の通りです。 vb Range(A1).Font.Bold = True Range(A1).Interior.ColorIndex = 6 Range(A1).BorderAround このコードでは、A1セルの文字を太字にし、背景色を黄色にし、罫線を追加します。
| プロパティ | 説明 |
|---|---|
| Cells.Find | セル内で値を検索します。 |
| Worksheets.Add | 新しいワークシートを追加します。 |
| Rows.Insert | 行を挿入します。 |
| Columns.Insert | 列を挿入します。 |
| Font.Bold | 文字を太字にします。 |
| Interior.ColorIndex | 背景色を設定します。 |
| BorderAround | 罫線を追加します。 |
よくある質問
最終行を取得するためのコードは何ですか?
最終行を取得するには、LastRowプロパティを使用します。このプロパティは、指定された範囲の最終行番号を返します。たとえば、シート内の最終行を取得するには、次のコードを使用します。
`Dim lastRow As Long` `lastRow = ActiveSheet.Cells.Find(, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row` このコードは、検索順序を行単位に設定し、検索方向を最後の行に設定して、シート内の最終行を返します。
最終列を取得するためのコードは何ですか?
最終列を取得するには、LastColumnプロパティを使用します。このプロパティは、指定された範囲の最終列番号を返します。たとえば、シート内の最終列を取得するには、次のコードを使用します。
`Dim lastColumn As Long` `lastColumn = ActiveSheet.Cells.Find(, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column` このコードは、検索順序を列単位に設定し、検索方向を最後の列に設定して、シート内の最終列を返します。
データの最終行を取得するためのコードは何ですか?
データの最終行を取得するには、Range.Findメソッドを使用します。このメソッドは、指定された範囲内で検索条件に一致する最初のセルを返します。たとえば、データの最終行を取得するには、次のコードを使用します。
`Dim lastDataRow As Long` `lastDataRow = ActiveSheet.Cells.Find(, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row` このコードは、検索順序を行単位に設定し、検索方向を最後の行に設定して、データの最終行を返します。
データの最終列を取得するためのコードは何ですか?
データの最終列を取得するには、Range.Findメソッドを使用します。このメソッドは、指定された範囲内で検索条件に一致する最初のセルを返します。たとえば、データの最終列を取得するには、次のコードを使用します。
`Dim lastDataColumn As Long` `lastDataColumn = ActiveSheet.Cells.Find(, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column` このコードは、検索順序を列単位に設定し、検索方向を最後の列に設定して、データの最終列を返します。
