начало работы в режиме конструктора, с чего начать?

Автор STEROID, 04.07.2012, 13:59

« назад - далее »

STEROID

Прошу помочь сориентироваться:
необходимо составить единую базу поставщиков, есть 4 исполнителя и один человек которое все сводит все воедино - это я .
Ни листе 2 содержится список поставщиков и их контакты, исполнителям необходимо заполнить список в заданном формате, зная их исполнительность - на листе 1 разработана форма, для того чтобы мне потом не пришлось воедино все сводить и исправлять руками...
Вопрос как мне привязать результаты элементов строк с соответствующими ячейками. никогда раньше не имел опыта работы в режиме конструктора?

boa

сохраните книгу в формате .xlsm, в модуль листа "ФОРМА" скопируйте следующий код:

Private Sub CommandButton1_Click()
        'находим последнюю заполненную строку в списке
        iRow = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
        iRow = iRow + 1 'Строка для новой записи
'        Дальше данные из формы переносим в нужные ячейки
'        у каждого поля созданной вами формы есть имя, обращаясь к нему получим значения
    With Sheets("ФОРМА")
        Sheets("Лист1").Cells(iRow, 1) = .TextBox1.Value 'Название
'        .
'        .
'        .
        Sheets("Лист1").Cells(iRow, 3) = .TextBox4.Value & ", " & .TextBox5.Value & ", " & .TextBox6.Value & " и т.д." 'Юр. адрес, почтов., склад
'        .
'        .
'        .
        Sheets("Лист1").Cells(iRow, 7) = .TextBox40.Value 'подкатегория
    End With
End Sub


Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра