top of page
タグ一覧
検索


二次元配列の特定列をキーとして、配列をユニーク値ごとに分割する汎用プロシージャ Excel VBA
<概要> 本記事では、 二次元配列の特定列をキーとして、配列をユニーク値ごとに分割する汎用プロシージャ DivideArray2DCol_Unique を紹介します。 Excel VBA では、ワークシート上ではフィルターやピボットで簡単に行える処理でも、 配列上で同等の処理を行おうとすると記述が煩雑になりがち です。 本プロシージャを使用すると、 二次元配列の任意の列を指定するだけで その列のユニーク値ごとに行を抽出し 「一次元配列の各要素に、対応する二次元配列を格納」 という構造で結果を取得できます。 内部では、 指定列の抽出 ユニーク値の取得 条件指定による二次元配列のフィルタ処理 といった汎用プロシージャを組み合わせて処理しており、 配列をデータベース的に扱うための基盤処理 として利用できます。 カテゴリ別集計、グループ単位の処理、後続ロジックへの受け渡しなど、 実務での再利用性が高い汎用プロシージャ です。 <実行例> 実行例のサンプルコードは次の通りです 上記コードで配列の中身の確認には以前に紹介したDPAを利用しています。 D
yuji fukami
2 日前読了時間: 2分


MsgboxでYes,Noを聞くだけの実装を簡単にできる汎用プロシージャ Excel VBA
VBAのMsgBoxでYes/Noを聞く処理を、もっと短く・読みやすくしたい人向けの汎用関数です。MsgYesNo("…") だけで Yes=True / No=False を返し、複数行メッセージも配列感覚で渡せます。確認ダイアログの定番化に便利。
yuji fukami
4 日前読了時間: 2分


指定パスのブックを存在をチェックして起動する。OneDriveの影響も考慮。 Excel VBA
「OpenBookWithCheck」は、指定したフルパスのExcelブックが存在するかを先に確認し、存在する場合のみ安全に起動するための汎用プロシージャです。単に Workbooks.Open を直書きするのではなく、**よく使う引数だけに絞った“使いやすい起動関数”**として整理しています。
yuji fukami
4 日前読了時間: 2分


二次元配列の中の空白を特定の値で埋める(Excel VBA) FillValueArray2DBlank
サンプルマクロでは次のような実行例が構築されています。
セル上の値をArray2Dに二次元配列として格納し、汎用プロシージャFillValueArray2DBlankを利用して、空白箇所に「B」の値で埋めるような処理を行っています。
DPAを利用して処理前と処理後でイミディエイトウィンドウにて実行結果を確認できるようにしています。
yuji fukami
11月6日読了時間: 1分


他グループ「イベント有効無効切替」の解説
本ページではIkiKaiso2.xlamの「ボタン設置」グループの「イベント有効無効切替」の解説をします。
yuji fukami
10月28日読了時間: 6分


他グループ「列表示切替」の解説
本ページではIkiKaiso2.xlamの「他」グループの「列表示切替」の解説をします。
yuji fukami
10月28日読了時間: 3分


基準セルから最終列番号を取得する
基準セルから最終列番号を取得する汎用プロシージャ(GetEndCol)の紹介
yuji fukami
10月18日読了時間: 2分


基準セルから最終行番号を取得する
基準セルから最終行番号を取得する汎用プロシージャ(GetEndRow)の紹介
yuji fukami
10月18日読了時間: 5分


基準セルから表範囲セルを自動取得する
基準セルから表範囲セルを自動取得する汎用プロシージャ「GetCellArea」の紹介
yuji fukami
10月18日読了時間: 4分


ファイル選択コピーだけをVBAで自動化する
業務でよく使うファイルをコピーして別フォルダに貼り付ける操作を、Excel VBAで自動化できる方法を紹介します。
今回のプロシージャでは、指定したファイルを 「コピー済み(Ctrl+Vで貼り付け可能)」の状態でクリップボードに登録 できるので、エクスプローラーで任意のフォルダにすぐ複製できます。
CF_HDROP形式を利用した仕組みにより、単一・複数ファイルの対応や64bit環境でも利用可能。日常的な定型作業を効率化したい方に役立つ実装例です。
yuji fukami
9月26日読了時間: 2分


一次元配列の特定要素番号の後ろに要素を一つ挿入する(Excel VBA)
Excel VBA:一次元配列の特定要素番号の後ろに要素を一つ挿入する汎用プロシージャの紹介
yuji fukami
2月11日読了時間: 2分


一次元配列を並び替えを行った時の順位を一次元配列として返す(Excel VBA)
Excel VBA:一次元配列を並び替えを行った時の順位を一次元配列として返す汎用プロシージャの紹介
yuji fukami
2月11日読了時間: 2分


指定の配列の中からランダムに要素を1つ取得する(Excel VBA)
Excel VBA:指定の配列の中からランダムに要素を1つ取得する汎用プロシージャの紹介
yuji fukami
2月11日読了時間: 2分


一次元配列の最後の要素の値を取得する(Excel VBA)
Excel VBA:一次元配列の最後の要素の値を取得する汎用プロシージャの紹介
yuji fukami
2月11日読了時間: 2分


二次元配列を平滑化する(Excel VBA)
Excel VBA:二次元配列を平滑化する汎用プロシージャの紹介
yuji fukami
2月11日読了時間: 2分


二次元配列で特定列を指定して重複をなくす(Excel VBA)
Excel VBA:二次元配列で特定列を指定して重複をなくす汎用プロシージャの紹介
yuji fukami
2月11日読了時間: 1分


二次元配列の中に存在する空白を一つ左の要素から穴埋めする(Excel VBA)
Excel VBA:二次元配列の中の空白を特定の値で埋める汎用プロシージャの紹介
yuji fukami
1月26日読了時間: 1分


二次元配列の中に存在する空白を一つ上の要素から穴埋めする(Excel VBA)
二次元配列の中に存在する空白を一つ上の要素から穴埋めする(Excel VBA)
yuji fukami
1月26日読了時間: 1分


二次元配列の各行の文字列を結合して一次元配列を作成する(Excel VBA)
Excel VBA:二次元配列の各行の文字列を結合して一次元配列を作成する汎用プロシージャの紹介
yuji fukami
1月26日読了時間: 1分


開始要素番号が1となるArray関数(Excel VBA)
Excel VBA:開始要素番号が1となるArray関数汎用プロシージャの紹介
yuji fukami
1月26日読了時間: 2分
bottom of page
