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

[µo°Ý] §ì¨ú¸ê®Æ°Ï¶¡,¤£ª¾¹D¬O¤£¬O§ÎºA°ÝÃD¡i¤w¸Ñ¨M¡j

[µ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
  1. Sub Interval()

  2. For i = 1 To 305
  3. If (Cells(20 + i, 1) = 1345) Then mai = i
  4. Next

  5. '´ú¸Õ¼Æ­È

  6. Range("F21") = mai

  7. Range("H21") = [max(VALUE(A21:A321))]

  8. End Sub
½Æ»s¥N½X
·PÁ¦U¦ì«e½ú

20120719_I.rar (16.53 KB)

¦^´_ 1# ken759727


    ¸Õ¸Õ¬Ý~ ¦b«eÀY¥[¤@¬q~
     ±N¨äÂন¤å¦r~
    Dim a As String
    a = [max(VALUE(A21:A321))]
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD