VBA 「らんだむこばと」で遊びましょう♪

 これ書いてるの、7 月 29 日のお昼前です。
 台風も過ぎ去って良い天気が戻ってきましたね~。
 そんなわけで、日曜日の特別企画をお届けしますよ~。
 

らんだむこばと

 今日は RondomKobato という、スペシャルなマクロを作ってきましたよ~。
 まずは何も訊かずに下のプロシージャをコピーして動かしてみてくださいな~。
 きっとびっくりするのね~。インド人もびっくりね~(意味不明)。

 'らんだむこばと

 Sub RandomKobato()

  Dim rd1 As Long
  Dim rd2 As Long
  Dim mystr As String

  mystr = "こばと"

  '乱数を初期化します
  Randomize

  Do While i < 11

   '現在時刻から 1 秒後まで処理を停止
   Application.Wait [Now() + "00:00:1"]

   i = i + 1

   '1 ~ 5 の乱数を 2 つ用意します
   rd1 = Int(5 * RND + 1)
   rd2 = Int(5 * RND + 1)

   '無作為に選んだセルに文字を入力します
   Cells(rd1, rd2).Value = mystr

  Loop

 End Sub

 実行すると、1 秒ごとに、あっちこっちのセルに「こばと」が入力されますよ~。

 VBAプロシージャ ランダムこばと

 「こばと」「こばと」「こばと」......
 とってもスペシャルね~。楽しいのね~。
 え? 暇なのかって?
 全然暇じゃないよ。日曜だってのに、溜まった原稿がいっぱいあるんだ。
 少しでも書き進めないと明日マリちゃんに怒られる。

 だったら VBA で遊んでないで、さっさと仕事したほうがいいって? わかってますよ。わかってるけど、なんかつい、こういうことしちゃうっていうかさ~。あのさ、こばとの仕事場って、この屋根裏部屋のすぐ下じゃん? 池袋に移転してきた時は
「自宅兼職場って、通勤しなくてすむから楽ですね~」
て思ってたんだけど、最近、どうもこう仕事場がすぐ下にあると思うと、休日に気持ちが切り替えられないっていうかさ、休まらないっていうか、そんな感じ?

 あ、そうそう、池袋に来る前は横浜に会社があったんだけど~(雑居ビルの2階でした)。そのときは職場と自宅は別々だった電車で通勤してたのね~。
 え? なぜ飛んで通勤しなかったのかって?
 だって、けっこう遠かったし。
 羽根を使うと背中の筋肉疲れるじゃん?
 飛んだことない人に言ってもわからないかもしれないけどさ~。

 あ、あれ? みんな、どうしてよそのサイトに行っちゃうんですか~?
 もっとこばとの愚痴を聞いてくださいな~。

 ≫ VBA 辞典メニューに戻って他の愚痴も ...... じゃなくて記事も読んでね

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

コメントをどうぞ

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

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

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