afu9240

帖子: 164
主題: 45
精華: 0
積分: 211
點名: 0
作業系統: 微軟
軟體版本: win10
閱讀權限: 20
性別: 女
註冊時間: 2017-8-28
最後登錄: 2022-8-5

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2018-5-28 15:23 | 只看該作者

[發問] 請教前輩..如何用時間範圍查詢,將查詢的清單顯示另一個工作表

各位前輩高手大家好

想利用時間範圍的查詢將屬於這查詢範圍的資料另顯示在工作表2,求協助code該如何寫呢~~感謝*20000

20180528.zip (24.52 KB)

樓主熱帖

yvonne

rouber590324

高中生 Rank: 3 Rank: 3

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

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

9^#

發表於 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

羅

TOP

afu9240

中學生 Rank: 2

帖子: 164
主題: 45
精華: 0
積分: 211
點名: 0
作業系統: 微軟
軟體版本: win10
閱讀權限: 20
性別: 女
註冊時間: 2017-8-28
最後登錄: 2022-8-5

8^#

發表於 2018-6-1 10:39 | 只看該作者

回復 7# rouber590324

感謝 R大回覆,,非常感謝 *20000,CODE是改成下面這樣執行嗎??我這邊好像步行執行,再請R大指教感謝R大*20000
工作表2.Range("C1") = InputBox("輸入值")
工作表2.Range("C2") = 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) >= 工作表2.Range("C1") And 工作表1.Cells(M, 1) <= 工作表2.Range("C2") Then
工作表2.Cells(y + 1, 1).Resize(, 6).Value = 工作表1.Cells(M, 1).Resize(, 6).Value
y = y + 1
End If
Next

yvonne

TOP

rouber590324

高中生 Rank: 3 Rank: 3

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

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

7^#

發表於 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

羅

TOP

afu9240

中學生 Rank: 2

帖子: 164
主題: 45
精華: 0
積分: 211
點名: 0
作業系統: 微軟
軟體版本: win10
閱讀權限: 20
性別: 女
註冊時間: 2017-8-28
最後登錄: 2022-8-5

6^#

發表於 2018-5-31 13:34 | 只看該作者

回復 4# rouber590324

R大你好
   很抱歉又要再跟您請教一下,inputbox如果尋找改成C攔的名稱去貼到工作表2, Code的修改方式也一樣嗎????用名稱去貼

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

yvonne

TOP

afu9240

中學生 Rank: 2

帖子: 164
主題: 45
精華: 0
積分: 211
點名: 0
作業系統: 微軟
軟體版本: win10
閱讀權限: 20
性別: 女
註冊時間: 2017-8-28
最後登錄: 2022-8-5

5^#

發表於 2018-5-29 15:36 | 只看該作者

回復 4# rouber590324

感謝R大,真的太厲害了感謝*20000

yvonne

TOP

rouber590324

高中生 Rank: 3 Rank: 3

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

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

4^#

發表於 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

羅

TOP

afu9240

中學生 Rank: 2

帖子: 164
主題: 45
精華: 0
積分: 211
點名: 0
作業系統: 微軟
軟體版本: win10
閱讀權限: 20
性別: 女
註冊時間: 2017-8-28
最後登錄: 2022-8-5

3^#

發表於 2018-5-29 09:00 | 只看該作者

回復 2# rouber590324

感謝r大的提供與回復感謝*20000

透過r大的code真的能將資料貼到工作表2,只是時間範圍好像無法抓取,,譬如我要抓2015/03~2015/04 ,不知是不是r大的code
" If 工作表1.Cells(M, 1) >= "105/01/08" And 工作表1.Cells(M, 1) <= "105/05/18" Then...."(日期只接註明的關西所以範圍無法抓取,還在研究中

感謝r大,再請r大協助謝謝

yvonne

TOP

rouber590324

高中生 Rank: 3 Rank: 3

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

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

2^#

發表於 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

羅

TOP