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

¦p¦ó§ì¨úcell¤¤¤wª¾¬Y­Èªº¦ì§}?

¦p¦ó§ì¨úcell¤¤¤wª¾¬Y­Èªº¦ì§}?

¥»©«³Ì«á¥Ñ m09903020 ©ó 2012-6-14 12:47 ½s¿è

¤pªº¥Ø«esheet¤¤¦³A¦æ300¦C·í§@¤@­Ó¤@ºûarray
½Ð°Ý¤j¤j¡A¦p¹Ï ­Y¦³¤@¼Æ­È¬°1®É¡A«h¦p¦ó§ì¨ú¨äcell¦ì§}
ÁÂÁ¤j¤j¡C

question.JPG (24.48 KB)

°ÝÃD¥Ü·N¹Ï

question.JPG

¦^´_ 1# m09903020
  1. Sub xx()
  2.   Set Rng = Range("A1:A" & [A1].End(xlDown).Row)
  3.   Set ADDX = Rng.Find(1, , , xlWhole)
  4.   MsgBox ADDX.Address
  5. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-6-14 13:30 ½s¿è

¦^´_ 1# m09903020
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Ar()
  4.     With Range("A1:A300")
  5.         Ar = .Value
  6.         .Replace "1", "=1/0", xlWhole
  7.         .SpecialCells(xlCellTypeFormulas, xlErrors).Name = "XX"
  8.         .Value = Ar
  9.          MsgBox [XX].Address
  10.     End With
  11. End Sub
½Æ»s¥N½X

TOP

ºF·\ºF·\¡A  §Ú¤£¬O«Ü¤F¸Ñ±µ¤U¨Ó³o­Ó°T®§¥Nªí¤°»ò

TOP

¦^´_ 4# m09903020

½Ð¤W¶ÇexcelÀ£ÁYÀÉ
vba¤§¼¶¼g»Ý¦Ò¼{¤u§@ªí¤ÎÀx¦s®æ¤§¨Ï¥Î±¡§Î

TOP

¦^´_ 5# register313

¤£¦n·N«ä ÀÉ®×¥u¯d °ÝÃD³¡¤À ­YÁÙ¬O¤£¨¬¥ý»¡Án©êºp¡A¦A¸É¤W

°ÝÃD.rar (34.69 KB)

TOP

§Ú´ú¸Õ¥¿±`ªº¡A¤]³\§A§â¥N½X©ñ¿ù¦ì¸m¤F¡C

TOP

¦^´_ 6# m09903020

¦ì§}©ñ¦b °}¦CArr ¤ÎMÄæ
  1. Sub yy()
  2.   Dim Arr(1 To 300, 1 To 1)
  3.   For Each R In Sheets("asile_table").[A1:A300]
  4.       Set C = R.Find(1, , , xlWhole)
  5.       If Not C Is Nothing Then s = s + 1: Arr(s, 1) = C.Address(0, 0)
  6.   Next
  7.   Sheets("asile_table").[M1].Resize(s, 1) = Arr
  8. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# GBKEE


    ÁÂÁÂG¤j¡A G¤jªºµ{¦¡¨ç¼Æ«Üºë²¡A§Ú¬d¤F«Ü¤[¤~¬ÝÀ´¡C¤£¹L§Ú©ñ±ó¨Ï¥Î¤F:)

TOP

¦^´_ 7# oobird


    ÁÂÁÂoo¤j¤j ¡A  ­è­è¦A¸Õ¤F¤@¦¸ xx() ½T¹ê¥i¥Î¡A§Apo¤å¤§«e¤£¦æ§Ú¤]¤£¬O«Ü¬°¤°»ò"¨S«Å§i"©ÎªÌ¨S¥Îwith

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD