VBA построить квадратную матрицу

[Марат707]

Мне надо на VBA построить квадратную матрицу типа этого
1 2 3 4
4 1 2 3
3 4 1 2
2 3 4 1
Пожалуйста помогите!!!

[Sasha_Smirnov]

Помогите нам и вы.
То, типа какой должна быть матрица, мало проясняет смысл вашего задания.
Должна ли она быть 4 на 4 или вообще N*N?

Может, просто набрать её, как вы это сделали, в 4 строки?!

(А тогда просто сделайте это, включив предварительно запись: в главном меню (верхняя часть документа Word) Сервис>Макрос>Начать запись><теперь печатайте свою матрицу, поэлементно (а не путём вставки)>Остановить запись.
Жмёте далее альт-F11 — вот и ваш макрос!

[Sasha_Smirnov]

Option Base 1

Sub MatrixCasual()
'печать кв. матрицы случайных чисел от (-10 до 10)
Dim dimension As Byte, massiv() As Integer
Dim i As Byte, answer As Long
dimension = Int(1 + 10 * Rnd)
answer = MsgBox("Печатать матрицу " & _
dimension & " на " & dimension & "?", vbYesNo)
If answer = vbNo Then Exit Sub

ReDim massiv(dimension ^ 2) 'размерность матрицы

With Selection '(в месте нахождения курсора)
.TypeParagraph 'печать абзаца
For i = 1 To UBound(massiv)
massiv(i) = Int(-10 + 20 * Rnd)
.TypeText vbTab & massiv(i) 'разделитель — tab*
'* вместо vbTab можно «нарисовать» пробел: " "
If i Mod dimension = 0 Then .TypeParagraph
Next
.TypeParagraph 'печать абзаца после матрицы
End With

[Sasha_Smirnov]

End Sub ''

[Sasha_Smirnov]

Option Base 1
Sub MatrixCasualinTable()
'печать таблицы (случайных) чисел от (1 до 100)
Const separat As String * 1 = vbTab 'разделитель стобцов (символ)
Dim dimension As Byte, massiv() As Integer, i As Integer
dimension = Int(1 + 20 * Rnd)
If MsgBox("Печать квадратной (" & dimension & "*" & dimension & ") матрицы.", vbYesNo) _
= vbNo Then Exit Sub

ReDim massiv(dimension ^ 2) 'число ячеек таблицы

For i = 1 To UBound(massiv)
massiv(i) = Int(1 + 100 * Rnd)
Selection.TypeText massiv(i) & IIf(i Mod dimension = 0, vbLf, vbTab)
Next i

SendKeys "^+{home}", Tru 'выделяет текст до начала
Selection.ConvertToTable _ Separator:=vbTab 'преобразует "матрицу" в таблицу
Selection.HomeKey 'курсор - к началу выделения
SendKeys "{enter}", True 'ввод (символа) абзаца - ENTER
End Sub

(Перед End Sub четыре строчки можно выключить, и таблицы не будет.)

[Sasha_Smirnov]

Option Base 1
Sub MatrixCasualinTable()
'печать таблицы (случайных) чисел от (1 до 100)
Const separat As String * 1 = vbTab 'разделитель стобцов (символ)
Dim dimension As Byte, massiv() As Integer, i As Integer

dimension = Int(1 + 20 * Rnd)
If MsgBox("Печать квадратной (" & dimension & "*" & dimension & _
") матрицы.", vbYesNo) = vbNo Then Exit Sub

ReDim massiv(dimension ^ 2) 'число ячеек таблицы

For i = 1 To UBound(massiv)
massiv(i) = Int(1 + 100 * Rnd)
Selection.TypeText massiv(i) & IIf(i Mod dimension = 0, vbLf, vbTab)
Next i

'SendKeys "^+{home}", True 'выделяет текст до начала
'Selection.ConvertToTable 'Separator:=vbTab 'преобразует "матрицу" в таблицу
'Selection.HomeKey 'курсор - к началу выделения
'SendKeys "{enter}", True 'ввод (символа) абзаца - ENTER
End Sub

[Sasha_Smirnov]

Ну а вот так, надеюсь, вообще всё ясно, да?

Option Base 1
Sub MatrixCasual()
'печать кв. матрицы случайных целых чисел (из промежутка 0 до 9)

Const separat As String = " " 'разделитель стобцов (здесь: 2 пробела)
Dim dimension As Byte, massiv() As Integer, k As Integer, answer As Long

dimension = Int(1 + 10 * Rnd) 'КОЛИЧЕСТВО строк квадратной матрицы
answer = MsgBox("Печатать матрицу " & _
dimension & " на " & dimension & "?", vbYesNo)
If answer = vbNo Then Exit Sub 'прерывание, если ответили «Нет»

ReDim massiv(dimension ^ 2) 'количество всех элементов кв. матрицы

With Selection '(печать в месте нахождения курсора)

.TypeParagraph 'сначала печатаем абзац
For k = 1 To UBound(massiv)
massiv(k) = Int(0 + 10 * Rnd) 'случайное целое из диапазона [0;9]
.TypeText separat & massiv(k) 'разделитель столбцов и k-й элемент
If k Mod dimension = 0 Then .TypeParagraph
Next

End With
End Sub

[Sasha_Smirnov]

(только при импорте в "тему" два пробела заменились на один)

[Sasha_Smirnov]

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

Может, просто набрать её, как вы это сделали, в 4 строки?!

(А тогда просто сделайте это, включив предварительно запись: в главном меню (верхняя часть документа Word) Сервис>Макрос>Начать запись><теперь печатайте свою матрицу, поэлементно (а не путём вставки)>Остановить запись.)
Жмёте далее альт-F11

Далее (в открышемся* окне) контрол-R, раскрываете, нажав на +, папку Normal, в ней — Modules, а в модулях — двойной щёлк по NewMacros.
И вот он! Это и есть программа на VBA.
___________________________________
* если, разумеется, ваш Word не урезан по функциям до печатной машинки

[Марат707]

Спасибо большое!!!