[發問] EXCEL多個工作頁資料彙整

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

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

2^#

發表於 2013-12-9 16:02 | 只看該作者

回復 1# jcchiang

Sub ex()
Dim Ar(0 To 7), A As Range, C As Range, TCode, Cnt
Ar(0) = Array("客戶代號", "客戶批號", "Icode", "輸入量", "TCode", "B1", "B1失敗", "B2", "B2失敗", "B3", "B3失敗", "B4", "B4失敗")
Set A = Sheet2.[F:F].Find("A120004", lookat:=xlWhole)
If Not A Is Nothing Then
For i = -3 To 3
TCode = A.Offset(i, 7).Value
Set C = Sheet1.[D:D].Find(TCode, lookat:=xlWhole)
b1 = C.Offset(, 4).Value
b2 = C.Offset(, 6).Value
b3 = C.Offset(, 8).Value
b4 = C.Offset(, 10).Value
Cnt = A.Offset(i, 4).Value
Ar(i + 4) = Array(A.Offset(i, -5).Value, A.Value, A.Offset(i, 2).Value, Cnt, TCode, b1, b1 / Cnt, b2, b2 / Cnt, b3, b3 / Cnt, b4, b4 / Cnt)
Next
End If
With Sheet3
.[A:M].ClearContents
For i = 7 To 13
.Columns(i).NumberFormat = "0.00%"
Next
.[A1].Resize(8, 13) = Application.Transpose(Application.Transpose(Ar))
End With
End Sub

複製代碼

學海無涯_不恥下問

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

3^#

發表於 2013-12-9 17:47 | 只看該作者

回復 2# Hsieh
謝謝版大指導,有幾個問題請教一下
1.客戶批號都顯示"A120004"

2.還有一種情形是該客戶批號無TCode時B1~B4就顯示N/A
或是有TCode但在Sheet1找不到此TCode,B1~B4就顯示N/A

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

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

4^#

發表於 2013-12-9 17:51 | 只看該作者

本帖最後由 Hsieh 於 2013-12-9 17:54 編輯

回復 3# jcchiang
Ar(i + 4) = Array(A.Offset(i, -5).Value, A.OffSet(i,0).Value, A.Offset(i, 2).Value, Cnt, TCode, b1, b1 / Cnt, b2, b2 / Cnt, b3, b3 / Cnt, b4, b4 / Cnt)

找不到的情況，你要什麼方式處理？

學海無涯_不恥下問

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

5^#

發表於 2013-12-9 17:59 | 只看該作者

回復 4# Hsieh

第一個問題我已經解決,要回覆版主時剛好看到版主也回覆了
Ar(i + 4) = Array(A.Offset(i, -5).Value, A.Offset(i, 0).Value, A.Offset(i, 2).Value, Cnt, TCode, b1, b1 / Cnt, b2, b2 / Cnt, b3, b3 / Cnt, b4, b4 / Cnt)

如果找不到資料就讓欄位顯示N/A

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

6^#

發表於 2013-12-9 21:41 | 只看該作者

回復 4# Hsieh

板大不好意思因為趕去上課,所以第2個問題沒寫得很清楚
1.客戶批號抓出後,某一客戶批號Tcode欄沒有編碼(空白),那該筆客戶批號的B1~B4就顯示0
2.某Tcode在Sheet1裡找不到相符資料,那該筆資料的B1~B4就顯示0

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

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

7^#

發表於 2013-12-10 08:37 | 只看該作者

回復 6# jcchiang

Sub ex()
Dim Ar(0 To 7), A As Range, C As Range, TCode, Cnt
Ar(0) = Array("客戶代號", "客戶批號", "Icode", "輸入量", "TCode", "B1", "B1失敗", "B2", "B2失敗", "B3", "B3失敗", "B4", "B4失敗")
Set A = Sheet2.[F:F].Find("A120004", lookat:=xlWhole)
If Not A Is Nothing Then
For i = -3 To 3
TCode = A.Offset(i, 7).Value
Set C = Sheet1.[D:D].Find(TCode, lookat:=xlWhole)
If Not C Is Nothing And C <> "" Then b1 = C.Offset(, 4).Value Else b1 = 0
If Not C Is Nothing And C <> "" Then b2 = C.Offset(, 6).Value Else b2 = 0
If Not C Is Nothing And C <> "" Then b3 = C.Offset(, 8).Value Else b3 = 0
If Not C Is Nothing And C <> "" Then b4 = C.Offset(, 10).Value Else b4 = 0
Cnt = A.Offset(i, 4).Value
Ar(i + 4) = Array(A.Offset(i, -5).Value, A.Offset(i, 0).Value, A.Offset(i, 2).Value, Cnt, TCode, b1, b1 / Cnt, b2, b2 / Cnt, b3, b3 / Cnt, b4, b4 / Cnt)
Next
End If
With Sheet3
.[A:M].ClearContents
For i = 7 To 13
.Columns(i).NumberFormat = "0.00%"
Next
.[A1].Resize(8, 13) = Application.Transpose(Application.Transpose(Ar))
End With
End Sub

複製代碼

學海無涯_不恥下問

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

8^#

發表於 2013-12-10 10:32 | 只看該作者

回復 7# Hsieh

第一個問題已無問題
第二個問題似乎有錯誤(有TCode但在Sheet1內找不到對應的TCode)
錯誤.JPG

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

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

9^#

發表於 2013-12-10 10:52 | 只看該作者

回復 8# jcchiang

If Not C Is Nothing And Tcode<> "" Then b1 = C.Offset(, 4).Value Else b1 = 0
   If Not C Is Nothing And  Tcode<> "" Then b2 = C.Offset(, 6).Value Else b2 = 0
   If Not C Is Nothing And Tcode<> "" Then b3 = C.Offset(, 8).Value Else b3 = 0
   If Not C Is Nothing And  Tcode<> "" Then b4 = C.Offset(, 10).Value Else b4 = 0

學海無涯_不恥下問

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

10^#

發表於 2013-12-10 11:47 | 只看該作者

回復 9# Hsieh

目前問題已解決,另外請教一個問題
我想把0改為顯示"N/A"
If Not C Is Nothing And TCode <> "" Then b1 = C.Offset(, 4).Value Else b1 = "N/A"
If Not C Is Nothing And TCode <> "" Then b2 = C.Offset(, 6).Value Else b2 = "N/A"
If Not C Is Nothing And TCode <> "" Then b3 = C.Offset(, 8).Value Else b3 = "N/A"
If Not C Is Nothing And TCode <> "" Then b4 = C.Offset(, 10).Value Else b4 = "N/A"
但是執行到
Ar(i + 4) = Array(A.Offset(i, -5).Value, A.Offset(i, 0).Value, A.Offset(i, 2).Value, Cnt, TCode, b1, b1 / Cnt, b2, b2 / Cnt, b3, b3 / Cnt, b4, b4 / Cnt)
會顯示型態不符合,是否是要另外定義參數型態