|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.05.2010, 09:42 | #1 |
Новичок
Джуниор
Регистрация: 17.05.2010
Сообщений: 1
|
Матрицы в VBA
Подскажите, пожалуйста, нужно сформировать матрицу. Правильно ли решение? 0-ые элементы надо ли указывать в условии?? или они по-умолчанию?
0 0 0 0 5 5 5 5 0 0 0 5 0 5 5 5 0 0 5 0 0 5 5 5 0 5 0 0 0 5 5 5 5 5 5 5 5 5 5 5 Решение Sub Zadanie_2() Const N=5, M=8 ‘ Размерность матрицы Dim B(N,M) As Integer Dim I , J As Integer ‘ I-номер строки, J-номер столбца For I=1 To N For J=1 To M If ((J<=5) And (I+J=N+1)) OR ((I=5) OR (J =6) OR (J =7) OR (J =8) ) Then B(I,J) = 5 Else B(I,J) = 0 End If Next J Next I ‘вывод матрицы на Лист 2 WorkSheets(“Лист2”).Select For I=1 To N For J=1 To N Cells(I+1,J)=B(I,J) Next J Next I End Sub |
17.05.2010, 10:42 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
У меня вот что получилось:
Код:
Можно и так: (по умолчанию в массиве нули) Код:
PS: А можно обойтись и без конструкции If ... Then ... Код:
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 17.05.2010 в 10:49. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
VBA Word,VBA Excel решить 2 задачи | fafolo4ka | Фриланс | 6 | 05.03.2012 01:15 |
Построение матрицы в VBA по заданным параметрам. | krmn | Помощь студентам | 5 | 24.12.2009 19:26 |
На главную диагональ матрицы поместить наибольшие элементы этой матрицы | mivel | Помощь студентам | 2 | 23.12.2009 21:19 |