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

[µo°Ý] ¬YÄæ¿ï©w¬Y­Ó­È«á ¥t¤@Äæ¦Û°Ê¸õ¥X¤w³W©wªºªF¦è

[µo°Ý] ¬YÄæ¿ï©w¬Y­Ó­È«á ¥t¤@Äæ¦Û°Ê¸õ¥X¤w³W©wªºªF¦è

¥»©«³Ì«á¥Ñ a38480912 ©ó 2016-4-9 12:17 ½s¿è



¥Ø«e¬O§âFLIGHT NO³]¦bFÄæ µM«á¥Î¦WºÙºÞ²z­û ³]©w¦¨¤@­Ó²M³æ

·Q½Ð°Ý­n«ç»ò³]©w ·íFLIGHT NO.¦pªG¿ï©wNH 8430ªº¸Ü REAMRK·|¦Û°Ê¸õ¦¨EHU
FLIGHT NO.¿ïBR 192  REAMRK·|¦Û°Ê¸õ¦¨ DDC
FLIGHT NO.¿ïCI  833  REAMRK·|¦Û°Ê¸õ¦¨ EHU

´N¬O¦p¦ó³]©w¦¨·íAÄæ¿ï©w¬Y­Ó³]©w­È«á REMARK¯à°÷¦Û°Ê¹ïÀ³¦Û¤v·Q­nªº

D3 =IF(A3="","",VLOOKUP(A3,F:G,2,))
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 2# luhpro


    ÁÂÁ§A!!!!!  ¦ý§Úµo²{¦n¹³¶K¿ù°Ï°ì¤F.... À³¸Ó¶K¨ì¤@¯ë°Ïªº
¦ýÁÙ¬OÁÂÁ¤j¤jªº±M·~¦^´_

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2016-4-9 13:49 ½s¿è

¦^´_ 1# a38480912
­º¥ý , §Aªº¹Ï¤ù¤º®e¬° :
  1. NH 8430  DDC
  2. NH 8558  EHU
  3. NH 8560  66
  4. BR 132   SPX
  5. BR 192
  6. BR 190
  7. CI 160
  8. CI 006
  9. CI 008
  10. CI 833
½Æ»s¥N½X
¦ý§Aªº»Ý¨D¬O :
  1. ·Q½Ð°Ý­n«ç»ò³]©w ·íFLIGHT NO.¦pªG¿ï©wNH 8430ªº¸Ü REAMRK·|¦Û°Ê¸õ¦¨EHU
  2. FLIGHT NO.¿ïBR 192  REAMRK·|¦Û°Ê¸õ¦¨ DDC
  3. FLIGHT NO.¿ïCI  833  REAMRK·|¦Û°Ê¸õ¦¨ EHU
½Æ»s¥N½X
¨âªÌ¹ïÀ³¤£¤W.

¨ä¦¸, §A¨S¦³´£¨ÑÀÉ®×, ©Ò¥H§Ú¦Û¤v¥t¥~°µ¤@­Ó, µ{¦¡¦p¤U:
[Module]
  1. Public vD
½Æ»s¥N½X
[ThisWorkBook]
  1. Private Sub Workbook_Open()
  2.   Dim lRow&
  3.   
  4.   Set vD = CreateObject("Scripting.Dictionary")
  5.   lRow = 3
  6.   While Cells(lRow, 6) <> ""
  7.     vD(CStr(Cells(lRow, 6))) = Cells(lRow, 7)
  8.     lRow = lRow + 1
  9.   Wend
  10. End Sub
½Æ»s¥N½X
[Sheet1]
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.   With Target
  3.     If .Column = 1 Then .Offset(, 3) = vD(.Text)
  4.   End With
  5. End Sub
½Æ»s¥N½X
ÀÉ®×µe­± :


³Ì«áªþ¤WÀÉ®× :
¬YÄæ¿ï©w¬Y­Ó­È«á ¥t¤@Äæ¦Û°Ê¸õ¥X¤w³W©wªºªF¦è.zip (8.37 KB)

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD