|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Заполнение\очищение ячеек
Доброго времени суток. Я пытаюсь создать документ Excel, позволяющий формировать заказы на покупку товаров у фирмы с использованием макросов. Для выбора пользователем товаров в окне макроса имеются вкладки (компонент MultiPage). Нюанс задания таков:
Цитата:
Код:
'Формирование заказа Private Sub CommandButton2_Click() Static i, page 'As Integer i = 3 For page = 0 To MultiPage1.Pages.Count - 1 'Монитор 'If MultiPage1.TabIndex = 0 Then If TextBox5.Value > 0 Then Worksheets(6).Range("B3") = ComboBox1.Value 'Worksheets(6).Range("С3") = MultiPage1.Name Worksheets(6).Range("D3") = TextBox2.Value Worksheets(6).Range("E3") = TextBox3.Value Worksheets(6).Range("F3") = TextBox6.Value Worksheets(6).Range("G3") = TextBox5.Value End If 'Клавиатура If TextBox8.Value > 0 Then Worksheets(6).Range("B4") = ComboBox2.Value 'Worksheets(6).Range("С3") = MultiPage1.Name Worksheets(6).Range("D4") = TextBox10.Value Worksheets(6).Range("E4") = TextBox11.Value Worksheets(6).Range("F4") = TextBox13.Value Worksheets(6).Range("G4") = TextBox8.Value End If 'Мышь If TextBox14.Value > 0 Then Worksheets(6).Range("B5") = ComboBox3.Value 'Worksheets(6).Range("С3") = MultiPage1.Name Worksheets(6).Range("D5") = TextBox16.Value Worksheets(6).Range("E5") = TextBox17.Value Worksheets(6).Range("F5") = TextBox19.Value Worksheets(6).Range("G5") = TextBox14.Value End If 'Колонки If TextBox20.Value > 0 Then Worksheets(6).Range("B6") = ComboBox4.Value 'Worksheets(6).Range("С3") = MultiPage1.Name Worksheets(6).Range("D6") = TextBox22.Value Worksheets(6).Range("E6") = TextBox23.Value Worksheets(6).Range("F6") = TextBox25.Value Worksheets(6).Range("G6") = TextBox20.Value End If 'МФУ If TextBox26.Value > 0 Then Worksheets(6).Range("B7") = ComboBox5.Value 'Worksheets(6).Range("С3") = MultiPage1.Name Worksheets(6).Range("D7") = TextBox28.Value Worksheets(6).Range("E7") = TextBox29.Value Worksheets(6).Range("F7") = TextBox31.Value Worksheets(6).Range("G7") = TextBox26.Value End If 'Next i Next page End Sub Вроде работает, но если одну из закладок не заполнять, ячейка получается пустой. Подскажите, как это автоматизировать? Ссылка на файл: Комплектация изделия из составных частей.rar Последний раз редактировалось 'Zanuda', 20.12.2014 в 20:55. |