返回列表 上一主題 發帖

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

a38480912

帖子
22 
主題
7 
精華
0 
積分
58 
點名
0  
作業系統
XP 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-3-2 
最後登錄
2024-5-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-4-9 12:14 | 只看該作者

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

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



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

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

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

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
14  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-6 
2#
發表於 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

a38480912

帖子
22 
主題
7 
精華
0 
積分
58 
點名
0  
作業系統
XP 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-3-2 
最後登錄
2024-5-18 
3#
發表於 2016-4-9 23:17 | 只看該作者
回復 2# luhpro


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

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
4#
發表於 2016-4-10 17:00 | 只看該作者
D3 =IF(A3="","",VLOOKUP(A3,F:G,2,))
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
返回列表 上一主題