catmm

帖子: 11
主題: 3
精華: 0
積分: 14
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 10
註冊時間: 2010-7-27
最後登錄: 2017-4-27

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-8-26 21:52 | 只看該作者

如何讓ListBox可以隨著儲存格內的數字變化

各位前輩請問一下

如何讓ListBox顯示可以隨著儲存格(A1)內的數字變化
還是要用Textbox??

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 248
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-16

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

12^#

發表於 2010-9-22 23:14 | 只看該作者

VBA說明
語法

運算式.Address(RowAbsolute, ColumnAbsolute, ReferenceStyle, External, RelativeTo)

運算式代表 Range 物件的變數。

參數

名稱必要/選用資料類型描述
RowAbsolute 選用 Variant 如果為 True，則會以絕對參照的形式傳回對列的參照。預設值為 True。
ColumnAbsolute 選用 Variant 如果為 True，則會以絕對參照的形式傳回對欄的參照。預設值為 True。
ReferenceStyle 選用 XlReferenceStyle 參照樣式。預設值為 xlA1。
External 選用 Variant 如果為 True 則會傳回外部參照。如果為 False 則會傳回區域參照。預設值為 False。
RelativeTo 選用 Variant 如果 RowAbsolute 及 ColumnAbsolute 都為 False，而且 ReferenceStyle 為 xlR1C1，則必須包含相對參照的起始點。此引數即為定義起始點的 Range 物件。

學海無涯_不恥下問

TOP

syuan

中學生 Rank: 2

帖子: 50
主題: 12
精華: 0
積分: 143
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: EARTH
註冊時間: 2010-5-24
最後登錄: 2015-5-12

11^#

發表於 2010-9-22 23:12 | 只看該作者

回復 syuan

你的意思是選一張表的對吧? 可以這樣的

dim strsht as string
strsht ="sheet1"

.. ...
kimbal 發表於 2010-8-31 20:04

感謝kimbal大的教導

小弟試了一下，並將您的語法稍改了一下（將宣告拿掉了）

ElseIf UserForm1.ListBox1.ListIndex = 6 And UserForm1.ListBox2.ListIndex = 2 And UserForm1.ListBox3.ListIndex = 0 Then
With UserForm2.ListBox1
   .RowSource = Worksheets("xxxx").Range("M6:N9").Address(, , , 1)
   .ColumnCount = 2
   .ColumnWidths = "100"
End With
UserForm2.Show
這樣執行後，一樣可以達到小弟原先的需求～～

不過小弟原先的程式是有宣告的，用您的語法後，不但行數減少了，原先的的宣告也不需要了！真是一舉數得！

不過小弟好奇的是，在.range("m6:n9")的後面有個加上.Address(,,,1)

小弟想來想去，還是不懂意思！希望您或是各位先進能幫小弟解一下惑！

祝各位中秋佳節愉快～～

錢是很寂莫的，所以會想辦法聚在一起！

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 248
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-16

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2010-8-31 22:46 | 只看該作者

玩一下公共定義
切換檔案工作表試試看有甚麼差別

共用定義.rar (9.3 KB)

學海無涯_不恥下問

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

9^#

發表於 2010-8-31 20:04 | 只看該作者

回復 8# syuan

你的意思是選一張表的對吧? 可以這樣的

dim strsht as string
strsht ="sheet1"

.....
ElseIf UserForm1.ListBox1.ListIndex = 6 And UserForm1.ListBox2.ListIndex = 1 And UserForm1.ListBox3.ListIndex = 1 Then
With UserForm2.ListBox1
   .RowSource = worksheets(strsht).range("m5:n8").address(,,,1)
   .ColumnCount = 2
   .ColumnWidths = "100"
End With
UserForm2.Show

以上回傳sheet1
把strsht="sheet1"  換成 "sheet2" 就會回傳sheet2 的

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

syuan

中學生 Rank: 2

帖子: 50
主題: 12
精華: 0
積分: 143
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: EARTH
註冊時間: 2010-5-24
最後登錄: 2015-5-12

8^#

發表於 2010-8-31 19:39 | 只看該作者

回復 7# GBKEE
感謝GBKEE大的教導

小弟尚有一事不解

如果在EXCEL裡有好幾頁的分頁(Sheet1、Sheet2、Sheet3．．．．），小弟在#6所寫的語法，就是因為有好幾頁的分頁，所以才這樣寫！

小弟不才，那如果想以您這句語法去修改小弟的程式時，請問要如何去改呢？
ListBox1.RowSource = xxxx.Address(, , , 1)

註：以下為小弟套用您的語法來修改，發現好像僅會秀出第一個Sheet的內容而已！
ElseIf UserForm1.ListBox1.ListIndex = 6 And UserForm1.ListBox2.ListIndex = 1 And UserForm1.ListBox3.ListIndex = 1 Then
With UserForm2.ListBox1
   .RowSource = "m5:n8"
   .ColumnCount = 2
   .ColumnWidths = "100"
End With
UserForm2.Show

以上，祝安康！

錢是很寂莫的，所以會想辦法聚在一起！

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

7^#

發表於 2010-8-29 07:49 | 只看該作者

回復 6# syuan
ListBox1.List = xxxx.Value 會固定List的值,為最初設定時xxxx的值
ListBox1.RowSource = xxxx.Address(, , , 1) List的值,會隨xxxx的值而改變

TOP

syuan

中學生 Rank: 2

帖子: 50
主題: 12
精華: 0
積分: 143
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: EARTH
註冊時間: 2010-5-24
最後登錄: 2015-5-12

6^#

發表於 2010-8-28 17:13 | 只看該作者

小弟的寫法（好像比較多了一點．．．．．．）

Private Sub UserForm_Initialize()
Dim xxxx AS Range

Set xxxx = Sheets("xxxx").Range("a1:b2")

With UserForm1.ListBox1
   .ColumnCount = xxxx.Columns.Count
   .ColumnWidths = "100"
   .List = xxxx.Value
End With
End sub

以上僅參考．．．．．

錢是很寂莫的，所以會想辦法聚在一起！

TOP

catmm