Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

39024 / 76732

←次へ　｜　前へ→


	【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
>
>>ケース２
>>時間帯で表示を変える
>>例として
>>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