GBKEE

¦^´_ 3# myleoyes

1. Sub MsgBox_Wait()
   
2. Dim WshShell, BtnCode
   
3. Set WshShell = CreateObject("WScript.Shell")
   
4. BtnCode = WshShell.popup("µ¥«Ý2¬í¤£«ö§Ú´N¦Û°ÊÃö³¬?", 2, "´ú¸Õ:", 4 + 16)
   
5. Select Case BtnCode
   
6.    Case 6
   
7.    BtnCode = "§A«ö¤F""¬O""." 'MsgBox "§A«ö¤F""¬O""."
   
8.    Case 7
   
9.    BtnCode = "§A«ö¤F""§_""." 'MsgBox "§A«ö¤F""§_""."
   
10.    Case -1
    
11.    BtnCode = "¨S¦³«ö¥ô¦óÁä"
    
12. End Select
    
13. BtnCode = WshShell.popup(BtnCode, 2, "´ú¸Õ§¹²¦", 1)
    
14. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# myleoyes

1. Option Explicit
   
2. Sub Msg()
   
3.     Dim WshShell As Object, BtnCode As String, A As String, B As String, i As Integer, ii As Integer
   
4.     'Åܼƪº³]©w³Ì¦n¸m©óµ{¦¡½Xªº«eºÝ¥H«Kµ{¦¡ªº°»¿ù
   
5.     Set WshShell = CreateObject("WScript.Shell")
   
6.     A = Sheet2.[D1].FormulaR1C1
   
7.     B = Sheet2.[E1].FormulaR1C1  '=-33+20+5+543+22-60+300-99-96-33+20+5
   
8.     For i = 3 To Len(A) '¤½¦¡ªº¶}ÀY·|¬O =- ©Ò¥H i ±q 3 ¶}©l
   
9.         If Not Mid(A, i, 1) Like "[0-9]" Then ii = ii + 1 '¤£¬O¼Æ¦r¥[ 1
   
10.         If ii = 2 Then A = Mid(A, 2, i - 2): Exit For
    
11.     Next
    
12.     ii = 0 'Âk¹s
    
13.     For i = 3 To Len(B)
    
14.         If Not Mid(B, i, 1) Like "[0-9]" Then ii = ii + 1
    
15.         If ii = 2 Then B = Mid(B, 2, i - 2): Exit For
    
16.     Next
    
17.     BtnCode = " ¦¹¦¸§@¦h·l¯q" & A & Chr(10) & " ¦¹¦¸§@ªÅ·l¯q" & B
    
18.     BtnCode = WshShell.popup(BtnCode, 2, "·l¯q¹ï±b°T®§¡I¡I", 0)
    
19. End Sub

½Æ»s¥N½X