Llist boxes, combo boxes in Excel 97 repost

[mikefromUK]

Hello All

I thought I would post this again to let everyone know that I am trying to solve the problem in Excel 97.

I have written a VBA program that asks for input from the user. I want the user to selection 1 of 3 options. How can I create a dialogue box (either drop down or one consisting of 3 buttons, latter preferred) to do this? I have read all about comboboxes etc but the VBA help does not show how to do this.

Probably just need some examples to show me how it is done.

Cheers

MG

 

[Andrew Poulsom]

This should get you started:

1. Press Alt+F11 to go to the Visual Basic Editor.
2. Make sure your workbook is selected in the Project Explorer Window and choose Insert, UserForm from the menu.
3. Add 3 OptionButtons from the Toolbox and change the Captions to what you want.
4. Add 2 CommandButtons from the ToolBox and change the Captions to OK and Cancel respectively.
5. Right click the UserForm and choose View Code.
6. Paste this code into the Code window:

Private Sub CommandButton1_Click()
    If OptionButton1 Then MsgBox "You chose OptionButton1"
    If OptionButton2 Then MsgBox "You chose OptionButton2"
    If OptionButton3 Then MsgBox "You chose OptionButton3"
    Unload UserForm1
End Sub

Private Sub CommandButton2_Click()
    Unload UserForm1
End Sub

7. Click on your workbook in the Project Explorer window and choose Insert Module from the menu.
8. Paste this code in the Code window:

Sub ShowForm()
    UserForm1.Show
End Sub
[/CODE}

9. Press F11 to return to your workbook, press Alt+F8, select ShowForm and click OK.

Post back if you need more help.

 

[mikefromUK]

OK - with you so far but I need to pass back to the main program what the user responsed. I was thinking of making it a fuction rather than a sub. See below.

Private function CommandButton1_Click()
dim option as Integer
If OptionButton1 Then option =1
If OptionButton2 Then option =2
If OptionButton3 Then option =3
Unload UserForm1

CommandButton1_Click = option

End Sub

 

[Andrew Poulsom]

If you declare your variable at the top of your general module like this:

Public option As Integer

it will be available to all your procedures.