вот еще задание на ВБ:
Создать таблицу умножения; параметры:
размер таблицы, основание системы счисления.
помогите, кто может...очень надо! ;(((
Макрос. На листе составить таблицу умножения
- EducatedFool
- Сообщения: 196
- Зарегистрирован: 06 апр 2008, 14:03
- Откуда: Россия, Урал
- Контактная информация:
Эта программа выведет Вам на листе 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
Макросы для Excel, Word, CorelDRAW. Быстро, профессионально, недорого. http://ExcelVBA.ru/
Благодарности принимаются на кошелёк WebMoney: R318574877619 и Яндекс.Деньги: 41001335672216
Благодарности принимаются на кошелёк WebMoney: R318574877619 и Яндекс.Деньги: 41001335672216