Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.12.2017, 16:59   #1
furymaxim
Пользователь
 
Регистрация: 25.11.2017
Сообщений: 28
По умолчанию VBA.Сделать вывод массива в активный документ Word

Код:
Sub Matrix()
Dim v As Variant
Dim iR As Range
Dim r As Long, c As Long
Dim n As Integer
Dim m As Integer
Dim i, j
n = InputBox("Введите кол-во строк")
m = InputBox("Введите кол-во столбцов")
Cells.Clear
ReDim A(n, m)
For i = 1 To n
  For j = 1 To m
      A(i, j) = InputBox("A(" & i & ", " & j & ")")
  Next j
Next i
ReDim v(1 To n, 1 To m) As Single
For i = 1 To m
 For j = 1 To n
 v(i, j) = A(i, j)
 Next j
Set iR = Range(Cells(1, 1), Cells(5, 5))
iR.Value = v
Next
ReDim v(1 To m) As Single
For i = 1 To n
    r = 1
    For j = 1 To m
     If Cells(i, j) < Cells(i, r) Then r = j
    Next j
    v(i) = Cells(i, r)
Next i
For i = 1 To m
   Cells(7, i) = v(i)
Next
For i = 1 To m
MsgBox ("Минимальный элемент " & i & " строки равен " & v(i) & "  ")
Next
 End Sub
Суть задания :
Для вывода скалярных результатов вычислений используйте оператор вывода MsgBox. Вывод массивов, являющихся результатом вычислений, осуществите в рабочий документ приложения MS Word, используя оператор Type.


В word нужно вывести

For i = 1 To m
Cells(7, i) = v(i)
Next
For i = 1 To m
MsgBox ("Минимальный элемент " & i & " строки равен " & v(i) & " ")
Next

Чтобы как-нибудь красиво было )
Вложения
Тип файла: rar задание3.rar (14.7 Кб, 8 просмотров)
furymaxim вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Документ Word aleksandrr2 Microsoft Office Word 3 29.07.2016 18:00
Вывод данных в word-документ с помощью interop.word Joose Общие вопросы .NET 2 22.05.2015 19:17
Вывод матрицы в документ ворд / VBA Sting95 Помощь студентам 0 11.05.2014 00:38
перенести документ Word (таблица) в MS Excel c сохранением форматирования или обеспечить всплывающие подсказки в Word Serge_Bliznykov Microsoft Office Word 6 11.07.2011 11:02
В Word на VBA сделать макрос Генерал_Касетр Фриланс 4 15.06.2009 17:38