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

barrykuo

·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

barrykuo

­ü¡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

barrykuo

¦^´_ 8# GBKEE
¬Oªº¡I­n¦A¤F¸Ñ³o¤è­±©w¸q¡AÁÂÁÂGBKEE¤Îc_c_lai¤j¤j«ü¾É¡C

GBKEE

¦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

barrykuo

¦^´_ 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¹À?

c_c_lai

¦^´_ 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

GBKEE

¦^´_ 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. 
   
10. End Sub

½Æ»s¥N½X

barrykuo

¦^´_ 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­@¤ß¬Ý§¹!

c_c_lai

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

barrykuo

¤£¦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¤°»ò?