返回列表下一主題上一主題發帖

[發問] 請問要如何簡化/更改VBA, 完成往後的Order呢?

boomf2

小學生 Rank: 1

帖子: 17
主題: 7
精華: 0
積分: 24
點名: 0
作業系統: windwo10
軟體版本: excel2013
閱讀權限: 10
註冊時間: 2017-1-7
最後登錄: 2023-2-18

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2017-1-9 01:31 | 顯示全部帖子

[發問] 請問要如何簡化/更改VBA, 完成往後的Order呢?

如何

本帖最後由 boomf2 於 2017-1-9 01:34 編輯

我做的按鈕1 很笨
只能成功在新的SHEET產生了特定ORDER 1 - Sheet (A店001).

請問要如何簡化/更改VBA, 完成往後的15張 Order呢?

請高指導一下要怎麼寫vba...:'(

Order.rar (7.16 KB)

樓主熱帖

boomf2

小學生 Rank: 1

帖子: 17
主題: 7
精華: 0
積分: 24
點名: 0
作業系統: windwo10
軟體版本: excel2013
閱讀權限: 10
註冊時間: 2017-1-7
最後登錄: 2023-2-18

論壇贊助勳章

2^#

發表於 2017-1-9 08:24 | 顯示全部帖子

我做的按鈕1 很笨
只能成功在新的SHEET產生了特定ORDER 1 - Sheet (A店001).

請問要如何簡化/更改VBA ...
boomf2 發表於 2017-1-9 01:31

Order更新1.rar (30.99 KB)

原來我放錯附件了...這個才對的

我做的按鈕1
只能成功在新的SHEET產生了特定ORDER 1 - Sheet (A店001).

請問要如何簡化/更改VBA, 完成往後的15張 Order呢?
其實我想把全部15個都放在新WORKBOOK, 分成15張SHEET的.

請高指導一下要怎麼寫vba...:'(

TOP

boomf2

小學生 Rank: 1

帖子: 17
主題: 7
精華: 0
積分: 24
點名: 0
作業系統: windwo10
軟體版本: excel2013
閱讀權限: 10
註冊時間: 2017-1-7
最後登錄: 2023-2-18

論壇贊助勳章

3^#

發表於 2017-1-9 23:28 | 顯示全部帖子

回復 5# singo1232001

不好意思,我有製作範本時,不小心重覆了.
是不會重覆的.

我正在慢慢了解詰些CODE...需要點時間...

TOP

boomf2

小學生 Rank: 1

帖子: 17
主題: 7
精華: 0
積分: 24
點名: 0
作業系統: windwo10
軟體版本: excel2013
閱讀權限: 10
註冊時間: 2017-1-7
最後登錄: 2023-2-18

論壇贊助勳章

4^#

發表於 2017-1-11 07:32 | 顯示全部帖子

回復 6# 准提部林

謝謝版主准提部林.
我昨晚沒怎睡試了一下作一些改動......可惜我不成功..

你可以再幫我看看嗎?

Xl0000061B.rar (120.45 KB)

我在X10000061B.xls 裡
黃色的一行:

想在VBA加入= K 的話, 才新增到new workbook new sheet
=fff 的話, 我打算之後再
新增橙色是店鋪名:
我想把它放在明細表裡的 "K" - 這個我試了很久…但不成功.

在明細表裡:

想把原本"K"裡的Brr(1, i) 放在 "J"
已改成Resize(1,10), 新增了一個Brr(1, i) 到最後.
xS.Cells(N, 1).Resize(1, 10) = Array("DK", "", "'" & xDate, "DN", "B99", Brr(1, i), Arr(j, 1), "", Brr(j, i), Brr(1, i))

最後我想把新增出來的明細表裡的Sheet, 再SAVE AS 成單獨FILE...

我試過Personal VBA project book 加入分割SHEET成XLS 的SUB, 可是...只分拆了一個出來...怪怪的.
請指教一下...謝謝

TOP

boomf2