vba - Rows內變數應如何寫

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2016-8-4 08:23 | 只看該作者

回復 1# jim

Sub Ex()
[A2] = 84
Rows(([A2] + 16) & ":" & ([A2] + 60)).Select
End Sub

複製代碼

jim

帖子: 87
主題: 26
精華: 0
積分: 119
點名: 0
作業系統: win 7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2010-5-7
最後登錄: 2020-9-28

3^#

發表於 2016-8-4 08:49 | 只看該作者

回復 2# c_c_lai
c_c_lai 多謝

jim

帖子: 87
主題: 26
精華: 0
積分: 119
點名: 0
作業系統: win 7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2010-5-7
最後登錄: 2020-9-28

4^#

發表於 2016-8-4 08:59 | 只看該作者

c_c_lai 高手
若是在變數為 [A2]=84
Set rng = Range([125:h250], [h65536].End(3))
[h125:h250] = ??是否可改寫為 ?? [ H ?? [A2]+43: H??[A2]+166]

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2016-8-4 09:28 | 只看該作者

回復 4# jim
Set rng = Range([125:h250], [h65536].End(3)) ？？？
不太清楚你的表達。

jim

帖子: 87
主題: 26
精華: 0
積分: 119
點名: 0
作業系統: win 7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2010-5-7
最後登錄: 2020-9-28

6^#

發表於 2016-8-4 10:23 | 只看該作者

c_c_lai 多謝關照
[h125:h250]
如同上用 [a2]+43 代表 125 ,[a2]+166 代表 250
Set rng = Range([125:h250], [h65536].End(3))
應如何改寫

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

7^#

發表於 2016-8-4 10:45 | 只看該作者

回復 6# jim
Set rng = Range([125:h250], [h65536].End(3))？
我猜想你是指
[A2] = 84
Set rng = Range(Range("H" & ([A2] + 41)), [H65536].End(3))
目前的範圍值為： H125:H###
(假設 [H65536].End(3) 位址為 H###)

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

8^#

發表於 2016-8-4 10:48 | 只看該作者

回復 6# jim
附上一個實務範例，供參考：

Sub 換月()
Dim cts As Integer, xs As Integer
Dim rng As Range, lDate As Date
Dim 年 As String, 月 As String
With Sheets("XXXXXX")
For xs = 0 To 2
' 將 H1:AL2、H18:AL19、H35:AL36 範圍內之資料清空。
.Range("H" & (xs * 17 + 1) & ":AL" & (xs * 17 + 2)).ClearContents
' 設定 rng 為 H1、H18、以及 H35 欄位。
Set rng = .Range("H" & IIf(xs < 3, xs * 17 + 1, 63))
For cts = 1 To Day(DateSerial(年, 月 + 1, 0)) ' 取得該月天數
rng.Offset(, cts - 1) = cts
' H1、H18、以及 H35 欄位值為幾號；並依序往右延伸。
lDate = DateSerial(年, 月, cts)
' H2、H19、以及 H36 欄位值為星期幾；並依序往右延伸。
rng.Offset(1, cts - 1) = Right(WeekdayName(Weekday(lDate)), 1)
Next cts
Next xs
End With
End Sub

複製代碼

jim

帖子: 87
主題: 26
精華: 0
積分: 119
點名: 0
作業系統: win 7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2010-5-7
最後登錄: 2020-9-28

9^#

發表於 2016-8-4 12:55 | 只看該作者

c_c_lai 謝謝
我的原意是
Set rng = Range([h125:h250], [h65536].End(3))
可否改變為
Set rng = Range("H" & ([A2] + 41:"H"& [A2] + 166), [h65536].End(3)).
此語法對嗎?

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

10^#

發表於 2016-8-4 13:22 | 只看該作者

回復 9# jim
Set rng = Range("H" & ([A2] + 41:"H"& [A2] + 166), [h65536].End(3)).
應該為
Set rng = Range(Range("H" & ([A2] + 41) & ":H" & ([A2] + 166)), [h65536].End(3))
假設 [A2]] = 84，其結果的範圍值為： H125:H###
兩點之間取最小及最大值，由下圖你便會瞭解了。