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

[µo°Ý] ½Ð±Ð¦p¦ó¨Ï¥Î vlookup¤½¦¡¤W¤UÂù¦V¬d¸ß?

[µo°Ý] ½Ð±Ð¦p¦ó¨Ï¥Î vlookup¤½¦¡¤W¤UÂù¦V¬d¸ß?

½Ð°Ý¦U¦ì¹F¤H¦p¦ó¨Ï¥Î vlookup¤½¦¡¤W¤UÂù¦V¬d¸ß¡A
¦p¤U¹Ï¤¤¤ÎªþÀɤº§Q¥ÎD3¤ÎD4¨â­ÓÀx¦s®æ¡AÂù¦VÀ˯ÁAÄæ¤ÎBÄ檺¸ê®Æ¡AÁÂÁ¤j®a!

¹Ï¤ù1.jpg
Book1.rar (1.41 KB)
peter460191

¦^´_ 1# peter460191

¤£¥i¯à§Q¥Î2­ÓÀx¦s®æ°µ¬°¤¬¬Û¬d¸ßªº¿é¤J
À³¸Ó¬O§Q¥Î³æ¤@Àx¦s®æ°µ¬°¿é¤J(¥i¥ô·N¿é¤J¥N½X©Î¬O¤½¥q¦WºÙ)
¦ÓD3:D4§@¬°¬d¸ßµ²ªG

play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh

ÁÂÁª©¥Dªº«ü¾É¡A¦]¬°§Ú¬Ý¹L½×¾Â¤W¦³¥ª¥k¨â­Ó¥i¥H¤¬¬Û¬d¸ß¡A§Ú·Q§â¥L§ï¦¨¤W¤U¡A§ï¤F¦n¤[³£§ï¤£¹L¨Ó¡A½Ð°Ýª©¥DÁÙ¦³¨ä¥L¤èªk¶ý?
   

http://forum.twbts.com/viewthread.php?tid=4102&from=favorites
peter460191

TOP

¦^´_ 3# peter460191

³o¬O­n¥ÎVBA¨Ó¼g¡A¤@¯ë¤½¦¡¬O¤£¥i¯à¹F¦¨ªº
¤u§@ªí¼Ò²Õ
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Dim A As Range
  3. If Intersect(Target, [D3:D4]) Is Nothing Then Exit Sub
  4. Application.EnableEvents = False
  5. Set A = Columns("A:B").Find(Target, lookat:=xlWhole)
  6. If A Is Nothing Then MsgBox "¿é¤J¿ù»~": [D3:D4] = "": GoTo 10
  7. [D3] = Cells(A.Row, 1).Value
  8. [D4] = Cells(A.Row, 2)
  9. 10
  10. Application.EnableEvents = True
  11. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


    ÁÂÁ¶W¯Åª©¥Dªº«ü¾É¡A·|¥J²Ó¬ã¨s¦¹¥¨¶°ªº¼gªk¡AÁÂÁ±z!
peter460191

TOP

Âù¦V¬d¸ß.zip (18 KB) [attach]23007[/attach]¦^´_ 4# Hsieh


   ¨D±Ï Hsieh ¶W¯Åª©¥D,¤§«e±zÀ°¦£¸Ñµª©Ò´£¨ÑªºVBAµ{¦¡,§Ú«áÄò¨Ï¥Î¤Wµo²{µLªk§PÂ_­^¤å¤j¤p¼g,§Ú§ï¤F«Ü¤[³£µLªk¦¨¥\,¦]¦¹·Q¦A¦V±z¨D±Ï,¤£ª¾±z¦³¨S¦³¿ìªk¸Ñ±Ï¤@¤U,«D±`ÁÂÁ±z~~
        
       *°ÝÃDÂI : 1-ªþ¥ó¤¤D5Àx¦s®æ¦V¤U¬d¸ß®É,¦p¹J§À¼Æ­^¤å¬Û¦PªÌ,µLªk§P§O­^¤å¤j¤p¼g,¬Ò·|§ì¨ú²Ä¤@­Ó¸ê®Æ
                        2-ªþ¥ó¤¤D6Àx¦s®æ¦V¤W¬d¸ß®É,«h¥i¥H¥¿±`¨Ï¥Î

[attach]23007[/attach][attach]23007[/attach][attach]23007[/attach]
peter460191

TOP

=VLOOKUP(OFFSET(A$3,INT((ROW(A1)-1)/2),),A$3:B$9,MOD(ROW(A1)-1,2)+1,)
=OFFSET(A$3,INT((ROW(A1)-1)/2),MOD(ROW(A1)-1,2))

TOP

¦^´_ 7# hcm19522

ÁÂÁÂhcm19522 ´£¨Ñªº¤½¦¡,¥i§_ªñ¤@¨B±Ð¾É¦p¦ó¨Ï¥Î?¬Oª½±µ±N¤½¦¡¿é¤J¦bD5¤ÎD6ªºÀx¦s®æ¤¤¶Ü?ÁÂÁ±z!
peter460191

TOP

ÁÂÁ´£¨Ñ                              

TOP

http://blog.xuite.net/hcm19522/twblog/369388101

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD