letugo

小學生 Rank: 1

帖子: 28
主題: 10
精華: 0
積分: 42
點名: 0
作業系統: Win 7
軟體版本: Office 2007
閱讀權限: 10
註冊時間: 2010-5-10
最後登錄: 2018-2-28

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-5-11 12:53 | 只看該作者

[發問] 輸入資料後便自動地成為

驗證, 下拉清單

各位高手大大們

想設計一驗證資料表，在 sheet 1 的 B 欄輸入資料後便自動地成為驗證的下拉清單，可是若在附件 B2 儲存格輸入 test 可以在 B3 出現，但在 B3 再,輸入 test again 在 B4 的下拉清單就不能出現了？可有甚麼方法解決？若不用巨集又如何？

附件
http://www.sendspace.com/file/dl52wq

謝謝！

樓主熱帖

天生我材必有用，千金散盡還復來

letugo

小學生 Rank: 1

帖子: 28
主題: 10
精華: 0
積分: 42
點名: 0
作業系統: Win 7
軟體版本: Office 2007
閱讀權限: 10
註冊時間: 2010-5-10
最後登錄: 2018-2-28

9^#

發表於 2010-8-17 12:23 | 只看該作者

回復 letugo
難道你都沒去了解程式碼嗎?
If Target.Column = 3 Or Target.Column = 5 Then '指定欄位
...
Hsieh 發表於 2010-8-17 00:21

===================================================================
請恕小弟愚昧，經 Hsieh 兄指點矛塞鈍開
謝謝！

天生我材必有用，千金散盡還復來

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

8^#

發表於 2010-8-17 00:21 | 只看該作者

回復 9# letugo
難道你都沒去了解程式碼嗎?
If Target.Column = 3 Or Target.Column = 5 Then '指定欄位

Do Until d.Count = 0 Or i = 30 'i為指定排名量

只是把不重複名單計算出現次數後,一次數多寡加入驗證清單
就這麼單純的邏輯

學海無涯_不恥下問

TOP

letugo

小學生 Rank: 1

帖子: 28
主題: 10
精華: 0
積分: 42
點名: 0
作業系統: Win 7
軟體版本: Office 2007
閱讀權限: 10
註冊時間: 2010-5-10
最後登錄: 2018-2-28

7^#

發表於 2010-8-11 23:53 | 只看該作者

對不起 Hsieh 大大
隔了這麼久還再發問，就是 C 欄的下拉清單怎樣做出來？是用資料驗證嗎？
另外若想在 E 欄加入另一組移除重複和只顯示最常出現的 30筆的下拉清單
那麼 VBA 又改成怎樣呢？
麻煩 Hsieh 大大賜教，謝謝！

天生我材必有用，千金散盡還復來

TOP

letugo

小學生 Rank: 1

帖子: 28
主題: 10
精華: 0
積分: 42
點名: 0
作業系統: Win 7
軟體版本: Office 2007
閱讀權限: 10
註冊時間: 2010-5-10
最後登錄: 2018-2-28

6^#

發表於 2010-5-12 12:21 | 只看該作者

回復 letugo

這樣可能要用到VBA輔助才行
Hsieh 發表於 2010-5-11 22:53

==========================================================
首先再次多謝 Hsieh 大大賜教，真心感謝！
Thanks again !

天生我材必有用，千金散盡還復來

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

5^#

發表於 2010-5-11 22:53 | 只看該作者

本帖最後由 Hsieh 於 2010-5-11 23:03 編輯

回復 4# letugo

這樣可能要用到VBA輔助才行

Dropdown list.rar (14.06 KB)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ar()
Set d = CreateObject("Scripting.Dictionary")
If Target.Column = 3 Then '指定欄位
With Target.EntireColumn.Validation
.Delete
For Each a In Range(Cells(2, Target.Column), Target)
d(a.Value) = d(a.Value) + 1
Next
Do Until d.Count = 0 Or i = 20
k = Application.Large(d.items, 1)
k = Application.Match(k, d.items, 0)
ans = Application.Index(d.keys, k)
If mystr = "" Then
mystr = ans
Else
mystr = mystr & "," & ans
End If
d.Remove ans: i = i + 1
Loop
If Not IsError(mystr) And mystr <> "" Then .Add xlValidateList, Formula1:=mystr: .ShowError = False
End With
End If
End Sub

複製代碼

學海無涯_不恥下問

TOP

letugo

小學生 Rank: 1

帖子: 28
主題: 10
精華: 0
積分: 42
點名: 0
作業系統: Win 7
軟體版本: Office 2007
閱讀權限: 10
註冊時間: 2010-5-10
最後登錄: 2018-2-28

4^#

發表於 2010-5-11 22:08 | 只看該作者

LETUGO兄
不好意思.我想DOWNLOAD您的
附件
http://www.sendspace.com/file/dl52wq
來看...(但是HS版 ...
PD961A 發表於 2010-5-11 20:20

===================================================================
附件

Drop down.zip (27.26 KB)

Original & Modified files

天生我材必有用，千金散盡還復來

TOP

letugo

小學生 Rank: 1

帖子: 28
主題: 10
精華: 0
積分: 42
點名: 0
作業系統: Win 7
軟體版本: Office 2007
閱讀權限: 10
註冊時間: 2010-5-10
最後登錄: 2018-2-28

3^#

發表於 2010-5-11 21:49 | 只看該作者

定義名稱list
=OFFSET(Sheet1!$B$2,,,IF(COUNTA(Sheet1!$BB)=0,1,COUNTA(Sheet1!$BB)),)
驗證清單
公 ...
Hsieh 發表於 2010-5-11 17:12

====================================================================================
真心感謝 Hsieh 大大，為我解決多困擾年的問題，謝謝！
但若加上條件是移除重複和只顯示最常出現的 20筆又可不可以做到？

又要麻煩 Hsieh 大大，感恩！謝謝！

天生我材必有用，千金散盡還復來

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2010-5-11 17:12 | 只看該作者

本帖最後由 Hsieh 於 2010-5-11 20:51 編輯

定義名稱list
=OFFSET(Sheet1!$B$2,,,IF(COUNTA(Sheet1!$B:$B)=0,1,COUNTA(Sheet1!$B:$B)),)
驗證清單
公式=list

Dropdown list.rar (10.53 KB)

學海無涯_不恥下問

TOP