EXCEL VB 表單 ComboBox2.List 串聯 兩欄儲存格數值??
- 帖子
- 25
- 主題
- 7
- 精華
- 0
- 積分
- 53
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2014-12-4
- 最後登錄
- 2018-6-6
|
EXCEL VB 表單 ComboBox2.List 串聯 兩欄儲存格數值??
各位大大 請問一下- If ListBox1.Value = "FPR-002" Then ComboBox2.List = Workbooks("地毯庫存.xlsm").Sheets("FPR-002").Range("j4:j100").Value & Value.Workbooks("地毯庫存.xlsm").Sheets("FPR-002").Range("k4:k100").Value
|
|
|
|
|
|
|
|
- 帖子
- 25
- 主題
- 7
- 精華
- 0
- 積分
- 53
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2014-12-4
- 最後登錄
- 2018-6-6
|
3#
發表於 2014-12-10 09:55
| 只看該作者
回復 2# GBKEE
謝謝 G大幫忙~
試過可以用了~感恩 |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2014-12-9 16:13
| 只看該作者
回復 1# prince120101
試試看- Option Explicit
- Sub Ex()
- Dim Sh As Worksheet, AR(1 To 2)
- If ListBox1.Value = "FPR-002" Then
- Set Sh = Workbooks("地毯庫存.xlsm").Sheets(ListBox1.Value)
- With ComboBox2
- .Clear
- .ColumnCount = 2
- AR(1) = Application.Transpose(Sh.Range("j4:j100"))
- AR(2) = Application.Transpose(Sh.Range("K4:K100"))
- .List = Application.Transpose(AR)
- End With
- End If
- End Sub
|
|
|
|
|
|
|
|
