Добавление Текста Из Textbox В Ячейку Excel

Тема в разделе "Visual Basic", создана пользователем Spa1234, 3 июн 2014.

  1. Spa1234

    Spa1234 New Member

    Регистрация:
    3 июн 2014
    Сообщения:
    1
    Симпатии:
    0
    в книге EXCEL имеется 13 пользовательских листов.Главное меню и Январь-Декабрь. на 12 листах имеется таблица с одинаковыми шаблонами.только внесенные данные там разные. На главном меню имеется кнопка добавить.
    При нажатии на кнопку добавление выходит форма с 3 ComboBox и 14TextBox.
    т.е. пользователь выбирает из списка ComboBox нужные ему данные, заполняет TextBox и нажимает на кнопку,тем самым ComboBox позволяет найти лист с этими данными,а данные из TextBox заполняют ячейку которые им присвоены,но у меня ничего не просиходит. помогите пожалуйста

    Код (LotusScript):
    Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim R As Range

    For i = 4 To 100 Step 1
    Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i)
    If R.Value = Empty Then
    R.Value = TextBox3.Text
    Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 1)
    R.Value = TextBox4.Text
    Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 2)
    R.Value = TextBox5.Text
    Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 3)
    R.Value = TextBox6.Text
    Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 4)
    R.Value = TextBox7.Text
    Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 5)
    R.Value = TextBox8.Text
    Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 6)
    R.Value = TextBox9.Text
    Set R = Worksheets("Январь").Cells(ComboBox1.ListIndex + 2, i + 7)
    R.Value = TextBox10.Text

    Exit For
    End If
    Next i

    End Sub
    Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "$B$1:$B$480"
    End Sub
     

    Вложения:

Загрузка...

Поделиться этой страницей