VBA

Excel

半角を全角に変換するユーザー定義関数

ExcelのVBAで半角を全角に変換するのはとても簡単です。「StrConv」を使うといろいろな変換ができます。引数に「vbWide」を指定すると半角を全角に変換します。使用例は次の通りです。
Excel

VBAでワイルドカードを使う

VBAでは「Like」を使ってワイルドカード的な使い方ができます。
Word

Wordで段組みをテキストで出力するマクロ

段組みを使ったWord文書を段組みの情報を残したままテキストで出力する方法です。1段の場合は40文字、2段の場合は19文字で改行を挿入します。段組みの段数は「段落.PageSetup.TextColumns.Count」で取得できます。また...
Excel

複数ファイルシート一括検索

概要Windowsにはファイルの内容を検索する機能があります。しかしExcelを検索する場合、どのファイルにあるかは表示されますが、どのシートにあるかは表示されません。シートが多いと、そのファイルを開いてから、また検索する必要があります。そ...
Excel

日曜日を含まない経過日計算

ある日からその日を含んでX日を経過した日をExcelで求めるには「始期となる日+X-1」とすればOKです。では日曜日を含まないで計算するにはどうしたらよいでしょうか。たとえば2011年12月8日(木)の7日経過した日は単純に計算すると14日...
Excel

罫線の下端で改ページするマクロ

Excelで罫線を使って表を作る場合は多いです。一つのシートに複数の表を縦に作っていく場合、表の途中で改ページされると困ることがあります。そこであらかじめ、それぞれの表の下端で改ページしておく、という方法が考えられます。これを自動的に実行す...
Word

Wordマクロでワイルドカードを使うときの注意

Wordのマクロでワイルドカードを使って検索、置換をしようとしたところエラーが出ました。
Excel

VBAで引数の数を可変にする

VBAのユーザー定義関数で引数の数が一定でない場合があります。Function kansu(a, b, c)このケースでは、a、b、cが引数です。引数の数は3個です。Function kansu(a, b, c, d)このケースでは、a、b...
Word

Word文書を開いたときに自動的にマクロを実行

Word文書を開いたときに自動的にマクロを実行する方法です。ここでは文書を開いたときに「Hello!」というメッセージボックスを表示させます。
デジタル

VBAのMsgBoxとInputBoxではキャンセルの戻り値が違う

VBAでメッセージボックスを表示するには次のようにします。Sub test_msgbox() res = MsgBox("テスト", vbOKCancel)End Subこの場合、OKボタンとキャンセルボタンがあるダイアログが表示されます。...