[發問] 先不重複篩選後，並自動設為下拉式選單

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

23^#

發表於 2020-5-25 00:04 | 只看該作者

回復 22# 准提部林

感謝版主的教學回覆，我再來好好試試這幾個功能，感謝

哈囉~大家好呀

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-25

22^#

發表於 2020-5-23 09:41 | 只看該作者

回復 21# iceandy6150

1)、為什麼IF的後面都不需要加上 END IF而且除錯都沒問題?
__if 條件 then 結果, 寫成一行, 就不須加 end if

2)、Target指的是滑鼠點到的任何一個儲存格嗎?
__就是selection中的range物件, 可以是單格, 選續範圍, 或不規則選取區塊

3)、我測試了一個小程式，但是只動了一次，就沒動作了，不曉得錯在哪裡?
__Application.EnableEvents = False
  "觸發事件"--關閉, 這是為了避免"重復觸發"造成無限循環,
  程式底下應再多一行:
  Application.EnableEvents = True
  (恢復觸發) 否則下次就沒作用!

4)、Set xA = .Cells(1, -1).Resize(1, 2) 這邊.Resize是什麼功能?
以一個range定點, 向右或向下"擴展"成一個範圍,
  例如: range("a1").resize(4,3)  ---> A4:C4

=============================

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

21^#

發表於 2020-5-22 23:28 | 只看該作者

趁這個版面詢問一下，WorkSheet_Change的用法
底下分別是版主跟龍大的程式碼

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xF As Range, xA As Range
With Target
If .Count > 1 Or .Columns.Count > 1 Or .Row < 2 Or .Column <> [I1].Column Then Exit Sub
Set xA = .Cells(1, -1).Resize(1, 2): xA.ClearContents
If .Value <> "" Then Set xF = [清單!d:d].Find(.Value, Lookat:=xlWhole)
If Not xF Is Nothing Then xA = xF(1, -1).Resize(1, 2).Value
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 9 Then Exit Sub
Application.EnableEvents = False
塞資料入字典
Key$ = Target.Value
Cells(Target.Row, 8) = 下拉選單.D(Key).用途別
Cells(Target.Row, 7) = 下拉選單.D(Key).工作計畫
Application.EnableEvents = True
End Sub

複製代碼

我的問題是
一、為什麼IF的後面都不需要加上 END IF而且除錯都沒問題

二、Target指的是滑鼠點到的任何一個儲存格嗎? 因為可以取得Target.Row
或是Target.Column。
但是Private Sub Worksheet_Change(ByVal Target As Range)又把Target當RANGE ?

三、我測試了一個小程式，但是只動了一次，就沒動作了，不曉得錯在哪裡

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
Application.EnableEvents = False
Target.Interior.ColorIndex = 3
End Sub

複製代碼

照理說，我隨便選一個儲存格，如果該儲存格不是第3欄 (C欄)
   那就離開程式
   如果選到其他欄，那就會把儲存格顏色變紅色
   但是就沒辦法
   就算我選到的儲存格，隨便輸入123，再刪掉，這樣算是有Change了吧?
   也沒動作....

四、Set xA = .Cells(1, -1).Resize(1, 2): xA.ClearContents 這邊.Resize是什麼功能?

以上詢問，謝謝

哈囉~大家好呀

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

20^#

發表於 2020-5-22 23:01 | 只看該作者

回復 15# jackyq

大大，您說的功能我都不會使用，如果有機會，再請您教學一下，謝謝

哈囉~大家好呀

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

19^#

發表於 2020-5-22 22:59 | 只看該作者

回復 18# 准提部林

感謝版主回覆教學，看來也是利用Sheet_Change去做處理
這邊我再研究一下使用方式，謝謝

哈囉~大家好呀

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-25

18^#

發表於 2020-5-22 15:10 | 只看該作者

本帖最後由准提部林於 2020-5-22 15:42 編輯

回復 13# iceandy6150

比如，A選到3大類，B選3中類，C卻選去1小類---(這樣帳的科目就錯了)
_2樓的檔案, 不會有這問題
_未選取第一層, 不會准許選第二層; 選了第一層, 自動幫你篩選出符合第一層的清單,
續選第二層(若第二層空白, 可不用選)後, 再過瀘出第三層, 可以說下拉清單會越來越少,
絕對不會有錯選的問題~~
_至于"清單"來源表, 可不限制往下新增, 只要將公式下拉到底, 會自動判斷清單範圍, 這部份還不用VBA

工作表一用到的VBA:
1) 清空輸入資料(若已將原有內容貼至別處), 並重置下拉清單50行

如果第三層清單不重覆(附檔中有兩個"電費", 修改)

Xl0000170(三層下拉清單)V2.rar (18.12 KB)

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

17^#

發表於 2020-5-20 23:54 | 只看該作者

回復 15# jackyq

聽起來是挺深的，有時間再來搜尋看看這些用法，感謝您的分享與教學

哈囉~大家好呀

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

16^#

發表於 2020-5-20 23:52 | 只看該作者

回復 14# n7822123

感謝您的教學，原來用照片也可以做同樣的功能，又學到一招
也感謝分享網址，會多去看看的

哈囉~大家好呀

jackyq

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

15^#

發表於 2020-5-20 08:26 | 只看該作者

你要的功能想要弄到最容易使用 ( List 易搜 , 支持 mousescroll )

就是把另一個 EXCEL 嵌入到本體 EXCEL

另一個 EXCEL 直接拿來當 List

直接支援 mousescroll , 綜觀查找, 也可篩選查找

ListBox 最大問題: No mousescroll , 東西一多要找到東西有點費力