ªð¦^¦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ªº

¥»©«³Ì«á¥Ñ 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

¦^´_ 2# luhpro


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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD