Приравнять значение ячейки к тексту в ComboBox.

[Adgost]

Подскажите, пожалуйста, как это сделать?

У меня есть ComboBox, я хочу выбирать в нем текстовое значение и чтобы оно после этого отображалось в выбранной мной ячейке формы.

[Vitaly1]

Private Sub ComboBox1_Click()

ActiveCell.Value = ComboBox1.Value
ComboBox1.Value = ""

End Sub

[Vitaly1]

Тьфу ты, про ячейку формы говорилось, вероятно, про объект textbox? ну, вот так можно, сначало выбираешь значение, затем textbox.

Код: Выделить всё

dim buf as string

Private Sub ComboBox1_Click()
'запоминаем в буфер
buf = ComboBox1.Value

End Sub

Private Sub textBox1_Click()
'выдаем из  буфера
textBox1.text = buf 

End Sub

А вот так еще можно и в combo назначать

Код: Выделить всё

dim buf as string, NameOb as string

Private Sub ComboBox1_Click()
'запоминаем в буфер
buf = ComboBox1.Value
if NameOb="textbox1" then
textBox1.text = buf
elseif NameOb="textbox2" then
textBox2.text = buf
end if

NameOb =""

End Sub

Private Sub textBox1_Click()
'выдаем из  буфера
textBox1.text = buf 

NameOb = textBox1.name
End Sub