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

Range("a:a").Find(5)ºë·Çªº¥Îªk

Range("a:a").Find(5)ºë·Çªº¥Îªk

½Ð±Ð¥ý¶i
A1Àx¦s®æªº­È¬OªÅ¥Õ
A2Àx¦s®æªº­È¬OªÅ¥Õ
A3Àx¦s®æªº­È¬O 56
A4Àx¦s®æªº­È¬O 5

¨Ï¥Î«ü¥O
Set rng = Range("a:a").Find(5)
MsgBox rng.Row

µ²ªG¬O3     ===>§Ú­nªºµ²ªG¬O4

½Ð±Ð¦p¦ó¯àºë·Çªº§ä¨ì5¦Ó¤£56? ·PÁÂ!

MsgBox [a:a].Find(5, , , 1).Row

TOP

·P®¦ ,
¦A½Ð±Ð¦pªG·Q­n, ¦b[a:a]·j´M5, [b:b]·j´M6, [c:c]·j´M7, ¦Ó¥Bµ²ªG¥²¶·¦b¤@¦C, ½Ð±Ð¦p¦ó¥ÎFindªº«ü¥O¼gªk,³t«×·|¤ñ¸û§Ö,   ÁÙ¬Ooobird¥ý¶i¦³Find¨ä¥L¬ÛÃö¥Îªk¯à¤@¨Ö½ç±Ð, Åý§Ú¯à¦h¦h¥R¹êvba¥\¤O, ·PÁÂ!

TOP

  1. Sub FIND()
  2. For i = 1 To 3
  3.   c = 1
  4.   Columns(i + 4) = ""
  5.   Set rng = Columns(i).FIND(i + 4, , , xlWhole)
  6.   If Not rng Is Nothing Then
  7.      findrow = rng.Row
  8.      Do
  9.        Cells(c, i + 4) = rng.Row
  10.        c = c + 1
  11.        Set rng = Columns(i).FindNext(rng)
  12.      Loop While Not rng Is Nothing And rng.Row <> findrow
  13.   End If
  14. Next i
  15. End Sub
½Æ»s¥N½X
¦^´_ 3# openpc

TOP

I think.....
  1. Cells.Find(what:="56", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
½Æ»s¥N½X

TOP

·PÁÂ¥ý¶i­Ì«ü±Ð,  ¤´¦b¿n·¥ºt½m®ø¤Æ¤¤.

TOP

find¤èªk¦bvba¤¤¨Ï¥Î¬Û·í¼sªx
«Øij¦h½m²ß¡G
1.find¤u§@ªí¤W¬Y­È¥X²{ªº¦ì¸m
2.find¤u§@ªí¤W¤½¦¡±a¥X¬Y­Èªº¦ì¸m
3.find¤u§@ªí¤W³]©w¬Y®æ¦¡ªº¦ì¸m¡A¦p¶ñº¡¦â±m©Î²ÊÅé¤å¦r
4.find¤u§@ªí¤W³]©w¦X¨ÖÀx¦s®æªº¦ì¸m

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD