Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


39028 / 76736 ←次へ | 前へ→

【42829】Re:MsgBoxをランダムに表示できるかな
発言  まーくん  - 06/9/23(土) 0:02 -

引用なし
パスワード
   ▼ichinose さん:

>Sub test1()
>  Dim mesarray As Variant
>  mesarray = Array("aaa", "bbb", "ccc", "ddd", "eee", "fff")
>'メッセージを配列にしておく
>  Randomize Timer()
>  MsgBox mesarray(Int(Rnd() * (UBound(mesarray) + 1)))
>  '乱数を使用して0〜5を無作為に取得する
>End Sub
>
>>ケース2
>>時間帯で表示を変える
>>例として
>>8:00〜9:59まで"おはようございます"
>>10:00〜16:59"こんにちわ"
>>17:00〜19:59"そろそろかえれ"
>>20:00〜7:59"○○○○○"
>Sub test2()
>  Dim tmarray As Variant
>  Dim mesarray As Variant
>  Dim ans As Variant
>  tmarray = Array(420, 600, 1020, 1200)
>  mesarray = Array("おはようございます", "こんにちは", "そろそろかえれ", "○○○○○○")
>  ans = Application.Match(Time() * 24 * 60, tmarray, 1)
>  If IsError(ans) Then ans = 4
>  MsgBox mesarray(ans - 1)
>End Sub
>
>
>試してください
ichinoseさんありがとうございます。
バッチリです
時間変更の場合を聞きたいのですが(420, 600, 1020, 1200)は
どういう意味ですかまた、Arrayの意味も?ヘルプだとHasArray、FormulaArray
CurrentArray、IsArrayただArrayというのは出てきませんが?

'乱数を使用して0〜5を無作為に取得する
数を変えることは可能ですかたとえば0〜20とか?
よろしくお願いします。

0 hits

【42826】MsgBoxをランダムに表示できるかな まーくん 06/9/22(金) 22:38 質問
【42828】Re:MsgBoxをランダムに表示できるかな ichinose 06/9/22(金) 23:37 発言
【42829】Re:MsgBoxをランダムに表示できるかな まーくん 06/9/23(土) 0:02 発言
【42841】Re:MsgBoxをランダムに表示できるかな かみちゃん 06/9/23(土) 9:37 発言
【42830】Re:MsgBoxをランダムに表示できるかな かみちゃん 06/9/23(土) 0:04 回答
【42831】Re:MsgBoxをランダムに表示できるかな まーくん 06/9/23(土) 0:19 発言
【42832】Re:MsgBoxをランダムに表示できるかな かみちゃん 06/9/23(土) 0:25 発言
【42834】Re:MsgBoxをランダムに表示できるかな まーくん 06/9/23(土) 1:01 発言
【42835】Re:MsgBoxをランダムに表示できるかな Blue 06/9/23(土) 1:12 回答
【42836】Re:MsgBoxをランダムに表示できるかな まーくん 06/9/23(土) 1:23 発言
【42871】Re:MsgBoxをランダムに表示できるかな まーくん 06/9/24(日) 1:31 お礼

39028 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free