Как привязать конкретный combobox компонента к определённой ячейке таблицы Excel? - VB
Формулировка задачи:
Имеется 4 Combobox'а. В каждом из них имеется определённый список, который можно выбрать непосредственно..
Как сделать так чтобы после нажатия кнопки, данные выбранные в Combobox'ах переносились в документ Excel к определённой ячейке(т.е. каждый комбобокс по отдельным ячейкам), например, combobox1 - к ячейке С2, combobox2 - к ячейке С3, combobox3 - к ячейке С4, и combobox4 - к ячейке С5
Решение задачи: «Как привязать конкретный combobox компонента к определённой ячейке таблицы Excel?»
textual
Листинг программы
Option Explicit Private Sub ComboBox1_Click(): Cells(2, 3) = ComboBox1.Text: End Sub Private Sub ComboBox2_Click(): Cells(2, 5) = ComboBox2.Text: End Sub Private Sub ComboBox3_Click(): Cells(2, 7) = ComboBox3.Text: End Sub Private Sub ComboBox4_Click(): Cells(2, 9) = ComboBox4.Text: End Sub Private Sub CommandButton1_Click() Dim i&, j&, v With Лист2 For Each v In Array(ComboBox1, ComboBox2, ComboBox3, ComboBox4) i = i + 1: v.Clear For j = 1 To .Cells(Rows.Count, i).End(xlUp).Row v.AddItem .Cells(j, i) Next v.ListIndex = 0 Next End With End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д