返回列表 上一主題 發帖

[發問] range()內語法問題

caichen3

帖子
80 
主題
27 
精華
0 
積分
108 
點名
0  
作業系統
windows 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-3-6 
最後登錄
2012-8-23 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-5-8 13:33 | 只看該作者

[發問] range()內語法問題

想請問各位大大，像是下列紅色字體Range("c3")儲存格會因為插入列、行而變動的話，該如何寫呢？？
a=range("B1").value   '插入行數
a預設為3，更改為5
若a值更改,原先設定U範圍[C3]至最後，改為[E3]至最後
請問該如何寫range括號內的格式呢？？？？
For Each U In Range([C3], [C3].End(xlDown))
   .....      
   .....
Next
收藏 分享
寶寶

kevin681024

帖子
23 
主題
0 
精華
0 
積分
51 
點名
0  
作業系統
WIn7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-3-30 
最後登錄
2013-7-10 
2#
發表於 2012-5-8 13:41 | 只看該作者
回復 1# caichen3
  1. 改成
  2. For Each U In Range(Cells(3, a), Cells(3, a).End(xlDown))這樣呢？
複製代碼
80 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2012-5-8 13:56 | 只看該作者
回復 1# caichen3
a=range("B1").value   '插入行數,a預設為3，更改為5
For Each U In Range([C3], [C3].End(xlDown))  

這 [C3].End(xlDown) 要視工作表[C3] 往下儲存格的資料是否連續有關  不一定會是 3 或 5
  1. For Each u In [C3].Resize( a)    試試看這是你要的嗎
  2.        MsgBox U.Address
  3. Next
複製代碼

TOP

caichen3

帖子
80 
主題
27 
精華
0 
積分
108 
點名
0  
作業系統
windows 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-3-6 
最後登錄
2012-8-23 
4#
發表於 2012-5-8 14:37 | 只看該作者
感謝大大們的大力幫助
寶寶

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題