Userform example for a help file in the Excel workbook.

[FryGirl]

Does anybody have a sample they can point me to which has an help UserForm to display to user to give them help on certain attributes of a spreadsheet?

I found this one on contextures, but it's a multi form and I'm thinking more like a dropdown box with choices. Anybody know where to find a good example?

https://www.contextures.com/excelfiles.html
UF0014 - MultiPage Excel UserForm

 

[My Aswer Is This]

So are you wanting to select a value in a Combobox like Shortcut
And then a form would display instructions on how to use shortcut keys or something like that?

If your familiar with Multipages we could write a script where when you select Shortcut from a combobox then a Multipage would popup displaying what you wanted about shortcuts. Would something like that work.

 

[FryGirl]

Yes, this sounds perfect.

 

[My Aswer Is This]

So do you have your Userform built with all your Multipage1 Pages ?

If not you will have to do that part and have a Combobox on the Userform where we can load in the Multipage1 Page names.

The multipage names should have some logic.

Like for example if you were dealing with subjects

Math English Science


And you would need a Combobox and a Command button

You would choose from the combobox the name of the Multipage1 page name
Then click on a command button to run the script.

All the other Multipage1 pages would be hidden and on the Multipage1 page you would enter a Label with the Text you want the user to see.

Do you understand all this and the logic?

If you have all this done.

Give ne the names of the Multipage1 page names
Give me The combobox name
Give me the name of your command button

 

[FryGirl]

No I do not have those things yet, but that part I can put together. Can we just give generic names to those controls and then I will name to match?

 

[My Aswer Is This]

Well here is the code I used.

You will have to modify to your needs.
I prefer to know details first. But if you think you can sort it out here it is:
I never like putting the Cart before the Horse.

Private Sub CommandButton1_Click()
Dim ans As String
ans = ComboBox1.Value
 
For Each Page In MultiPage1.Pages
    If Page.Caption <> ans Then
        Page.Visible = False
    Else
        Page.Visible = True
        MultiPage1.Value = 1
    End If
Next
End Sub
Private Sub UserForm_Initialize()
 For Each Page In MultiPage1.Pages
    ComboBox1.AddItem Page.Caption
 Next
End Sub

 

[FryGirl]

Got it all setup. This is perfect thanks. Instead of the cmd btn, I attached the code to the change of the combobox.

Since I have Option Explicit at the top of the module, how do I define the variable Page?

 

[My Aswer Is This]

I really do not know.
I never use Option Explicit

I wrote the code my way and it works. Now if you want to write the code your way I'm not sure how to do it.

 

[mikerickson]

Put

Dim Page As MSForms.Page

inside the Sub at the begining.

 

[My Aswer Is This]

Not sure about if this is proper but it works for me:
I set page to object

Option Explicit
Private Sub ComboBox1_Change()
Dim ans As String
Dim Page As Object
ans = ComboBox1.Value
 
For Each Page In MultiPage1.Pages
    If Page.Caption <> ans Then
        Page.Visible = False
    Else
        Page.Visible = True
        MultiPage1.Value = 1
    End If
Next
End Sub
Private Sub UserForm_Initialize()
Dim Page As Object
 For Each Page In MultiPage1.Pages
    ComboBox1.AddItem Page.Caption
 Next
End Sub