Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
SleepyBug
1 / 1 / 0
Регистрация: 15.02.2011
Сообщений: 33
1

Непонятки с передачей параметров между функциями

08.08.2011, 12:06. Просмотров 647. Ответов 3
Метки нет (Все метки)

Недавно перешел с С++ на VBA.

Привык на Си делать так - создаю функцию, которой передается указатель на структуру, которая функцией заполняется. При успешном завершении фи-я возвращает 1 и 0 при обшибке.
Можно так делать на VBA ?

Приблизительно так(извиняюсь на синтаксис)

Объявляю набор записей:

Structure MyStruct
{
DIM s1 as String
DIM s2 as String
DIM d as double
}

Собственно ф-ия:

Public Function GetInfo(&MyStruct) As Boolean
MyStruct->s1 = 'Фиг вам'
MyStruct->s2 = 'Фиг нам'
MyStruct->d = 7
GetInfo=1
End Function

ну и вызов:
if(GetInfo(&ms)) then MsgBog ms.s1

Можно такое сотворить ?

Что скажут добрые доны ?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.08.2011, 12:06
Ответы с готовыми решениями:

В чем различие между функциями VBA и функциями Excel?
В чем различие между функциями VBA и функциями Excel. Скажите пожалуйста , в...

Непонятки с функциями
Добрый день. Я новичек в программировании и вот вопрос: Хочу написать...

Проблема с передачей параметров
Вот опять... Есть класс, и форма, и мди контейнер формы... Вот код...

Проблема с передачей параметров по GET
суть проблемы в следующем - есть форма и нужно передать данные из нее по методу...

Ссылка с передачей параметров
Помогите пожалуйсто решить задачу: есть index1.html там при клике на <a...

3
mmos
2 / 2 / 2
Регистрация: 06.03.2011
Сообщений: 151
08.08.2011, 14:43 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Type UserType
  s1 As String
  s2 As String
  d As Double
End Type
 
Sub MainProc()
  Dim ms As UserType
  If UserFunction(ms) Then MsgBox ms.s1 Else MsgBox ms.s2
End Sub
 
Function UserFunction(ByRef par As UserType)
  par.s1 = 'Больше 50'
  par.s2 = 'Не больше 50'
  par.d = Val(InputBox('Введи число от 1 до 100'))
  UserFunction = par.d > 50
End Function
0
mmos
2 / 2 / 2
Регистрация: 06.03.2011
Сообщений: 151
08.08.2011, 14:45 3
А почему перешёл-то? (по поводу самой первой строки первого сообщения)
0
SleepyBug
1 / 1 / 0
Регистрация: 15.02.2011
Сообщений: 33
08.08.2011, 15:45  [ТС] 4
Спасибо огромное !

Я понял. ~~~~~~~~~~ Буду внедрять.

'Перешел' т.к. ранее писал для себя - игрухи там, софт всякий, а сейчас нужно для работы - в Excel'е програмки финансовые.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.08.2011, 15:45

Запуск процесса с передачей параметров
Здравствуйте. Требуется запустить некий процесс proc несколько раз. И передать...

Вызов ХП из ASP c передачей параметров
Как использовать пареметры ?? Вот код : oCmd =...

Запуск программы с передачей параметров
Добрый вечер. Подскажите кто знает, у меня есть BAT файл следующего содержания:...


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

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

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