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

openpc

½Ð±Ð¥ý¶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ÁÂ!

oobird

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

openpc

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

smooth131

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

register313

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

openpc

·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ÁÂ!

oobird

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