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??

樓主熱帖

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2010-8-26 22:23 | 只看該作者

把改變的語句寫在Worksheet_Change事件裡。

TOP

catmm

小學生 Rank: 1

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

3^#

發表於 2010-8-27 13:46 | 只看該作者

我的Listbox是在useform內，所以執行都會出現錯誤

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-8-27 14:45 | 只看該作者

回復 3# catmm

Private Sub UserForm_Initialize()
With ListBox1
.RowSource = "a1:b6"
.ColumnCount = 2
End With
End Sub

複製代碼

TOP

catmm

小學生 Rank: 1

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

5^#

發表於 2010-8-28 15:14 | 只看該作者

可以用喔~~
謝謝大大~~
感恩~~

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

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

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

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

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

10^#

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

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

共用定義.rar (9.3 KB)

學海無涯_不恥下問

TOP