|
▼まーくん さん:
こんにちは、パンです。
こんなんドウでしょうか?
Sub Auto_Open()
Dim MyR As Range
Dim MG As String
Dim WSH As Object
Randomize ' 乱数発生ルーチンを初期化します。
Select Case Int(100 * Rnd + 1)
Case 1 To 10: MG = "血圧は正常ですか?"
Case 11 To 20: MG = "今日のあなたの運勢は○吉です"
Case 21 To 30: MG = "今日もお仕事頑張るぞ!"
Case 31 To 40: MG = "昨日の夕飯何食べました?"
Case 41 To 50: MG = "おとといの朝食はなに?"
Case 51 To 60: MG = "今日はいくら稼ぎましたか?"
Case 61 To 70: MG = "今日は残業無しで帰りましょう。"
Case 71 To 80: MG = "今日のあなたの運勢は○凶です。"
Case 81 To 90: MG = "貴方の名前・年齢・血液型は?"
Case 91 To 100: MG = "お元気ですか・・・?"
End Select
Set WSH = CreateObject("WScript.Shell")
WSH.Popup MG, 3, "Title", vbInformation
Set WSH = Nothing
End Sub
>▼かみちゃん さん:
>>>上記サイトにて新規bookで実行するとOKなのですが
>>>プロテクトのかかっているのがわるいのか動作しません。
>>>[#42876]のデータに組み込みたいと考えています。
>>
>>なさりたいことがわからなくなりました。
>>当初の質問と、提示されたコードの関係、そして私がご紹介したコードがどのよう
>>にして動作しないのかがさっぱりわかりません。
>
>かみちゃんさん紹介のサイトからコード(新規bookにて)作成すれば
>動作しました但し今回組み込みたいbookはプロテクトのかかったbook
>これが原因かどうかわかりませんが表示後数秒後閉じないのです。
>初めMsgBoxで考えたのですがMsgBoxだとenterかOkを押さないと
>表示を閉じれないと言うことでkeinさんの提案で
>WSHのPopUpメソッドを使ったほうがよいでしょうとの提案があり
>コードを組み込みました。
>
>そこで問題が生じたのが時間になると表示はするのですが
>一定時間経過しても閉じてくれないのです。(たまにexcel起動直後だと)
>閉じることもあるのですが動作が不安定なので確実にするには
>ユーザーフォームを表示させるやり方もありかなと考えたわけです。
>以上今までの経緯です。
>かみちゃん説明解りますか。?よろしくお願いします。
|
|