９ヶ月ほど前に、配列を編集する自作のクラスモジュールを纏めてみた。 infoment.hatenablog.comその後、業務などで頻繁に使用しているうちに、幾つか修正点が出てきた。 今回は、その中の一つをご紹介。 クラスモジュールで、行のフィルター抽出を行うユー…

２年ほど前に、↓こんなブログを書いていた。 infoment.hatenablog.com読み返してみると、う～ん・・。当時の詳細な記憶は無いが、恐らくこれを書いた時は、未だ「Edate関数」を知らなかったに違いない。この時のロジックは、 金曜日が13日か調べる。 13日で…

先日来、ユーザーフォームに配置された沢山のチェックボックスの中から、一つだけチェックする方法の簡素化に取り組んでいる。 infoment.hatenablog.com今日も、昨日の続きから。 昨日までの取り組みを全否定することになるが、チェックボックスは選択肢が複…

一昨日来、ユーザーフォームに配置された沢山のチェックボックスの中から、一つだけチェックする方法の簡素化に取り組んでいる。 infoment.hatenablog.com今日も、昨日の続きから。 昨日までの方法では、どう頑張ってみても、CheckBoxの数だけクリックイベン…

昨日は、ユーザーフォームに配置された沢山のチェックボックスの中から、 一つだけチェックする方法の簡素化に取り組んでみた。 infoment.hatenablog.com今日は、昨日の続きから。 昨日は、CheckBox1 ～ CheckBox10までを一つのグループとして扱った。 何だ…

先日職場で、あるものを見かけた。再現すると、こんな感じだ。 コードを見てみると、こんなことが書いてあった。 チェックボックスをクリックすると、その他のチェックボックスのチェックが外れる仕掛けだ。ここでは１０個に留めたが、実際は４０個近いチェ…

先日、とある帳票の自動化を依頼されたときのお話。 作りこんでいると、こんなリクエストが。まずは管理表の一部を抜粋。 ここに書いた「会議」とは、設計審査（通称ＤＲ）のことで、通常は特定／不特定のタイミング含め数回行われるもの。確認したところ、…

ピボットテーブルのボディ部+αに、名前をつけたくなった。さて、どうしたものか。 今回名前をつけたくなったのは、この部分だ。 DataBodyRangeでは、この部分しか選択されない。 RowRangeプロパティだと、ここ。やっぱり足りない。 ということで、仕方ない。…

このようなテーマがあったので、挑戦してみた。 ＡＡＡの次としてＡＡＢを求める。 通常、数字は１から数えれば９の次は１０で一桁繰り上がる。 同様にアルファベットでＡ，Ｂ，Ｃと数えていき、Ｚの次をＡＡとする。例えば、10進法の100をこの方式に当ては…

先日から、等分された円周上の点を線で結んで、きれいな模様を作成することに挑戦している。 infoment.hatenablog.com今日も、昨日の続きから。 昨日までは、単色での描画だった。 そこで今回、以下の三つを設けてみた。 ランダム色 濃淡モード 線種 １．ラ…

昨日は６４等分された円周上の点について、素数個飛ばしで線を結び、模様を作成することに挑戦した。 infoment.hatenablog.com今日は、昨日の続きから。 先日から参考にさせてもらっているサイトによれば、分割数が64である場合、素数は31までを用いている。…

昨日は、等分された円周上の点を、とにかく全部線で結ぶ関数を作成してみた。 infoment.hatenablog.com今日から複数回に分けて、等間隔（素数）で点を結ぶ「糸かけ曼荼羅」を作成することに挑戦する。 線を引くためには、始点と終点の座標が必要だ。そこで、…

「糸かけ曼荼羅」という言葉を、本日初めて知った。 www.itomandala.comExcelで再現している方をお見掛けして触発されたので、私も挑戦してみた。 実際は素数を用いて作図するらしいが、今回はその前段として、とにかく全ての点を線で結んでみた。手順として…

先日、完結編と銘打って、蟹の種類と数を数えてみた。 infoment.hatenablog.com今回は、これをPythonでやってみた。 今回新たに学んだ内容は、以下のとおり。 Pythonにおける正規表現 Pythonにおける連想配列 既にVBAで実現したものをPythonに翻訳するわけだ…

先日、蟹の種類を数えてみた。 infoment.hatenablog.comするとimihitoさんから、大変貴重なアドバイスをいただいた。 また生物学上はヤドカリな蟹たちを除外したのは、特産地の皆様やファンの方々に申し訳ないことをしたと反省。以上を踏まえ、大幅改修する…

