Страница 1 из 1
Макрос. На листе составить таблицу умножения
Добавлено: 26 май 2009, 15:17
s_kazak
вот еще задание на ВБ:
Создать таблицу умножения; параметры:
размер таблицы, основание системы счисления.
помогите, кто может...очень надо! ;(((
Re: Макрос. На листе составить таблицу умножения
Добавлено: 26 май 2009, 20:16
EducatedFool
Эта программа выведет Вам на листе Excel всю таблицу умножения натуральных чисел:
Код: Выделить всё
Sub [B]ТаблицаУмножения[/B]()
i = 2: Application.EnableCancelKey = xlDisabled: On Error Resume Next
Do
Cells(i, 1) = i: Cells(1, i) = i: For j = 2 To i: Cells(i, j) = i * j: Cells(j, i) = i * j: Next j
MsgBox i: i = i + 1
Loop
End Sub
Не забудьте распечатать таблицу, когда программа завершит свою работу.