- 帖子
- 1
- 主題
- 1
- 精華
- 0
- 積分
- 2
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 10
- 註冊時間
- 2011-6-29
- 最後登錄
- 2020-6-9
|
有一個excel vba的檔案，規劃如下，三活頁，資料表、輸入表單、列印，"輸入表單" 將相關資訊鍵入完畢後，壓"送出鈕"將資料寫入到"資料表"；"列印"頁是以VLOOKUP的方式作業，當輸入序號，檔案會從"資料表"對應出相關資料，之後在列印。然因使用的窗口越來越多，希望能克服下列相關問題，
希望一：把"資料表"的活頁單獨獨立出一個excel檔案，並將該檔案放置在固定的路徑，輸入頁點送出時，資料即寫到獨立的檔案內
希望二：列印頁，輸入資料時，從原先檔案的"資料表"內呼叫，改成呼叫"獨立出去後的資料表檔案"，只要路徑改變即可嗎?
Sub ADDON()
Dim motoSht As Worksheet, sakiSht As Worksheet, sakiRng As Range
Dim motoHani()
Set motoSht = Sheets("輸入表單")
Set sakiSht = Sheets("資料表")
motoHani = Array("C3", "C4", "C5", "C6")
Set sakiRng = sakiSht.Range("B" & Rows.Count).End(xlUp).Offset(1)
For i = 0 To UBound(motoHani)
sakiRng.Offset(0, i).Value = motoSht.Range(motoHani(i)).Value
Next
sakiRng.Offset(, i).Value = Time
Sheets("資料表").Select
Range("B5:AD3000").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Key2:=Range("C4"), Order2:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
MsgBox "- - 加油 - -"
Range("B4").Select
Sheets("列印").Select
Range("C5").Select
End Sub |
|
發表於 2011-7-14 14:55
| 
