帖子: 97
主題: 31
精華: 0
積分: 133
點名: 0
作業系統: xp2007
軟體版本: xp2007
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2012-8-12
最後登錄: 2020-12-25

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-9-17 15:51 | 只看該作者

互動的下拉

請教大大們, 一個互動下拉問題,
工作表1是資料庫, a欄位是編號, b欄位是名稱, 而我想在工作表2a欄及b欄各設一下拉,
當我在a欄選擇編號b欄則傳回工作表1b欄名稱資料, 而我在b欄下拉選擇名稱, a欄同樣地把工作表1a欄資料傳回,
我曾用過名稱驗證, 但不成功, 故請教大大們, 先行謝過..

樓主熱帖

hong912

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 91
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-19

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2012-9-17 16:47 | 只看該作者

回復 1# hong912
工作表2的A、B欄設置好驗證
工作表2模組

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k%, d As Object, Rng As Range, A As Range
If Target.Column > 2 Or Target.Count > 1 Or Target(1) = "" Then Exit Sub
Application.EnableEvents = False
Set d = CreateObject("Scripting.Dictionary")
On Error Resume Next
Set Rng = Evaluate(Target.Validation.Formula1)
If Err.Number <> 0 Then GoTo 10
k = IIf(Target.Column = 2, -1, 1)
For Each A In Rng
d(A.Value) = A.Offset(, k).Value
Next
Target.Offset(, k) = d(Target.Value)
10
Application.EnableEvents = True
End Sub

複製代碼

學海無涯_不恥下問

TOP

hong912

中學生 Rank: 2

帖子: 97
主題: 31
精華: 0
積分: 133
點名: 0
作業系統: xp2007
軟體版本: xp2007
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2012-8-12
最後登錄: 2020-12-25

3^#

發表於 2012-9-17 21:17 | 只看該作者

回復 2# Hsieh

Hsieh版大, 謝謝回應, 已試用正是這種效果, 但運行較慢, 如當選擇了資料後, 另一欄位傳回的速度要等, 來個比如, 當選擇資料後, 開始心數1234至20左右, 另一欄位資料才傳回值, 是否有方法令速度變快..
其實版大的回應, 小弟已很衷心感謝, 祝願大大快樂, 謝謝!!

hong912

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 91
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-19

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2012-9-17 21:28 | 只看該作者

回復 3# hong912
你的驗證清單數量很大嗎?
或是有其他公式很多造成重算時間過長呢?
上傳你的檔案看看

學海無涯_不恥下問

TOP

hong912