GBKEE

¦^´_ 4# lucky12345
¸Õ¸Õ¬Ý

1. Dim The_Time As Date
   
2. Sub count_time()
   
3.     Sheet1.[G14] = IIf(The_Time = 0, 0, Sheet1.[G14] + 1)
   
4.     If TimeValue(The_Time) > Time Then
   
5.         Application.OnTime The_Time, "count_time", , False
   
6.         Sheet1.[G14] = 0
   
7.     End If
   
8.     The_Time = Now + TimeValue("00:00:02")
   
9.     Application.OnTime The_Time, "count_time"
   
10. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# lucky12345
ªþÀɪºWorksheet_Calculate() ¬Osheet3¤u§@ªí¼Ò²Õ(Sheets("sheet2")ªº­«ºâ¨Æ¥óµ{§Ç
­n§ï©ñ¦bSheet1¤u§@ªí¼Ò²Õ(Sheets("Sheet4")ªº­«ºâ¨Æ¥óµ{§Ç

1. Private Sub Worksheet_Calculate()     
   
2.    'Sub count_time()µ{¦¡½X Sheet1.[G14] = IIf(The_Time = 0, 0, Sheet1.[G14] + 1)
   
3.     'Sheet1¬O Sheets("sheet4")¦bVBA¤¤ªºCodeName (ª«¥óªº¥N½X¦WºÙ)
   
4.     'µ{¦¡½X ¥i§ï¦¨  [Sheet4!G14] = IIf(The_Time = 0, 0, [Sheet4!G14] + 1)
   
5.    
   
6.     '[Sheet4!G14]-> [¬¡·~諸(¦p¤u§@ªí¤W)¤½¦¡,¦WºÙ,¨ç¼Æ]
   
7. 
   
8.     Application.EnableEvents = False
   
9.     With Sheet3
   
10.         If UCase(.[B1000]) = "K" Then
    
11.             .[q1000:s993] = .[q1001:s1008].Value
    
12.         End If
    
13.         'If [Sheet4!G14] <= 9 Then .[Q992:S1000] = ""
    
14.         '***************************************
    
15.         If [G14] <= 9 Then .[Q992:S1000] = ""
    
16.         '¨S¦³ . [G14]¬°³o¤u§@ªí¼Ò²Õ¤Wªº[G14]
    
17.         '¤£¬O Sheet3ªº [G14]
    
18.         '****************************************
    
19.         
    
20.         If .[P993] >= 1 Then .[R993:S993] = ""
    
21.         If .[P994] >= 1 Then .[R994:S994] = ""
    
22.         If .[P995] >= 1 Then .[R995:S995] = ""
    
23.         If .[P996] >= 1 Then .[R996:S996] = ""
    
24.         If .[P997] >= 1 Then .[R997:S997] = ""
    
25.         If .[P998] >= 1 Then .[R998:S998] = ""
    
26.         If .[P999] >= 1 Then .[R999:S999] = ""
    
27.     End With
    
28.     Application.EnableEvents = True
    
29. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 10# lucky12345
³£¦³°Ú

1. Private Sub Worksheet_Calculate()
   
2.     Application.EnableEvents = False
   
3.     If UCase([B1000]) = "K" Then
   
4.         Stop
   
5.          [q1000:s993] = [q1001:s1008].Value
   
6.     End If
   
7.     If [F1000] <= 5 Then
   
8.         Stop
   
9.         Debug.Print [F1000]
   
10.         [q993:S1000] = ""
    
11.     End If
    
12.     Application.EnableEvents = True
    
13. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 12# lucky12345
µLªk¦Û°ÊIJµo(«ç»ò¸Õ³£¤£¦æ)??
¬O¦³°õ¦æ¨ì Stop®É«á,©Ò¥H¥u¯à¥Î¤â°Ê ->¨ìÀ˵øµ{¦¡½X ->«ö°õ¦æ  ¤~·|°µ°Ê¤@¦¸
§A¥i¥H§R±¼ Stop ¤F
Stop ¬OÅý§AÆ[¹îµ{¦¡¦³°õ¦æ¨ì If UCase([B1000]) = "K" Then