返回列表 上一主題 發帖

VBA 在迴圈中選取另一工作表的儲存格範圍

snakei14702

帖子
9 
主題
4 
精華
0 
積分
13 
點名
0  
作業系統
VISTA 
軟體版本
OFFICE 2003 
閱讀權限
10 
性別
男 
註冊時間
2013-11-12 
最後登錄
2021-6-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
2#
發表於 2013-11-12 20:36 | 只看該作者
上傳附件會清楚一些！

TOP

snakei14702

帖子
9 
主題
4 
精華
0 
積分
13 
點名
0  
作業系統
VISTA 
軟體版本
OFFICE 2003 
閱讀權限
10 
性別
男 
註冊時間
2013-11-12 
最後登錄
2021-6-17 
3#
發表於 2013-11-12 23:16 | 只看該作者
回復 2# joey0415

不好意思...請問一下附件事什麼東西呢?
謝謝...

TOP

luhpro

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

附件:

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

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題