Работа с отладчиком

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, по нажатию на которую данные, введенные в поле ввода и поле со списком, записываются на лист БД.

Словесное описание алгоритма:

1. Переименуем лист в БД. Введем заголовки столбцов Товар и Поставщик.

2. Присвоим переменной Товар значение поля ввода TextBox1 пользовательской формы UserForm2.

3. Присвоим переменной Поставщик значение поля со списком ComboBox1.

4. На листе БД определим номер первой свободной строки NSTR (в которую будем записывать данные).

5. В строку с номером NSTR и столбец с номером 1 запишем значение переменной Товар.

6. В строку с номером 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, затем вводить программу.

При отладке программ на VBA целесообразно воспользоваться отладчиком. Отладчик (Debugger) позволяет просматривать значения переменных в окне Locals Window при работе программы. Окно Locals Window вызывается из меню View редактора Visual Basic.

Отладчик позволяет выполнить трассировку – пошаговое исполнение программы, а также установить в программе контрольные точки.

При трассировке установите курсор на любую строку программы и нажимайте функциональную клавишу F8. При этом строки программы будут последовательно выделяться (исполняться), и в окне Locals Window можно наблюдать изменение значений переменных программы.

Если вы уверены, что какой-то фрагмент программы отлажен и его трассировку проводить нецелесообразно, а ошибка может быть в следующем фрагменте, то вы можете пометить любую строку программы еще не отлаженного фрагмента, установив возле нее контрольную точку останова с помощью команды Debug-Toggle Breakpoint. При этом слева появится жирная точка, а строка программы будет выделена. Если вы теперь запустите программу, то она выполнится до помеченной строки, и вы сможете в окне Locals Window просмотреть значения переменных. Убрать контрольные точки вы сможете с помощью команды Debug-Clear All Breakpoints.

Дата добавления: 2014-12-08