| Вопрос: VBA + Excel | Добавлено: 09.05.05 10:50 |
Автор вопроса:  house
|
|
Помогите пожалуйста написать сдедующее задание.
Мне дали задание, написать небольшую программу на VBA + Excel. Нужно организовать ввод данных на рабочий лист "экзамен" в 4 колонки: Группа, Предмет, ФИО, оценка. Иными словами, нужно чтобы при открывании Excel-файла в нем открывалась форма, в которой было 4 поля. Когда поля заполнены, пользователь нажимает кнопку ввод, и потом эти поля добавлялись в ячейки Excel. К сожалению на данном форуме нельзя прикрепить картинку, ноглядно показывающую постановку задачи, поэтому ниже располагается ссылка на эту картинку - http://zb-susu.ru/~house/files/problem.jpg Прошу помощи |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #1 | Добавлено: 09.05.05 16:21 |
|
Создаешь UserForm, кидаешь на неё 4 текстовых поля и 1 кнопку, далее код при нажатии кнопки в модуле UserForm1:
Sub CommandButton_Click()
Dim i As Integer i = 2 'первая строка для заполнения Do While Not ThisWorkbook.Sheets("Экзамен"  .Cells(i,1).Value = Empty
'Цикл пока в колонке "A" (лист "Экзамен" с номером группы значение непустое
i=i+1 Loop 'Цикл закончился на первой пустой строке ThisWorkbook.Sheets("Экзамен" .Cells(i,1).Value = TextBox1.Text
ThisWorkbook.Sheets("Экзамен" .Cells(i,2).Value = TextBox2.Text
ThisWorkbook.Sheets("Экзамен" .Cells(i,3).Value = TextBox3.Text
ThisWorkbook.Sheets("Экзамен" .Cells(i,4).Value = TextBox4.Text
TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" End Sub |
||
|
Номер ответа: 2 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #2 | Добавлено: 09.05.05 16:24 |
| Если что не понятно или не получается, пиши мне на mc-black[собака]yandex[точка]ru | ||
|
Номер ответа: 3 Автор ответа: house Вопросов: 1 Ответов: 1 |
Профиль | | #3 | Добавлено: 09.05.05 19:19 |
|
Спасибо автору ответа! Сделал, пашет.
Скажи, а как должна быть выставлена "безопасность" для нормальной работы макросов и проги? |
||
Страница: 1 |