[求助]如何让msgbox自动消失

safying

如题，求教高人：
如何让msgbox在它出现后1秒自动消失。（自动点确定键？）
谢谢

TGB

我只能让它自动不出现.

safying

调试过程很多msgbox，一个一个点太麻烦，可是又想知道msgbox里的内容。

求高人路过留下玉言

冰山上的来客

Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, _
    ByVal nIDEvent As Long, ByVal uElaspe As Long, _
    ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, _
    ByVal nIDEvent As Long) As Long
Dim TID As Long
Const Sec = "1"
Sub myMsgbox(myPrompt As String, Elapse As Integer, myTitle As String, Buttons As Integer)
CreateObject("Wscript.Shell").popup myPrompt, Elapse, myTitle, Buttons
End Sub
Sub testB()
    Dim msg As Integer
    TID = SetTimer(0, 0, Sec * 1000, AddressOf CloseTest)
    msg = MsgBox(Sec & "  Second Auto Closed")
    If msg = 1 Then KillTimer 0, TID
End Sub
Sub CloseTest(ByVal hWnd As Long, ByVal uMsg As Long, _
    ByVal idevent As Long, ByVal Systime As Long)
    Application.SendKeys "~", True
    KillTimer 0, TID
End Sub
不知道是哪位大虾、高人的代码了。[em08]

菱角

有關MsgBox, 請訪問 [MsgBox 二三事]

safying

谢谢 冰山上的来客
好像比较麻烦 copy下来 慢慢研究

daley

这是山版主提供的代码,请参考:

http://club.excelhome.net/viewthread.php?tid=219419&replyID=&skin=0

Public nTime As Date
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Set Target = Target.Cells(1)
    If Target.Row = 1 Then Shapes("xinxi").Visible = False: Exit Sub
    Dim cTxt As String, nRow As Integer
    Dim Temp As String
    cTxt = ""
    nRow = Target.Row
    For i = 1 To 10
        Temp = Cells(nRow, i)
        Temp = IIf(Left(Temp, 1) = ".", "0", "") & Temp
        cTxt = cTxt & Chr(13) & " " & Temp
    Next
    Label2.Caption = cTxt '更新信息窗口中的文字
   
    With Shapes("xinxi")
   
        '动态改变控件的垂直位置
        If Target.Offset(1, 0).Top - Cells(ActiveWindow.ScrollRow, 1).Top + 130 > ActiveWindow.UsableHeight Then
            .Top = Cells(ActiveWindow.ScrollRow, 1).Top + ActiveWindow.UsableHeight - 130
        Else
            .Top = Target.Offset(1, 0).Top
        End If
       
        '动态改变控件的水平位置
        If Target.Offset(0, 1).Left - Cells(1, ActiveWindow.ScrollColumn).Left + 270 > ActiveWindow.Width Then
            .Left = Target.Left - 270
        Else
            .Left = Target.Offset(0, 1).Left
        End If

    End With
   
    nTime = Timer
    Shapes("xinxi").Visible = True '显示信息窗口
    Call XinxiVisible
End Sub

Sub XinxiVisible()
    Do While Timer - nTime < 10 '显示10秒
        DoEvents
    Loop
    Shapes("xinxi").Visible = False '隐藏信息窗口
End Sub

向您问好

凑个热闹，让程序等待休息5秒钟：

Application.Wait Now + TimeValue("00:00:05")

爱歌学习

那干嘛不用

 Debug.Print 变量

在监视窗口查看，即是程序结束了也仍然看得到～

safying

msgbox是留给用户看的，不能省略。。。。


能否让VBA模拟键盘，输入一个回车键信号关闭msgbox？