縮小下拉式選單範圍 - Excelㄧ般區

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

22^# 跳轉到 »

發表於 2014-8-15 05:45 | 只看該作者

本帖最後由 GBKEE 於 2014-8-15 05:48 編輯

回復 20# cbl0924
Sheet3的模組貼上程式碼,到Sheet3的F8儲存格改變值即可

'F8儲存格內容大小寫是有區別的
'Filter 函數傳回一個從零開始的陣列，該陣列包含基於指定篩選準則的一個字串陣列的子集。
這是模租中的註解文字,有助於了解的程式碼編寫
刪不刪隨個人喜好.

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

cbl0924

中學生 Rank: 2

帖子: 75
主題: 20
精華: 0
積分: 89
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 女
註冊時間: 2011-3-11
最後登錄: 2019-7-25

21^#

發表於 2014-8-14 23:46 | 只看該作者

我是依樣畫葫蘆的做了一份
不過我有個小小問題想發問
=IF(SUM(--ISNUMBER(SEARCH(A$1,基本資料!B$1:B$100)))<ROW(),"",INDEX(基本資料!B:B,SMALL(IF(ISNUMBER(SEARCH(A$1,基本資料!$B$1

B$100)),ROW($A$1

B$100)),ROW())))

這個 ISNUMBER 前面多了 -- 也是函數嗎?
為什麼前面要多加 -- 而後面的 ISNUMBER 就不用加 --

若無閑事掛心頭
便是人間好時節

TOP

cbl0924

中學生 Rank: 2

帖子: 75
主題: 20
精華: 0
積分: 89
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 女
註冊時間: 2011-3-11
最後登錄: 2019-7-25

20^#

發表於 2014-8-14 23:39 | 只看該作者

回復 19# GBKEE

我試了使用
２．將以下公式貼到「篩選!A1」儲存格 (可返回「銷售記錄輸入!B欄」的最末筆資料，作為欲篩選的關鍵字)
   =LOOKUP(REPT("龤",255),銷售記錄輸入!B:B)

３．將以下公式貼到「篩選!B1」儲存格後不要直接按 Enter ，而是同時按 Ctrl + Shift + Enter 三鍵，使成為陣列公式
      =IF(SUM(--ISNUMBER(SEARCH(A$1,基本資料!B$1:B$100)))<ROW(),"",INDEX(基本資料!B:B,SMALL(IF(ISNUMBER(SEARCH(A$1,基本資料!$B$1:$B$100)),ROW($A$1:$B$100)),ROW())))

似乎有稍稍成功

但就如大大們所講  ，純用公式有比較慢一些。
若是使用GBKEE  模組的程式碼是直接貼上即可嗎?
裡面所寫的" 'F8儲存閣內容大小是有區別的 "
" 'Filter 函數傳回一個從零開始的陣列，該陣列包含基於指定篩選準則的一個字串陣列的子集。"
這些中文字是不是要刪掉?

若無閑事掛心頭
便是人間好時節

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

19^#

發表於 2014-8-13 09:08 | 只看該作者

回復 8# cbl0924
回復 18# ML089

純用公式會比較慢一些,可試試純VBA看看

8#檔案 Sheet3模組的程式碼

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ar(), Ar_List As Variant
If Target.Address(0, 0) = "F8" Then 'F8儲存閣內容大小是有區別的
Ar = Application.WorksheetFunction.Transpose(Range("B2", Range("B2").End(xlDown)).Value)
Ar_List = Filter(Ar, [f8], True)
'Filter 函數傳回一個從零開始的陣列，該陣列包含基於指定篩選準則的一個字串陣列的子集。
If UBound(Ar_List) > -1 Then
Ar_List = Join(Ar_List, ",")
Else
Ar_List = Join(Ar, ",")
End If
With Target.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Ar_List
.ShowError = False
End With
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

18^#

發表於 2014-8-12 21:55 | 只看該作者

回復 18# cbl0924

能(含公式、VBA作法)2014.rar (91.26 KB)

先參考一下，說明不清楚之處或有問題再問

你的檔案中品名有2645個，純用公式會比較慢一些。

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ANGELA

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 812
主題: 7
精華: 0
積分: 862
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 100
性別: 男
來自: 台中
註冊時間: 2010-5-13
最後登錄: 2019-10-10

論壇貢獻勳章

17^#

發表於 2014-8-12 21:35 | 只看該作者

本帖最後由 ANGELA 於 2014-8-12 21:39 編輯

回復 17# cbl0924

=LOOKUP(REPT("龤",255),銷售記錄輸入!B:B)
其實”龤”並無特別意思，只是依LOOKUP函數的特性讓公式找到銷售記錄輸入工作表中B欄的最後一筆資料的方法。
依a8350070的方法。依樣劃葫蘆，應該就是你要的結果。

TOP

cbl0924

中學生 Rank: 2

帖子: 75
主題: 20
精華: 0
積分: 89
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 女
註冊時間: 2011-3-11
最後登錄: 2019-7-25

16^#

發表於 2014-8-12 21:22 | 只看該作者

回復 15# ML089

ML089 大謝謝喔我真的很需要.

在ANGELA 給的網址內寫的
客戶名稱有時很冗長，
而且我們往往只記得大約的名稱，無法記得正確全名，
這時候如果有一項功能可以像YAHOO搜尋時，
只輸入關鍵字詞就能自動列出清單讓我們選取,那就方便許多了，

這段話就是我的需求了
因為我表達能力較差一點沒有一開始就仔細明白的敘述我的問題真不好意思

若無閑事掛心頭
便是人間好時節

TOP

cbl0924