えくせるちゅんちゅん

ExcelVBAで確実にWorksheet.AutoFilterを取得する関数

今回はExcel VBAでAutoFilterオブジェクトを取得する方法について調査した結果を報告します。

2020/06/24 00:00

VBAで多重ループから脱出する方法の全て

昨日、id:Infoment さんの「多重ループからの脱出」を読んで、たまに使っているテクニックを思い出したので、紹介するついでに思いつく限りの方法を整理してみた。 infoment.hatenablog.com はじめに 一般的によく見かける多重ループからの(純粋な)脱出方法は、次の2つだと思う。 1.ラベルとGoTo文を使って抜け出す 2.脱出フラグを立てて段階的に抜け出す だが、VB系の言語には特有の文法によって、第三の脱出方法が存在する。 3.本命の処理とは異なる繰り返しステートメントで囲って抜け出す(Exit Do) （個人的におすすめできないが）次のような方法もある。 4.エラーを…

2020/06/21 15:58

書評 パーフェクト Excel VBAを読んで

半年以上前に入手したタカハシさん著の「パーフェクト Excel VBA」ですが、ようやく読み終わりましたので読書感想文を書かせていただきます。 パーフェクトExcel VBA (PERFECT SERIES)作者:高橋 宣成発売日: 2019/11/25メディア: 単行本（ソフトカバー）

2020/06/14 18:30

ExcelVBAでBeforeSaveでApplication.DisplayAlertsが働かない

今回はTwitterで見かけたWorkbook_BeforeSaveの中でApplication.DisplayAlerts = Falseを実行しても、保存時の確認ダイアログが消えないというVBAの質問にお答えします。

2020/06/14 14:15

ExcelVBAでオートフィルタで絞り込んだデータの行数をカウントする

ExcelVBAでオートフィルタで絞り込んだ結果、表示されているデータの行数をカウントする方法について説明する。 要望 最適解 回答例 各行の表示状態を確認して非表示のものを数える オートフィルタの設定されたセル範囲のうち、可視セルだけ絞り込んでから行数を数える Areas毎の行数を合計する SUBTOTAL関数の個数カウント機能を使う方法 1列に絞って可視セルの個数を数える 注意事項 Worksheeet.AutoFilterプロパティ使用の注意事項 SpecialCellsの副作用 参考資料 まとめ 要望 最適解 アクティブなシートのフィルタ件数を知りたい場合は、下記のワンライナーを実行す…

2020/06/13 23:50