123
返回列表 發帖
黑道明

Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7
11# 跳轉到 »
發表於 2018-10-12 16:47 | 只看該作者
初步搞掂, 如下:

係Excel vba file輸入有關資料, 然後按"Transfer制". 我當dept係control, 即係根據唔同de ...
myricky 發表於 2018-10-12 15:22



    唔該C兄~~
公司個MON太細......  1280*1024........
返去用 2560*1440先再慢慢試~~

TOP

黑道明

Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7
12#
發表於 2018-10-16 10:50 | 只看該作者
本帖最後由 黑道明 於 2018-10-16 10:51 編輯
初步搞掂, 如下:

係Excel vba file輸入有關資料, 然後按"Transfer制". 我當dept係control, 即係根據唔同de ...
myricky 發表於 2018-10-12 15:22



    C兄，個STAFF運行冇問題~
轉用真LIST都冇問題~而且好快~~4分鐘做左42個FILE

但係冇左個JOB TAB 係新FILE~~
個report 應該係有 SHEET STAFF  , 同SHEET JOB

另外一開始 Dim data(10000, 10)
10000 同 10 分別代表咩~~???

TOP

myricky

13#
發表於 2018-10-16 11:08 | 只看該作者
提示: 作者被禁止或刪除 內容自動屏蔽

TOP

黑道明

Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7
14#
發表於 2018-10-16 13:56 | 只看該作者
本帖最後由 黑道明 於 2018-10-16 14:24 編輯
個sheet "job"係我係master file求其加上去, 去simulate你個master file有好多個sheet, 而你要求既只係將 ...
myricky 發表於 2018-10-16 11:08



    明白~10000,10 係咩~~

master file 得兩張SHEET

係唔係咁簡單可以做到COPY SHEET 連公式?
可以係邊步加???
  1. sheettocopy = Cells(8, "b")

  3. Sub MoveSheets()
  4.      Sheets(sheettocopy).Select
  5.     Sheets(sheettocopy).Copy After:=datasheet

  7. End Sub
複製代碼
係你個CODE上面加~就好似得左~~
我再試試先~
  1. Array(datasheet, sheettocopy)
複製代碼

TOP

myricky

15#
發表於 2018-10-16 14:25 | 只看該作者
提示: 作者被禁止或刪除 內容自動屏蔽

TOP

黑道明

Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7
16#
發表於 2018-10-16 14:59 | 只看該作者
本帖最後由 黑道明 於 2018-10-16 15:01 編輯
第二張sheet洗唔洗再篩選? 如果唔洗, 可以插入以下藍色呢句 (sheet名自己改）

Workbooks(datawb).Activ ...
myricky 發表於 2018-10-16 14:25
  1. Workbooks(datawb).Activate
  2. Sheets(Array(datasheet, sheettocopy)).Select
  3. Sheets(Array(datasheet, sheettocopy)).Copy
複製代碼
呢個公式同你果個 , 個結果表面好似一樣~
其實有冇唔同~?.?

另外試左好耐唔得原來係.....
=ActiveSheet

TOP

myricky

17#
發表於 2018-10-16 15:01 | 只看該作者
提示: 作者被禁止或刪除 內容自動屏蔽

TOP

黑道明

Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7
18#
發表於 2018-10-16 15:07 | 只看該作者
你呢個係咪macro record出黎？
myricky 發表於 2018-10-16 15:01



    GOOGLE出黎~
我之前自己諗係=datawb........

COPY  之後~呢行出BUG~~
Range(Cells(strow, "a"), Cells(totalrow, lastcol)).ClearContents

用呢個反而冇出DEBUG
  1. Workbooks(datawb).Activate
  2. Sheets(Array(datasheet, sheettocopy)).Select
  3. Sheets(Array(datasheet, sheettocopy)).Copy

  5. Range(Cells(strow, "a"), Cells(totalrow, lastcol)).ClearContents
複製代碼

TOP

myricky

19#
發表於 2018-10-16 15:12 | 只看該作者
提示: 作者被禁止或刪除 內容自動屏蔽

TOP

黑道明

Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7
20#
發表於 2018-10-16 17:22 | 只看該作者
本帖最後由 黑道明 於 2018-10-16 17:32 編輯
即係點？你宜家仲有冇問題？
myricky 發表於 2018-10-16 15:12



    我用Array完成左件樹~
用少左一日時間C&P~多謝C兄~~

不過又有另一個問題......
Mail Merge.....

整好左既LIST , 要個別獨立SEND比唔同E-MAIL
EXCEL會有 人名 , E-MAIL , 附件檔案名A , 附件檔案名B , 附件檔案名C , 附件檔案名D , 附件路徑.
附件檔案名B , 附件檔案名C , 附件檔案名D 係封封都一樣.
附件檔案名A 跟人名或公司 , 每個都唔同~

另外 WORD 入面有 內文既 TEMPLATE.....

然後我GOOGLE......想去試既時候.......

OUTLOOK入面冇人地寫既 Mail Merge 制.......
然後又搵唔到方法可以SAVE唔同附件........

其實....有咩方法可以做到.....???

T.T

TOP

123
返回列表