こんなことしたい人はあまりいないかな？

マクロを実行するのにボタンをワークシートに用意したりメニューから呼び出せるようにすることが多いと思うけど、ダブルクリックしたセルの内容で呼び出すプロシージャを決めたい。


たとえばこんな事できます。


操作２と入力されているセルをダブルクリックすると操作２が実行される。ここではメッセージボックスを表示するだけですが、それを別の作業に書き換えればそのように実行されます。



仕組みは簡単で、ダブルクリックしたセルの内容によってSelect Caseで分岐しているだけ。

シートモジュール（上の「操作１」などを入力したワークシート）に

ネタがなく、思いつきの記事で面白いものでないし深く説明するのも面倒なのでコードを紹介するだけです。


このコードを実行してみてください。

前回パチンコをシミュレーションするような記事を紹介しましたが、大した行数でないのに２つのプロシージャを用意してメインのプロシージャから別のプロシージャを呼び出すようにしました。

あれしきの処理を２つのプロシージャに分けることに賛否・好き嫌いがあると思いますが、プロシージャからプロシージャを呼び出すのはいつか必要になると思うので簡単に説明しておきます。

Sub Proc1()
  Call Proc2
End Sub

Sub Proc2()
  何らかの処理
End Sub

Proc1からProc2を呼び出す場合はこのようにCallステートメントを使います。実際はCallを使わず「Proc2」とだけしても呼び出すことはできますが、プロシージャ名だけだと何だコレ？となることがある（耄碌のせい？）のでわたしはほぼ、Callステートメントを使います。

ただし、Functionプロシージャを呼び出す場合は戻り値を受取る変数などとセットで使う事が多いのでCallは使いません。

新型コロナの自粛でパチンコ屋が休業要請に応じないとか、県外にまで遠征して通う人がいるとかやってましたが、わたしも「依存症か」というくらいハマったことがありました。２０年以上前の話ですけどね。

で、「どうしてもやりたいけど店がやっていないのでできない！」（私の地元は１００％休業）という人はVBAで大当たりを感じてみては？とコードを書いてみた。


以下は「パチンコってたしかこんな感じで大当たりが発生する」という、昔読んだパチンコ雑誌の記憶を元にしていて正確なゲーム内容ではありませんので悪しからず。

学校もう始まる？まだ行けない人もいるんだろうけど、VBA勉強している人いる？

そんな学生さんはあまりいないかもしれないが、ゲームとかはハードルが高いので（私にとって）小学生でも興味を持ってくれそうな座席表づくりをやってみた。

いきなり始まるのでVBAやったことない人はチンプンカンプンと思うけど、このブログの「VBA　はじめてみる？」を参考にしてください。試してみるだけなら普通のワークブックで大丈夫だけど保存したい場合はマクロ有効ブックに保存してくださいね（それも「VBA はじめてみる？」を参照）。



簡単にするためシンプルな座席表です。まずワークシートに９名の名前を入力してください。コードが「G列１行目から」を想定しているので図のように入力してください。

せっかくなので憧れの有名人が同級生の設定です。


コードは以下のようになります（座席表を作るワークシートモジュールに記述しています）。





座席表作りというか、名前のリストからランダムに出力しただけですけどね、自分の気持ちいい座席になるまで何度でも試行できます・・・（架空の座席表が楽しいかはともかく）

３密を避けるために？席を一列、一段おきに設定しています（Forステートメントの Step 2）。リストからランダムに名前を取得する部分はFunctionプロシージャ名前()を用意してそこから取得するようにしています。

名前()ではコメントで説明していますが、リストをコピーしたデータからランダムに名前を取得し、一旦取得した名前は消去して次は選択されないようにしています。

どうなっているか分かりづらい場合はステップ実行（これも「VBAはじめて・・・」参照）してコピーしたデータがどうなるか確認してください。

なお９名の設定なのでForステートメントの数値や名前リストの位置が固定されていますし、その他も思いつきで書いたため加工しづらいコードになっているかな。

名前データコピーのあとCurrentRegionを使っていて、貼り付け先でほかのデータと接触していたら正しいデータ数を取得できない場合があるので注意してください。

座席表づくり()の２箇所でApplicastioon.ScreenUpdating〜がコメントアウトされていますがコメントを外して実行する（F5キー等で）とどう変わるか、確認してください。

初心者の方でも、と思って記事にしたけどちょっとヘビーだったかな？ま、そもそもこの記事が読まれる可能性が低いのだけど。

説明不足でわかりづらいかもしれませんが、休校でヒマ、VBAやってみたい人はどんなもんかやってみてください。

数年前、会計が使う帳簿ファイルをマクロ入りで作った。小さな団体の会計なので複雑な処理などないがパソコン不慣れな人も使うし、少しでもラクできるようにと。

で、数人の会計係を経てこんど自分が会計をすることになり久々に戻ってきた（引き継いだ）ファイルを見たら、マクロは思ったほど使われていないことがわかった。

一応説明として、どうしたらどんなことができるのかメモとしてテキストファイルやエクセルのシートに書き込んでおいたがそれをそもそも読んでいない可能性があり、自分流に手を加えて使っていた模様。

ま、しょうがないな。もっと使いやすい、わかりやすいマクロを、と考えても同じかもしれないし余計なことはしないでおこう。

VBAでいろんなことができるけど、それをだれでも使いやすく、わかりやすいものにするのが一番難しいかもしれない（私の作り方がマズイ可能性ももちろんあるけど）。

最近の記事で図らずも「オーバーフロー」というのが出てきました。

オーバーフローが起きるとプログラムは止まってしまうのですが、そもそもオーバーフローって何？

やはり私のブログはVBAの記事が圧倒的に読まれている（他のが読まれない）のでたまに書いておく。
家にこもって勉強している人いる？


初心者向けです。以下のコードの実行法もわからない方は「VBA はじめてみる？」を参照してください。