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