12
返回列表 上一主題 發帖

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

syuan

帖子
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

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

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

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
12
返回列表 上一主題