| |
▼まーくん さん：
こんにちは、パンです。
こんなんドウでしょうか？
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で実行するとＯＫなのですが
>>>プロテクトのかかっているのがわるいのか動作しません。
>>>[#42876]のデータに組み込みたいと考えています。
>>
>>なさりたいことがわからなくなりました。
>>当初の質問と、提示されたコードの関係、そして私がご紹介したコードがどのよう
>>にして動作しないのかがさっぱりわかりません。
>
>かみちゃんさん紹介のサイトからコード（新規bookにて）作成すれば
>動作しました但し今回組み込みたいbookはプロテクトのかかったbook
>これが原因かどうかわかりませんが表示後数秒後閉じないのです。
>初めMsgBoxで考えたのですがMsgBoxだとenterかOkを押さないと
>表示を閉じれないと言うことでkeinさんの提案で
>WSHのPopUpメソッドを使ったほうがよいでしょうとの提案があり
>コードを組み込みました。
>
>そこで問題が生じたのが時間になると表示はするのですが
>一定時間経過しても閉じてくれないのです。（たまにexcel起動直後だと）
>閉じることもあるのですが動作が不安定なので確実にするには
>ユーザーフォームを表示させるやり方もありかなと考えたわけです。
>以上今までの経緯です。
>かみちゃん説明解りますか。？よろしくお願いします。
|
|
パン
- 06/9/29(金) 8:56 -
