[發問] 根據多條件篩選清單

1. 根據 Shop 和 Code 篩選有關 Date 的所有清單。
2. 查出了 Date 的所有清單後，選擇其中一個日期而找出 Amount 金額。
謝謝！

book1.rar (16.39 KB)

樓主熱帖

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-2-26

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

15^#

發表於 2015-4-22 07:07 | 只看該作者

回復 lpk187

總是到了這句： .Add Type:=xlValidateList, AlertStyle:=xlValidAler ...
maiko 發表於 2015-4-22 05:33

這個討論區隨便找都有你要的程式碼，隨便組一組都可以達到你要的目標，看你要不要用心而已！
還有若是程式不能執行，或是你自已不會除錯，最好上傳你的原檔案上來，自有人幫你修正的！

TOP

maiko

中學生 Rank: 2

帖子: 95
主題: 28
精華: 0
積分: 127
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 20
註冊時間: 2011-3-8
最後登錄: 2024-4-1

14^#

發表於 2015-4-22 05:33 | 只看該作者

回復 13# lpk187

總是到了這句： .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=" & aa
就出現錯誤，無法進行。

不過Google上了解了一些資料，竟然發覺都沒有下拉選單不重複值並且排序這方面的程式碼，只好用自己的土辦法去完成這個功能，我想這裡也應該沒有這方面的參考吧。

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-2-26

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

13^#

發表於 2015-4-18 18:26 | 只看該作者

本帖最後由 lpk187 於 2015-4-18 18:27 編輯

回復 11# maiko

要查看工作表事件的逐行"F8"鍵，須先在第一行執行中斷"F9"會比較容易觀察逐行執行時相關的區域變數視窗，
下面是我修改過的程式碼，我有用^^^^^^^標誌是修正原來你要的東西，就像我說的只要修改其中的判斷就可以達到你要的目標，
還有這裡是討論區，不是你要程式的地方，所以希望你可以從程式碼中學到東西！

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [k5].Address Then
'''''''''''''''''''''''''''''^^^^
      Range("B2:G" & Cells(Rows.Count, 2).End(xlUp).Row).AutoFilter
      ActiveWorkbook.Worksheets("工作表1").AutoFilter.Sort.SortFields.Clear
      ActiveWorkbook.Worksheets("工作表1").AutoFilter.Sort.SortFields.Add Key:=Range( _
         "B2:B" & Cells(Rows.Count, 2).End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
         xlSortNormal
      With ActiveWorkbook.Worksheets("工作表1").AutoFilter.Sort
         .Header = xlYes
         .MatchCase = False
         .Orientation = xlTopToBottom
         .SortMethod = xlPinYin
         .Apply
      End With
      Range("B2:G" & Cells(Rows.Count, 2).End(xlUp).Row).AutoFilter

shop = [k3]
Code = [k5]
'^^^^^^^^^^^^^^
For Each Rng In Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row)
      If Rng = shop And Rng.Offset(0, 2) = Code Then
      '''''''''''''''''''''''''''''''''''^^^^^^^^^^^^^^^'
         K = K + 1
         If K = 1 Then
            Set Rn = Rng.Offset(0, 1)
         Else
            Set Rn = Union(Rn, Rng.Offset(0, 1))
         End If
      End If
Next
aa = Rn.Address
If aa = "" Then
      Exit Sub
Else
      With [L3].Validation
         .Delete
         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=" & aa
         .IgnoreBlank = True
         .InCellDropdown = True
         .InputTitle = ""
         .ErrorTitle = ""
         .InputMessage = ""
         .ErrorMessage = ""
         .IMEMode = xlIMEModeNoControl
         .ShowInput = True
         .ShowError = False
      End With
End If
[L3].Select
'^^^^^^^^^^
[L3] = "請選擇日期"

End If
If Target.Address = [L3].Address Then
If [L3] = "請選擇日期" Then End
For Each Rang In Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row)
      If Rang = [k3] And Rang.Offset(0, 1) = [L3] And Rang.Offset(0, 2) = [k5] Then
         [L5] = Rang.Offset(0, 5) '''''''''''''''''''''''''''''''''''''''''^^^^^^^^^^^^^^'
         End
      End If
Next
End If
End Sub

TOP

tyrone123456