VBA

テキストファイルから読み込んで、正規表現で絞り込みして、Excelファイルに出力するVBAのサンプルを紹介します。仕様ファイルを1行ずつ読み込み、正規表現にマッチした場合、Excelセルに書き込みます。今回は正規表現の例として「^.A.$」のパターンにマッチしたものを抽出します。※正規表現の内容は「行の中にAの文字が含まれること」です。ソースコードSub ボタン1_Click() Dim i As Long Dim inputFileName As String Dim fileNumber As Long Dim fileLine As String '正規表現オブジェクトの設定 Dim reg As Object Set reg = CreateObject("VBScript.RegExp") With reg .Pattern = "^.*A.*$" '正規表現パターン .IgnoreCase = False '大文字と小文字を区別する .Global = True '文字列全体を検索するか(True) End With fileNumber = FreeFile inputF...

Excelの各セルを縦に読み込んで行き正規表現で整形しながら横のセルに出力するVBAのサンプルを紹介します。仕様ボタン押下後に、「変換前」の入力内容を正規表現で変換して、「変換後」に出力していきます。ここでは正規表現の中身を「Bが連続して続いたら、B一文字に変換する」にしてみます。ソースコードSub ボタン1_Click() Dim i As Long Dim maxRow As Long minRow = 2 maxRow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row '最終行 '正規表現オブジェクトの設定 Dim reg As Object Set reg = CreateObject("VBScript.RegExp") With reg .Pattern = "B+" '正規表現パターン .IgnoreCase = False '大文字と小文字を区別する .Global = True '文字列全体を検索するか(True) End With For i = minRow To maxRow Cells(i, 2).Va...

Excelファイル内のすべてのシートのカーソル位置をA1に移動し、拡大率100%にするVBAサンプルを紹介します。仕様「ボタン」を押すと「読み込みExcelファイル」のパスからExcelを開き、各シートの選択セルをA1セルにし、拡大率を100%にします。画面仕様ソースコードSub ボタン1_Click() 'このブックを取得 Set myWorkBook = ThisWorkbook 'A1に固定するExcelのパスを取得 Dim filePath As String filePath = myWorkBook.Worksheets("Sheet1").Cells(2, 2).Value 'ターゲットのブックを開く Workbooks.Open Filename:=filePath Set targetWorkBook = Workbooks(Dir(filePath)) '全シートループ For Each targetSheet In targetWorkBook.Worksheets targetSheet.Activate 'A1セルを選択 Application.Goto Re...

Excelシート上にフィボナッチ数列を表示するVBAのサンプルを紹介します。フィボナッチ数列とはまずフィボナッチ数列が分からないとコーディングできないので、簡単にフィボナッチ数列をおさらいします。フィボナッチ数列とは、前の2つの数字を足していって次の値を追加してできる数列です。フィボナッチ数列の計算手順最初は1と1の2つの数字を足します。すると1+1=2で「1,1,2」の数列ができます。次は1+2=3なので、「1,1,2,3」の数列ができます。次は2+3=5なので、「1,1,2,3,5」の数列ができます。以降もこれを繰り返して下記の数列が出来上がります。1,1,2,3,5,8,13,21,34,55,89,144,233・・・これがフィボナッチ数列となります。プログラムの仕様画面仕様ボタンを押下すると、「求める項数」に指定した数分、フィボナッチ数列を4行目に作成します。以下の画面だと10個の数列ができます。画面項目仕様画面の中の各項目の項目仕様は、以下のとおりです。No.項目名説明備考1求める項数出力する項の数です。2項項番号を示す行です。3フィボナッチ数列ボタンを押下した際にフィボナ...