構造体配列の要素をパラメータの値に従ってソートする なんかこう、仕事が泥沼で、長らく更新できませんでした。今も泥沼の最中なんですが、現実逃避して書いています。 さて、仕事で希望調査みたいなのをやった。まあ、データ集約するだけなら楽勝だったん…

漢字テストメーカーを作ってみた プロシージャの構成 問題データ抽出用プロシージャ Private Sub extractQuestions 乱数発生・ナンバリング用プロシージャ Private Sub setRandomNumber 抽出問題並べ替えプロシージャ Private Sub sortExtractedQuestions テ…

文字列のうち、アンダーライン部分のフォントだけを変える ツイッターのフォロワーさんの「漢字テストの問題をランダムに作成できんかなー」みたいなツイートに反応して、どうやったらできるのか考えてみた。 傍線部分だけゴシックにしないといけない 文字列…

重複のない乱数を作る 重複のない乱数を発生させるアルゴリズムを考えてみた。まあ、ちょこっとggったらスマートなやつが見つかるとは思ったけど、自分で考えるというのが大事だと思ったのですよ。 素人丸出しのやり方なので、笑ってくれたらいいと思います…

マクロなし縛りでドロップダウンリスト項目を動的に切り替える 「マクロなし縛り」でExcelでの様式づくりをせざるを得なくなったので、久しぶりに関数であれこれやってみた。 ろくにワークシート関数も覚えていないのにマクロを覚えてしまったために、「欲し…

指定した文字の書式だけを変更する 記入見本作り 記入例を作りたかったんだが、日付の欄は、 こんな感じで、「月」と「日」と「（」、「）」をあらかじめ入れておいて、月・日・曜日だけを書いてもらうようにしている。 んで、記入者に書いてもらう部分だけ…

WordTableCreatorクラスの修正 id:mmYYmmdd さんからのコメント akashi-keirin.hatenablog.com 前回の記事に、id:mmYYmmdd さんからコメントをいただいた。 全く以て仰せのとおり、というところなので、アドヴァイスに沿ってコードを修正する。 雑な配列の定…

クラスのプロパティに二次元配列を持たせてみる 表の内容をそのまま配列にする 「表」ということは、二次元配列と同じ形なんである。 そこで、 クラスのプロパティを二次元配列にする ことを試みた。 クラスの改造 まず、前回記事のリスト１のうち、フィール…

Wordの表の中の文字列を取得するクラス WordTableOperatorクラス クラスモジュールを挿入して、オブジェクト名を「WordTableOperator」にした。 とりあえず、次のようなコードを書いた。 リスト１ Option Explicit 'フィールド' Private wordApp_ As Word.Ap…

Left関数、Right関数の第２引数 Left関数、Right関数の第２引数が「0」だったらどうなるのか やってみた。 イミディエイト・ウインドウに次のコードを入力して[Enter]を押す。 リスト1-1 ?Left("吉岡 稔真",0) リスト1-2 ?Right("吉岡 稔真",0) 実行結果 ど…

ハナクソの正体が分かった？？？ 「ハナクソ」とは 「ハナクソ」というのは、 akashi-keirin.hatenablog.com Wordの表からExcelのセルに値を転記したときに、テキストの末尾にくっついてくるナゾの物体のこと。 私の職場の環境（Office2010）では、まるでハ…

LotusScriptのメソッド使用に成功した 少し前、コチラの記事 akashi-keirin.hatenablog.com で泣き言を言ったら、こんな過疎ブログにもかかわらず大勢の方がアドヴァイスをくださった。なんとありがたいことよ……。 あれこれ試してみて、なんとかうまく行った…

Wordのページ中心位置に関する大いなる錯誤 偶然の一致だった 前回、コチラの記事で、 tmp = CLng(Word.PointsToMillimeters(objDoc_.PageSetup.PageWidth)) では、ページ横幅の中心位置を割り出しているのだが、なぜこれで中心が割り出せるのか分からない。…

Resumeステートメントの意味が分かっていなかった Resumeステートメントの意味 久しぶりに『Excel VBA本格入門』（大村あつし著）を読み返していたら、 「Resumeステートメント」を引数なしで使うと、エラーの原因となったステートメントに制御が戻ります。 …

ページ横幅の中心位置を割り出そうとしたら謎だらけだった 問題のコード 写しPDF作成マクロを改良して、常にページ横幅の中心部分にハンコ画像が配置されるようにしようとしたら、謎だらけだったので書き残しておく。 リスト１ Dim objRange As Word.Range S…

