請教前輩..如何用時間範圍查詢,將查詢的清單顯示另一個工作表 - Excel程式區

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

1^# 跳轉到 »

發表於 2018-5-28 16:55 | 顯示全部帖子

Sub robert2()
工作表2.[A2:F65536].ClearContents
x = 工作表1.[A65536].End(xlUp).Row
Y = 工作表2.[A65536].End(xlUp).Row
For M = 2 To x
If 工作表1.Cells(M, 1) >= "105/01/08" And 工作表1.Cells(M, 1) <= "105/03/05" Then
工作表2.Cells(Y + 1, 1).Resize(, 6).Value = 工作表1.Cells(M, 1).Resize(, 6).Value
Y = Y + 1
End If
Next
End Sub

羅

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

2^#

發表於 2018-5-29 10:20 | 顯示全部帖子

Sub robert2()

a = InputBox("請輸入啟始日期: ")
B = InputBox("請輸入結束日期: ")
工作表2.[A2:F65536].ClearContents
x = 工作表1.[A65536].End(xlUp).Row
Y = 工作表2.[A65536].End(xlUp).Row
For M = 2 To x
If 工作表1.Cells(M, 1) >= a And 工作表1.Cells(M, 1) <= B Then
工作表2.Cells(Y + 1, 1).Resize(, 6).Value = 工作表1.Cells(M, 1).Resize(, 6).Value
Y = Y + 1
End If
Next
End Sub

羅

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

3^#

發表於 2018-5-31 13:53 | 顯示全部帖子

a.b 若改為儲存格例: 啟始日期=工作表2.RANGE("C1")
結束日期=工作表2.RANGE("C2")
則原
If 工作表1.Cells(M, 1) >= a And 工作表1.Cells(M, 1) <= B Then
改
If 工作表1.Cells(M, 1) >= 工作表2.RANGE("C1") And 工作表1.Cells(M, 1) <= 工作表2.RANGE("C2") Then

羅

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

4^#

發表於 2018-6-5 11:53 | 顯示全部帖子

Sub robert2()
工作表2.[A2:F65536].ClearContents
x = 工作表1.[A65536].End(xlUp).Row
Y = 工作表2.[A65536].End(xlUp).Row
For M = 2 To x
If 工作表1.Cells(M, 1) >= 工作表2.Cells(1, 3) And 工作表1.Cells(M, 1) <= 工作表2.Cells(2, 3) Then
工作表2.Cells(Y + 1, 1).Resize(, 6).Value = 工作表1.Cells(M, 1).Resize(, 6).Value
Y = Y + 1
End If
Next
End Sub

羅