½Ð°Ý¦³¼Æµ§¤£¦PȪº¦Ò¸Õ¤À¼Æ¡I¦p¦ó³]©w¨ç¼Æ§ä¥X³Ì±µªñ50¤Àªº¤H¦W©O¡I
- ©«¤l
- 54
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 60
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2010-6-27
- ³Ì«áµn¿ý
- 2016-11-4
|
¦^´_ 9# ANGELA
³á..ì¨Ó¦p¦¹..
´¼¼z¯u¬OµL»ù°Ú..
¤S¾Ç¨ì¤@ºØºâªk¤F..
¤]¹ïLOOKUP¦h¤@¼h¤F¸Ñ¤F..
¥H«e³£¤£ª¾¹D¥i¥H³o¼Ë¥Î³oÓ¨ç¼Æ..
·P®¦.. |
|
|
|
|
|
|
- ©«¤l
- 54
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 60
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2010-6-27
- ³Ì«áµn¿ý
- 2016-11-4
|
¦^´_ 10# Hsieh
·PÁª©¥Dªº¸Ô²Ó¤ÀÄæ¹Ï¸Ñ
¦b¸Ñ»¡»P¹Ï¸Ñ¨â¬Û¹ï·Ó¤U
²×©ó§Ë©ú¥Õ¤F
¥H«á¤]¥i¥H±Ä¥Î³oºØ¤è¦¡¥h²z¸Ñ¤½¦¡
·P®¦.. |
|
|
|
|
|
|
- ©«¤l
- 47
- ¥DÃD
- 23
- ºëµØ
- 0
- ¿n¤À
- 133
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- sp2
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-6-25
- ³Ì«áµn¿ý
- 2024-10-22
|
¤£¦P¤H¦³¤£¦Pªº¤èªk¡I¦ý³£¬O¦n¤èªk¡I·PÁ¦U¦ì¤j¤j¸Ñ¨M¤p§Ìªº°ÝÃD¡IÁÂÁ |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
¦¥ý¹ïlookupªº»{ÃÑ¡A¥u¯à§@¨Ç³æ¯Âªº¹Bºâ¡A¥\¯à¬Æ¦Ü¤ñ¤£¤Wvlookup¡C
¤j¬ù5¡B6¦~«e¡A·s¥[©YªºBosco_yip±È°_¤F¤@°}lookupªº±´°Q±Û·¡A¨Ïlookup¥Î¦b§ó°ª¶¥ªº¥\¯à¤W¡C
¥i±¤·í®É¾K¤ß©óauto cad,¹ïexcel§N¤F¤U¨Ó¡AµL¤ßÃöª`¡A²{¦b¤j®a·|ªº§Ú³£¤£·|¤F¡I
¦¹¨Ò¬°¦ón^2¡H¨S¦³^2´N¤£¯à±o¨ì¥¿½Tµª®×¡A¦³ªB¤Í¼·¤¾¬°§Ú»¡©ú¤@¤U¶Ü¡H |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
ÁÂÁ¡A¥ÎABSÓý¤£¯à±o¨ì¬Û¦P®ÄªG¡Aì¦]¦w¦b¡H |
|
|
|
|
|
|
- ©«¤l
- 54
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 60
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2010-6-27
- ³Ì«áµn¿ý
- 2016-11-4
|
¦^´_ 16# oobird
ABS¤]¦æ¡A¥u¶·¿é¤J¬°°}¦C¤½¦¡.. |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
¥»©«³Ì«á¥Ñ oobird ©ó 2010-10-2 07:38 ½s¿è
¦ý¡K¥¿¦p¼Ó¤W¦W¦r«ÜÃø°áªº¤¯¥S©Ò¨¥¡An¥Î°}¦C¿é¤J¤~¯à¦¨¥\§r¡I
¦pªG¥Î°}¦C¤½¦¡¡A³o¸Ìlookup´N¥¢¥hÀu¶Õ¤F¡C |
|
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-10-21
|
ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ßVBA°}¦C»P¦r¨å,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð
°õ¦æµ²ªG:
Option Explicit
Sub TEST()
Dim Brr, Y, i&, b#
'¡ô«Å§iÅܼÆ
Set Y = CreateObject("Scripting.Dictionary")
'¡ô¥OYÅܼƬO ¦r¨å
Brr = Range([B1], Cells(Rows.Count, 1).End(3))
'¡ô¥OBrrÅܼƬO ¤Gºû°}¦C,¥HÀx¦s®æȱa¤J
For i = 1 To UBound(Brr)
'¡ô³]¶¶°j°é!
b = Abs(50 - Brr(i, 2))
'¡ô¥ObÅܼƬO 50´î Brr²Ä2Äæ°}¦CÈ«á,Abs()Âର¥¿È
Y(b) = Trim(Y(b) & " " & Brr(i, 1) & "(" & Brr(i, 2) & ")")
'¡ô¥O¥HbÅܼƷíkey,item¬O¦Û¨³s±µBrr°}¦C²Ä1.2Äæ°}¦CÈ
Next
MsgBox Y(Application.Min(Y.KEYS))
'¡ô¥O¸õ¥X´£¥Üµ¡ Åã¥Ü: ¥HY¦r¨å¸Ì³Ì¤pªºkeyȦ^¶ÇªºitemÈ
Set Y = Nothing: Erase Brr
'¡ô¥OÄÀ©ñÅܼÆ
End Sub |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|