2016-11-29 2 views
-1

В моих таблицах у меня есть диапазоны размеров, которые я хочу отображать в ComboBox.VBA: Объединить значения от диапазона WS до ComboBox

В Ярости C43:c47 У меня есть ценности, как 100,200,300

В диапазоне D43:D47 У меня есть X.

в диапазоне E43:E47 У меня есть ценности, как 1000,1100,1200

Я хочу, чтобы сцепить Значения так отображаются в ComboBox, например 100X1000, 200X1100 или 300X1200

Я могу это сделать?

Это код, который я использовал, но, конечно, это только показывает один Range

Me.SizeBox.List = Worksheets(1).Range("C43:C47").Value

+1

ли это быть в VBA? У вас есть '= C43 & D43 & E43' в F43 и т. Д.? – bobajob

+0

@Alec это User_Form 'ComboBox' или' ActiveX'? это имя «ComboBox» «РазмерBox»? –

+0

Он должен быть ActiveX, он появится в UserForm – Alec

ответ

1

Попробуйте

Sub stitute() 
Dim row As Long 
Dim lastrow As Long 
lastrow = 3 'row that it finishes 
col1 = 1 'Column with the first data 
col2 = 2 'Column with the second data 
col3 = 3 'Column with the third data 

For row = 1 To lastrow 'Change the number to the starting row 
    Me.SizeBox.AddItem Cells(row, col1).Value & Cells(row, col2).Value & Cells(row, col3).Value 
Next row 

End Sub 
+0

Совершенно, именно то, что я пытался сделать. СПАСИБО! – Alec

+0

Добро пожаловать :) – Moacir

Смежные вопросы