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

½Ð±Ð¥X²{¡u°õ¦æ¶¥¬q¿ù»~13:«¬ºA¤£²Å¦X¡v¡I

½Ð±Ð¥X²{¡u°õ¦æ¶¥¬q¿ù»~13:«¬ºA¤£²Å¦X¡v¡I

¥»©«³Ì«á¥Ñ barrykuo ©ó 2014-7-4 10:35 ½s¿è

·Q§Q¥ÎDDEIJµo¨Ó°õ¦æ¯S©w¾ãÂI®É¶¡«e«á¤­¬íªº¨Cµ§°O¿ý
¦p¬õ¦â©Ò±Ô­z¡C
Private Sub Worksheet_Calculate()
On Error Resume Next
        C = Sheets("§Y®É«ü¼Æ").Cells(3, 7)
        If o = 0 Then o = C°õ¦æ
        If C > h Then h = C
        If C < l Then l = C
Application.Run "´Á³f­pºâA02.xls!printing_value"
Application.Run "´Á³f­pºâA02.xls!sixtyK"
End Sub
¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
Sub printing_value()
Dim printime, rtest, stest As Integer

printime = Sheets("§Y®É«ü¼Æ").Range("C3")
rtest = Sheets("ªi¬q").[r65536].End(xlUp).Row
stest = Sheets("ªi¬q").[S65536].End(xlUp).Row
If printime >= 94455 Then'¥X²{¿ù»~°T®§¡A«ö¤U°»¿ù¡A³o¸Ì¥X²{¤Ï¥Õ¡A½Ð°Ý­þ¸Ì¦³¿ù»~¡H
rtest = Sheets("§Y®É«ü¼Æ").Range("c3") '¦¨¥æ»ù®É¶¡¦ì¸m´ú¸Õ
stest = Sheets("§Y®É«ü¼Æ").Range("g3") '¦¨¥æ»ù®É¶¡¦ì¸m´ú¸Õ
    If Sheets("§Y®É«ü¼Æ").Range("C3") >= 94505 Then Exit Sub
End If
If printime >= 104455 Then
rtest = Sheets("§Y®É«ü¼Æ").Range("c3") '¦¨¥æ»ù®É¶¡¦ì¸m´ú¸Õ
stest = Sheets("§Y®É«ü¼Æ").Range("g3") '¦¨¥æ»ù®É¶¡¦ì¸m´ú¸Õ
    If Sheets("§Y®É«ü¼Æ").Range("C3") >= 104505 Then Exit Sub
End If
If printime >= 114455 Then
rtest = Sheets("§Y®É«ü¼Æ").Range("c3") '¦¨¥æ»ù®É¶¡¦ì¸m´ú¸Õ
stest = Sheets("§Y®É«ü¼Æ").Range("g3") '¦¨¥æ»ù®É¶¡¦ì¸m´ú¸Õ
    If Sheets("§Y®É«ü¼Æ").Range("C3") >= 114505 Then Exit Sub
End If
If printime >= 124455 Then
rtest = Sheets("§Y®É«ü¼Æ").Range("c3") '¦¨¥æ»ù®É¶¡¦ì¸m´ú¸Õ
stest = Sheets("§Y®É«ü¼Æ").Range("g3") '¦¨¥æ»ù®É¶¡¦ì¸m´ú¸Õ
    If Sheets("§Y®É«ü¼Æ").Range("C3") >= 124505 Then Exit Sub
End If
End Sub

ÁÂÁ¦U¦ì¤j¤j­@¤ß¬Ý¡AÁÂÁ«ü¾É¡I
¤H¥Í¥u¦³¤T¤Ñ¡A¥u¦³¬¡¦b¤µ¤Ñ³Ì½ñ¹ê

¤£¦n·N«ä¡A­ì¨Ó¦b»Ý­n°õ¦æªºµ{§Ç«e¥[¤W[On Error Resume Next]¡A´N¤£·|¥X²{¿ù»~°T®§
Sub printing_value()
On Error Resume Next
¥u¬O¤£ª¾¹D¿ù»~¬O¤°»ò?
¤H¥Í¥u¦³¤T¤Ñ¡A¥u¦³¬¡¦b¤µ¤Ñ³Ì½ñ¹ê

TOP

¦^´_ 2# barrykuo
½ÐÀˬd printime, rtest, stest ¤T­ÓÅܼƭȪºÀx¦s«¬ºA½T¹ê¬°¦ó¡H

TOP

¦^´_ 3# c_c_lai
¦^c_c_lai¤j¤j¡A©êºp§Ñ°O¶K¤W¬Q¤Ñ§ï¥¿ªº¦a¤è¡A¦p¤U:
Sub printing_value()
Dim printime, rtest, stest
printime = Sheets("§Y®É«ü¼Æ").Range("C3")
rtest = Sheets("ªi¬q").[r65536].End(xlUp).Row
stest = Sheets("ªi¬q").[S65536].End(xlUp).Row
On Error Resume Next
If printime > 94455 Then
Sheets("ªi¬q").Cells(rtest, 18) = Sheets("§Y®É«ü¼Æ").Range("c3") '¦¨¥æ»ù®É¶¡¦ì¸m´ú¸Õ
Sheets("ªi¬q").Cells(stest, 19) = Sheets("§Y®É«ü¼Æ").Range("g3") '¦¨¥æ»ù®É¶¡¦ì¸m´ú¸Õ
    If printime > 94505 Then Exit Sub
End If
If printime > 104455 Then
Sheets("ªi¬q").Cells(rtest, 18) = Sheets("§Y®É«ü¼Æ").Range("c3") '¦¨¥æ»ù®É¶¡¦ì¸m´ú¸Õ
Sheets("ªi¬q").Cells(stest, 19) = Sheets("§Y®É«ü¼Æ").Range("g3") '¦¨¥æ»ù®É¶¡¦ì¸m´ú¸Õ
    If printime > 104505 Then Exit Sub
End If
If printime > 114455 Then
Sheets("ªi¬q").Cells(rtest, 18) = Sheets("§Y®É«ü¼Æ").Range("c3") '¦¨¥æ»ù®É¶¡¦ì¸m´ú¸Õ
Sheets("ªi¬q").Cells(stest, 19) = Sheets("§Y®É«ü¼Æ").Range("g3") '¦¨¥æ»ù®É¶¡¦ì¸m´ú¸Õ
    If printime > 114505 Then Exit Sub
End If
If printime > 124455 Then
Sheets("ªi¬q").Cells(rtest, 18) = Sheets("§Y®É«ü¼Æ").Range("c3") '¦¨¥æ»ù®É¶¡¦ì¸m´ú¸Õ
Sheets("ªi¬q").Cells(stest, 19) = Sheets("§Y®É«ü¼Æ").Range("g3") '¦¨¥æ»ù®É¶¡¦ì¸m´ú¸Õ
    If printime > 124505 Then Exit Sub
End If
End Sub
================================================================
©P¤@¦A¨Ó´ú¸Õ¬Ý¡CÁÂÁ±z­@¤ß¬Ý§¹!
¤H¥Í¥u¦³¤T¤Ñ¡A¥u¦³¬¡¦b¤µ¤Ñ³Ì½ñ¹ê

TOP

¦^´_ 2# barrykuo
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim printime
  4.     Sheets(1).Range("C3") = "=aa"  '¦pªG ¨S¦³³o¤½¦¡->¿ù»~­È
  5.     printime = Sheets(1).Range("C3")
  6.     If printime >= 94455 Then '¥X²{¿ù»~°T®§¡A«ö¤U°»¿ù¡A³o¸Ì¥X²{¤Ï¥Õ¡A½Ð°Ý­þ¸Ì¦³¿ù»~¡H
  7.    
  8.     End If

  9. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# barrykuo
§Ú·Q°ÝÃD¥i¯à¥X¦b¡G
  1. printime = Sheets("§Y®É«ü¼Æ").Range("C3")
½Æ»s¥N½X
§A¥ý¬Ý¬Ý "C3" ªº¤º®e¬°¦ó¡H
Ä´¦p¡G ¨ä­È¦p¬° #VALUE! ©Î¬O #NUM! µ¥¡A
              ¦p®³¨Ó°µ¹Bºâ©Î¤ñ¸û¥ç·|¥X¿ù¡C

TOP

¦^´_ 5# GBKEE
GBKEE¤j¤j±z¦n¡A
¦pªG§â±zµ¹ªºµ{§Ç¦b«Å§i¥[¤WAs Double¡A"aa"§ï¦¨94456©Î¬O94454¡A¦A°õ¦æµ{§Ç¡A´N¨S¦³¦A¥X²{¿ù»~°T®§¡C
Sub Ex()
    Dim printime As Double
    Sheets(1).Range("C3") = "94400"  '¦pªG ¨S¦³³o¤½¦¡->¿ù»~­È
    printime = Sheets(1).Range("C3")
    If printime >= 94455 Then '¥X²{¿ù»~°T®§¡A«ö¤U°»¿ù¡A³o¸Ì¥X²{¤Ï¥Õ¡A½Ð°Ý­þ¸Ì¦³¿ù»~¡H
    End If
End Sub
©Ò¥H¥¿½T«Å§i«Ü­«­n¡A½Ð°ÝÀx¦s®æC3¬O¤é´Á®æ¦¡2014/07/07¡A³o¼Ë°²¦p¬O¼g:
a=Sheets(1).Range("C3")
½Ð°Ýa­n«Å§i¬°¤°»ò?¤]¬ODouble¹À?
¤H¥Í¥u¦³¤T¤Ñ¡A¥u¦³¬¡¦b¤µ¤Ñ³Ì½ñ¹ê

TOP

¦pªG§â±zµ¹ªºµ{§Ç¦b«Å§i¥[¤WAs Double¡A"aa"§ï¦¨94456©Î¬O94454¡A¦A°õ¦æµ{§Ç¡A´N¨S¦³¦A¥X²{¿ù»~°T®§¡C

°ÝÃD¬O  c_c_lai  ¤w¦^ÂЧA:
  §A¥ý¬Ý¬Ý "C3" ªº¤º®e¬°¦ó¡H
Ä´¦p¡G ¨ä­È¦p¬° #VALUE! ©Î¬O #NUM! µ¥¡A
              ¦p®³¨Ó°µ¹Bºâ©Î¤ñ¸û¥ç·|¥X¿ù¡C
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 8# GBKEE
¬Oªº¡I­n¦A¤F¸Ñ³o¤è­±©w¸q¡AÁÂÁÂGBKEE¤Îc_c_lai¤j¤j«ü¾É¡C
¤H¥Í¥u¦³¤T¤Ñ¡A¥u¦³¬¡¦b¤µ¤Ñ³Ì½ñ¹ê

TOP

­ü¡I¶W¹L¤T¤ÀÄÁ¤£¯à¦A½s¿è
#NUM!
µo¥Í­ì¦]¡G¤½¦¡¤¤¨Ï¥Î¤£¥¿½Tªº°Ñ¼Æ¡A©Î¬O¤½¦¡µ²ªGªº­È¤Ó¤j©Î¤Ó¤p¡C
³B²z¤è¦¡¡G³v¨BÀˬd¨Ã­×¥¿¤½¦¡¤¤ªº¿ù»~¡C
#VALUE!
µo¥Í­ì¦]¡G1.¤½¦¡¤¤¥»¸Ó¼Æ¦r»P¼Æ¦r¹Bºâ«o±N¼Æ¦r»P¤å¦r§@¹Bºâ¡A«K·|³y¦¨¼Æ­È¿ù»~¡C¦pA1=123¡BA2=ABC¡BA3=A1+A2¡C
¡@¡@¡@¡@¡@2.¤½¦¡¥»¸Ó¤Þ¥Î³æ¤@¼Æ­È¡A«o¤£¤p¤ß¤Þ¥Î¤F¤@­Ó°Ï°ì¡C
³B²z¤è¦¡¡G1.­×§ï¤½¦¡¤¤ªº¤å¦r®æ¦¡¡A­«·s¿é¤J¬°¼Æ¦r§Y¥i¡C
¡@¡@¡@¡@¡@2.§ïÅܤ½¦¡¬°¤Þ¥Î°Ï°ì¨ç¼Æ¡A©Î¬O§ïÅܤޥΪº°Ï°ì¬°³æ¤@¼Æ­È¡C

§ÚÀ³¸Ó¥ý¨Ó¤F¸Ñ³o¨Ç©w¸q¡I
¤H¥Í¥u¦³¤T¤Ñ¡A¥u¦³¬¡¦b¤µ¤Ñ³Ì½ñ¹ê

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD