帖子: 25
主題: 7
精華: 0
積分: 53
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-12-4
最後登錄: 2018-6-6

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-12-24 17:34 | 只看該作者

[發問] Range()內字串

請問各位大大

下列這四行Range()裡面的字串可以只用一行表示嗎??

Range("A4").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlUp)).Select

複製代碼

樓主熱帖

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2014-12-24 19:43 | 只看該作者

回復 1# prince120101

我只能寫到2行…

Sub test()
[a4].End(4).Select
Range(Selection, Selection.End(3).End(3)).Select
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-12-24 21:13 | 只看該作者

回復 1# prince120101
是這樣嗎?

Sub Ex()
With Range("A4")
Range(.Cells, .End(xlDown).End(xlDown).End(xlUp)).Select
End With
End Sub

複製代碼

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

TOP

prince120101

中學生 Rank: 2

帖子: 25
主題: 7
精華: 0
積分: 53
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-12-4
最後登錄: 2018-6-6

4^#

發表於 2014-12-25 10:48 | 只看該作者

回復 3# GBKEE
回復 2# owen06

感謝 owen06 GBKEE 的回覆

會有這想法是
我的EXCEL VBA 表單上

動作程序
有兩個ListBox
ListBox1 內容是 sheet1~sheet9
當選擇sheet1時
ListBox2內容會顯示 sheet1"A4"之後儲存格有資料的內容
當選擇sheet2時
ListBox2內容會顯示 sheet2"A4"之後儲存格有資料的內容..等等

然而這 sheet1~9 "A4" 一開始是無資料的後續會增加

Range("A4").Select
If ListBox1.Value = "sheet1" Then ListBox2.List = Workbooks("活頁簿1.xlsm").Sheets("sheet1").Range(Selection, Selection.End(xlDown)).Value
If ListBox1.Value = "sheet2" Then ListBox2.List = Workbooks("活頁簿1.xlsm").Sheets("sheet2").Range(Selection, Selection.End(xlDown)).Value

複製代碼

那時候測試後如果換選擇sheet2時這程序就出現錯誤了~
後來也就想說看可不可以把Range("A4")放入 Range(Selection, Selection.End(xlDown))裡面

Range("A4").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlUp)).Select

複製代碼

這是那時候用巨集錄製的
但如果遇到一開始"A4"沒資料的時候
這動作也就不成立了

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

5^#

發表於 2014-12-25 11:02 | 只看該作者

回復 4# prince120101
試試看

If ListBox1.Value <> "" Then
ListBox2.Clear
With Workbooks("活頁簿1.xlsm").Sheets(ListBox1)
If .Range("A4").End(xlDown).Row <> .Rows.Count Then '有資料
ListBox2.List = .Range(.Range("A4"), .Range("A4").End(xlDown)).Value
End If
End With
End If

複製代碼

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

TOP

ashan0418

中學生 Rank: 2

帖子: 59
主題: 5
精華: 0
積分: 75
點名: 293
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 基隆
註冊時間: 2012-7-5
最後登錄: 2025-11-4

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章

6^#

發表於 2014-12-25 11:05 | 只看該作者

回復 2# owen06

owen06 大大

可否請教end(3)中的3代表什麼意思??
能從何處查詢相關的資訊呢??

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

7^#

發表於 2014-12-25 11:51 | 只看該作者

回復 6# ashan0418

  那是程式的簡碼
end(1)=end(xltoleft)
         2 =       xltoright
         3 =       xlup
         4 =       xldown

很多後面有接括號的語法，其實都有代碼可以輸入以節省時間，只是要怎麼查可能要其他高手才能解答了，
我也是無意間google時看到的。

TOP

ashan0418