可以將運自出來的值給RANGE(),當引數嗎?

如:Dim str_ran as string,若運算後 str_ran ="A:1040"那麼這樣的指定可以成立嗎? RANGE(STR_RAN)?

樓主熱帖

V98

et5323

尊貴會員 Rank: 5 Rank: 5

帖子: 128
主題: 13
精華: 1
積分: 118
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 50
性別: 男
來自: 四川成都邛崃
註冊時間: 2010-9-13
最後登錄: 2017-5-12

2^#

發表於 2010-12-29 15:40 | 只看該作者

两种情况下可以成立:
1.使用名称:
假设工作簿存在名称"AAA",则下列代码成立:
Sub test1()
Dim str_ran As String
str_ran = "AAA"
MsgBox Range(str_ran).Address
End Sub

2.使用单元格范围:
Sub test2()
Dim str_ran As String
str_ran = "a1:c300"
MsgBox Range(str_ran).Address
End Sub

你所说的"A:1040"既不能作为名称(因为它不符合名称的命名规则),又不能表示出单元格的范围.

TOP

linshin1999

中學生 Rank: 2

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

3^#

發表於 2010-12-29 21:43 | 只看該作者

et5323大大如果如下片段,
rows_count = Range("A1").CurrentRegion.Rows.Count
str_rows_count = "1:" + Str(rows_count)
Rows(str_rows_count).RowHeight = 19.2
會跑不下去,因為會出現如下的錯誤訊息"型態不合",rowS_count = 1040
str_rows_count = "1:1040"
如果改成這樣就可以跑:rows("1:1040"),rows()不接受變數引數乎?
謝謝指導!!

V98

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兔年全勤獎章

4^#

發表於 2010-12-29 22:03 | 只看該作者

回復 3# linshin1999
rows_count = Range("A1").CurrentRegion.Rows.Count
str_rows_count = "1:" + Str(rows_count)
MsgBox Len(Str(rows_count))
MsgBox Len(rows_count)
這可告訴你錯在哪裡
'''''''''''''''''''''''''''''''''''''''''''''''''''下面可行
rows_count = Range("A1").CurrentRegion.Rows.Count
str_rows_count = "1:" & rows_count 字串連接要用 &
Rows(str_rows_count).RowHeight = 19.2

TOP

linshin1999