帖子: 3
主題: 1
精華: 0
積分: 4
點名: 0
作業系統: Windows 9
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2015-12-2
最後登錄: 2015-12-2

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-12-2 09:11 | 只看該作者

[發問] 一開始能用,後來加了一張表格跟內建公式就亂了

本帖最後由 Convulse 於 2015-12-2 09:14 編輯

本來寫了一個Macro 把63個表格的資料貼到一個表格
一開始跑是OK了
但是後來新增了一張表做計算,加了很多公式在裡面
再重跑VBA合併一次資料,就沒辦法抓到全部63個Sheet了, 就一直只能抓某幾個sheet(大概就4張)而已
照理來說新增那張計算的表格,還有裡面公式應該都跟VBA沒有關係( 因為沒有抓那張計算表格的資料),可是就一直抓不到資料:'(
研究了好久都還是不能抓回原本63個sheet裡的資料,想問問為什麼會這樣?
會是Code的問題嗎?那為什麼一開始跑能用呢?拿到原始還沒做計算的表格又可以跑?

附上我寫的程式碼
Sub Merge()
'
'
Sheets("summary").Select
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
  For x = 4 To 66
  Sheets(x).Select
  Application.ScreenUpdating = False
  Range("A2").Select
  Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("summary").Select
  ActiveCell.Select
  ActiveSheet.Paste
  Range("A:A").End(xlDown).Select
  ActiveCell.Offset(1, 0).Select



  Next x
  End Sub


麻煩大家幫幫忙了~~

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

2^#

發表於 2015-12-2 12:13 | 只看該作者

本帖最後由 n7822123 於 2015-12-2 12:16 編輯

回復 1# Convulse

你新增的表格有在前3個sheet之中嗎?

建議你附上檔案，說明你要做到的功能，我想有人會為你解答的，你的程式應該是用錄的再拼湊而成(非常多的select)。

TOP

Convulse

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 4
點名: 0
作業系統: Windows 9
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2015-12-2
最後登錄: 2015-12-2

3^#

發表於 2015-12-2 14:58 | 只看該作者

謝謝樓上的回覆喔

我的檔案太大了應該沒辦法貼上來
的確是用錄的再拚的(沒有辦法全部自己寫啊,哈哈)
我的新增表格在前面3個sheet裡沒錯原始資料從第4張sheet到第66張
想要的功能是把第4張sheet到第66張的資料(每張sheet資料筆數不一樣)全部貼到summary(在第2個sheet)的頁面
然後再另外做一張表格計算summay裡的資料得到我要的答案(計算表格是sheet3)
當我在原始資料上做修改時,再跑次巨集
我修改了資料會再重新貼到summary 這張表然後運算的表格會根據這張表的新資料
跑出新的且正確的我要的答案

不知道這樣解釋夠不夠清楚
是不是一定需要原始檔案

感謝大家啦

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2015-12-2 15:40 | 只看該作者

回復 1# Convulse
我看到這行關閉螢幕更新
Application.ScreenUpdating = False

是否最後有重新設為True

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

Convulse

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 4
點名: 0
作業系統: Windows 9
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2015-12-2
最後登錄: 2015-12-2

5^#

發表於 2015-12-2 17:31 | 只看該作者

回復 4# stillfish00
Hello ,
我加了Application.ScreenUpdating = True 在後面了
再重跑一次確實看到跳到每一頁在運行
可以當跑完回到summary 的時候
又只看到總資料筆數只有某幾個sheet裡的資料了還是沒有全貼過來

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

6^#

發表於 2015-12-2 23:45 | 只看該作者

回復 5# Convulse

某幾頁的資料是否是只有最後幾頁的資料?如果是的話那應該是把前面的資料覆蓋了。

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

7^#

發表於 2015-12-3 08:30 | 只看該作者

回復 1# Convulse

你要不要按F8一步一步執行看看，看問題是出在哪，然後再去想解決的辦法。

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

8^#

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

本帖最後由 c_c_lai 於 2015-12-4 11:28 編輯

回復 1# Convulse
執行看看。

Sub Merge()
'
'
Sheets("summary").Select
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
For x = 4 To 66
Sheets(x).Select
Application.ScreenUpdating = False
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("summary").Select
ActiveCell.Select
ActiveSheet.Paste
' Range("A:A").End(xlDown).Select ' Watch : ActiveCell.Address : "$A$1048576" : String
' ActiveCell.Offset(1, 0).Select ' Watch : <應用程式或物件定義上的錯誤> : Integer
' 依照妳撰寫方式修改成如下，試試看！ (A 欄如為空值，.......，其位址 = "$A$1048576")
Range("A" & ActiveSheet.UsedRange.Rows.Count + 1).Select
Next x
End Sub