Dim N As Integer, D As String
Rem определяем количество заполненных ячеек на листе «Постав- ‘щики» в диапазоне A:A, результат сохраняем в переменной N
N=Application.CountA(Sheets(“Поставщики”).Range(“A:A”))
‘Зная, что диапазон с наименованиями поставщиков начинается с А2, а ‘заканчивается в столбце А и строке N, определим диапазон, в котором записаны наименования поставщиков, запомним этот диапазон в ‘переменной D
D=”A2:A”&Cstr(N)
‘ присвоим диапазону имя Список
Sheets(“Поставщики”).Range(D).Name=”Список”
‘В пользовательской форме UserForm2 источником поля со списком ‘ComboBox1 сделаем Список
UserForm2.ComboBox1.RowSource=”Список”
Алгоритм записи на лист Excel данных, введенных
в пользовательскую форму по нажатию на кнопку Ok
В пользовательской форме UserForm2 (см. рис. 10) создадим кнопку Оk, по нажатию на которую данные, введенные в поле ввода и поле со списком, записываются на лист БД.
Словесное описание алгоритма:
Переименуем лист в БД. Введем заголовки столбцов Товар и Поставщик.
Присвоим переменной Товар значение поля ввода TextBox1 пользовательской формы UserForm2.
Присвоим переменной Поставщик значение поля со списком ComboBox1.
На листе БД определим номер первой свободной строки NSTR (в которую будем записывать данные).
В строку с номером NSTR и столбец с номером 1 запишем значение переменной Товар.
В строку с номером NSTR и столбец с номером 2 запишем значение переменной Поставщик.
Программное описание алгоритма:
Rem Присвоим переменной Товар значение поля ввода TextBox1 ‘пользовательской формы UserForm2.
Товар=UserForm2.TextBox1.Text
‘Присвоим переменной Поставщик значение поля со списком ‘ComboBox1пользовательской формы UserForm2.
Поставщик=UserForm2.ComboBox1.Text
‘Выбираем лист БД
Sheets(“БД”).Select
‘Определим номер первой свободной строки на листе БД
NSTR=Application.CountA(Sheets(“БД”).Range(“A:A”))+1
‘ В ячейку с номером строки NSTR, столбец с номером 1 запишем ‘значение переменной Товар.
Cells(NSTR,1) = Товар
‘ В ячейку с номером строки NSTR, во второй столбец запишем ‘значение переменной Поставщик
Cells(NSTR,2) = Поставщик
Для того, чтобы программа работала по нажатию на кнопку Ok, необходимо в редакторе Visual Basic вызвать пользовательскую форму ( у нас это UserForm2), щелкнуть по кнопке Ok правой кнопкой мыши и выбрать команду View Code, затем вводить программу.
Дата добавления: 2014-12-02; просмотров: 1265;