VisualBasic for Applicationsの略。 マイクロソフト社製の各Office製品に附属している、それぞれのアプリケーション（Excel、Accessなど）の操作に特化したVisualBasicの亜種。
ある文字列を含むセルを検索する方法を解説します。For文またはFor Each文でセルをループし、 Instr関数で特定の文字列を含んでいるか判定します。 指定列内にある特定の文字列を含むセルを検索する より細かい判定を行いたい場合 指定のセル範囲内にある特定の文字列を含むセルを検索する おまけ：Findメソッドについて 指定列内にある特定の文字列を含むセルを検索する 指定の列内にある特定の文字列を含むセルを検索するコードがこちらです。 Sub A列にある特定の文字列を含むセルを検索する() Dim ws対象シート As Worksheet: Set ws対象シート = ThisWorkboo…
知らずに落ちると抜け出せなくなるVBAの落とし穴です。 Dictionary内の配列に代入した値が反映されない Dictionary×配列によるクロス集計の結果が0になってしまう あたりにお悩みの方は、この落とし穴に落ちていないかご確認ください。 DictionaryのItemに入れた配列(Array)の書き換え 解決策 配列を一旦変数に取り出し、書き替えてから配列ごと戻す Itemに配列以外のものを入れる DictionaryのItemに入れた配列(Array)の書き換え DictionaryのItemに配列を入れてみましょう。 Dim 辞書 As New Dictionary Dim 配列…
セル値や変数、配列の中身が文字列か判定するには、 TypeName関数を使用します。 ' セルの値が文字列だった時の処理 If TypeName(Range("A1").Value) = "String" Then ～～ここにセル値が文字列だった時の処理 End If ただしTypeName関数は純粋に値のデータ型を判定するため、 "200"や"2025/4/1"などの文字列もTrueと判定します。 Excelのデータを取り込んだ場合は日付や数値も文字列であることがあるため、 特にCSVの処理などで「数値ではない純粋な文字列」を判定したい場合があります。この時はIsNumeric関数やIsDa…
◆ その作業、本当に手作業でやる必要ありますか？ Excelで帳票や請求書を作成していると、「各シートを1枚ずつPDFにして保存しなければいけない」なんて地味で面倒な作業があります。 作業自体は単純だけど シートを開いて、名前を確認して、PDFにして…を繰り返す どこまでやったかわからなくなる 手順を間違えやすい 時間もかかる しかも、完璧にやっても誰にも気づかれない この「名も無き作業」が地味にツライ…。 そして忙しいときに限って発生したりします。 ◆ ワンクリックで終わらせたい そこで私は、VBAでこの作業を自動化することにしました。シートを一枚ずつPDFに変換し、名前も自動で付けて保存。…
ワークシート関数をFunctionプロシージャで自作してみる遊びです。前回【SUM関数】を自作してみた時に思い付いたのですが、 今回は「100円＋100円を200にしてくれるSUM関数」を作ってみようと思います。 こんな関数↓ですね。しれっと※1の1は無視しているのが気遣いです 便利そうなので公式関数ぶった名前「TEXTSUM」にしてみました。気に入ったら使ってみてください。 ソースコード 解説 ソースコード ' SUM関数 文字列が混じっても計算してくれる版 Function TEXTSUM(ParamArray 数値()) As Double If IsMissing(数値) Then T…
はじめに PowerQueryでCSVを読み込むだけでも十分便利ですが、VBAから呼び出して更新まで自動化できると実務ではさらに役立ちます。 この記事では、以下の3ステップでCSV読込の自動化を行います。 Excelシートの準備（CSVパスをセルに記載） PowerQueryの作成（CSV読込クエリ） VBAからPowerQueryを実行してテーブル化 1. シート準備：CSVパスに範囲名を設定 まずは、読み込むCSVのファイルパスをExcelシート上で指定できるようにします。 セルにCSVファイルのフルパスを記載 そのセルに「FilePath」という名前を定義 💡 範囲名にすることで、Pow…
ワークシート関数をFunctionプロシージャで自作してみる遊びです。今回は【SUM関数】を自作してみました。 ソースコード 解説 本家との違い（改良点） 文字列型の数値を合計する 日付への対応 ジャグ配列への対応 ソースコード ' SUM関数 和風スパ版 Function spSUM(ParamArray 数値()) As Double If IsMissing(数値) Then spSUM = 0: Exit Function ' 本家と違い引数なしを許す ' 各引数をループ Dim 各引数 As Variant For Each 各引数 In 数値 ' Rangeの場合 If TypeN…
毎週金曜日 22:00～ 「スパとふゆの0からはじめるExcelマクロ」 と称して、YoutubeLive配信を行います！ Excelマクロ初心者の友人ふゆさんに0からVBAを教ているところを、 ただLive配信として垂れ流すだけの日常系配信です。ゆるくのんびりやるのでお気軽にご参加ください(´∀｀) 第1回は2025/7/18(金)22:00～です！ 以降のスケジュールはYoutube・X(Twitter)・Discordにてご確認ください。 Zoom・YoutubeLiveどちらでもご視聴＆コメントいただけます。 日程：毎週金曜(他イベントあればお休み) 時間：22:00～23:00 ◇ …
先日作成した出勤簿作成マクロを改良しました。 改良点は全社員分の出勤簿をマクロで自動作成するようにしたことです。 改良する前までは以下の手順で行っていました。 ＜改良前＞ 1.元となる出勤簿のExcelテンプレートを社員数分コピーする2.各社員の出勤簿Excelを一人一人開いて社員番号を入力して保存する3.社員番号と社員名を入れた形でファイル名を変更する ※社員数が数十人なので作業量が大きな負荷となっていました。 これを以下の手順のみで行えるようにしました。 ＜改良後＞1.出勤簿自動作成マクロを実行する（ワンボタンで完了） 以下の自動作成ボタンを押すだけで完了です。 ちなみにシートの保護も自動…
知らずに落ちると抜け出せなくなるVBAの落とし穴です。 原因不明の「Rangeクラスの○○メソッドが失敗しました」エラーが発生する マクロを作った直後だけ発生し、ファイルを保存したりすると出なくなる あたりにお悩みの方は、この落とし穴に落ちていないかご確認ください。 シート名の変更中はRangeオブジェクトにロックがかかる セルの値を編集中(ダブルクリックやF2で編集モード中)は、 Rangeオブジェクトへのアクセスに制限がかかり、このようにセルの編集関連のアイコンがグレーアウトします。 編集モード中はVBE(マクロを書く画面)には移動できませんので、 この状態でマクロを実行することはできませ…
papasensei365.com
qiita.com
b.hatena.ne.jp
earningmoney.hatenablog.com
www.excelspeedup.com
www.javadrive.jp
risa.hatenablog.com
forest.watch.impress.co.jp
atmarkit.itmedia.co.jp
