t-hom’s diary

主にVBAネタを扱っているブログ…とも言えなくなってきたこの頃。

2017-01-01から1年間の記事一覧

VBA ウォッチウインドウとステップ実行でオブジェクト変数の仕組みを学ぶ

以前クラスモジュールの入門記事でオブジェクト変数はタグのようなものだと書いた。 https://thom.hateblo.jp/entry/2016/12/31/013555#オブジェクト変数は箱じゃなくてネームタグでイメージしよう具体的な仕組みは以下の記事で書いた。 thom.hateblo.jpとは…

ExcelVBAの開発用アドインをGithubで公開してみた

VBA

ExcelVBA開発用のアドインをGithubで公開してみたのでご自由にお使いください。 ただしトラブル発生時は自己責任でお願いします。URLはこちらです。 https://github.com/thom-jp/thoms_ExcelAddIn_for_VBADeveloperファイルの直接ダウンロードはこちらです。…

VBAを写経しながらタイピング練習するツールを作成

今回作成したのは、以下のようなツール。 ※GIFアニメなので読み込み終わって動き出すまで時間かかるかもしれません。 サンプルコードが表示され、その通りに入力していくだけのシンプルなものであるが、次に入力すべきキーとそれを押す指の名前が赤く表示さ…

VBA If文の多重ネストを回避するチュートリアル

VBA

Chemiphysさんのブログで If文のお化けフィールド数が多いデータに取り組む④ - chemiphys’s blogという名言を発見。どうやら条件が増えすぎてIf文が多重ネストになってしまうということらしい。 ちょっと修正してみたので記事にして良いですかと確認を取った…

VBA MsgBoxのオプションはなぜ足し算できるのか

VBAのメッセージボックスでは、以下のように適用したいスタイルを足し算できる。 Sub hoge() MsgBox "処理を続行しますか。", vbYesNo + vbQuestion + vbDefaultButton2, "確認" End Sub 上記のマクロを実行すると、このように表示される。 変な文法だと思わ…

VBA VBエディタ上から実行できるRGB関数入力用のカラーパレットフォームを作成

VBA

ちょっと長めのタイトルになってしまったが、要はこんなの↓を作った。 VBEのメニューからパレットを起動し、目当ての色のラベルをクリックするだけでカーソル位置にRGB関数が挿入される。きっかけはこちらの記事。(感謝) chemiphys.hateblo.jp 作りかた こ…

VBA 複数の引数をとるPropertyプロシージャ

これまでProperty Getは複数の引数を受け取ることができないと思っていたが、昨日Twitterで以下のご指摘をいただいた。@thom__jp https://t.co/pgPwIa8S2pの記事で少し気になったのですが、PropertyLetは複数の引数をとれる(最後の一つが右辺、残りは左辺の…

赤字・太字・下線は文章を読みやすくしない

文字飾りが派手になっていくメカニズム 私は普段仕事でシステムの運用手順書などを作成する機会が多い。手順書は複数人がメンテナンスするので皆さんそれぞれ重要だと思ったところを赤字にしてみたり、太字にしてみたり、下線を引いてみたり、はたまた吹き出…

VBA クラスモジュールでフィールド数の多いデータを扱う

最近読者になったブログにこんなお悩みが。 80以上の要素を持つ400~500件のデータをどう扱おうか悩み中。Powerpoint VBAに触れてみて - chemiphys’s blog自分ならどうするってのを考えてみたので公開。 やはり人のブログを読むと刺激されて執筆が捗る…

VBA 変数宣言で途中改行する

VBAでは、半角スペースに続けてアンダーバーを書くことでステートメントの途中で改行することができる。実は昔、この途中改行が嫌いだった。理由は単に自分が途中改行されたコードに慣れてなかっただけで、慣れてからガンガン使うようになっている。たとえば…

CallByNameを使ったコレクションの非再帰クイック&挿入ハイブリッドソート

VBA

前回はCallByNameを使ってCollectionのバブルソートを作成した。 thom.hateblo.jpそのあとコメントでやりとりがあり、非再帰のクイック&挿入ハイブリッドソートでお悩みの様子。 kantoku.hatenablog.com幸いにもベースになるコードは以下にあるとのことで、…

VBA PowerPointでShapeを一気に削除するマクロ

こちらのブログで、PowerPoint VBAでFor Eachを使ってShapeを消すとうまくいかないという問題が紹介されていた。chemiphys.hateblo.jpやってみたところ、実際に1つ飛ばしで削除される。 実際に検証 Excelで検証してみた。 Sub Excel版ShapeAdd() Dim i As Lo…

当ブログは、amazon.co.jpを宣伝しリンクすることによってサイトが紹介料を獲得できる手段を提供することを目的に設定されたアフィリエイト宣伝プログラムである、 Amazonアソシエイト・プログラムの参加者です。