請教 linda
請把A檔案連續號碼模式中的7個號碼執行模式,再加一個可隨意個碼就可執行的功能,在一列中不一定要有7 個號碼才能執行,像B檔案一樣。
請把增加的程式碼貼上來,讓我貼看看。
謝謝了!
2006-11-24 04:30:26 · 3 個解答 · 發問者 yosi 2 in 電腦與網際網路 ➔ 軟體
︴獨特 × 瘋格╭☆﹋
謝謝妳的好意,本題屬專案中的一小部份,惟由原著作人幫忙較適宜,下次有機會再登門請益。
2006-11-25 05:24:08 · update #1
改成隨意數字7碼,修正如下:(1) 設執行工作表的V5~AB5為7碼隨意數字輸入區(2) 將連續碼的Macro1()的內容修改另存為Macro11()如下: '開始產生執行x次 x = 1 Y = 1 '增加新工作表數 Range("AD7:AD131").ClearContents '清除完成記號 Do While Range("AC" & x + 6) = "OK" '直到不OK Range("AJ12") = Range("AA" & x + 6) Range("AK12") = Range("AB" & x + 6) Range("S" & x + 6 & ":Y" & x + 6).Copy Range("AG13:AM13").PasteSpecial Paste:=xlPasteValues 'COPY 7碼 For AI = 1 To 7 '共產生7個工作表 Range("AI12") = Cells(5, AI + 21) '隨意數字 If Range("AG2") <> 0 Then '增加新工作表 sheet(Y) Sheets.Add.Move After:=Sheets(Y + 5) Sheets(Y + 6).Name = "sheet" & Y Sheets(Y + 6).Activate …………(相同省略) End With Range("執行!AI12:AK2").Copy Destination:=Range("P1") '記錄 Range("執行!AG13:AM13").Copy Destination:=Range("P2") ' 7碼 Sheets("執行").Activate …………(相同省略) Range("C1:P1").Copy Destination:=Range("sheet" & Y & "!A1") …………(相同省略) Range("A1:Q" & N).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "AF1:AF" & M), CopyToRange:=Range("sheet" & Y & "!A1:N1"), Unique:=False End If Y = Y + 1 End If Next AI x = x + 1 Loop Range("AI24") = Y - 1 '記錄新增工作表數 '產生比對表 Application.Run "lo比對表A.xls!colo11" Sheets("執行").Select ActiveWorkbook.SaveAs Filename:=mydir & "lo比對表AX.xls" '另存新檔 MsgBox "完成!"(3) 將連續碼的colo1()的內容前半修改另存為colo11()如下:N3 = Range("AI24") '新增工作表數For SN = 1 To N3 Sheets(SN + 6).Select '基本工作有6個 c = Array(Range("P2"), Range("Q2"), Range("R2"), Range("S2"), Range("T2"), Range("U2"), Range("V2")) 'c陣列填入數字
2006-11-27 11:10:18 · answer #1 · answered by linda 4 · 0⤊ 0⤋
指定人員回答, 會令人懷疑用意, 請三思喔!
2006-11-27 10:48:25 · answer #2 · answered by Frank Chiou 7 · 0⤊ 0⤋
你在說什麼???我看不懂....
可以清楚一點嗎???
我家有EXCEL的書....我可以幫你查察...
我是資處科的學生...現在我們也有再交....
假如我找不到...我在問我老師
2006-11-25 04:00:41 · answer #3 · answered by ? 6 · 0⤊ 0⤋