EXCEL VB 表單 ComboBox2.List 串聯 兩欄儲存格數值??

prince120101

各位大大 請問一下

1. 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

複製代碼

如後方 想再接 K欄(k4:k100)的 數值 請問要使用什麼串聯??用 & 會出現錯誤@@~~

GBKEE

回復 1# prince120101
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Sh As Worksheet, AR(1 To 2)
   
4.     If ListBox1.Value = "FPR-002" Then
   
5.        Set Sh = Workbooks("地毯庫存.xlsm").Sheets(ListBox1.Value)
   
6.         With ComboBox2
   
7.             .Clear
   
8.             .ColumnCount = 2
   
9.             AR(1) = Application.Transpose(Sh.Range("j4:j100"))
   
10.             AR(2) = Application.Transpose(Sh.Range("K4:K100"))
    
11.             .List = Application.Transpose(AR)
    
12.         End With
    
13.     End If
    
14. End Sub

複製代碼

prince120101

回復 2# GBKEE


謝謝 G大幫忙~
試過可以用了~感恩