syuan

回復  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)

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

祝各位中秋佳節愉快～～

Hsieh

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 物件。