ThisWorkbookモジュールの謎

VBA一般

ThisWorkbookモジュールの謎タイトルはちょっと大げさです。しかも、謎を解き明かす気などさらさらなく、豪快に投げっぱなしジャーマンです。 ThisWorkbookモジュールを改名するプロジェクトエクスプローラーで、ThisWorkbookモジュールを選択し、プロパ…

2018-10-06

ThisWorkbookとは何者なのか

VBA一般 VBA覚書

ThisWorkbookとは何者なのか案外、初歩的なことがわかっていない、ということを痛感したので、後の戒めのためにも残しておくことにした。「ThisWorkbook」を使うことは非常に多い。VBAの場合、コードが書かれてあるブックが他のブックを操作する場面という…

2018-09-30

プリンタ名を返すProperty

VBAクラス・モジュール VBA自作クラス

プリンタ名を取得するProperty 前回 akashi-keirin.hatenablog.com の続き。前回までに作成したInstalledPrinterクラスにPropertyを追加する。追加するPropertyは、printerName(ByVal printerIndex As Long)とし、引数にインデックスを渡したら、該当する…

2018-09-29

ポート名（？）付きのプリンタ名を返すFunction

VBA一般 VBA自作メソッド VBA自作関数

ポート名（？）付きのプリンタ名を返すFunction 前回、 akashi-keirin.hatenablog.com 前々回 akashi-keirin.hatenablog.com の集大成。コードプリンタの名前を渡したら、ポート名（？）付きのプリンタ名を返すFunctionを作ってみた。前回同様、オブジェ…

2018-09-29

プリンタの数を返すFunction

VBA一般 VBA自作メソッド VBA自作関数

プリンタの数を調べるFunction Application.ActivePrinterにプリンタ名をセットしたくても、プリンタ名の後ろにくっついている「on NeXX:」の部分がわからないとセットできない。同じプリンタに接続していても、端末ごとに「NeXX:」の部分が異なるので困る…

2018-09-29

プリンタが存在するかどうかを判定するFunction

VBA一般 VBA自作メソッド VBA自作関数

プリンタが存在するかを調べるFunction 軽量PDFを作成するためには、ExportAsFixedFormatメソッドを用いていたのでは限界があるので、 akashi-keirin.hatenablog.com このときのように、プリンタにJUST PDFなどの、PDF出力用プリンタを選択する。その場合、…

2018-09-24

「フォームコントロールのボタンオブジェクトのEnabledプロパティって、意味ないんじゃね？」問題

VBA一般 VBA覚書

「フォームコントロールのボタンオブジェクトのEnabledプロパティって、意味ないんじゃね？」問題前回 akashi-keirin.hatenablog.com の続き。ボタンのEnabledプロパティをFalseにしてみるイミディエイト・ウインドウに activesheet.buttons(1).enabled =…

2018-09-24

フォームコントロールのボタンオブジェクトをVBAで捕まえる

フォームコントロールのボタンを捕まえるマクロを呼び出すためのボタンをシート上に設置することがよくある。シート上に設置したボタンをVBAで取得するにはどうすればよいのだろうか。 Nameプロパティを取得してみるボタンの上で右クリックすると、この…

2018-09-22

クラスのPrivateメソッドもイミディエイトで実行できる

VBAクラス・モジュール VBA覚書

クラスのPrivateメソッドもイミディエイトで実行できる再び超小ネタ。クラスモジュールの準備クラスモジュールを作る。リスト１クラスモジュール 'オブジェクト名は"HiddenBooks"' Private Function isHiddenBook( _ ByVal targetBook As Workbook) As …

2018-09-22

個人用マクロブックはアドインに非ず

VBA覚書

個人用マクロブックはアドインに非ず「当り前だろバカ！」と思ったらスルー推奨。 IsAddinプロパティイミディエイト・ウインドウに ?Workbooks("PERSONAL.XLSB").IsAddin と打ち込んで[Enter]をポチッ。すると、 Falseが返るのであった。 Windows.Countプ…

2018-09-20

非表示ブックの数を返すFunction(Excel)

VBA自作関数 VBA自作メソッド

非表示Bookの数を返すFunction アドインとか、個人用マクロブックみたいな、ブックを開いたら裏で勝手に開いているブックの数と、オモテで正々堂々と開いているブックの数を別々に取得する必要があったので作ってみた。考えかた Application.Workbooksコレ…

2018-09-14

Split関数の裏技

VBA関数 VBA覚書

Split関数の裏技このとき、 akashi-keirin.hatenablog.com thom (id:t-hom) さんに教えてもらった。 Split関数の第２引数は省略できる完全に思い込みで必須だと思っていた。なるほど、Office VBA Reference の Split Function の項によると、 Syntax Spli…

2018-09-08

