シート名の変更を検知する(Excel) - 素人がExcelVBAによる「一人働き方改革」に挑むブログ
シート名の変更を検知する(Excel) 各所から集めた大量のExcelブックを処理するとき、配布した様式ブックに保護をかけ忘れると、それはもう、好き放題にシート名をいじくられるｗ マクロで処理しようにも、シート名とかシートの順序を変えられると、ちょっと対応がむつかしいので、シート名が本来のあるべき姿から変わり果ててしまったブックを検出するメソッドを作ってみた。 コーディング Worksheetsコレクションのインデックスに、ブックに存在しないシート名を指定すると、実行時エラーが出るので、その性質を利用した。 リスト１ 標準モジュール Public Function hasAppropriateSheetNames( _ ByVal targetBook As Workbook, _ ByRef shNamesArray() As String) As Boolean '……(1)' On
Outlookのメールを作成するクラスを作った - 素人がExcelVBAによる「一人働き方改革」に挑むブログ
Outlookのメールを作成するクラスを作った 一気にOutlook版も行っちゃうよ！ 今回も、 akashi-keirin.hatenablog.com このときのRecipientクラス、Senderクラスと併用するのが前提。 ソースコード クラスモジュール OutlookApp Option Explicit Implements IMailCreatable 'Module Level Variables' Private olApp As Outlook.Application Private isAvailable As Boolean 'Constructor' Private Sub Class_Initialize() On Error Resume Next Call Err.Clear isAvailable = False Set olApp = GetObject
Filter関数というものがある - 素人がExcelVBAによる「一人働き方改革」に挑むブログ
Filter関数というものがある こないだ、オブジェクト・ブラウザをぐりぐりやっていたら、「クラス」欄にStringsというものを発見。 ただし、オブジェクト・ブラウザ上では、「クラス」としてではなく、「モジュール」として記載されている。 Stringsを選ぶと、下の説明のところに、 Module Strings VBA のメンバー と表示される。 ご覧のように、メンバとして見たことのあるメソッド（関数）名がズラリ。 へえ～。知らんかった。 Filter関数 だいたい、どこかで見たことのある関数名ばかりだったのだけれど、 この「Filter関数」というやつは、知らなかった。（……っていうか、有名？） 説明書きには、 Function Filter(SourceArray, Match As String, [Include As Boolean = True], [Compare As V
シートモジュールへのインターフェース実装の代案 - 素人がExcelVBAによる「一人働き方改革」に挑むブログ
シートモジュールへのインターフェース実装の代案 ごく一部の（？）VBAerの間では、「シートモジュールにインターフェースをImplementsすると派手にバグる」というのは有名だと思う。「ごく一部で有名」であるということを「有名」と称するのかどうかはともかくとして。 参考 akashi-keirin.hatenablog.com akashi-keirin.hatenablog.com 大規模なExcelブックで生じがちなこと Excelはいろいろな使い方ができる。本来の表計算から割と離れた用途で使われていることも多いと思う。うちの業界もその一つ。簡易なデータベース的な使い方が多い。人間のデータを元に名簿を作るとか。 そうなると、いきおい、〈一つのブックに大量のシート〉ということが生ずる。そして、ブックの中に、〈類似の特殊な役割を持った似たようなシート〉が複数生ずることも多い。 同じメンバ
ThisWorkbookモジュールにインターフェースを実装することはできるのか - 素人がExcelVBAによる「一人働き方改革」に挑むブログ
ThisWorkbookモジュールにインターフェースを実装することはできるのか 前回 akashi-keirin.hatenablog.com ブックのThisWorkbookモジュールにメソッドを搭載したら、まるでブックのメソッドであるかのように呼び出すことができることを示した。 では、ThisWorkbookモジュールにインターフェースをImplementsしたら、各ブックに共通メソッドの搭載を強制させることができるのだろうか。 ちょっとやってみた。 インターフェース作り クラスモジュールを挿入。 ChokiShowableというアホなオブジェクト名のインターフェースを作成。 で、次のようなコードを書いておく。 リスト１ クラスモジュール Option Explicit Public Sub showChoki() End Sub showChokiというメソッドを書いておく。 このイ
ポート名（？）付きのプリンタ名を返すFunction - 素人がExcelVBAによる「一人働き方改革」に挑むブログ
ポート名（？）付きのプリンタ名を返すFunction 前回、 akashi-keirin.hatenablog.com 前々回 akashi-keirin.hatenablog.com の集大成。 コード プリンタの名前を渡したら、ポート名（？）付きのプリンタ名を返すFunctionを作ってみた。 前回同様、オブジェクト名は「InstalledPrinter」とし、PredeclaredIdをTrueにしている。 リスト１ クラスモジュール Public Function getPrinterNameWithPort( _ ByVal printerName As String) As String getPrinterNameWithPort = "" Dim printersCount As Long printersCount = getPrintersCount Dim tmp A
プリンタの数を返すFunction - 素人がExcelVBAによる「一人働き方改革」に挑むブログ
プリンタの数を調べるFunction Application.ActivePrinterにプリンタ名をセットしたくても、プリンタ名の後ろにくっついている「on NeXX:」の部分がわからないとセットできない。 同じプリンタに接続していても、端末ごとに「NeXX:」の部分が異なるので困ることになる。 そこで、「XX」の部分を「00」からインクリメントしてプリンタ名にヒットするかどうか確認することを考えた。 そのためには、ループ回数を決めるためにインストールされているプリンタの数を取得しないといけない。 プリンタの数自体は、 akashi-keirin.hatenablog.com このときのように、Shell.Applicationオブジェクトを取得したら簡単に取得できるので、Shell.Applicationオブジェクトをラップしたメソッドを作った。 コード 前回 akashi-keiri
列挙体にはメンバを何個列挙できるか - 素人がExcelVBAによる「一人働き方改革」に挑むブログ
列挙体はいくつまで列挙できるか 列挙体のメンバ数の最大って、いくつなのだろうか。 ちょっと調べてみた。 Integer型の最大値 Integer型の最大値は32767。へえ。意外と小さいな。 標準モジュールの宣言セクションに次のように書いてみる。 Public Enum MaxSize maxElement = 32767 End Enum んで、イミディエイトに Debug.Print maxsize.maxElement と打ち込んで[Enter]。 とりあえずクリア。 少なくとも３万２千７６８＋１個までは列挙できるみたい。 Integer型の限界を超える 次に、Integer型の限界を超えられるかどうかテスト。 Public Enum MaxSize maxElement = 32767 nextElement End Enum 32767の次はあるのか。イミディエイトに次のように打
isAutoFilteredメソッドの修正 - 素人がExcelVBAによる「一人働き方改革」に挑むブログ
isAutoFilteredメソッドの欠陥 isAutoFilteredメソッドとは 自作のFunction。 akashi-keirin.hatenablog.com このときに作ったもの。 こんなふうにフィルターで絞り込まれていないときにFalseを返す。 イミディエイト・ウインドウに ?isAutoFiltered(Sheet1) と入力して[Enter]を押すと、 このとおり。 こんなふうに、フィルターで絞り込まれていると、Trueを返す。 このとおり。 重大な欠陥 しかし、このisAutoFilterメソッドには、重大な欠陥があったのだった。 AutoFilterオブジェクトのことが分かっている方は、すでにお気づきだったかと思うが、たとえば、 この状態のワークシートを指定して 実行しようと[Enter]を押すと、 実行時エラーになる。 理由は簡単。 そもそもAutoFilterオ
VirtualTableクラスは今 - 素人がExcelVBAによる「一人働き方改革」に挑むブログ
VirtualTableクラスは今 VirtualTableクラスの現状 VLOOKUPにせよ、INDEX & MATCHの合わせ技にせよ、セルに数式がずらずらと書き込まれているというのはちょっとイヤなので、表引きは極力VBAでやっている。 んで、VLOOKUPみたいな働きを持ったクラスを作ったのが akashi-keirin.hatenablog.com このときの試み。 いろいろと使っていくうちに、今こんなふうになっている、というのをうｐしておくことにした。 リスト１ クラスモジュール オブジェクト名は「VirtualTable」。 Option Explicit Private Type Exception Number_ As Integer Discription_ As String End Type Private Const NUM_NOT_INIT As Integer
値の重複を調べる[Excel] - 素人がExcelVBAによる「一人働き方改革」に挑むブログ
値の重複の有無をチェックする（マクロ無し縛り） 久しぶりにマクロ無し縛りでExcelのシートを作ることになり、半分忘れかけていたことがあったので、備忘録的に記しておく。 １億2000万余名マイナス１億2000万名の非常に数少ないこのブログの読者の方ならおよそ見当がついていると思うが、私はExcel本体の機能に精通する前にVBAにハマってしまい、畸形的な発達を遂げてしまっているので、ツッコミどころがたくさんあると思う。遠慮無くツッコミを入れてくださるとありがたい。 範囲内の値の延べ個数を求める COUNTA関数を使う まあ、これは初歩中の初歩でしょう。 こんな表があるとする。範囲はD2:D15。 んで、テキトーなセルに =COUNTA(D2:D15) と入力するだけ。 ご覧のように、引数で指定した範囲（D2:D15）の値を返してくれる。 ちなみに、私は「COUNTA」の「A」ってどういう意味
![値の重複を調べる[Excel] - 素人がExcelVBAによる「一人働き方改革」に挑むブログ](https://cdn-ak-scissors.b.st-hatena.com/image/square/ecf2ecb3b35678351aa3dc61bab6f1671d3ca4c2/height=288;version=1;width=512/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fa%2Fakashi_keirin%2F20180320%2F20180320191148.jpg)
部屋割りマクロ(Excel)のリファクタリング(3) - 素人がExcelVBAによる「一人働き方改革」に挑むブログ
部屋割りマクロのリファクタリング 傍流の処理を外に出す 前回の akashi-keirin.hatenablog.com のリスト２では、大まかに言って 引数のチェック 定員表の配列化 振り番処理 の３つの処理を行っていた。 メインの処理は、当然 3. の振り番処理。あとの２つは、そのための準備という位置づけだ。 今回は、とりあえず行数を食っている 1. を外に出すことを試みた。 引数チェックの過程を外に出す 引数をチェックするFunctionを別途作って、メインのプロシージャからはそのFunctionを呼び出す、という形にする。 もちろん、全ての引数をチェックするFunctionを１つ作ることも可能だが、なるべく １プロシージャ１機能 を旨とする。まあ、 血盟団 の 一人一殺 みたいなもんだな。←違う 引数チェック用プロシージャの数々 リスト1ｰ1 標準モジュール Private Fun
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
