|
こんにちは。かみちゃん です。
>ケース1
>これを4〜6種類用意しランダムにオープンごとに
>表示を変えることが出来るでしょうか。
乱数を発生させて、その乱数に対応したメッセージでできるのではないでしょうか?
たとえば、1〜100の整数をランダムに表示させるには、以下のような感じでできます。
Sub Macro1()
Dim lowerbound As Integer
Dim upperbound As Integer
lowerbound = 1
upperbound = 100
MsgBox Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
End Sub
>ケース2
>時間帯で表示を変える
>例として
>8:00〜9:59まで"おはようございます"
>10:00〜16:59"こんにちわ"
>17:00〜19:59"そろそろかえれ"
>20:00〜7:59"○○○○○"
以下のような感じでできると思います。
パソコンのシステム時刻をいろいろ変えて試してみてください。
Select Case Hour(Time)
Case 8 To 9
MsgBox "おはようございます"
Case 10 To 16
MsgBox "こんにちわ"
Case 17 To 19
MsgBox "そろそろかえれ"
Case 0 To 7, 20 To 23
MsgBox "○○○○○"
End Select
|
|