Создание области ввода в таблице умножения
Итак, с заданием, поставленным в начале главы, мы справились. Однако разработанная нами таблица обладает рядом недостатков. В частности, она предоставляет слишком ограниченные возможности в плане управления диапазоном сомножителей. Изменения можно вносить только в ячейку А1.
Давайте несколько усложним задачу. Предположим, что в таблице нужен другой шаг изменения сомножителей как по горизонтали (скажем, 0,3), так и по вертикали (к примеру, 0,2). К тому же нам нужно изменить начальные значения сомножителей (например, по вертикали начать не с единицы, а с пяти, по горизонтали-с трех). При этом желательно, чтобы обновление результатов происходило моментально.
Любая таблица должна быть понятна для стороннего пользователя. Если пользователь, открыв таковую, сразу получает информацию о том, для чего она создана и какие вычисления производит, в каких ячейках можно изменять содержимое, а в каких находятся формулы, значит, таблица составлена удачно. Модифицируем созданную таблицу умножения таким образом, чтобы в ней были учтены все перечисленные требования.
В верхней части рабочего листа над таблицей умножения разместим область ввода. Она будет состоять из шести строк:
- название области ввода;
- начальное значение для сомножителей, расположенных по вертикали;
- начальное значение для сомножителей, расположенных по горизонтали;
- шаг изменения сомножителей, расположенных по вертикали;
- шаг изменения сомножителей, расположенных по горизонтали;
- название области вычислений.
Замечание
Все ошибки располагаются в процедуре AssignTask, так что перед началом отладки вы можете проверить себя и попытаться отыскать их самостоятельно.
Первый шаг отладки — это запуск компилятора: Debug > compile <имяПроекта>. Компилятор, просматривая код программы, найдет ошибку и выдаст сообщение: sub or Function not defined (Процедура или функция не определены), выделив место ошибки (creatitem) в теле процедуры.
Итак, допущена синтаксическая ошибка, мы сделали опечатку (вместо createitem ввели creatitem), и компилятор стал расценивать это как вызов процедуры пользователя, которая нигде не объявлена. Быстро исправим эту оплошность, добавив злополучную е в код:
Set tsk = Createltem(olTaskltem)
Ошибка исправлена, можно возвращаться к первому пункту — запуску компилятора. На этот раз компиляция прошла успешно, и есть предпосылки к тому, что программа окончательно исправлена. Давайте запустим ее.