Решение задач в Excel на VBA. Применение программных средств в проектировании автомобильных конструкций. Калядин В.И. - 8 стр.

UptoLike

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

8
For i = 0 To M
Jc = Column
For j = 0 To N
Cells(Ir, Jc) = A(i, j)
Jc = Jc + 1
Next j
Ir = Ir + 1
Next i
End Sub
Пример 1.6 использования процедуры FromMatrToRange
Sub Test_FromMatrToRange()
Dim A(1, 2)
Open "IptDat.txt" For Input As #
Call IptMatr(A, 1, 2, 1) ' исх. данные --->
Close 1
Call FromMatrToRange(1, 2, A, 1, 2) ' результат вывода --->
End Sub
Ввод массива из диапазона ячеек рабочего листа Excel
Sub FromRangeToMas(ByRef A(), ByVal N)
' Ввод массива A(N) из диапазона ячеек рабочего листа Excel
Dim R As Range
Set R = Application.InputBox(prompt:= "Укажите массив", Type:=8)
For j = 0 To IIf(R.Count - 1 > N, N, R.Count - 1)
A(j) = R(j + 1)
Next j
End Sub
Пример 1.7 использования процедуры FromRangeToMas для ввода данных:
Sub Test_FromRangeToMas()
Dim A(3)
Call FromRangeToMas(A, 3) ' выделенные ячейки --->
Debug.Print A(0); A(1); A(2); A(3) ' результат вывода --->
End Sub
A
B
C
D
E
1
11
12
14
11 12 13 14
A
B
C
D
1
3
2,5
6
2
-2
7
13
3 2.5 6
-2 7 13
For i = 0 To M
 Jc = Column
 For j = 0 To N
     Cells(Ir, Jc) = A(i, j)
   Jc = Jc + 1
 Next j
 Ir = Ir + 1
Next i
End Sub
Пример 1.6 использования процедуры FromMatrToRange
Sub Test_FromMatrToRange()
Dim A(1, 2)
Open "IptDat.txt" For Input As #
                                                     3 2.5 6
  Call IptMatr(A, 1, 2, 1)     ' исх. данные --->   -2 7 13         A   B   C    D
Close 1
                                                               1        3   2,5 6
Call FromMatrToRange(1, 2, A, 1, 2) ' результат вывода --->
                                                               2        -2 7     13
End Sub
Ввод массива из диапазона ячеек рабочего листа Excel
Sub FromRangeToMas(ByRef A(), ByVal N)
' Ввод массива A(N) из диапазона ячеек рабочего листа Excel
Dim R As Range
Set R = Application.InputBox(prompt:= "Укажите массив", Type:=8)
For j = 0 To IIf(R.Count - 1 > N, N, R.Count - 1)
 A(j) = R(j + 1)
Next j
End Sub
Пример 1.7 использования процедуры FromRangeToMas для ввода данных:
Sub Test_FromRangeToMas()
                                                               A   B    C   D    E
 Dim A(3)
                                                           1       11 12 13 14
 Call FromRangeToMas(A, 3) ' выделенные ячейки --->
 Debug.Print A(0); A(1); A(2); A(3) ' результат вывода --->        11 12 13 14
End Sub

                                             8