jimmy510

中學生 Rank: 2

帖子: 18
主題: 4
精華: 0
積分: 57
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: TAIWAN
註冊時間: 2012-2-23
最後登錄: 2023-7-12

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-7-16 09:45 | 只看該作者

多頁出貨資料如何在新分頁依範圍日期選出排列呢?

依範圍日期選出排列

請教各位大大:
我在EXCEL資料裡面有多個分頁如下

有辦法可以在新的分頁裡面依指定的日期範圍將多個分頁內符合的資料回傳到新分頁中嗎?
起來的校果如下面的排列..

請精通EXCELL的大大幫我解答,謝謝..

樓主熱帖

jimmy510

中學生 Rank: 2

帖子: 18
主題: 4
精華: 0
積分: 57
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: TAIWAN
註冊時間: 2012-2-23
最後登錄: 2023-7-12

10^#

發表於 2012-9-6 15:19 | 只看該作者

感謝版大~~解決了~~謝謝你的幫忙

JIMMY

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 41
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-16

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2012-9-6 15:11 | 只看該作者

回復 8# jimmy510

當工作表A3以下沒有日期資料才會出錯

Sub 出貨查詢()
Dim ar()
ReDim Preserve ar(s)
ar(s) = Array("尺寸", "日期", "數量", "單價", "總額", "備註")
s = 1
st = InputBox("輸入起始日期", , Format(DateAdd("M", -12, Date), "e/m/d"))
st1 = InputBox("輸入起始日期", , Format(Date, "e/m/d"))
For Each sh In Sheets
With sh
If .Name Like "刀模*" Then
For Each a In .Range(.[A3], .Cells(.Rows.Count, 1).End(xlUp))
If Not IsDate(a) Then GoTo 10
If CDate(a) >= CDate(st) And CDate(a) <= CDate(st1) Then
ReDim Preserve ar(s)
ar(s) = Array(.[A1].Value, a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 1).Value * a.Offset(, 2).Value, a.Offset(, 3).Value)
s = s + 1
End If
10
Next
End If
End With
Next
If s > 1 Then
With Worksheets.Add(after:=Sheets(Sheets.Count))
.[A1].Resize(s, 6) = Application.Transpose(Application.Transpose(ar))
End With
Else
MsgBox "沒有符合資料"
End If
End Sub

複製代碼

學海無涯_不恥下問

TOP

jimmy510

中學生 Rank: 2

帖子: 18
主題: 4
精華: 0
積分: 57
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: TAIWAN
註冊時間: 2012-2-23
最後登錄: 2023-7-12

8^#

發表於 2012-9-6 14:46 | 只看該作者

回復 7# Hsieh

版大你好,附上有問題的資料,麻煩你幫我看一下,我有看過日期設定應該都沒錯..

美林.rar (28.04 KB)

JIMMY

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 41
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-16

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2012-9-6 14:05 | 只看該作者

ˋ回復 6# jimmy510

你的日期並非正確的日期格式
例如99/9/3這會被認為是1999/9/3
可能是你的日期超出系統許可日期範圍
導致Cdate函數出錯
請上傳錯誤檔案以釐清原因

學海無涯_不恥下問

TOP

jimmy510

中學生 Rank: 2

帖子: 18
主題: 4
精華: 0
積分: 57
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
性別: 男
來自: TAIWAN
註冊時間: 2012-2-23
最後登錄: 2023-7-12

6^#

發表於 2012-9-6 09:14 | 只看該作者

回復 5# Hsieh

感謝版大的解答~我測試後真的是我想要的東西~謝謝..可是有些小問題想請教,當我將這個VBA放到別的活頁簿使用時巨集再跑時有發生錯誤,執行偵錯時跑到
If CDate(a) >= CDate(st) And CDate(a) <= CDate(st1) Then 錯誤,請問有哪邊需要調整嗎?

JIMMY

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 41
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-16

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2012-9-5 16:24 | 只看該作者

本帖最後由 Hsieh 於 2012-9-5 16:26 編輯

回復 4# jimmy510
不知道是不是這個意思
彙整資料又有計算欄位可能用VBA比較單純

Sub ex()
Dim ar()
ReDim Preserve ar(s)
ar(s) = Array("尺寸", "日期", "數量", "單價", "總額", "備註")
s = 1
st = InputBox("輸入起始日期", , Format(DateAdd("M", -12, Date), "e/m/d"))
st1 = InputBox("輸入起始日期", , Format(Date, "e/m/d"))
For Each sh In Sheets
With sh
If .Name Like "刀模*" Then
For Each a In .Range(.[A3], .Cells(.Rows.Count, 1).End(xlUp))
If CDate(a) >= CDate(st) And CDate(a) <= CDate(st1) Then
ReDim Preserve ar(s)
ar(s) = Array(.[A1].Value, a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 1).Value * a.Offset(, 2).Value, a.Offset(, 3).Value)
s = s + 1
End If
Next
End If
End With
Next
If s > 1 Then
With Worksheets.Add(after:=Sheets(Sheets.Count))
.[A1].Resize(s, 6) = Application.Transpose(Application.Transpose(ar))
End With
Else
MsgBox "沒有符合資料"
End If
End Sub