Передача параметров в процедуру

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Передача параметров в процедуру (Макросы/Sub)

sahel

Дата: Вторник, 20.03.2018, 09:41 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

не могу передать параметры в функцию.
Объявляю ее так:

[vba]

Код

Sub fSum(nItem1 As Integer, nItem2 As Integer)
Dim a As Integer
a = nItem1 + nItem2
End Sub

[/vba]

А потом пытаюсь вызвать её:

[vba]

Код

Sub qwer()
fSum (3,5)
End Sub

[/vba]

Пишет "Compile error. Syntax error"

Где моя ошибка?
Уже все глаза проглядел - вроде бы все правильно. (правда я новичок в VBA)

К сообщению приложен файл: 0288925.png (11.2 Kb)

Сообщение отредактировал sahel - Вторник, 20.03.2018, 09:43

Ответить

Pelena

Дата: Вторник, 20.03.2018, 09:51 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19520

Репутация: 4633 ±

Замечаний: ±

Excel 365 & Mac Excel

Попробуйте без скобок
[vba]

Код

fSum 3, 5

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

RAN

Дата: Вторник, 20.03.2018, 10:03 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата Pelena, 20.03.2018 в 09:51, в сообщении № 2 ()

Попробуйте без скобок

А лучше со скобками
[vba]

Код

Call fsum(3,5)

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Pelena

Дата: Вторник, 20.03.2018, 10:18 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19520

Репутация: 4633 ±

Замечаний: ±

Excel 365 & Mac Excel

Цитата RAN, 20.03.2018 в 10:03, в сообщении № 4 ()

А лучше со скобками

Почему лучше? Я что-то упускаю?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

RAN

Дата: Вторник, 20.03.2018, 10:41 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Сразу видно место вызова процедуры.

Быть или не быть, вот в чем загвоздка!

Ответить

Mikael

Дата: Вторник, 20.03.2018, 10:46 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 80

Репутация: 31 ±

Замечаний: 0% ±

Excel 2010

sahel, еще одно решение:
функцию сделать функцией

тогда со скобками и без колла
[vba]

Код

Function fSum(nItem1 As Integer, nItem2 As Integer) As Integer
    fSum = nItem1 + nItem2
End Function

Sub qwer()
    Dim a As Integer, b As Integer
    a = fSum(3, 5)
    b = fSum(9, -4)
End Sub

[/vba]

Ответить

Передача параметров в процедуру (Макросы/Sub)

Страница 1 из 1
1