依指定欄位中的資料自動判定輸入對應的檔案資料中???

帖子: 134
主題: 27
精華: 0
積分: 168
點名: 0
作業系統: WINXP
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
來自: 雲林
註冊時間: 2010-10-6
最後登錄: 2018-5-13

論壇贊助勳章

2^#

發表於 2012-7-11 22:08 | 顯示全部帖子

感謝GBKEE版主，小弟執行後有二問題請問：

1.未開啟檔案狀況下，會造成跑出錯誤訊息：執行階段錯誤 9':陣列索引超出範圍，是否可再設定即使未開啟也可自動將資料寫入（或判定未開自動開啟??）
2.B欄位依來源資料為IS或OS即自動填入2，否則一律為空白（計劃員為1205的有一筆OS及IS，希望可於B欄自動填入2）

類別訂單號碼項次料號未結數量下單日交期回覆日到期日天數客戶代碼客戶名稱庫存量計畫員
OS AA12354 1 B 250,000.00 2012/7/8 2012/8/10 5465798 1205
IS AB123458 4 AA 158,789.00 2012/7/5 2012/8/13 4986798 1205

帖子: 134
主題: 27
精華: 0
積分: 168
點名: 0
作業系統: WINXP
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
來自: 雲林
註冊時間: 2010-10-6
最後登錄: 2018-5-13

論壇贊助勳章

3^#

發表於 2012-7-12 23:34 | 顯示全部帖子

感謝GBKEE版主巨集已符合小弟的需求，先研究看看，有問題再請教了，再次感謝^^

帖子: 134
主題: 27
精華: 0
積分: 168
點名: 0
作業系統: WINXP
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
來自: 雲林
註冊時間: 2010-10-6
最後登錄: 2018-5-13

論壇贊助勳章

4^#

發表於 2012-7-16 10:22 | 顯示全部帖子

GBKEE版主這幾日使用有幾問題再請教，仍再麻煩了，先在此敬謝：

1.小弟將原訂單資料COPY到別檔案執行，卻無法將資料COPY到訂單報表中（但工作表名稱均為SHEET1），只能在原有巨集的檔案中執行才會動作???
2.新報表中的C欄希望可套取當天日期，G及J欄位原最後一欄已有套取公式，如何將新資料延用原公式
3.延伸另一問題，如僅只是整列複製，原巨集如何修改???可按原要求自動COPY到指定的工作表中（原工作表均已有資料，自動往最後一列開始加上該新增資料）

帖子: 134
主題: 27
精華: 0
積分: 168
點名: 0
作業系統: WINXP
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
來自: 雲林
註冊時間: 2010-10-6
最後登錄: 2018-5-13

論壇贊助勳章

5^#

發表於 2012-7-19 18:08 | 顯示全部帖子

還請GBKEE版主幫忙是否可達成小弟需求的功能,以便套取時更方便,謝謝...^^

帖子: 134
主題: 27
精華: 0
積分: 168
點名: 0
作業系統: WINXP
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
來自: 雲林
註冊時間: 2010-10-6
最後登錄: 2018-5-13

論壇贊助勳章

6^#

發表於 2012-9-25 17:05 | 顯示全部帖子

老問題一直未解決，再次詢問高手解惑
GBKEE版主設計的巨集可依各條件將資料COPY的各檔案的欄位中，但因該報表中一些欄位都已有設定公式自動套取數據，小弟是以下程式碼去套取原預設的公式，但其中有一個檔案套取列數會超過很多列（例：原新資料增加5列，結果執行此巨集後其增加了幾百列），請問是否此巨集可再修改套取新增加的列數就好，謝謝...^^
Range("G2").Select
Selection.End(xlDown).Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:A" & [H2].End(xlDown).Row)
Range("A1:A" & [H2].End(xlDown).Row).Select

帖子: 134
主題: 27
精華: 0
積分: 168
點名: 0
作業系統: WINXP
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
來自: 雲林
註冊時間: 2010-10-6
最後登錄: 2018-5-13

論壇贊助勳章

7^#

發表於 2012-9-26 08:46 | 顯示全部帖子

感謝Hsieh 版主，小弟有一問題再請問，如果於A~C報表原固定欄位即有公式，如何在將新資料COPY到報表時，將各欄位的公式直接延伸套用????

訂單報表中有公式的欄位：G、J、N、P、R、S、W

附件中的A檔案有預設公式...

資料.rar (24.63 KB)

帖子: 134
主題: 27
精華: 0
積分: 168
點名: 0
作業系統: WINXP
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
來自: 雲林
註冊時間: 2010-10-6
最後登錄: 2018-5-13

論壇贊助勳章

8^#

發表於 2012-9-26 17:31 | 顯示全部帖子

感謝Hsieh 版主，因小弟原訂單資料中除了G及J欄位有公式外，尚有公式的欄位還有N,P,R,S,W欄位（欄位順序數為14,16,18,19,23），小弟依樣畫葫蘆設定公式如下，卻無法延伸套取公式，請問那裡有錯呢????
Ar = Array(A.Offset(, -10).Value, IIf(A.Offset(, -12) = "IS" Or A.Offset(, -12) = "IN", 2, ""), Date, A.Offset(, -7).Value, A.Offset(, -3).Value, A.Offset(, -11).Value, B.Offset(-1, 6).FormulaR1C1, A.Offset(, -9).Value, A.Offset(, -8).Value, B.Offset(-1, 9).FormulaR1C1, A.Offset(, -5).Value, , , B.Offset(-1, 13).FormulaR1C1, , B.Offset(-1, 15).FormulaR1C1, , B.Offset(-1, 17).FormulaR1C1, B.Offset(-1, 18).FormulaR1C1, , , , B.Offset(-1, 22).FormulaR1C1)