Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Прочие языки программирования > Visual Basic
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 20.12.2014, 20:31
'Zanuda' 'Zanuda' вне форума
Прохожий
 
Регистрация: 01.04.2014
Сообщения: 17
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Заполнение\очищение ячеек

Доброго времени суток. Я пытаюсь создать документ 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.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:26.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter