Kim75
05-06-2010, 02:19 PM
Hi the forum,
I looked for a long time for the means to fill column headers of a userform listbox, but in vain, may be someone know how we can do that …
Here is my code (word 2002) :Private Sub UserForm_Initialize()
Dim myArray1 As Variant
Dim myArray2 As Variant
Dim myArray3 As Variant
Dim myArray4 As Variant
Dim myArray5 As Variant
Dim myArray6 As Variant
Dim myArray7 As Variant
Dim i As Long
myArray1 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
& "xixixi|fffff|ggggg|hhhhh|iiiii|" _
& "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
& "ooooo|ppppp|qqqqq|rrrrr|sssss|" _
& "ttttt|uuuuu|vvvvv|wwwww|xxxxx|" _
& "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray2 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
& "xixixi|fffff|ggggg|hhhhh|iiiii|" _
& "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
& "ooooo|ppppp|qqqqq|rrrrr|sssss|" _
& "ttttt|uuuuu|vvvvv|wwwww|xxxxx|" _
& "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray3 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
& "xixixi|fffff|ggggg|hhhhh|iiiii|" _
& "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
& "ooooo|ppppp|qqqqq|rrrrr|sssss|" _
& "ttttt|uuuuu|vvvvv|wwwww|xxxxx|" _
& "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray4 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
& "xixixi|fffff|ggggg|hhhhh|iiiii|" _
& "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
& "ooooo|ppppp|qqqqq|rrrrr|sssss|" _
& "ttttt|uuuuu|vvvvv|wwwww|xxxxx|" _
& "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray5 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
& "xixixi|fffff|ggggg|hhhhh|iiiii|" _
& "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
& "ooooo|ppppp|qqqqq|rrrrr|sssss|" _
& "ttttt|uuuuu|vvvvv|wwwww|xxxxx|" _
& "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray6 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
& "xixixi|fffff|ggggg|hhhhh|iiiii|" _
& "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
& "ooooo|ppppp|qqqqq|rrrrr|sssss|" _
& "ttttt|uuuuu|vvvvv|wwwww|xxxxx|" _
& "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray7 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
& "xixixi|fffff|ggggg|hhhhh|iiiii|" _
& "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
& "ooooo|ppppp|qqqqq|rrrrr|sssss|" _
& "ttttt|uuuuu|vvvvv|wwwww|xxxxx|" _
& "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
For i = 0 To UBound(myArray1)
ListBox1.AddItem
ListBox1.List(i, 0) = myArray1(i)
ListBox1.List(i, 1) = myArray2(i)
ListBox1.List(i, 2) = myArray3(i)
ListBox1.List(i, 3) = myArray4(i)
ListBox1.List(i, 4) = myArray5(i)
ListBox1.List(i, 5) = myArray6(i)
ListBox1.List(i, 6) = myArray7(i)
Next i
End Sub
thanks, Kim
I looked for a long time for the means to fill column headers of a userform listbox, but in vain, may be someone know how we can do that …
Here is my code (word 2002) :Private Sub UserForm_Initialize()
Dim myArray1 As Variant
Dim myArray2 As Variant
Dim myArray3 As Variant
Dim myArray4 As Variant
Dim myArray5 As Variant
Dim myArray6 As Variant
Dim myArray7 As Variant
Dim i As Long
myArray1 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
& "xixixi|fffff|ggggg|hhhhh|iiiii|" _
& "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
& "ooooo|ppppp|qqqqq|rrrrr|sssss|" _
& "ttttt|uuuuu|vvvvv|wwwww|xxxxx|" _
& "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray2 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
& "xixixi|fffff|ggggg|hhhhh|iiiii|" _
& "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
& "ooooo|ppppp|qqqqq|rrrrr|sssss|" _
& "ttttt|uuuuu|vvvvv|wwwww|xxxxx|" _
& "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray3 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
& "xixixi|fffff|ggggg|hhhhh|iiiii|" _
& "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
& "ooooo|ppppp|qqqqq|rrrrr|sssss|" _
& "ttttt|uuuuu|vvvvv|wwwww|xxxxx|" _
& "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray4 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
& "xixixi|fffff|ggggg|hhhhh|iiiii|" _
& "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
& "ooooo|ppppp|qqqqq|rrrrr|sssss|" _
& "ttttt|uuuuu|vvvvv|wwwww|xxxxx|" _
& "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray5 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
& "xixixi|fffff|ggggg|hhhhh|iiiii|" _
& "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
& "ooooo|ppppp|qqqqq|rrrrr|sssss|" _
& "ttttt|uuuuu|vvvvv|wwwww|xxxxx|" _
& "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray6 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
& "xixixi|fffff|ggggg|hhhhh|iiiii|" _
& "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
& "ooooo|ppppp|qqqqq|rrrrr|sssss|" _
& "ttttt|uuuuu|vvvvv|wwwww|xxxxx|" _
& "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
myArray7 = Split("aaaaa|bbbbb|ccccc|ddddd|eeeee|" _
& "xixixi|fffff|ggggg|hhhhh|iiiii|" _
& "jjjjj|kkkkk|lllll|mmmmm|nnnnn|" _
& "ooooo|ppppp|qqqqq|rrrrr|sssss|" _
& "ttttt|uuuuu|vvvvv|wwwww|xxxxx|" _
& "rsrsrs|ststst|tututu|uvuvuv|vwvwvw|", "|")
For i = 0 To UBound(myArray1)
ListBox1.AddItem
ListBox1.List(i, 0) = myArray1(i)
ListBox1.List(i, 1) = myArray2(i)
ListBox1.List(i, 2) = myArray3(i)
ListBox1.List(i, 3) = myArray4(i)
ListBox1.List(i, 4) = myArray5(i)
ListBox1.List(i, 5) = myArray6(i)
ListBox1.List(i, 6) = myArray7(i)
Next i
End Sub
thanks, Kim