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

´M§ä(FindÀ³¥Î)ÃD¥Ø

´M§ä(FindÀ³¥Î)ÃD¥Ø

Dear ¤j¤j

     ¤p§Ì¬°¤F¾Ç¦nfindªº¨Ï¥Î~ ³]­p¤@¨Ç¥i¯à·|¼¶¼gVBA®É¹J¨ìªº±¡ªp~
       ½Ð¦U¦ì¤j¤j¨Ó«ü¾É~ ¦nÅý¤p§Ì»P¨ä¥L¨Ï¥ÎªÌ¯à°÷°w¹ï¤@¨Ç«ü¥O¨Ï¥Î¤W~ §ó¤F¸Ñ»P¨Ï¥Î¤è«K~
  
       ¦pªþÀÉ ´M§äÃD¥Ø(FindÀ³¥Î).rar (9.01 KB)

       ¬O¤@­Ó«Ü²³æªºÃD¥Ø~
      1. §Q¥ÎFind §ä¨ì¬Û¦P¤é´Áªº¦ì¸m (¥ÎB.Sheetªº¤é´Á¥h§ä¨ìA.Sheet¤¤¬Û¹ïÀ³ªº¦ì¸m)
         q:¤p§Ì¨Ì¤§«e¸ò¤j¤j½Ð±Ðªº¤è¦¡¼g¤J~ ¦ý«o¬O±o¨ìnothingªºµ²ªG~ ¤£ª¾¹D­þÃä²£¥Í¿ù»~   
    2. ±N¸ê®Æ±a¤J (AÄæ¦ì)
    3. ­pºâ·í¤ë¥÷²Ö­p (BÄæ¦ì)

      ©µ¦ù°ÝÃD~
      1. §Q¥ÎFind §ä¨ì¬Û¦P¤é´Áªº¦ì¸m
       1.1  ¦p¦ó¨ú±o¸Ó¦ì¸mªº Äæ/¦C ­È (¥i¥Î¨Ó«ü©w¨Ì³o­ÓÀx¦s®æªº¦ì¸m¨ÓÀ³¥Î¨ì¨ä¥L«ü¥O¤W)
¾Ç²ß¤~¯à´£¤É¦Û¤v

¦^´_ 1# hugh0620


    Àˬd§Aªº·j´M½d³ò
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

st = Sheet1.Range("C3")
ed = Sheet2.Range("B3")
Set A = Sheet1.Range("c3:c34").Find(st, LookIn:=xlFormulas)
Set B = Sheet1.Range("c4:c34").Find(ed, LookIn:=xlFormulas)

TOP

¦^´_ 3# oobird
¦n¹³¤£¦æ

TOP

¦^´_ 4# john2006168


      Hsieh¤j¤jªº´£¿ô~ Àˬd«á¤F¸Ñ½d³ò°ÝÃD
    obird ¤j¤jªº¤è¦¡¤]¬Ookªº
    ¥[¤W¦Û¤vfindªº½m²ß~ ³z¹Lfind »P¬ÛÃö«ü¥OªºÂ²³æÀ³¥Î~
      §¹¦¨¦pªþÀÉ ´M§äÃD¥Ø(FindÀ³¥Î)_¼gªk.rar (10.88 KB)
      1.¹ïÀ³¬Û¹ïªº¦ì¸mÀx¦s¸ê®Æ
    2.¹ïÀ³¬Û¹ïªº¦ì¸m§R°£¸ê®Æ
    ¬Û«H³o¥u¬OµL­­¦hºØ¼gªkªº¨ä¤¤¤§¤@~ ¶È¨Ñ°Ñ¦Ò~
      ­Y¦³¨ä¥L°w¹ïfindªºÀ³¥Î~ ¥i¶K¤W¨Ó¬ã¨s°Q½×~ ^^
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 5# hugh0620
  1. Private Sub CommandButton1_Click()  '¶×¥X¸ê®Æ
  2.     Dim Ed As Range, B As Range, S As Integer
  3.     Set Ed = Sheet2.Range("B3")
  4.     Set B = Sheet1.Range("C3:C34").Find(Ed)
  5.     If B Is Nothing Then MsgBox "§ä¤£¨ì " & Ed: Exit Sub
  6.     B.Offset(0, 1) = Ed.Offset(0, 1)
  7.     For Each C In Sheet1.Range("C3", B)
  8.         C.Offset(, 3) = S + C.Offset(, 1)
  9.         S = S + C.Offset(, 1)
  10.     Next
  11. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD