vba - Rows內變數應如何寫 - Excel程式區

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

1^# 跳轉到 »

發表於 2016-8-4 08:23 | 顯示全部帖子

回復 1# jim

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

複製代碼

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

2^#

發表於 2016-8-4 09:28 | 顯示全部帖子

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

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

3^#

發表於 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

4^#

發表於 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

複製代碼

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

5^#

發表於 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###
兩點之間取最小及最大值，由下圖你便會瞭解了。