Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Looping UserForm ComboBox
Hi
I would like to use the code below in a loop so that i can populate numerous ComboBoxes within my UserForm with the same list. I am not sure how to go about this, and would appreciate any help. Thanks With ComboBox7 Dim MonthArray As Variant MonthArray = Split("01|02|03|04|05|06|07|08|09|10|11|12|", "|") ComboBox7.List = MonthArray End With |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Looping UserForm ComboBox
Something like:
Option Explicit Private MonthArray As Variant Private Sub UserForm_Initialize() MonthArray = Split("01|02|03|04|05|06|07|08|09|10|11|12|", "|") Me.ComboBox1.list = MonthArray Me.ComboBox2.list = MonthArray Me.ComboBox3.list = MonthArray Me.ComboBox4.list = MonthArray Me.ComboBox5.list = MonthArray End Sub will do the job -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Owen" wrote in message ... Hi I would like to use the code below in a loop so that i can populate numerous ComboBoxes within my UserForm with the same list. I am not sure how to go about this, and would appreciate any help. Thanks With ComboBox7 Dim MonthArray As Variant MonthArray = Split("01|02|03|04|05|06|07|08|09|10|11|12|", "|") ComboBox7.List = MonthArray End With |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Looping UserForm ComboBox
Something like: Option Explicit Private MonthArray As Variant Private Sub UserForm_Initialize() MonthArray = Split("01|02|03|04|05|06|07|08|09|10|11|12|", "|") Me.ComboBox1.list = MonthArray Me.ComboBox2.list = MonthArray Me.ComboBox3.list = MonthArray Me.ComboBox4.list = MonthArray Me.ComboBox5.list = MonthArray End Sub will do the job -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Owen" wrote in message ... Hi I would like to use the code below in a loop so that i can populate numerous ComboBoxes within my UserForm with the same list. I am not sure how to go about this, and would appreciate any help. Thanks With ComboBox7 Dim MonthArray As Variant MonthArray = Split("01|02|03|04|05|06|07|08|09|10|11|12|", "|") ComboBox7.List = MonthArray End With |
#4
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Looping UserForm ComboBox
Thanks Graham...it did the trick.
"Graham Mayor" wrote: Something like: Option Explicit Private MonthArray As Variant Private Sub UserForm_Initialize() MonthArray = Split("01|02|03|04|05|06|07|08|09|10|11|12|", "|") Me.ComboBox1.list = MonthArray Me.ComboBox2.list = MonthArray Me.ComboBox3.list = MonthArray Me.ComboBox4.list = MonthArray Me.ComboBox5.list = MonthArray End Sub will do the job -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Owen" wrote in message ... Hi I would like to use the code below in a loop so that i can populate numerous ComboBoxes within my UserForm with the same list. I am not sure how to go about this, and would appreciate any help. Thanks With ComboBox7 Dim MonthArray As Variant MonthArray = Split("01|02|03|04|05|06|07|08|09|10|11|12|", "|") ComboBox7.List = MonthArray End With . |
#5
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Looping UserForm ComboBox
Thanks Graham...it did the trick. "Graham Mayor" wrote: Something like: Option Explicit Private MonthArray As Variant Private Sub UserForm_Initialize() MonthArray = Split("01|02|03|04|05|06|07|08|09|10|11|12|", "|") Me.ComboBox1.list = MonthArray Me.ComboBox2.list = MonthArray Me.ComboBox3.list = MonthArray Me.ComboBox4.list = MonthArray Me.ComboBox5.list = MonthArray End Sub will do the job -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Owen" wrote in message ... Hi I would like to use the code below in a loop so that i can populate numerous ComboBoxes within my UserForm with the same list. I am not sure how to go about this, and would appreciate any help. Thanks With ComboBox7 Dim MonthArray As Variant MonthArray = Split("01|02|03|04|05|06|07|08|09|10|11|12|", "|") ComboBox7.List = MonthArray End With . |
#6
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Looping UserForm ComboBox
You are welcome
-- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Owen" wrote in message ... Thanks Graham...it did the trick. "Graham Mayor" wrote: Something like: Option Explicit Private MonthArray As Variant Private Sub UserForm_Initialize() MonthArray = Split("01|02|03|04|05|06|07|08|09|10|11|12|", "|") Me.ComboBox1.list = MonthArray Me.ComboBox2.list = MonthArray Me.ComboBox3.list = MonthArray Me.ComboBox4.list = MonthArray Me.ComboBox5.list = MonthArray End Sub will do the job -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Owen" wrote in message ... Hi I would like to use the code below in a loop so that i can populate numerous ComboBoxes within my UserForm with the same list. I am not sure how to go about this, and would appreciate any help. Thanks With ComboBox7 Dim MonthArray As Variant MonthArray = Split("01|02|03|04|05|06|07|08|09|10|11|12|", "|") ComboBox7.List = MonthArray End With . |
#7
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Looping UserForm ComboBox
You are welcome -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Owen" wrote in message ... Thanks Graham...it did the trick. "Graham Mayor" wrote: Something like: Option Explicit Private MonthArray As Variant Private Sub UserForm_Initialize() MonthArray = Split("01|02|03|04|05|06|07|08|09|10|11|12|", "|") Me.ComboBox1.list = MonthArray Me.ComboBox2.list = MonthArray Me.ComboBox3.list = MonthArray Me.ComboBox4.list = MonthArray Me.ComboBox5.list = MonthArray End Sub will do the job -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Owen" wrote in message ... Hi I would like to use the code below in a loop so that i can populate numerous ComboBoxes within my UserForm with the same list. I am not sure how to go about this, and would appreciate any help. Thanks With ComboBox7 Dim MonthArray As Variant MonthArray = Split("01|02|03|04|05|06|07|08|09|10|11|12|", "|") ComboBox7.List = MonthArray End With . |
#8
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Looping UserForm ComboBox
Graham's answer is will do the job quite well in this case. There are a few
other techniques that you might put in your toolbox for cases where the number of controls involved is large: The first loops through like named controls with an index number: Private MonthArray As Variant Private Sub UserForm_Initialize() Dim i As Long Dim CtrNameArray As String CtrNameArray = Split("ComboBox1|ComboBox1|ComboBox1|ComboBox1|Com boBox1") MonthArray = Split("01|02|03|04|05|06|07|08|09|10|11|12|", "|") For i = 1 To 5 'or to whatever number you need. Me.Controls("ComboBox" & i).List = MonthArray Next i End Sub The other uses a second array to provide uniquely named controls to the loop: Private Sub UserForm_Initialize() Dim i As Long Dim CtrNameArray() As String 'Variant CtrNameArray = Split ("ComboBoxAlpha|ComboBoxBravo|ComboBoxCharlie|Comb oBoxDelta|ComboBoxEcho", "|") MonthArray = Split("01|02|03|04|05|06|07|08|09|10|11|12|", "|") For i = 0 To UBound(CtrNameArray) Me.Controls(CtrNameArray(i)).List = MonthArray Next i End Sub Owen wrote: Hi I would like to use the code below in a loop so that i can populate numerous ComboBoxes within my UserForm with the same list. I am not sure how to go about this, and would appreciate any help. Thanks With ComboBox7 Dim MonthArray As Variant MonthArray = Split("01|02|03|04|05|06|07|08|09|10|11|12|", "|") ComboBox7.List = MonthArray End With -- Greg Maxey Please visit my web site http://gregmaxey.mvps.org Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...ement/201006/1 |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Enable a ComboBox using VBA | Microsoft Word Help | |||
Mail Merge looping through records | Mailmerge | |||
Looping Macro for Selection String Between Quotation Marks | Microsoft Word Help | |||
ComboBox Help | Microsoft Word Help | |||
combobox | Microsoft Word Help |