- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
回復 1# lifedidi
運算式 Offset(RowOffset, ColumnOffset)
RowOffset
選用 Variant 該範圍要位移的列數，
可為正值、負值或 0 (零)。正值表示向下位移，
負值表示向上位移。預設值為 0。
ColumnOffset
選用 Variant 該範圍要位移的欄數，
可為正值、負值或 0 (零)。正值表示向右位移，
負值表示向左位移。預設值為 0。
以你目前之範例模式為解題：- Sub Test()
- Dim x As String, y As String
-
- x = "A1"
- y = "0,0"
- ' 錯誤引用： Sheet2.Range(x).Offset(y) = "A"
- Sheet2.Range(x).Offset(Val(y), Val(Mid(y, InStr(y, ",") + 1))) = "A"
-
- y = "1,3"
- ' 錯誤引用： Sheet2.Range(x).Offset(y) = "B"
- Sheet2.Range(x).Offset(Val(y), Val(Mid(y, InStr(y, ",") + 1))) = "B"
-
- y = "3,1"
- ' 錯誤引用： Sheet2.Range(x).Offset(y) = "C"
- Sheet2.Range(x).Offset(Val(y), Val(Mid(y, InStr(y, ",") + 1))) = "C"
- End Sub
|
|
發表於 2014-3-31 17:28
| 