| |
こんにちは。かみちゃん です。
>ケース１
>これを４〜６種類用意しランダムにオープンごとに
>表示を変えることが出来るでしょうか。
乱数を発生させて、その乱数に対応したメッセージでできるのではないでしょうか？
たとえば、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
>ケース２
>時間帯で表示を変える
>例として
>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
|
|
かみちゃん
- 06/9/23(土) 0:04 -
