返回列表 上一主題 發帖

[發問] 某欄選定某個值後 另一欄自動跳出已規定的東西

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
1# 跳轉到 »
發表於 2016-4-9 13:46 | 顯示全部帖子
本帖最後由 luhpro 於 2016-4-9 13:49 編輯

回復 1# a38480912
首先 , 你的圖片內容為 :
  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
複製代碼
但你的需求是 :
  1. 想請問要怎麼設定 當FLIGHT NO.如果選定NH 8430的話 REAMRK會自動跳成EHU
  2. FLIGHT NO.選BR 192  REAMRK會自動跳成 DDC
  3. FLIGHT NO.選CI  833  REAMRK會自動跳成 EHU
複製代碼
兩者對應不上.

其次, 你沒有提供檔案, 所以我自己另外做一個, 程式如下:
[Module]
  1. Public vD
複製代碼
[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
複製代碼
[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
複製代碼
檔案畫面 :


最後附上檔案 :
某欄選定某個值後 另一欄自動跳出已規定的東西.zip (8.37 KB)

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題