Troitsky
Водник Водкин | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Tanya3000
Цитата:| мне не на vb нужно, а на vba... мне это не подходит!!!!!!!! |
Само собой, что не подходит. Потому что время нужно потратить, по ссылке сходить, додумывать что то, код писать, а хочется всего и сразу. И, вообще, было бы здорово крикнуть как Якубович "Код в студию!" и вот его раскрасавица на подносе уже тащит...
Код: ' описываем матрицу 10х10
Dim matrix(1 To 10, 1 To 10) As Integer
' заполняем матрицу значениями
For i = 1 To 10
For j = 1 To 10
matrix(i, j) = (i - 1) * 10 + j
Next
Next
' выводим на первый лист
With Worksheets(1)
.Range(.Cells(1, 1), .Cells(10, 10)).Value = matrix
End With
' меняем местами третью и седьмую строки
For j = 1 To 10
matrix(3, j) = matrix(3, j) Xor matrix(7, j)
matrix(7, j) = matrix(3, j) Xor matrix(7, j)
matrix(3, j) = matrix(3, j) Xor matrix(7, j)
Next
' выводим на второй лист
With Worksheets(2)
.Range(.Cells(1, 1), .Cells(10, 10)).Value = matrix
End With |
----------
Мы в хорошем настроении гуляем по лесам.
Кто обидеть нас захочет – сам получит по усам.
Сам полу- получит по усам. Сам полу- получит по усам! |
|
