Как привязать конкретный 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.667 из 5
Похожие ответы