Excel-VBA 自動で閉じるメッセージFunctionに

Functionにして、他から呼び出す時

Function Wmsg(wtxt As String, Tm As Integer, wtit As String)

'他の モジュールから内で、Call Wmsg("2秒で閉じます。", 2, "タイトル")などで使う。

Dim WSH As Object
Dim askn
Set WSH = CreateObject("WScript.Shell")
If Tm = Empty Then Tm = 3
If wtxt = "" Then wtxt = "ボタンをクリックしない場合、" & vbCrLf & "3秒後、自動的に閉じます" & vbCrLf & "確認してください。"
If wtit = "" Then wtit = "Auto Close MSG-wsh"

askn = WSH.Popup(wtxt, Tm, "", vbInformation + vbYesNo)
'戻り値は自動で閉じた場合、 -1, YES(はい)=6, NO(いいえ)=7

Set WSH = Nothing
End Function

戻り値は→

ブログ気持玉

クリックして気持ちを伝えよう!

ログインしてクリックすれば、自分のブログへのリンクが付きます。

→ログインへ

なるほど(納得、参考になった、ヘー)
驚いた
面白い
ナイス
ガッツ(がんばれ!)
かわいい

気持玉数 : 0

この記事へのコメント

この記事へのトラックバック