実行時エラー438に悩まされる オブジェクトは、このプロパティまたはメソッドをサポートしていません 80箇所ぐらいの宛先に、それぞれ添付ファイルの異なるメールを送信する、というしちめんどくさい仕事をすることになった。まあ、Excelで表さえ作ったらメ…

いただいたコメント 前回の記事に達人の皆様からコメントをいただいていたにもかかわらず、返事もできないまま１週間近くたってしまっていた。 私にとっては結構重要なご指摘だったので、コメント欄にではなく、本編にてお返事させていただきます。 id:imihi…

Split関数（VBA）など配列回りの覚書 Split関数 Split関数は、 Split(文字列, デリミタ) とすれば、第１引数の文字列を、第２引数のデリミタで区切った文字列を配列にして返してくれるとっても便利な関数。 んで、めちゃくちゃ基本的なことなんだが、 配列で…

Thunderbirdで複数の宛先を指定するのは簡単だった Shell関数でThunderbirdのメールを作成する このときにも紹介したが、VBAでThunderbirdのメールを作成するには、次のようなコードを書けば良い。 リスト１ Shell "Thunderbird実行ファイルのフルパス -comp…

セル範囲の名前の定義をVBAでやったら便利 転記するごとにセル範囲を定義し直す このときみたいなデータ転記系の処理をした場合、ワークシート関数のCOUNTIFなんかを使って種別ごとの数を勘定したい、ということがよくある。 しかしながら、転記件数が変化す…

ActiveWindowプロパティの怪 Excel2010でのエラー 職場のPCはOffice2010なんだが、妙なエラーが出た。 ThisWorkbookモジュールに仕込んだWorkbook_Openイベントマクロでの話。 データを集約するマクロを作っていて、データ集約が終わったら、マクロを仕込ん…

データ抽出用のクラス AdvancedFilterメソッドを気軽に使う あんまり役に立たないと思うけど、ちょっと作ってみた。 準備として、 データ抽出元のシートを用意。 こんなふうに抽出条件設定用の表を作り、 セル範囲に名前を付けておく。 ちなみに、抽出条件は…

名簿作りマクロ メインコードの組立 過去記事 akashi-keirin.hatenablog.com akashi-keirin.hatenablog.com akashi-keirin.hatenablog.com 作成するプロシージャ まず、転記処理の流れを整理しておこう。 【プロシージャ１a】「戦法別」シートへの転記開始用…

名簿作りマクロの組立 前回 akashi-keirin.hatenablog.com のつづき。 次のような手順で組み立てる。 【手順１】ユーザ定義型・列挙型の宣言 【手順２】定数・変数の宣言 【手順３】転記マクロの組立 このような手順で進めていきます。 ユーザ定義型・列挙型…

Withでまとめるときの注意 実験１ たとえば、ワークシート上に、 こんな表を作ったとする。知性のかけらもないのは許してほしい。 んで、この表に対して、 リスト１ Public Sub test01() Dim sh As Worksheet Set sh = ActiveSheet sh.Range("A1").CurrentRe…

ネストされたカッコにも対応する 前回の記事が、この過疎ブログには珍しく反響があったので、ちょっと追加。 Replaceメソッドを使う方あり、Split関数を使う方あり、果ては正規表現を使うツワモノまで現れる始末……。 こうなったら、私も意地になって改良を加…

文字列をコード番号に置き換えて取得する 前回 akashi-keirin.hatenablog.com のつづき。 VLOOKUPのちょっと邪道な（？）使い方 一覧表の中の文字列をコード番号に変換するのには、VLOOKUPを使うというのが一般的だと思う。 ただ、私は、一覧表にずらずらとV…

人物データを元に名簿を作成するマクロ 配置転換で行った先で見たもの 新年度の配置転換で、新しい部署に行くことになった。んで、早速名簿作りをしないといけなくなった。 だいたいこんな感じのものが出てきたと思ってください。 どうやら、 こんな元データ…

何もせずに次のループに進む ForループやDoループを書いているとき、 先頭で条件判定して、当てはまっていたら何もせずに次のループに進むことができたらいいのに と思うことがちょいちょいある。 もちろん、たとえば、 リスト１ For i = 1 to hogehoge If f…

セル内のカッコで括られた文字列のみ削除する 都道府県番号の一覧表 ひょんなことで、都道府県番号の一覧表が欲しいなあと思ってggってみたら、 こんな一覧ばっかり（画像はWikipediaのものです）で、表形式のまま取り込めるものがなかなか見つからなかった…