Таблица пифагора

[selestenka]

Умные люди,помогите пожалуйста!
Только начилась практика,а уже не повезло. Мне нужно вывести таблицу Пифагора на экран в VBA.
Подскажите как это сделать?

[EducatedFool]

Вот вам макрос:

Sub Цикл()
    Application.EnableCancelKey = xlDisabled
    For i = 1 To 50
        For j = 1 To 50
            If (i - 1) * (j - 1) Then MsgBox "Вычисляется значение " & i & "*" & j, vbInformation
            Cells(i, j) = i * j
        Next j
    Next i
End Sub

И пример в виде файла: http://excelvba.ru/XL_Files/Sample__...__19-48-02.zip

[Turistovik]

Сообщение от EducatedFool

Вот вам макрос:

Sub Цикл()
    Application.EnableCancelKey = xlDisabled
    For i = 1 To 50
        For j = 1 To 50
            If (i - 1) * (j - 1) Then MsgBox "Вычисляется значение " & i & "*" & j, vbInformation
            Cells(i, j) = i * j
        Next j
    Next i
End Sub

И пример в виде файла: http://excelvba.ru/XL_Files/Sample__...__19-48-02.zip

А как сделать чтобы Таблица Пифагора выводилась не в Excel, а допустим в MsgBox'e?

[alebed]

А Пифагора не многовато 50 х 50 я насколько знаю, то используются 10х10 или зарубежные 12х12

For Turistovik для вывода в MsgBox будет:

Sub Цикл()
Application.EnableCancelKey = xlDisabled
For i = 1 To 10
For j = 1 To 10
If (i - 1) * (j - 1) Then MsgBox "вычисляем значения " & i & "*" & j, vbInformation
Cells(i, j) = i * j
' при помощи селекта выравниваем значения в таблице,как все ровнять не писал - лень.
Select Case i
Case Is < 5
Shag = Shag & Cells(i, j).Value & " "
Case Is >= 5 And i <> 10
Shag = Shag & Cells(i, j).Value & " "
Case Else
Shag = Shag & Cells(i, j).Value & " "
End Select
Next j
Shag = Shag & vbCrLf
Next i
MsgBox Shag
End Sub

[alebed]

Shag = Shag & vbCrLf ' это переход на следующую строку MsgBox