Excel VBA質問箱 IV

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

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


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

39025 / 76732

←次へ　｜　前へ→


	【42828】Re:MsgBoxをランダムに表示できるかな

ichinose - 06/9/22(金) 23:37 -


	引用なし

	パスワード

▼まーくんさん：
こんばんは。

>皆さんよろしくお願いします。
>ブックオープン時に下記メッセージが出るのですが
>ケース１
>これを４～６種類用意しランダムにオープンごとに
>表示を変えることが出来るでしょうか。
>
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

試してください

0 hits

▼

【42826】MsgBoxをランダムに表示できるかな まーくん 06/9/22(金) 22:38