½Ð±Ð¥X²{¡u°õ¦æ¶¥¬q¿ù»~13:«¬ºA¤£²Å¦X¡v¡I
- ©«¤l
- 39
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 48
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- sp1
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-2-2
- ³Ì«áµn¿ý
- 2014-8-26
|
½Ð±Ð¥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 "´Á³fpºâA02.xls!printing_value"
Application.Run "´Á³fpºâ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¤µ¤Ñ³Ì½ñ¹ê
|
|
|
|
|
- ©«¤l
- 39
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 48
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- sp1
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-2-2
- ³Ì«áµn¿ý
- 2014-8-26
|
¤£¦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¤µ¤Ñ³Ì½ñ¹ê
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 2# barrykuo
½ÐÀˬd printime, rtest, stest ¤TÓÅܼÆȪºÀx¦s«¬ºA½T¹ê¬°¦ó¡H |
|
|
|
|
|
|
- ©«¤l
- 39
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 48
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- sp1
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-2-2
- ³Ì«áµn¿ý
- 2014-8-26
|
¦^´_ 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¤µ¤Ñ³Ì½ñ¹ê
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 4# barrykuo
§Ú·Q°ÝÃD¥i¯à¥X¦b¡G- printime = Sheets("§Y®É«ü¼Æ").Range("C3")
½Æ»s¥N½X §A¥ý¬Ý¬Ý "C3" ªº¤º®e¬°¦ó¡H
Ä´¦p¡G ¨äȦp¬° #VALUE! ©Î¬O #NUM! µ¥¡A
¦p®³¨Ó°µ¹Bºâ©Î¤ñ¸û¥ç·|¥X¿ù¡C |
|
|
|
|
|
|
- ©«¤l
- 39
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 48
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- sp1
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-2-2
- ³Ì«áµn¿ý
- 2014-8-26
|
¦^´_ 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")
½Ð°Ýan«Å§i¬°¤°»ò?¤]¬ODouble¹À? |
|
¤H¥Í¥u¦³¤T¤Ñ¡A¥u¦³¬¡¦b¤µ¤Ñ³Ì½ñ¹ê
|
|
|
|
|
- ©«¤l
- 39
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 48
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- sp1
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-2-2
- ³Ì«áµn¿ý
- 2014-8-26
|
¦^´_ 8# GBKEE
¬Oªº¡In¦A¤F¸Ñ³o¤è±©w¸q¡AÁÂÁÂGBKEE¤Îc_c_lai¤j¤j«ü¾É¡C |
|
¤H¥Í¥u¦³¤T¤Ñ¡A¥u¦³¬¡¦b¤µ¤Ñ³Ì½ñ¹ê
|
|
|
|
|
- ©«¤l
- 39
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 48
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- sp1
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-2-2
- ³Ì«áµn¿ý
- 2014-8-26
|
ü¡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¤µ¤Ñ³Ì½ñ¹ê
|
|
|
|
|