Board logo

標題: VBA 在迴圈中選取另一工作表的儲存格範圍 [打印本頁]
作者: snakei14702    時間: 2013-11-12 19:29     標題: VBA 在迴圈中選取另一工作表的儲存格範圍

軟體:EXCEL
                                                                           
版本:VBA
                                                                                
標題可能會有點模糊，我直接把CODE貼上來解釋，懇請大大門幫我解答!!

For i = 1 To 5
If Sheets("工作表2").Range("a" & i) = "us" Then
Sheets("工作表2").Select
Sheets("工作表2").Range(Cells(i, 1), Cells(i, 12)).Select
End If
Next i
                                                                                                                                                           
因為我想在 SHEET1 處理一些東西，但是需要用到 SHEET2 的資料，
可是我這樣的寫法好像無法在SHEET1作業時，選取SHEET2表中的一定範圍..
他會出現應用程式或物件定義上的錯誤....
                                                                                
不知版上神人可否給予解答，要如何讓他能運作呢?

如果要把範圍改成一整個rows要如何改呢?
謝謝!!
作者: joey0415    時間: 2013-11-12 20:36

上傳附件會清楚一些！
作者: snakei14702    時間: 2013-11-12 23:16

回復 2# joey0415

不好意思...請問一下附件事什麼東西呢?
謝謝...
作者: luhpro    時間: 2013-11-12 23:23

本帖最後由 luhpro 於 2013-11-12 23:26 編輯

回復 1# snakei14702
1. 不行.
Select 只能用在 WorkSheet (運作中的工作表,或是目前能看到的工作表)上,
故而你要先以 Sheets("工作表2").Acticate 將畫面切換至 工作表2,
才能對其內的儲存格做 Select 的動作,
不過若是想 Copy 的話是可以不用將焦點切過去該Sheet,
而是直接就可以 Copy 的.

2.
.Rows(1).Select
.Rows("1:5").select
.Rows(lRow & ":" & lRow + 3).Select

回復  joey0415
不好意思...請問一下附件事什麼東西呢?
謝謝...
snakei14702 發表於 2013-11-12 23:16

附件:
[attach]16682[/attach]
就是要 "上傳" 範例檔到這個網站上,
並將上傳的檔案加到正在發表的文章內,
以便他人可以下載或參閱.(要記得去除可能包含個人資料的資料內容)



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)