1234
返回列表 上一主題 發帖

[發問] 縮小下拉式選單範圍

cbl0924

帖子
75 
主題
20 
精華
0 
積分
89 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
女 
註冊時間
2011-3-11 
最後登錄
2019-7-25 
11# 跳轉到 »
發表於 2014-8-12 18:02 | 只看該作者
回復 12# ML089


ML089 大  你應該看的出來 我貼上的就是你的圖片吧
我是跟著做了    但是出不來   你展現的模式
而我就是想要得到你所展示的那樣的效果
若無閑事掛心頭
便是人間好時節

TOP

cbl0924

帖子
75 
主題
20 
精華
0 
積分
89 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
女 
註冊時間
2011-3-11 
最後登錄
2019-7-25 
12#
發表於 2014-8-12 18:50 | 只看該作者
回復 12# ML089

ML089  大 你以前所寫的回答 那裏 有

3. 範例檔案
http://www.FunP.Net/317444

但是這個檔案下載下來是 .apk 這樣的副檔名

.apk 不是手機的 app 檔案嗎?
若無閑事掛心頭
便是人間好時節

TOP

ML089

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
13#
發表於 2014-8-12 20:00 | 只看該作者
回復 14# cbl0924


http://www.FunP.Net 上的檔案保存期限只有幾個月，而且會重複使用編號，目前所下載的檔案已經不是我以前上傳的檔案。

晚一點我再找看看電腦裡是否有保存
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

cbl0924

帖子
75 
主題
20 
精華
0 
積分
89 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
女 
註冊時間
2011-3-11 
最後登錄
2019-7-25 
14#
發表於 2014-8-12 21:04 | 只看該作者
難怪 我剛剛下載另一個檔案  居然是minecraft.rar  好像是個遊戲的樣子
也不是 excel
若無閑事掛心頭
便是人間好時節

TOP

cbl0924

帖子
75 
主題
20 
精華
0 
積分
89 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
女 
註冊時間
2011-3-11 
最後登錄
2019-7-25 
15#
發表於 2014-8-12 21:17 | 只看該作者
回復 11# ANGELA

請問 ANGELA 大 你給的網址裡
第一個輸入的函數是
=LOOKUP(REPT("龤",255),銷售記錄輸入!B:B)   

請問"龤" 是甚麼??

我在工作表內都找不到這個
若無閑事掛心頭
便是人間好時節

TOP

cbl0924

帖子
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

ANGELA

帖子
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

ML089

帖子
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

GBKEE

帖子
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模組的程式碼
  1. Option Explicit
  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     Dim Ar(), Ar_List As Variant
  4.     If Target.Address(0, 0) = "F8" Then   'F8儲存閣內容大小是有區別的
  5.         Ar = Application.WorksheetFunction.Transpose(Range("B2", Range("B2").End(xlDown)).Value)
  6.         Ar_List = Filter(Ar, [f8], True)
  7.         'Filter 函數 傳回一個從零開始的陣列，該陣列包含基於指定篩選準則的一個字串陣列的子集。
  8.         If UBound(Ar_List) > -1 Then
  9.             Ar_List = Join(Ar_List, ",")
  10.         Else
  11.             Ar_List = Join(Ar, ",")
  12.         End If
  13.         With Target.Validation
  14.             .Delete
  15.             .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
  16.             xlBetween, Formula1:=Ar_List
  17.             .ShowError = False
  18.         End With
  19.     End If
  20. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

cbl0924

帖子
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

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
1234
返回列表 上一主題