麻辣家族討論版版 » Excel程式區 » 有關於迴圈sheets

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

[發問] 有關於迴圈sheets

中學生 Rank: 2

帖子: 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，所以我想到用迴圈
不過卻遇到問題：

下列是我的程式碼，請問是哪邊出問題，或是有其他更好的方法可以完成這程式??
請各位大佬不吝賜教~謝謝~

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

樓主熱帖

收藏

中學生 Rank: 2

帖子: 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並沒有修改

中學生 Rank: 2

帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

3^#

發表於 2011-5-3 19:00 | 顯示全部帖子

各位大大

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

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

中學生 Rank: 2

帖子: 97
主題: 32
精華: 0
積分: 167
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-22
最後登錄: 2017-8-16

4^#

發表於 2011-5-4 10:04 | 顯示全部帖子

我了解意思了

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

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。

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