先日、素数を求めるマクロを作成した際、pythonでも書いてみた。 infoment.hatenablog.com今回は自身の学習の為、この二つを自分なりに比較してみた。 横に並べて対比できるよう、同じ意味の個所は行を同じにした。 個人的に、以下の二つで不思議な感じがす…

Excelで、こんなクイズがあったので挑戦した。タラバガニ毛ガニカニカマ毛ガニ越前蟹タラバガニ花咲蟹越前蟹カニカマ越前蟹ズワイガニアフガニスタン越前蟹アフガニスタンカニカマ カニの種類は、何種類か？ それぞれのカニはいくつあるか？ を求めてくださ…

先日、練習がてらPythonで素数判定を行ってみた。 infoment.hatenablog.com昨日、値を返す「return」を学習したので、一から作り直してみた。 先日作成したコードがこちら。 import math def prime_number(num): if num<=1: print(str(num)+"：×") elif num=…

Excelで、こんなクイズが出題された。鯖と鯵は、それぞれ何匹？ 今回は、Split関数を用いて解いてみた。 Function 何匹(全体 As String, 種類 As String) As Long 何匹 = UBound(Split(全体, 種類)) End Function 例えば「鯖鯵鯖」（←全体）という文字を、「…

昨日、素数判定は「その数の半分まで約数が存在しないことを確認すればいい？」という考えで関数を作成してみた。 infoment.hatenablog.comこれについて複数の方から、「平方根（ルート）まで確認すればＯＫ」と教えていただいた（ありがとうございます）。…

先日、Excelで素数判定する機会があった。 このテーマについて、改めて考えてみた。Wikipediaによれば、素数の定義は以下のとおり。 素数（そすう、英: prime number）とは、1 より大きい自然数で、正の約数が 1 と自分自身のみであるもののことである。 従…

１００個以上ある「フォルダーのショートカット」を、リンク先のフォルダーと 置き換えたい。そんな事案が発生した。さて、どうしたものか。 やりたいことを言葉で書いてみると、こんな感じか。 リンク先のパスを取得する。 1. を、ショートカットファイルの…

今日は、職場で受けた相談をアレンジして紹介。 いつもの「なんちゃって個人情報」で、Ａ列を「グループNo.」に変更した。 今回は無作為に、１～５でグループ分け。 このテーブルを用いて、ピボットテーブルを作成。 このたび受けた相談は、マクロでグループ…

週末に職場で、このような課題に直面した。 あるキーワードに併せて、データの入力規則：リストを変更したい。 いつもの「なんちゃって個人情報」を、今回も拝借。 例えば「茨城県」の「名前」を選択したとき、左の表から茨城県の戸塚さんと飯田さんをリスト…

昨日は、こんなものを作ってみた。 infoment.hatenablog.com作ってみて、思った。このままでは 「とにかく色が付いているセル」 のような選び方ができないぞ。さて、どうしたものか。 ということで、ＰＣの前で悩むこと５分。思いついたのがこれ。 色を指定…

昨日、こんなものを作ってみた。 infoment.hatenablog.comそれでは恒例の、何とかの一つ覚え。これをクラスモジュールで実現してみる。 下ごしらえとして、以下を考えてみた。 指定範囲の色情報を、二次元配列で持つ。特に指定が無い場合、シート内で使用す…

いつもお世話になっている ↓ こちらから丸パクリして着想を得て、 www.excel-chunchun.comこんなものを作ってみた。 Sub 文字をプルプル() Dim i As Long Selection.Orientation = 1 Selection = "計算中だよ＾＾" For i = 1 To 100 Selection.Orientation =…

先日から、マクロによるピボットテーブルの扱いを纏めている（備忘録）。 昨日は、受け取った配列を一旦新規作成したシートに貼り付けてテーブル化し、そのテーブルからピボットテーブルを作成してみた。 infoment.hatenablog.com 今日は、本シリーズの最終…

ピボットテーブル作成用に、クラスモジュールを作成してみた。 私的利用向けであるため、汎用性はさほど高くない。とりあえず備忘録として、こちらにまとめておく。 ◆ソースコード（クリックで展開）◆ Option Explicit Public Pvt As Excel.PivotTable Dim P…

先日から、マクロによるピボットテーブルの扱いを纏めている（備忘録）。 昨日は、指定した範囲を一旦テーブル化し、そのテーブルからピボットテーブルを作成するサブプロシージャの中から、指定範囲をテーブル化する箇所だけを抜き出して関数にしてみた。 i…