Sub Test()
Dim FName(1 To 2) As String
FName(1) = "F_1"
FName(2) = "F_2"
MsgBox Run(FName(1), 5)
MsgBox Run(FName(2), 5)
End Sub
Function F_1(x As Integer) As Integer
F_1 = x + 1
End Function
Function F_2(x As Integer) As Integer
F_2 = x + 2
End Function
Запуск функций .Срочно!!!
1.Формируеся массив из имен функций
типа <Имя_Массива>(0)= "f_1",<Имя_массива>(1)="f_7" и т.д.
2.По циклу, от 0 до размера массива <Имя_массива>
нужно вызывать функции , имена которых - значения массива см.выше.
Благодарю за будущие ответы..
Цитата:
Originally posted by BeginerVBA
Проблема:
1.Формируеся массив из имен функций
типа <Имя_Массива>(0)= "f_1",<Имя_массива>(1)="f_7" и т.д.
2.По циклу, от 0 до размера массива <Имя_массива>
нужно вызывать функции , имена которых - значения массива см.выше.
Благодарю за будущие ответы..
Проблема:
1.Формируеся массив из имен функций
типа <Имя_Массива>(0)= "f_1",<Имя_массива>(1)="f_7" и т.д.
2.По циклу, от 0 до размера массива <Имя_массива>
нужно вызывать функции , имена которых - значения массива см.выше.
Благодарю за будущие ответы..
Примерно так:
Код:
Thanks..