Макрос. На листе составить таблицу умножения

[s_kazak]

вот еще задание на ВБ:
Создать таблицу умножения; параметры:
размер таблицы, основание системы счисления.
помогите, кто может...очень надо! ;(((

[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

Не забудьте распечатать таблицу, когда программа завершит свою работу.