luhpro

¦^´_ 1# spermbank
³oºØ±¡§Î³Ì±`¨£ªº³B²z¤è¦¡´N¬O¥[¤W¿ù»~³B²z.

¦]¬°ªþÀɦb§Úªº Excel 2003 °õ¦æ®É·|¤@ª½¦³¿ù»~,
©Ò¥H§Ú¦Û¤v¥t¥~°µ¤F¤@­ÓÀÉ®×,
§A¥i¥H°Ñ·ÓµÛ­×§ï§Aªºµ{¦¡.

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.   Dim i%, j&
   
3.   Dim bErr As Boolean
   
4.   
   
5.   On Error GoTo errGet
   
6.   
   
7.   bErr = False
   
8.   For i = 1 To 6
   
9.     j = j + i
   
10.     If i = 3 Then Err.Raise 1004 ' ¦¹¦æ¼ÒÀÀºô­¶Åª¨ú¥¢±Ñ,µo¥Í 1004 ¿ù»~
    
11.     If Not bErr Then
    
12.       MsgBox "°õ¦æŪ¨úºô­¶ªº°Ê§@, i = 3 ®É·|¼ÒÀÀµo¥Í¿ù»~, ¥Ø«e i =" & i
    
13.     Else
    
14.       MsgBox "ºô­¶Åª¨ú¥¢±Ñ«áªº³B²z,¨Ò : ­«Åª, µ¥´X¬í..., i = 3 ®É·|¼ÒÀÀµo¥Í¿ù»~, ¥Ø«e i =" & i
    
15.       bErr = False
    
16.     End If
    
17.   Next
    
18.   
    
19. On Error GoTo 0
    
20. Exit Sub
    
21.   
    
22. errGet:
    
23.   If Err.Number = 1004 Then bErr = True
    
24.   Resume Next
    
25. End Sub

½Æ»s¥N½X

Desktop-a.zip (7.26 KB)

¤U¸ü¦¸¼Æ: 9

2013-11-16 09:30

luhpro

¦^´_ 3# spermbank
¥H¤Uµ{¦¡©ñ¦b Module ¤º :

1. Public bStop As Boolean

½Æ»s¥N½X

Sub ¤U¸ü°ò¥»¸ê®Æ()
  .
  .
  .
    §ó·s¸ê®Æ a '°õ¦æ12Àɮקó·s
   If bStop Then Exit For
  .
  .
  .
End Sub


Sub §ó·s¸ê®Æ(a)
  Dim Sh As Worksheet, MyURL$, MyQy As QueryTable
  Dim iI%, lJ&, OpenForms  
  .
  .
  .
  On Error GoTo errGet
              .Refresh '§ó·s
  On Error GoTo 0
            End With
        End If
        End With
    Next
    End With
    fs = Dir()
    Loop
    End With
  Exit Sub
   
: errGet
  If Err.Number = 1004 Then
    For lJ = 1 To 5000 ' Ū¨úºô­¶¥¢±Ñ®É, µ¥¤@¬q®É¶¡¦A­«Åª¤@¦¸, ­Y³sÄò5¦¸¥¢±Ñ,«h¤¤¤îŪ¨ú.
      If lJ Mod 1000 = 0 Then OpenForms = DoEvents ' ¨C¹j¤@¬q®É¶¡±N±±¨îÅvÁÙµ¹Windows³B²z¨ä¥Lµ{¦¡ªº§@·~.
    Next
    iI = iI + 1
    If iI > 10 Then
      bStop = True
      MsgBox "Ū¨úºô­¶¥¢±Ñ, µ{¦¡²×¤î..."
      Exit Sub
    End If
    Resume
  Else
    Resume Next
  End If
End Sub