帖子: 104
主題: 32
精華: 0
積分: 144
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-2-25
最後登錄: 2022-9-2

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-3-31 16:45 | 只看該作者

[發問] 請問offset(變數)該如何編寫

請教各位先進

Offset是否可以用變數控制呢？想法如下！

小弟測試後怪怪的請教高手謝謝！

x = "A1"

y = "0,0"
Sheet2.Range(x).Offset(y) = "A"

y = "1,3"
Sheet2.Range(x).Offset(y) = "B"

y = "3,1"
Sheet2.Range(x).Offset(y) = "C"

樓主熱帖

c_c_lai

博士班 Rank: 6 Rank: 6

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

2^#

發表於 2014-3-31 17:28 | 只看該作者

回復 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

複製代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2014-3-31 19:59 | 只看該作者

回復 1# lifedidi

Option Explicit
Sub Test()
Dim x As String, y As Variant
x = "A1"
y = "0,0"
y = Split(y, ",")
Sheet2.Range(x).Offset(y(0), y(1)) = "A"
y = "1,3"
y = Split(y, ",")
Sheet2.Range(x).Offset(y(0), y(1)) = "B"
y = "3,1"
y = Split(y, ",")
Sheet2.Range(x).Offset(y(0), y(1)) = "C"
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

4^#

發表於 2014-4-1 07:47 | 只看該作者

本帖最後由 c_c_lai 於 2014-4-1 08:39 編輯

回復 1# lifedidi
回復 3# GBKEE
應用 y = Split(y, ",") 更簡潔，亦是不錯的引用！

TOP

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

5^#

發表於 2014-4-1 23:19 | 只看該作者

回復 1# lifedidi
我想你的問題是想位移向下 a 向右 b
      sheets("TEST").cells(i,j).offset(a,b)="試試看1"
此時 i,j,a,b 均可為變數
      sheets("TEST").cells(i,j).offset(,b)="試試看2"
空白表示維持原列或原欄
      不知有否幫助

TOP