趣味プログラミングblog

テーブルを作ったのはいいけど、不要なデータが紛れ込んでいた！！

正しいデータのリストがあって、不要データか判別したい。
そんなニーズを叶えるマクロを作ってみた。

---

いきなり作りたくなる気持ちを抑えて、まずはネットで検索。
クリーンヒット！

https://kirinote.com/excelvba-listcharacter/

もろにやりたいことを実現するページを発見。

参考サイトでは色分けをしていたけど、
右側のセルにキーワードをいくつ含むかカウントする処理を入れた。


リストの内容を配列に格納するのがポイントで、
セルを参照した処理だと行数の多いリストでは処理しきれない。

行ループについても配列にして、出力も配列に格納したほうが早いけど
手間の割に劇的な効果はないと思うのでこのまま。

対象のシート名、テーブルのタイトル行、参照列、出力列を定数化した。



以下、ソース。

フォルダ内のCSVファイルについて、サブフォルダを含めて全部中身を書き出したい。

ということで、ネットで調べて再帰検索するマクロを移植。
'http://blog.jmiri.net/?p=1763

シート選択で動かすと確かにシンプルになるものの、
処理速度が圧倒的に不利。

できれば直したいけど、一発ものだから様子見。

ファイルサイズと更新日時は、ファイル名に環境依存文字があると動かないので
FSOで取得するように改良。


全フォルダをなめる処理は完成。
過去に作った再帰なしのファイルの中身を書き出すマクロと
がっちゃんこして完成かな。

以下、ソース（途中）

前回、テキスト系のランチャーを作ったので、
今回はオートフィルタのモジュールを整理することにした。

選択中のセルでオートフィルタ　他

今回はこれらモジュールをまとめて呼び出すフォームを作った。

新しいことは特に何もやっていないので
説明については、前回のランチャーを参照。

各フォームを呼び出すランチャーマクロ（ランチャー５）


作った感想。
ショートカットキーで一発起動できるのが
オートフィルタ系モジュールの利点だったので、
UIを介すると使いづらいってのが正直なところ・・・。

ただ、オートフィルタにショートカットキーを
５つも割り当ててられないってのもあるので一長一短か。

ダウンロード


以下、ソース

ここのところユーザーフォームを使ったマクロを作ってきた。

第１弾　文頭および文末に文字を挿入するマクロ

前回、Mid関数で文字を切り出すマクロを作った。

文字の挿入も指定位置でできた方がいいなってことで作ってみた。

今回は、新しいことは何もないので、詳細省略。

ブログに公開するタイミングでバグが見つかる。。。


ユーザーフォームで入力箇所を数値指定して、
テキストボックスに入力した文字を挿入する。

ダウンロード



以下、ソース