乱数割当マクロの概念を説明します

 これまでこつこつ作った「いつどこソフト」にさらなる改良を加えるために、マクロを1から書き起こしていきます。「そんなん、私には無理ー」という人も大丈夫! 言葉の妖精が言うんだから大丈夫! It's the Daijoubu Thinking!(それが大丈夫シンキングなのです!) え? 何でそんなにテンション高いのかって? あまりに忙しすぎると、人間も妖精もテンションあがってしまうもんなんですよー!

 前々回にお話したように、1つのマクロは部品として親マクロに呼べますから、基本的にはまったく独立したマクロを作ることになります。今回から「乱数割当」というプログラムを制作していきます。ごくごく短いプログラムですから、入門編にはぴったりです。しかし短いながらも重要なステートメントがぎっしりと含まれています。今回も1つ1つのプロパティやメソッドを丁寧に解説しますので、作りながら VBA の基本的な技術を習得してください。皆さんのお仕事の現場でも頻出するステートメントがたくさんあるはずです。
 

乱数を全部消しておきます

 それではさっそく、「いつどこゲーム」のマクロが入ったエクセルファイルを開いてくださいな。少し面倒なのですが、そこに入力されている乱数を全部消してしまってください。 pts(文章断片)の左横を開けておきます。

 ここに、これから作るマクロで必要なときに乱数を入れるのです。なぜこんな面倒なことをするのかというと、「いつどこソフト」が場合によっては、数十万ものデータを同時に扱う可能性があるからです。新しくデータを入力するときに、全ての pts に乱数がくっついていると非常に煩わしいですし、目がちかちかするし、実際問題としてエクセルの動作も重たくなってしまいます。そんな鬱陶しい乱数なんて、ソフトを起動したときだけぱぱっと割り振って、並べ替えたら、またささっと消してしまえばいいんです。
 

考え方を説明します

 今回の記事は、どのような形でセルを選択して乱数を振っていくのか大まかな概念を説明します。「いつ」シートを開いてみてください。 C2 から C6 にデータが入っていますね。そこでまず、C 列の中から空白でないセルを探します。

VBA空白以外のセル

 そしてその「空白ではない 5 つのセル」の左隣、つまり B2 から B6 までのセルを指定して乱数を割り当てていきます。

 これを他のシートでも同様に繰り返してマクロを終了します。それだけです。短くて簡単なマクロなので、出来上がったときには「あれ? なーんだ、こんなもんなんだ」と思うはずです。でも VBA の基本的なオブジェクトやメソッドが含まれているので、1つ1つのステートメントの意味をじっくり考えるようにしてください。次回は変数宣言について説明します。
 

おまけいつどこ

 風邪も治ったし、元気よーく「いつどこ」しようっと♪
(  )は KOBATO のコメントですよー。
 

浦島太郎さんが刺激を求めて ......

・日が沈んだ頃に、六本木でサレカさんが激しく頭を縦に振った。そのあとにぱっと立ち上がった。(そんなに頭を振って ...... ちょっとあぶない人ですかね?)

・ちょっとの間に、窓辺で浦島太郎が「くだらない」と言った。その後、激辛カレーを食べて汗をかいていた。(刺激を求めていたんですねー)

・ゴールデンウィークにスカイツリーの展望台で化粧の濃い女がネクタイを外した。その後、接待に務めた。

・衆議院選挙の最中に、長崎で歌手が箪笥を整理した。そしてストッキングを伝線させた。

・起き抜けに、NASA でこばとの知り合いが卵を割った。そして妖精の卵を抱えた。
 

あまり重いと踊れないのかな?

・ 2000 年に、貯蔵所でコンビニ店長がケーキを平らげた。その後、叶わぬ恋に憂き身をやつしていた。(とりあえず減量したらどうですかね?)

・猛暑の日に坑道で貧乏な女が原因を推測した。そのあと「私ってすごいやろ」と言った。

・西暦 1 万年に、大阪城でちびまるこちゃんが体重を測った。そして創作ダンスを披露した。

・世紀末に衆人が見つめる中で、思慮深い人がマンモス狩りをした。その後、鏡を眺めて悦に入っていた。

・ 10 日前、火星で性悪な女が勉学に励んでいた。そして身長を測った。
 

姉さん、居眠り飛行は危ないですよ

・こばとが生まれた時に、ストックホルムでかばねちゃんが欠伸をした。それからふらふら飛んでいた。

・戴冠式の日に、山道で少年が泳ぎの練習をした。そのあと「平気、平気」と軽口を叩いた。

・2日酔いの朝に、サントメで焼き芋屋が旧友に偶然会った。そのあと父親に反抗した。

・下校中にマスカットで暴君が足をバタバタさせた。そのあとりんご飴を舐めていた。(暴君は我儘でいやですねー)

・ 2 月にマンモスの足元で、下駄を履いた男がコピーを取った。そのあと「私は悪くない」と言った。(悪くはないけどね、危ないですよ?)
 

リニア乗車祝いです

・ 1 月 1 日、地下室で融通の利かない人が宴を設けた。そして超伝導リニアに乗った。

・ 1 月に、ベッドの上で怖い人が「微分積分いい気分」と言った。それからネクタイを外した。(駄洒落を言って大満足ですかー?)

・戦国時代に博多で不良少女が「いいですか? 人という字は・・・・・・」と説教を始めた。そのあとわくわくしていた。(不良でも1度は先生の気分が味わいたかったんですねー)

・水曜日に、ユーフラテス川で猫嫌いのおばさんが晩酌をした。それからスマホゲームに熱中していた。

・地球が滅亡する間際に、地球の中心でこばとの姉のかばねちゃんが逃げ回っていた。それから焼き肉を食べた。(姉さん、ついに観念したんですね。最後の晩餐は焼き肉ですかー。こばとは何だろうなー。お寿司、カツカレー、すき焼き ...... 考えると眠れなくなりそうですよ)

スポンサードリンク
末尾大型広告
末尾大型広告

コメントをどうぞ

メールアドレスが公開されることはありません。

日本語が含まれない投稿は無視されますのでご注意ください。(スパム対策)

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください