[發問] 日期區間查詢(跨年月)

sammay

請問各位前輩：
日期區間查詢應如何實做呢？
例如：在userform1中按下查詢按鈕，再(於userform3中)選擇100年12月到101年1月按下確定按鈕後，將結果輸出到查詢明細？
sh-test1-20120116.rar (36.42 KB)

sh-test1-20120116
下載次數: 32

2012-1-16 08:42

Hsieh

回復 15# afu9240

我新增一個表單試作流程，你參考看看

    各項付款.zip (47.28 KB)

下載次數: 7

2018-3-9 15:28

afu9240

回復 14# Hsieh

H大,請教一下
     為何我資料瀏覽_listbox選擇單號瀏覽時無法顯示內容......可以協助嗎???~謝謝

下載 (63.18 KB)

2018-3-8 09:42

各項付款.zip (44.26 KB)

下載次數: 2

2018-3-8 09:42

Hsieh

回復 13# afu9240
你工作表1的欄位改變
Private Sub CommandButton4_Click() '匯入計算按鈕
Set d = CreateObject("Scripting.Dictionary")
s = DateValue(ComboBox2 & "/" & ComboBox3 & "/1")
x = DateAdd("m", 1, DateValue(ComboBox5 & "/" & ComboBox4 & "/1")) - 1
With 工作表1
For Each a In .Range(.[A2], .[A2].End(xlDown))
   If a >= s And a <= x Then
      d(a.Offset(, 1).Value) = d(a.Offset(, 2).Value) + a.Offset(, 2)
   End If
Next
End With
With Sheets("總表")
  For Each a In .[C3:C13]
     a.Offset(, 1) = d(a.Value)
  Next
End With
End Sub

afu9240

回復 12# Hsieh


    H大 您好
   
      附件為何帶入您給的code 無法執行???再請教H大  謝謝 20180302.zip (37.86 KB)

下載次數: 6

2018-3-2 14:19

Hsieh

回復 11# afu9240
這是創建字典物件的意思
就是將資料以關鍵字存放內容
基本語法
object.add key,item
object為字典物件
add方法增加項目
key為關鍵索引，以add方法加入項目時，若索引值重複則會產生錯誤
item為對應key索引值之內容
所以用事由做為索引值，對應值為加總金額先存在字典物件中
再由總表事由欄位對應取出字典內容填入

afu9240

回復 10# Hsieh

CreateObject("Scripting.Dictionary") '不懂其意思 可以大概說明解惑嗎??感恩不盡

Hsieh

回復 9# afu9240

1. Private Sub CommandButton4_Click() '查詢按鈕
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. s = DateValue(ComboBox2 & "/" & ComboBox3 & "/1")
   
4. x = DateAdd("m", 1, DateValue(ComboBox5 & "/" & ComboBox4 & "/1")) - 1
   
5. With 工作表1
   
6. For Each a In .Range(.[A2], .[A2].End(xlDown))
   
7.    If a >= s And a <= x Then
   
8.       d(a.Offset(, 2).Value) = d(a.Offset(, 2).Value) + a.Offset(, 1)
   
9.    End If
   
10. Next
    
11. End With
    
12. With Sheets("總表")
    
13.   For Each a In .[C3:C13]
    
14.      a.Offset(, 1) = d(a.Value)
    
15.   Next
    
16. End With
    
17. End Sub

複製代碼

複本 如何將資料匯入總表.zip (33.03 KB)

下載次數: 10

2018-2-27 17:08

afu9240

回復 6# GBKEE

G大 您好
  如果日期格式為我附件這種類型要如何取日期範圍出來,再貼在新的工作表呢!!! 查詢日期區間資料.zip (31.65 KB)

下載次數: 5

2018-2-27 16:20

JOYARK

謝謝提供學習非常實用