返回列表 上一主題 發帖

[發問] 有關於迴圈sheets

a703130

帖子
97 
主題
32 
精華
0 
積分
167 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-22 
最後登錄
2017-8-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-5-3 18:49 | 只看該作者

[發問] 有關於迴圈sheets

請教各位大佬，我開了很多sheets，各有其名稱，從每一個sheets各複製固定的儲存格到第一個sheet，所以我想到用迴圈
不過卻遇到問題： fail.JPG
下列是我的程式碼，請問是哪邊出問題，或是有其他更好的方法可以完成這程式??
請各位大佬不吝賜教~謝謝~

    Private Sub CommandButton1_Click()
    Dim a As Integer
    For a = 2 To 5
        Sheets(a).Select
        Range(Cells(3, 2), Cells(5, 11)).Select
        Selection.Copy
        Sheets(1).Select
        Range(Cells(3, 2), Cells(5, 11)).Select
        ActiveSheet.Paste
    Next
    End Sub
收藏 分享

a703130

帖子
97 
主題
32 
精華
0 
積分
167 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-22 
最後登錄
2017-8-16 
2#
發表於 2011-5-3 18:51 | 只看該作者
補充一下~當然我是想要從第二個sheet開始將其資料依序貼到sheet1
因為在一開始要從sheet2的資料複製到sheet1就有問題

所以接下來的code並沒有修改

TOP

a703130

帖子
97 
主題
32 
精華
0 
積分
167 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-22 
最後登錄
2017-8-16 
3#
發表於 2011-5-3 19:00 | 只看該作者
各位大大

上個廁所後..我就已經發現問題點了...
因為我上面的程式碼是寫在Microsoft Excel 物件的 sheet1 裡面
當我將程式碼放在模組內就可以正常work

但是我仍不明白為何要多一個步驟??
希望各位大佬能幫忙解答，謝謝

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
257  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-28 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2011-5-3 19:05 | 只看該作者
回復 2# a703130
不知道有沒有會錯意
  1. Private Sub CommandButton1_Click()
  2.     Dim a As Integer
  3.     For a = 2 To 5
  4.         With Sheets(a)
  5.         .Range(.Cells(3, 2), .Cells(5, 11)).Copy Sheets(1).Cells(3 + (a - 2) * 3, 2)
  6.         End With
  7.     Next
  8. End Sub
複製代碼
學海無涯_不恥下問

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2011-5-3 20:01 | 只看該作者
回復 3# a703130
你的程序在是sheet1物件模組
當Sheets(a).Select 後
執行Range(Cells(3, 2), Cells(5, 11)).Select
這裡的Range(Cells(3, 2), Cells(5, 11))是指sheet1工作表的範圍當然會出錯

你將程序移到一般模組 Range與Cells 是指作用中的工作表Sheets(a)範圍 所以不會有錯誤
Sheet1物件模組 如上樓 Hsieh            With Sheets(a)
                                     . Range(.Cells(3, 2), .Cells(5, 11)).....
               就是明那一工作表的範圍不易出錯

TOP

a703130

帖子
97 
主題
32 
精華
0 
積分
167 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-22 
最後登錄
2017-8-16 
6#
發表於 2011-5-4 10:04 | 只看該作者
我了解意思了

Range(Cells(3, 2), Cells(5, 11)).Select
只是單純再sheet1裡面所選擇的
但是我的迴圈卻指定到了sheet(a)
難怪執行會有問題，也謝謝 Hsieh 大幫忙

TOP

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
返回列表 上一主題