Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Soft17
2 / 2 / 1
Регистрация: 15.01.2017
Сообщений: 409
1

Как передать параметры функции?

29.07.2018, 13:26. Просмотров 735. Ответов 4
Метки vba (Все метки)

Как правильно прописать, чтобы передались параметры функции?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Compare Database
Option Explicit
 
Private Sub Кнопка0_Click()
    Dim int1 As Integer
    Dim int2 As Integer
    
    int2 = int1 + 1
    CreateRecord_Fnk ("Текст1",countRecords := int2)
End Sub
 
 
 
Sub CreateRecord_Fnk(TypePodPr As String, countRecords As Integer)
 ' ....
 ' Произвольный код
 ' ....
 ' ....
 
End Sub
0
Миниатюры
Как передать параметры функции?  
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.07.2018, 13:26
Ответы с готовыми решениями:

Как передать параметры обработчику кнопки?
Добрый день! Есть некий Sub MySub() в нем я получаю A и B, при некоторых условиях нужно вызвать...

Передать параметры в sql запрос (ADODB.Recordset)
как передать параметры в select те в Delphi Это бы так выглядило str:='select * from...

Как передать форму в качестве параметра функции
В модуле создана функция Public Sub Proverka (forma1 as form) ... end sub в форме, при...

Подскажите как передать функции диапазон в кач-ве параметра
Подскажите как передать функции диапазон в кач-ве параметра (массива) Если передавать диапазон как...

Как передать функции в качестве параметра массив пользовательских типов данных
Собственно вопрос указан в теме. Весь день мучаюсь с этим. есть пользовательский тип данных: Type...

4
Hugo121
6394 / 2462 / 439
Регистрация: 19.10.2012
Сообщений: 7,323
29.07.2018, 13:32 2
А функция то где?
0
Soft17
2 / 2 / 1
Регистрация: 15.01.2017
Сообщений: 409
29.07.2018, 13:39  [ТС] 3
Hugo121,
Прошу прощения, только осваиваю.... Путаюсь в терминологии...
Как передать параметры в "CreateRecord_Fnk"?
0
Hugo121
6394 / 2462 / 439
Регистрация: 19.10.2012
Сообщений: 7,323
29.07.2018, 13:41 4
Лучший ответ Сообщение было отмечено Soft17 как решение

Решение

Два варианта:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Кнопка0_Click()
    Dim int1 As Integer
    Dim int2 As Integer
 
    int2 = int1 + 1
 
    Call CreateRecord_Fnk("Текст1", int2)
    'или
    CreateRecord_Fnk "Текст1", int2
 
End Sub
И это называется процедура.
1
SoftIce
es geht mir gut
10993 / 4384 / 1112
Регистрация: 27.07.2011
Сообщений: 10,737
Завершенные тесты: 1
30.07.2018, 06:07 5
Лучший ответ Сообщение было отмечено Soft17 как решение

Решение

Soft17, можно использовать и именованные аргументы.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Кнопка0_Click()
    Dim int1 As Integer
    Dim int2 As Integer
    
    int2 = int1 + 1
    
    Call CreateRecord_Fnk("Текст1", int2)
       'или
    CreateRecord_Fnk "Текст1", int2
       'или
    CreateRecord_Fnk TypePodPr:="Текст1", countRecords:=int2
       'или
    CreateRecord_Fnk countRecords:=int2, TypePodPr:="Текст1"
       'или
    Call CreateRecord_Fnk(countRecords:=int2, TypePodPr:="Текст1")
       'или
    Call CreateRecord_Fnk(TypePodPr:="Текст1", countRecords:=int2)
    
End Sub
 
 
 
Sub CreateRecord_Fnk(TypePodPr As String, countRecords As Integer)
 ' ....
 ' Произвольный код
 ' ....
 ' ....
 
End Sub
2
30.07.2018, 06:07
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.07.2018, 06:07

Как можно передать из функции или процедуры массив, который будет содержать ссылки на объекты из другого массива/коллекции ?
Доброго времени суток, буду благодарен, если поможете с решением следующей проблемы. Как можно...

Параметры стандартной функции
Приветствую! Задача наипростейшая, но даже здесь столкнулся с проблемой - есть код: ...

Как передать Inline-функции параметры?
Суть проблемы такова. Есть m-файл следующего содержания: function c = MyFunc(SS,a,b) F =...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru