problems defining a global variable

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Recently I have been needing to use some global variables but I dont know how
to do it, colud some one explainme how to achive this.

Also: I have a form (userform1); this form has 2 chek boxes inside a grouop
box, If chekbox1 is cheked, then I want that the variable a save the "1"
value on it (dim a as integer --> a=1) and if chekbox2 is cheked then a saves
"2", this values of "a" I use them in one of my macros after a button in
userform1 is pressed (button1-->unload userform1). Now the problem; My
problem is when userform1 is unloaded, a lost is value, so I dont know which
value ; how to accomplish what I want????
 
Hi,

1. Global variable: at the top of a module, before any SUb , use:
Public a as long

2. For you Userform,
-first , if either checkbox1 OR checkbox2 (but not both) can be selected ,
then use an optionbutton instead of a checkbox. Optionbuttons within a same
groupbox (or Frame) function automatically as you wish... when one is clicked
, the other one is unselected automatically with no need of code.
- now, if the purpose of your form is to return a single value (as if it
were a function), you could do the following:
In your form,add the public Function Displaywhich returns a long:
Public Function Display( ) as Long
Me.Show
If OptionButton1.Value = True then
Display=1
Else
Display=2
End If
End Function

Now from your code , instead of calling
Userform1.Show
call
dim a as Long
a = Userform1.Display( )


Regards,
Sébastien
<http://www.ondemandanalysis.com>
 
tanks for your answer

sebastienm said:
Hi,

1. Global variable: at the top of a module, before any SUb , use:
Public a as long

2. For you Userform,
-first , if either checkbox1 OR checkbox2 (but not both) can be selected ,
then use an optionbutton instead of a checkbox. Optionbuttons within a same
groupbox (or Frame) function automatically as you wish... when one is clicked
, the other one is unselected automatically with no need of code.
- now, if the purpose of your form is to return a single value (as if it
were a function), you could do the following:
In your form,add the public Function Displaywhich returns a long:
Public Function Display( ) as Long
Me.Show
If OptionButton1.Value = True then
Display=1
Else
Display=2
End If
End Function

Now from your code , instead of calling
Userform1.Show
call
dim a as Long
a = Userform1.Display( )


Regards,
Sébastien
<http://www.ondemandanalysis.com>
Click to expand...
 
Back
Top