Visual Basic for Applications. Практика. Нагина Е.К - 40 стр.

UptoLike

Составители: 

40
Задания для самостоятельной работы по созданию
процедур для обработки массивов
Во всех заданиях исходные данные (значения элементов последова-
тельностей или значения элементов матриц) располагайте в ячейках рабо-
чих листов Excel активной рабочей книги. Вывод массивов, являющихся
результатом вычислений, а также значений переменных, получаемых в ре-
зультате выполнения программ, осуществляйте в ячейки рабочих листов,
располагая их рядом с массивами исходных данных, сопровождая
соответ-
ствующими пояснениями. При необходимости в процессе отладки про-
граммных кодов используйте отладчик приложения VBA.
При составлении программ вам могут потребоваться дополнитель-
ные пояснения:
1. Относительно заполнения рабочих массивов элементами последова-
тельностей или матриц расположенных в ячейках рабочих листов.
2. Относительно размещения элементов сформированных массивов, а
также вычисленных значений переменных в процессе
выполнения про-
грамм в соответствующих ячейках активного рабочего листа активной
рабочей книги Excel.
Рассмотрим фрагмент программного кода, в котором предусмотрено
изменение размерности двумерного массива Matrix и заполнение этого
массива значениями элементов исходной матрицы, расположенной на ра-
бочем листе Excel, начиная с ячейки A1
With ActiveWorkbook.Worksheets(1).Range("A1")
NRows = Range(.Offset(0,0), .End(xlDown)) _
.Rows.Count
NColumn = Range(.Offset(0,0), .End(xlToRight)) _
.Columns.Count
ReDim Matrix(NRows, NColumn)
For i = 0 To NRows - 1
For j = 0 To NColumn - 1
Matrix(i, j) = .Offset(i, j)
Next j
Next i
End With
Рассмотрим фрагмент программного
кода, в котором предусмотрено
занесение преобразованной матрицы Matrix1 в диапазон ячеек рабочего
листа Excel, начиная с ячейки H1. Количество строк определяется пере-
менной NRows, количество столбцов матрицы определяется переменной
NColumn.
       Задания для самостоятельной работы по созданию
              процедур для обработки массивов

      Во всех заданиях исходные данные (значения элементов последова-
тельностей или значения элементов матриц) располагайте в ячейках рабо-
чих листов Excel активной рабочей книги. Вывод массивов, являющихся
результатом вычислений, а также значений переменных, получаемых в ре-
зультате выполнения программ, осуществляйте в ячейки рабочих листов,
располагая их рядом с массивами исходных данных, сопровождая соответ-
ствующими пояснениями. При необходимости в процессе отладки про-
граммных кодов используйте отладчик приложения VBA.
      При составлении программ вам могут потребоваться дополнитель-
ные пояснения:
 1. Относительно заполнения рабочих массивов элементами последова-
    тельностей или матриц расположенных в ячейках рабочих листов.
 2. Относительно размещения элементов сформированных массивов, а
    также вычисленных значений переменных в процессе выполнения про-
    грамм в соответствующих ячейках активного рабочего листа активной
    рабочей книги Excel.
      Рассмотрим фрагмент программного кода, в котором предусмотрено
изменение размерности двумерного массива Matrix и заполнение этого
массива значениями элементов исходной матрицы, расположенной на ра-
бочем листе Excel, начиная с ячейки A1

With ActiveWorkbook.Worksheets(1).Range("A1")
  NRows = Range(.Offset(0,0), .End(xlDown)) _
           .Rows.Count
  NColumn = Range(.Offset(0,0), .End(xlToRight)) _
           .Columns.Count
  ReDim Matrix(NRows, NColumn)
  For i = 0 To NRows - 1
    For j = 0 To NColumn - 1
      Matrix(i, j) = .Offset(i, j)
    Next j
  Next i
End With

      Рассмотрим фрагмент программного кода, в котором предусмотрено
занесение преобразованной матрицы Matrix1 в диапазон ячеек рабочего
листа Excel, начиная с ячейки H1. Количество строк определяется пере-
менной NRows, количество столбцов матрицы определяется переменной
NColumn.

                                 40