返回列表 上一主題 發帖

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

jimmy510

帖子
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

帖子
18 
主題
4 
精華
0 
積分
57 
點名
0  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
20 
性別
男 
來自
TAIWAN 
註冊時間
2012-2-23 
最後登錄
2023-7-12 
2#
發表於 2012-8-20 09:36 | 只看該作者
[版主管理留言]
  • Hsieh(2012-8-20 09:42): 請上傳範例檔案

一個多月了~怕各位大大太忙沒看到~~頂一下^^
JIMMY

TOP

jimmy510

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

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

本帖最後由 jimmy510 於 2012-8-23 13:24 編輯

回復 2# jimmy510
範例檔如壓縮檔,請問可以在新分頁中將某區段日期的所有分頁資料排列出來嗎?例如我要選99/6/1至99/9/1所有的出貨資料..
煩請資深的版友幫我一下~謝謝..
文件.rar (15.36 KB)
JIMMY

TOP

jimmy510

帖子
18 
主題
4 
精華
0 
積分
57 
點名
0  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
20 
性別
男 
來自
TAIWAN 
註冊時間
2012-2-23 
最後登錄
2023-7-12 
4#
發表於 2012-9-5 13:47 | 只看該作者
抱歉囉~再頂一下~我文件已經上傳了~有空的版友幫忙一下吧^^~謝謝..
JIMMY

TOP

Hsieh

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

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比較單純
  1. Sub ex()
  2. Dim ar()
  3. ReDim Preserve ar(s)
  4. ar(s) = Array("尺寸", "日期", "數量", "單價", "總額", "備註")
  5. s = 1
  6. st = InputBox("輸入起始日期", , Format(DateAdd("M", -12, Date), "e/m/d"))
  7. st1 = InputBox("輸入起始日期", , Format(Date, "e/m/d"))
  8. For Each sh In Sheets
  9. With sh
  10.    If .Name Like "刀模*" Then
  11.      For Each a In .Range(.[A3], .Cells(.Rows.Count, 1).End(xlUp))
  12.        If CDate(a) >= CDate(st) And CDate(a) <= CDate(st1) Then
  13.           ReDim Preserve ar(s)
  14.           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)
  15.           s = s + 1
  16.        End If
  17.      Next
  18.     End If
  19. End With
  20. Next
  21. If s > 1 Then
  22. With Worksheets.Add(after:=Sheets(Sheets.Count))
  23. .[A1].Resize(s, 6) = Application.Transpose(Application.Transpose(ar))
  24. End With
  25. Else
  26. MsgBox "沒有符合資料"
  27. End If
  28. End Sub
複製代碼
學海無涯_不恥下問

TOP

jimmy510

帖子
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

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

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

帖子
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

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
9#
發表於 2012-9-6 15:11 | 只看該作者
回復 8# jimmy510



    當工作表A3以下沒有日期資料才會出錯
  1. Sub 出貨查詢()
  2. Dim ar()
  3. ReDim Preserve ar(s)
  4. ar(s) = Array("尺寸", "日期", "數量", "單價", "總額", "備註")
  5. s = 1
  6. st = InputBox("輸入起始日期", , Format(DateAdd("M", -12, Date), "e/m/d"))
  7. st1 = InputBox("輸入起始日期", , Format(Date, "e/m/d"))
  8. For Each sh In Sheets
  9. With sh
  10.    If .Name Like "刀模*" Then
  11.      For Each a In .Range(.[A3], .Cells(.Rows.Count, 1).End(xlUp))
  12.      If Not IsDate(a) Then GoTo 10
  13.        If CDate(a) >= CDate(st) And CDate(a) <= CDate(st1) Then
  14.           ReDim Preserve ar(s)
  15.           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)
  16.           s = s + 1
  17.        End If
  18. 10
  19.      Next
  20.     End If
  21. End With
  22. Next
  23. If s > 1 Then
  24. With Worksheets.Add(after:=Sheets(Sheets.Count))
  25. .[A1].Resize(s, 6) = Application.Transpose(Application.Transpose(ar))
  26. End With
  27. Else
  28. MsgBox "沒有符合資料"
  29. End If
  30. End Sub
複製代碼
學海無涯_不恥下問

TOP

jimmy510

帖子
18 
主題
4 
精華
0 
積分
57 
點名
0  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
20 
性別
男 
來自
TAIWAN 
註冊時間
2012-2-23 
最後登錄
2023-7-12 
10#
發表於 2012-9-6 15:19 | 只看該作者
感謝版大~~解決了~~謝謝你的幫忙
JIMMY

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題