如上圖所示,我已將兩欄資料放入(下拉式選單)內
但選擇所要資料後卻如下圖,只有第一欄資料,可否兩欄同時顯示
With 輸入表單.工地選單
.Clear
.ColumnCount = 2
.ColumnWidths = "1.5cm;3cm"
For IA = 11 To Sheets("TEMP").Range("R9").Value
.AddItem
.List(IA - 11, 0) = Sheets("TEMP").Range("R" & IA).Value
.List(IA - 11, 1) = Sheets("TEMP").Range("S" & IA).Value
Next IA
End With |