[B! VBA] kabacsharpのブックマーク

ポート名（？）付きのプリンタ名を返すFunction - 素人がExcelVBAによる「一人働き方改革」に挑むブログ

ポート名（？）付きのプリンタ名を返すFunction 前回、 akashi-keirin.hatena blog.com 前々回 akashi-keirin.hatena blog.com の集大成。コードプリンタの名前を渡したら、ポート名（？）付きのプリンタ名を返すFunctionを作ってみた。前回同様、オブジェクト名は「InstalledPrinter」とし、PredeclaredIdをTrueにしている。リスト１　クラスモジュール Public Function getPrinterNameWithPort( _ ByVal printerName As String) As String getPrinterNameWithPort = "" Dim printersCount As Long printersCount = getPrintersCount Dim tmp A

kabacsharp 2018/09/29

“プリンタ名の取得はできるので、ユーザーフォームでプリンタ名を選ばせるかして、このFunctionと組みあわせたら、端末を問わずにプリンタを適切に指定できるようになるのではなかろうか。”

vba
VBScript

リンク

プリンタの数を返すFunction - 素人がExcelVBAによる「一人働き方改革」に挑むブログ

プリンタの数を調べるFunction Application.ActivePrinterにプリンタ名をセットしたくても、プリンタ名の後ろにくっついている「on NeXX:」の部分がわからないとセットできない。同じプリンタに接続していても、端末ごとに「NeXX:」の部分が異なるので困ることになる。そこで、「XX」の部分を「00」からインクリメントしてプリンタ名にヒットするかどうか確認することを考えた。そのためには、ループ回数を決めるためにインストールされているプリンタの数を取得しないといけない。プリンタの数自体は、 akashi-keirin.hatena blog.com このときのように、Shell.Applicationオブジェクトを取得したら簡単に取得できるので、Shell.Applicationオブジェクトをラップしたメソッドを作った。コード前回 akashi-keiri

kabacsharp 2018/09/29

参照設定すればshellが型として使えるのか～、いいなー

vba
VBScript

リンク

列挙体にはメンバを何個列挙できるか - 素人が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の次はあるのか。イミディエイトに次のように打

kabacsharp 2018/04/22

すげ。面白実験。Enum値のLong境界超えたら補数の負のLong値になるのか。勉強になりました。#VBA #はてなブログ

Excel
VBA

リンク

isAutoFilteredメソッドの修正 - 素人がExcelVBAによる「一人働き方改革」に挑むブログ

isAutoFilteredメソッドの欠陥 isAutoFilteredメソッドとは自作のFunction。 akashi-keirin.hatena blog.com このときに作ったもの。こんなふうにフィルターで絞り込まれていないときにFalseを返す。イミディエイト・ウインドウに ?isAutoFiltered(Sheet1) と入力して[Enter]を押すと、このとおり。こんなふうに、フィルターで絞り込まれていると、Trueを返す。このとおり。重大な欠陥しかし、このisAutoFilterメソッドには、重大な欠陥があったのだった。 AutoFilterオブジェクトのことが分かっている方は、すでにお気づきだったかと思うが、たとえば、この状態のワークシートを指定して実行しようと[Enter]を押すと、実行時エラーになる。理由は簡単。そもそもAutoFilterオ

kabacsharp 2018/04/14

こんなメソッドもあったんですね。ユーティリティ関数化されると確かに便利。でもテストに落とし穴が。自分もテストニガテ・・・

リンク

かな～りうれしい裏ショートカット☆＿VBA.VBE - rasemoのブログ

Ｆ２、エクセルでは、セルの編集を行えるようになりますね。そのくせで、オブジェクト名の変更しようとした時にも押ししちゃうんです＞＜そして、最初は、オブジェクトブラウザなるものが表示されてびっくりしちゃいますよね～そして、元のコードウィンドウに戻れない～、までがお約束（笑）オブジェクト名の変更は、ホントは、Ｆ４ですヨね。これに慣れるまでは、しばらくかかりました(￣▽￣;) そして、コードウィンドウに戻るのは、Ｆ７ですね。これらは、メニューバーの「表示」のメニューで確認できますね。ＶＢＡに慣れてくると、自分から、Ｆ２を押して、オブジェクトブラウザーを見に行くようになります。これが、また一つ大人の階段を昇ったようで、うれしいところです（笑）さて、そうしますと、今度は、ちょっとＯＢ（←オブジェクトブラウザー）を見るだけなのに、Ｆ２を押して、その後に、離れたＦ７をわざわ

kabacsharp 2018/04/14

これは便利なショートカット！あざっす！

リンク

ExcelにPythonが搭載されることによるノンプログラマーのメリットとVBAの今後について

みなさん、こんにちは！タカハシ(@ntakahashi0505)です。 MicrosoftがExcelにプログラミング言語Pythonの搭載を検討しているというニュースがありました。ノンプログラマー向けにVBAの情報も、Pythonの情報も提供している私としては、非常に喜ばしいニュースです。当然、Python プログラマーにとってはExcelで使えるようになるというメリットはかなり大きいのではないかと思うのですが、一方でノンプログラマーにとってもこの話は悪い話ではないと考えています。そこで、今回は、ExcelへのPython搭載がノンプログラマーにとってどんなメリットをもたらすのかについてです。また、Python搭載後のVBAがどうなるのかについても考えます。