ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

­p¼Æ¾¹ªº°ÝÃD

­p¼Æ¾¹ªº°ÝÃD

Sub count_time()
Sheet1.[G14] = Sheet1.[G14] + 1
Application.OnTime Now + TimeValue("00:00:02"), "count_time"
End Sub
¥H¤Wµ{¦¡   ¬O¤@­Ó­p¼Æ¾¹  ·í§Ú«ö¤U"«ö¶s 1"
G14´N¶}©l­p¼Æ  ¤@¤ÁOK
¦p¤µ§Ú¦³­Ó ·sªº»Ý¨D   ´N¬O·í§Ú«ö¤U"«ö¶s 1" ®É G14¯à°÷¦Û°Ê
Âk¹s   µM«á­« 1 ¶}©l­p¼Æ  ½Ð¦U¦ì¤j¤j «üÂI  ÁÂÁÂ
¥Ø«e¤p¾Ç¥Í´Á«Ý¥L¤é¶i°ê¤¤

Private Sub CommandButton1_Click()

Sheet1.[G14] = = 0
end  sub

TOP

¥»©«³Ì«á¥Ñ lucky12345 ©ó 2014-10-27 04:42 ½s¿è

Á Á¤j¤j  .  ©çÁ ÁÙ¬O¤£·|£z   ¶Ç¤WÀÉ®×  ½ÐÀ°¦£¾ßµø  ÁÂÁÂ
ÁÙ¦³ÀɨâÀÉ®×  ¨ä¹ê¬O¦P¤@­Ó

­p¼Æ¾¹.rar (6.48 KB)

­p¼Æ¾¹

­p¼Æ¾¹.rar (6.48 KB)

¥Ø«e¤p¾Ç¥Í´Á«Ý¥L¤é¶i°ê¤¤

TOP

¥»©«³Ì«á¥Ñ lucky12345 ©ó 2014-10-27 06:25 ½s¿è

¤@®É²¨©¿  «Ü©êºp!  µ{¦¡½X¦b  sheet4

­p¼Æ¾¹.rar (5.29 KB)

­p¼Æ¾¹

¥Ø«e¤p¾Ç¥Í´Á«Ý¥L¤é¶i°ê¤¤

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ lucky12345 ©ó 2014-10-27 21:44 ½s¿è

§Úªºµo°]¹Ú        §Ú¤S¥¢±Ñ¤F.............................¤@¦A³Â·Ð¤j®a«D±`·PÁÂ

­p¼Æ¾¹-1.rar (120.11 KB)

¥Ø«e¤p¾Ç¥Í´Á«Ý¥L¤é¶i°ê¤¤

TOP

¦Ü©ó»sµ{¦¡½X  ¬O§ÚªF§ì¦è§ì¼¼¦¨ªº    XD
¥Ø«e¤p¾Ç¥Í´Á«Ý¥L¤é¶i°ê¤¤

TOP

¦^´_ 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.     Application.EnableEvents = False
  8.     With Sheet3
  9.         If UCase(.[B1000]) = "K" Then
  10.             .[q1000:s993] = .[q1001:s1008].Value
  11.         End If
  12.         'If [Sheet4!G14] <= 9 Then .[Q992:S1000] = ""
  13.         '***************************************
  14.         If [G14] <= 9 Then .[Q992:S1000] = ""
  15.         '¨S¦³ . [G14]¬°³o¤u§@ªí¼Ò²Õ¤Wªº[G14]
  16.         '¤£¬O Sheet3ªº [G14]
  17.         '****************************************
  18.         
  19.         If .[P993] >= 1 Then .[R993:S993] = ""
  20.         If .[P994] >= 1 Then .[R994:S994] = ""
  21.         If .[P995] >= 1 Then .[R995:S995] = ""
  22.         If .[P996] >= 1 Then .[R996:S996] = ""
  23.         If .[P997] >= 1 Then .[R997:S997] = ""
  24.         If .[P998] >= 1 Then .[R998:S998] = ""
  25.         If .[P999] >= 1 Then .[R999:S999] = ""
  26.     End With
  27.     Application.EnableEvents = True
  28. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 8# GBKEE
·PÁª©¤j¸Ô²Óªº»¡©ú
¥Ø«e¤p¾Ç¥Í´Á«Ý¥L¤é¶i°ê¤¤

TOP

¦^´_ 8# GBKEE
¯u®t«l  ÁÙ¬O¨S§ËÀ´  ·Ð½ÐG¤jÀ°§Ú¾ßµø¤@¤U  ¦hÁ¤F

­p¼Æ¾¹123.rar (9.36 KB)

­p¼Æ¾¹123

¥Ø«e¤p¾Ç¥Í´Á«Ý¥L¤é¶i°ê¤¤

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD