技術を身につけて自由な人生を!

公務員のための業務と人生の効率化Tips

VBA

【VBA】文字列を切り取るコード。文字列内のキーワード以前、以後の文字列を返す。

2024.05.18

この3種類のコードを紹介します。 テストコード(実行コード)は3つまとめて最後にあります。 キーワード以前の文字列を返す 「令和5年度地方債償還額」の「令和5年度」以降の文字列が欲しいときはこんな感じのコードになります。...

VBA

【VBA】文字列から特定のキーワードを切り取った文字列を返すコード

2024.05.18

メール本文から「日時:2/2 14:00」の「2/2 14:00」だけを取得したり、「To: abcdefg@gmail.com」の「abcdefg@gmail.com」だけを取得したときに使います。 Functionの...

VBA

【VBA】ワークシートの不要なセル(右下)を消す

2024.05.10

このコードに関連して、不要なセルを消すコードになります。 この印刷範囲の右側と下側が不要になる場合が多いと思います。 この場合はH32以降のセルを消します。 ws.Columns.Countではエクセルの列の右端、ws....

VBA

【VBA】指定したシート以外のシートを消すコード

2024.05.08

エクセルではデフォルトでSheet1というシートがあります。 設定によってはSheet2,Sheet3まである場合もあります。 マクロで色々処理したシートに名前をつけるとき、デフォルトのシートは消してしまいたい時は以下の...

VBA

【VBA】シート番号でシートにアクセスするとき、そのシート番号が存在するかどうかを確認する

2024.05.01

シートを取得するには以下のような方法があります。 シート名で指定するとき、この記事のようにエラーハンドリングをします。 シート番号のときは以下のように書きます。 sheetIndex= シート番号が5のとき、メッセージボ...

VBA

【VBA】シートがコピーできないとき、そのままコピーするのではなく、内容をコピーする(数値は数値、関数は関数に)

2024.04.27

シートをコピーするとき、Worksheet.Copyと書きますが、エラーが出る場合があります。 保護をかけられていたり、古いエクセル(拡張子が.xls)だったりするのが原因です。 そんなときは、セルを1つ1つコピーしてそ...

VBA

【VBA】ブックに定義されているセルの名前をすべて消す

2024.04.18

セルには名前をつけることができますが、マクロを実行していると名前が悪さをすることがあります。 なので消し去ってしまいましょう。 経験上、名前を消して困ったことはないので大丈夫です。きっと。 As Nameという見慣れない...

VBA

【VBA】4か月分の使用量を按分して整数にならすコード

2024.04.27

上下水道関連部署で使えなそうなコードになります。 100を4等分すると25ですが、101の場合は少数になります。 それを回避して、26、25、25、25にならします。 102の場合、26、26、25、25にならします。 ...

VBA

【VBA】ファイル名やシート名を決めるとき、使えない文字を消したりするコード

2024.05.18

市町村様式を「市町村名.xlsx」としたり、セルの文字列を取得してシート名を自動で設定することがあります。 ?や*などの使えない文字があるときは別の命名方法にしたり、いっそ消してしまいます。 使用不可文字があったら消す ...

VBA

【VBA】ワークブックを開いてすべてのシートを処理する。それを延々と繰り返す。

2023.11.30

すべての市町村のシートがまとまっている状態のエクセルブックがあるとします。 すべてのシートのA1セルの値を取得したり、行を挿入したりするときに使うコードです。 簡単ですね。 For Eachはよく使うので必ず覚えましょう...

1 2 >
プロフィール背景画像
ロビン
元公務員による公務員のためのWIndows、エクセルVBAを使った業務効率化ブログ。プラス人生効率化のTips&フィットネス情報。

人気の記事

カテゴリー

  • VBA

タグ

Application.Calculation Application.GetOpenFilenam Application.GetOpenFilename Application.Max Application.ScreenUpdating Copy Dir Do While ErrorHandler For For Each GetOpenFilename If InStr IsError lastRow Len Mid Move Name On Error GoTo Replace Select Case sheets.Count UsedRange vbYesNo wb.Sheets wb.Worksheets With workbooks.open Worksheets.Count ws.Columns.Count ws.Name ws.Rows.Count エラーハンドリング 串刺し 基本 文字列操作 比較 計算 転記 集計

© 2026 公務員のための業務と人生の効率化Tips All Rights Reserved.