セル範囲が格子状になっているか判定するFunction(Excel)

VBA一般 VBA自作関数

セル範囲が格子状になっているか判定するFunction いわゆる「Excel方眼紙」との戦いの一環。セル結合とかガンガンズンズングイグイかまして作った表が、格子状になっているか判定する必要に迫られたのだった。かつて誰かが作ったツールに不具合があって、…

2018-09-08

［Range］.MergeAreaプロパティの返り値の謎(Excel)

VBA一般

[Range].MergeAreaプロパティの返り値の謎単にRangeオブジェクトのことがよく分かっていないだけかも知れないが、恥を承知で書く。 MergeAreaプロパティの返り値こんなシートがあったとする。Ｊ１セルとＪ２セルが結合されている。したがって、Ｊ１セル…

2018-09-02

ファイル名に接頭辞・接尾辞を附加するFunction

VBA自作関数 VBA一般ちょい書きマクロ

ファイル名に接頭辞・接尾辞を附加するFunction ファイル名変換ツールを自作したときに、ついでに作った。ファイル名に接頭辞を付けるFunction これは簡単。単純に先頭に文字列を追加するだけ。リスト１標準モジュール Public Function getPrefixedFileNa…

2018-09-01

ファイルのコピーを作成する（FileSystemObjectオブジェクトのCopyFileメソッド）

VBA一般 VBA自作メソッド VBA覚書

ファイルのコピーを作成する FileSystemObjectオブジェクトを用いる。ファイルのコピーを作成するFunction FileSysetmObjectオブジェクトのCopyFileメソッドをラップする。参照設定でMicrosoft Scripting Runtimeにチェックを入れておく。リスト１標準モ…

2018-09-01

ファイル名をチェックするFunction

VBA一般 VBA自作メソッド VBA自作関数

不正なファイル名を検出するFunction 作ってみた。コードコードは次の通り。リスト１標準モジュール Public Function hasProhibitedCharacter( _ ByVal fileName As String) As Boolean '……(1)' hasProhibitedCharacter = True '……(2)' Dim ar As Varian…

2018-08-31

シートモジュールとインターフェイス

VBA一般 VBA覚書インタフェース

シートモジュールにインターフェイスを実装する単なる実験。インターフェイスを作成するクラスモジュールを挿入して、次のコードを書く。オブジェクト名はIA1ValueShowableとする。ちなみに、Instancingプロパティの値を「PublicNotCreatable」にしてい…

2018-08-31

「オブジェクト型の定数」的なものを設定する

VBA一般 VBA覚書

オブジェクト型の定数定数は便利な仕組みだが、オブジェクト型の定数は指定できないっぽい。 Range型の定数を定義しようとしてみる標準モジュールの宣言セクションに、次のように書いてみる。で、[Enter]を押してみると、こんな風に、コンパイルエラーっ…

2018-08-26

Propertyを使って配列定数っぽいものを実現する

VBA覚書 VBA一般

列挙体とPropertyを組みあわせて配列定数っぽくする前回 akashi-keirin.hatenablog.com のつづき。 Propertyに配列をセットする Propertyプロシージャ内でArray関数を用いて、Propertyに配列を持たせるようにした。標準モジュール Option Explicit Private…

2018-08-22

配列は定数にはならない

VBA覚書 VBA一般

配列を定数にすることはできるのか配列は定数にできるのだろうか。やってみた標準モジュールの宣言セクションに、次のように書いてみた。リスト１標準モジュールの宣言セクション Option Explicit Private Const CONST_ARRAY As Variant = Array("アホ"…

2018-08-19

Workbook.LinkSourcesメソッド(Excel)

VBA一般 VBA覚書

Workbook.LinkSourcesメソッド何気なくggっていたら、WorkbookオブジェクトのLinkSourcesメソッドというものを見つけた。 MicrosoftのOffice VBA Reference：Workbook.LinkSources Method (Excel) のページによると、 Returns an array of links in the wor…

2018-08-18

名前、定数、列挙体(Excel)

VBA一般 VBA覚書

名前、定数、列挙体ちょっと、PINK FLOYDっぽいタイトルだったのでつい……。名前、定数、列挙体に同じ文字列を使ってみるワークシートのＡ１、Ａ２、Ａ３セルに、それぞれ「aho」、「baka」、「kasu」と名前をつけておく。んで、次のように定数と列挙体を…

2018-07-14

Sheetオブジェクトを変数にぶち込むと自作Propertyにアクセスできない？

VBA覚書

Sheetオブジェクトの自作Propertyが呼び出せない？ Sheetオブジェクトをぶち込んだ変数からアクセスできない前回の akashi-keirin.hatenablog.com で作成したPropertyに、Sheetオブジェクトをぶち込んだ変数からアクセスしようとしたらできなかった。リス…