• Dmi3i4
  • Восстановленный участник
  • На форуме с 17 октября 2006г.
  • Сообщений: 3
  • Спасибо: 0

Тема: Объявление глобальных переменных

Всем Доброго Времени Суток!!!
По событию Sub CommandButton2_Click() в пользовательской форме(FormUser1) вызываю функцию которая находится в модуле(Main). В функции использую переменную флаг(BlkFind), значение которой хочу передать, после отработки, в код формы.
В соответствии с доками объявляю переменную в модуле (Main) вне функции следующим образом
Public BlkFind as Boolean
в итоге переменная благополучно затирается и не передается в код формы
Watch : BlkFind : <Out of context> : Empty : Main.FindBlk
Уважаемые форумчане подскажите как правильно объявить глобальную переменную
P.S. пробовал объявлять переменную подобным образом и в коде формы и в к коде листа и параллельно в коде формы и в коде модуля - результата не дало.

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Объявление глобальных переменных

А если попробовать объявить как Global?

  • Dmi3i4
  • Восстановленный участник
  • На форуме с 17 октября 2006г.
  • Сообщений: 3
  • Спасибо: 0

Re: Объявление глобальных переменных

> kpblc
Этот вариант тоже не прошел sad

  • BP
  • Восстановленный участник
  • На форуме с 19 мая 2005г.
  • Сообщений: 112
  • Спасибо: 0

Re: Объявление глобальных переменных

Форма UserForm1, на форме кнопка CommandButton1 и текстовое поле TextBox1. Модуль формы

Option Explicit
Private Sub CommandButton1_Click()
Call Module1.changeGlobalStringVar
Me.TextBox1.Text = Module1.myGlobalStringVar
End Sub

Модуль Module1

Option Explicit
Public myGlobalStringVar As String
Sub Main()
Dim Dialog As New UserForm1
myGlobalStringVar = "Не определено"
Load Dialog
With Dialog
    .TextBox1.Text = myGlobalStringVar
    .Show
End With
End Sub
Public Function changeGlobalStringVar()
myGlobalStringVar = VBA.InputBox("Введите новое значение глобальной переменной", "Изменение значения глобальной переменной", myGlobalStringVar)
End Function

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Объявление глобальных переменных

А в модуле формы часом аналогичная переменная не объявлена? Она (то бишь переменная) точно нигде не потирается?

  • Dmi3i4
  • Восстановленный участник
  • На форуме с 17 октября 2006г.
  • Сообщений: 3
  • Спасибо: 0

Re: Объявление глобальных переменных

> BP
Предложенная конструкция отработала - Большое спасибо.

> kpblc
Объявления были - но они были закоментированны.
Только что удалили их вообще и все заработало по теории, т.е. объявил переменную как public в
модуле и всё - работает.
Мистика бился с утра перебирая варианты. Всем спасибо!

  • Андрей
  • Восстановленный участник
  • На форуме с 15 ноября 2006г.
  • Сообщений: 2
  • Спасибо: 0

Re: Объявление глобальных переменных

Уважаемые форумчане подскажите как правильно объявить глобальную переменную

А что там объявлять?
Public или Global и всего делов ;)
---
http://kbyte.ru - VB, VBA, .NET