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

[µo°Ý] ¥Î Find §ä¤p©óµ¥©ó(<=)¬Y­È ªº Range

[µo°Ý] ¥Î Find §ä¤p©óµ¥©ó(<=)¬Y­È ªº Range

¤@ª½¥Î°}¦Cªº¤è¦¡¤@­Ó­Ó¦a§ä
´N¨S¯à§ä¥X¥Î Find ªº¤èªk¦p¦ó¹F¨ì¥Øªº

½Ð¹F¤H°ª¤â ¤£§[½çª¾

¦^´_ 1# Scott090
Find ¤èªkªº°Ñ¼Æ LookAt  ¿ï¾Ü©Êªº Variant¡C¥i¬°¤U¦C XlLookAt ±`¼Æ¤§¤@¡GxlWhole ©Î xlPart¡C
Find ¤èªk¬O·j´M¦r¦ê¤£¬O¼Æ­È,©Ò¥H Find µLªk§ä¤p©óµ¥©ó(<=)¬Y­È ªº Range
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 1# Scott090


´M§ä<=¬Y­È¤£¤@©w­n¥Î.Find¡A¤èªk¦³«Ü¦h¤U­±»¡©ú«h¬O§Q¥ÎVBA¡AFindªº»¡©ú½d¨Ò­×§ïªºµ¹§A°Ñ¦Ò
  1. Public Sub Find_1()
  2. A = 5
  3. N = 1
  4. With Worksheets(1).Range("a1:a" & Cells(Rows.Count, "a").End(xlUp).Row)
  5.     Set c = .Find("*", LookIn:=xlValues, SearchDirection:=2)
  6.     If Not c Is Nothing Then
  7.         firstAddress = c.Address
  8.         Do
  9.             If c <= A Then
  10.                 Cells(N, "D") = c.Value
  11.                 N = N + 1
  12.             End If
  13.             Set c = .FindNext(c)
  14.         Loop While Not c Is Nothing And c.Address <> firstAddress
  15.     End If
  16. End With
  17. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE

ÁÂÁ¤j®v«ü©ú¤F­nÂI
¼Æ­È¤å¦r¤Æ«á¡A¥Î xlPart À³¥i¥H§ä¨ì .....

TOP

¦^´_ 3# lpk187

¥tÅPÁÑ®|¹F¨ì¥Øªº

¨ØªA¡AÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD