標題: [發問] 某欄選定某個值後 另一欄自動跳出已規定的東西 [打印本頁]

---

作者: a38480912    時間: 2016-4-9 12:14     標題: 某欄選定某個值後 另一欄自動跳出已規定的東西

本帖最後由 a38480912 於 2016-4-9 12:17 編輯

[attach]23773[/attach]

目前是把FLIGHT NO設在F欄 然後用名稱管理員 設定成一個清單

想請問要怎麼設定 當FLIGHT NO.如果選定NH 8430的話 REAMRK會自動跳成EHU
FLIGHT NO.選BR 192  REAMRK會自動跳成 DDC
FLIGHT NO.選CI  833  REAMRK會自動跳成 EHU

就是如何設定成當A欄選定某個設定值後 REMARK能夠自動對應自己想要的

---

作者: luhpro    時間: 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

複製代碼

檔案畫面 :
[attach]23779[/attach]

最後附上檔案 :
[attach]23778[/attach]

---

作者: a38480912    時間: 2016-4-9 23:17

回復 2# luhpro


    謝謝你!!!!!  但我發現好像貼錯區域了.... 應該貼到一般區的
但還是謝謝大大的專業回復

---

作者: ML089    時間: 2016-4-10 17:00

D3 =IF(A3="","",VLOOKUP(A3,F:G,2,))

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)