はじめに
vba でコーディングする時に、「最終行番号を取得」したり「ダイヤログ画面を表示」させたりいろいろな機能を追加する場面があるとします。
そんな時に「この機能を追加したことあるのに、vba でどうやって書くんやっけ～」ということがありませんか？
管理人も vba でのコーディングするたびに書き方を忘れては調べ、また忘れて調べるということがよくあります。
いろいろなサイト調べたら、やり方をだんだん思い出すんですが時間がかかってしまいますよね～
そんな時「vba の処理について全部まとめて書いているところないかな～」と思い、そんな記事が欲しくて今回このページを作成しました。
プロシージャ形式で書いておりますので、そのままコピーしてソースコードに張り付けていただければ使えるようにしてあります。
表の最終行番号
以下がソースコードです。そのままコピーしていただければOKです！
1 2 3 4 5 | Function getMaxRow(sheetName As String, row As String) getMaxRow = Worksheets(sheetName).Range(row & "65536").End(xlUp).row End Function |
下記が詳細になります。要はシート名と列番号を指定して、その最終行番号を取得します。
| 項目名 | 値 | 説明 |
| プロシージャ名 | getMaxRow | 最終行番号取得 |
| 戻り値 | 指定したシート名の列の最終行番号 | - |
| 第一引数 | sheetName | シート名 |
| 第二引数 | row | 列番号（A,B,C...形式） |
表の最終列番号
以下がソースコードです。そのままコピーしていただければOKです！
1 2 3 4 5 | Function getMaxCol(sheetName As String, row As String) getMaxCol = Range("IV" & col).End(xlToLeft).Column End Function |
下記が詳細になります。要はシート名と列番号を指定して、その最終行番号を取得します。
| 項目名 | 値 | 説明 |
| プロシージャ名 | getMaxCol | 最終列番号取得 |
| 戻り値 | 指定したシート名の列の最終列番号 | - |
| 第一引数 | sheetName | シート名 |
| 第二引数 | col | 行番号（1,2,3...） |
ダイヤログからファイル名を取得
管理人は毎回やるのに毎回忘れてしまいますので、ソースコードを貼っておきます。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | Function printDialog() Dim fname As Variant fname = Application.GetSaveAsFilename( _ InitialFileName:="test.txt", _ filefilter:="テキストファイル,*.txt", _ Title:="ファイル保存") If VarType(fname) = vbBoolean Then MsgBox "キャンセルされました。" printDialog = "" Else printDialog = fname End If End Function |
| 項目名 | 値 | 説明 |
| プロシージャ名 | printDialog | ダイヤログからファイル名取得 |
| 戻り値 | ダイヤログからファイル名 | - |
また思いついたら随時ページ更新いたしますのでよろしくお願いします。
