| ©«¤l19 ¥DÃD12 ºëµØ0 ¿n¤À60 ÂI¦W0  §@·~¨t²ÎXP ³nÅ骩¥»Office 2007 ¾\ŪÅv20 ©Ê§O¨k µù¥U®É¶¡2011-9-27 ³Ì«áµn¿ý2017-12-21 
 | 
[µo°Ý] §ì¨ú¸ê®Æ°Ï¶¡,¤£ª¾¹D¬O¤£¬O§ÎºA°ÝÃD¡i¤w¸Ñ¨M¡j 
| ¥»©«³Ì«á¥Ñ ken759727 ©ó 2012-7-19 15:43 ½s¿è 
 ¸U¤À·PÁÂhugh0620À°¦£¡A¤w¸Ñ¨M
 
 ½Ð°Ý¦U¦ì«e½ú¡A¬õ¦â¤å¦r 1345¨º¤@ÓÄæ¦ì§Ú¦Û¦æ³]©w¼ÆÈ´N·|¦¨¥\
 ¦ý§Ú·QÅý¥L¦Û¦æ§P©w³Ì¤jÈ¡A¦ý¬O®M¥Î  [max(VALUE(A21:A321))] ´N·|¥¢±Ñ
 
 
 If (Cells(20 + i, 1) = 1345) Then mai = i
 If (Cells(20 + i, 1) = [max(VALUE(A21:A321))]) Then mai = i
 ·PÁ¦U¦ì«e½ú½Æ»s¥N½XSub Interval()
For i = 1 To 305
If (Cells(20 + i, 1) = 1345) Then mai = i
Next
'´ú¸Õ¼ÆÈ
Range("F21") = mai
Range("H21") = [max(VALUE(A21:A321))]
End Sub
 | 
 |