麻辣家族討論版版 » Excel程式區 » VBA 移動儲存格位置，另存新檔及刪除

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

[發問] VBA 移動儲存格位置，另存新檔及刪除

小學生 Rank: 1

帖子: 30
主題: 4
精華: 0
積分: 34
點名: 0
作業系統: win 8
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2020-12-9
最後登錄: 2021-4-5

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2020-12-11 15:23 | 只看該作者

[發問] VBA 移動儲存格位置，另存新檔及刪除

大家好，我第一次發帖，如果有什麼不對的請見諒
因為每月都要上交月結報表，不想再剪剪貼貼，所以在嘗試用兩個按鈕解決它們 ^^"
問題
1) 我只能做到剪貼第一個工作頁，貼上後怎樣試都不能令儲存格自動跳到下一列的空格上，令到貼上第二個工作表的資料時都把第一個工作頁貼上的都覆蓋了 /.\
2) 我試著把貼好的"月結'的分頁另存作一個新的工作表，並且把一併存檔的巨集指令及圖案按鈕刪除，但我只能做到開了一個新檔案，不會自動存檔及刪除巨集指令及圖案按鈕

十分感謝幫忙

test save&clear.zip (18.78 KB)

樓主熱帖

收藏

小學生 Rank: 1

帖子: 30
主題: 4
精華: 0
積分: 34
點名: 0
作業系統: win 8
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2020-12-9
最後登錄: 2021-4-5

17^#

發表於 2020-12-29 16:19 | 只看該作者

回復 16# luhpro

謝謝你的解答，整體來說我之所以要三個迴圈是因為一個分頁等於一條生產線，每月尾都需要把各牌子的貨物分別做成月結表，所以需要這樣迴圈，謝謝幫忙

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

16^#

發表於 2020-12-28 21:37 | 只看該作者

本帖最後由 luhpro 於 2020-12-28 21:43 編輯

回復准提部林

不好意思，我轉擋了並再上傳，麻煩了
lovenice831 發表於 2020-12-28 10:49

我覺得你的程式問題應該不在那裡喔.

以下是程式內容:

Sub Monthly()
Dim xS As Worksheet, T$, i&, xE As Range
Call clean
Set xS = Sheets("Monthly")
If xS.[j2] = "" Then MsgBox "please choose! ": Exit Sub
For i = 1 To 3
With Sheets(1)
If .FilterMode Then .ShowAllData
.[c8].AutoFilter Field:=1, Criteria1:=xS.[j2]
Set xE = xS.Cells(Rows.Count, 1).End(xlUp)(5)
.AutoFilter.Range.Offset(1, 2).Resize(, 30).Copy xE
.ShowAllData
End With
Next i
End Sub

複製代碼

我想問題應該在於 :
.[c8].AutoFilter Field:=1, Criteria1:=xS.[j2] 後面的 Criteria1:=xS.[j2],
你的篩選鍵值都是相同的(因為xS的[j2]的值不會變,在程式中這格子內的值必須由User手動做變更)
當初就不太了解你3個迴圈怎麼都是抓相同的資料?

現在依你的敘述,
我想你改成這樣試試:
Dim xS As Worksheet, T$, i&, xE As Range, vPro()
vPro = Array("A", "B", "C")
......
For i = 0 To 2
......
.[c8].AutoFilter Field:=1, Criteria1:=vPro(i)

小學生 Rank: 1

帖子: 30
主題: 4
精華: 0
積分: 34
點名: 0
作業系統: win 8
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2020-12-9
最後登錄: 2021-4-5

15^#

發表於 2020-12-28 14:07 | 只看該作者

回復 14# 准提部林
好的，我再試一下，不好意思，麻煩你了

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-26

14^#

發表於 2020-12-28 12:43 | 只看該作者

回復 13# lovenice831

一樣打不開,
WITH SHEETS(1)
應該是
WITH SHEETS(i)

小學生 Rank: 1

帖子: 30
主題: 4
精華: 0
積分: 34
點名: 0
作業系統: win 8
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2020-12-9
最後登錄: 2021-4-5

13^#

發表於 2020-12-28 10:49 | 只看該作者

回復 10# 准提部林

不好意思，我轉擋了並再上傳，麻煩了

test Inventory.rar (237 KB)

小學生 Rank: 1

帖子: 30
主題: 4
精華: 0
積分: 34
點名: 0
作業系統: win 8
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2020-12-9
最後登錄: 2021-4-5

12^#

發表於 2020-12-28 10:36 | 只看該作者

回復 11# luhpro

先謝過，我試轉1 ，但轉一後只能顯示A 的結果，B 和C 的都依然是空白

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

11^#

發表於 2020-12-27 16:46 | 只看該作者

回復准提部林
謝謝幫忙，但我不知出現什麼問題，試著試著，現在全都用不到，麻煩幫忙查看一下，謝謝
...
lovenice831 發表於 2020-12-26 20:13

Monthly程式.jpg

.[c8].AutoFilter Field:=1, Criteria1:=xS.[j2]

試試看...

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-26

10^#

發表於 2020-12-27 12:11 | 只看該作者

回復 9# lovenice831

我的舊版excel打不開附件,
看別人能否幫忙~~

小學生 Rank: 1

帖子: 30
主題: 4
精華: 0
積分: 34
點名: 0
作業系統: win 8
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2020-12-9
最後登錄: 2021-4-5

9^#

發表於 2020-12-26 20:13 | 只看該作者

回復 8# 准提部林
謝謝幫忙，但我不知出現什麼問題，試著試著，現在全都用不到，麻煩幫忙查看一下，謝謝

test Inventory.rar (486.34 KB)

靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。

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