English Deutsch Français Italiano Español Português 繁體中文 Bahasa Indonesia Tiếng Việt ภาษาไทย
所有分類

請教 linda
請把A檔案連續號碼模式中的7個號碼執行模式,再加一個可隨意個碼就可執行的功能,在一列中不一定要有7 個號碼才能執行,像B檔案一樣。
請把增加的程式碼貼上來,讓我貼看看。
謝謝了!

2006-11-24 04:30:26 · 3 個解答 · 發問者 yosi 2 in 電腦與網際網路 軟體

︴獨特 × 瘋格╭☆﹋
謝謝妳的好意,本題屬專案中的一小部份,惟由原著作人幫忙較適宜,下次有機會再登門請益。

2006-11-25 05:24:08 · update #1

3 個解答

改成隨意數字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

fedest.com, questions and answers