15. januar 2008 - 18:23Der er
12 kommentarer og 1 løsning
Udfylde listbox med forskellige områder
Jeg har et comboboks og en listbox på mit ark. Når brugeren vælger en objekt i comboboks udfyldes listbox. Jeg vil gerne have at når brugeren vælger en objekt i combobox så udfyldes listbox med data der står i række 2 og startende med celle b2 og fortsætter så længe der er data i række 2.
Private Sub ComboBox1_Click()
Select Case ComboBox1.Value Case "Omega" ListBox1.ListFillRange = "Ark1!q3:q27" Case "Alfa" ListBox1.ListFillRange = "Ark1!P3:P17" Case "Delta" ListBox1.ListFillRange = "Ark1!S3:S20" Case "Gamma" ListBox1.ListFillRange = "Ark1!o3:o25" Case "Zeta" ListBox1.ListFillRange = "Ark1!r3:r20"
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Private Sub ComboBox1_Click() Select Case ComboBox1.Value Case "Omega" ListBox1.ListFillRange = "Ark1!q3:q" & Cells(65500, "q").End(xlUp).Row Case "Alfa" ListBox1.ListFillRange = "Ark1!P3:P17" & Cells(65500, "p").End(xlUp).Row Case "Delta" ListBox1.ListFillRange = "Ark1!S3:S20" & Cells(65500, "s").End(xlUp).Row Case "Gamma" ListBox1.ListFillRange = "Ark1!o3:o25" & Cells(65500, "o").End(xlUp).Row Case "Zeta" ListBox1.ListFillRange = "Ark1!r3:r20" & Cells(65500, "r").End(xlUp).Row End Select End Sub
Private Sub ComboBox1_Click() Select Case ComboBox1.Value Case "Omega" ListBox1.ListFillRange = "Ark1!q3:q" & Cells(65500, "q").End(xlUp).Row Case "Alfa" ListBox1.ListFillRange = "Ark1!P3:P" & Cells(65500, "p").End(xlUp).Row Case "Delta" ListBox1.ListFillRange = "Ark1!S3:S" & Cells(65500, "s").End(xlUp).Row Case "Gamma" ListBox1.ListFillRange = "Ark1!o3:o" & Cells(65500, "o").End(xlUp).Row Case "Zeta" ListBox1.ListFillRange = "Ark1!r3:r" & Cells(65500, "r").End(xlUp).Row End Select End Sub
Select Case ComboBox1.Value Case "Omega" For t = Columns("q").Column To Cells(3, 255).End(xlToLeft).Column MyArray(t - Columns("q").Column) = Cells(3, t) Next ListBox1.List() = MyArray Case "Alfa" For t = Columns("p").Column To Cells(3, 255).End(xlToLeft).Column MyArray(t - Columns("p").Column) = Cells(3, t) Next ListBox1.List() = MyArray Case "Delta" For t = Columns("s").Column To Cells(3, 255).End(xlToLeft).Column MyArray(t - Columns("s").Column) = Cells(3, t) Next ListBox1.List() = MyArray Case "Gamma" For t = Columns("o").Column To Cells(3, 255).End(xlToLeft).Column MyArray(t - Columns("o").Column) = Cells(3, t) Next ListBox1.List() = MyArray Case "Zeta" For t = Columns("r").Column To Cells(3, 255).End(xlToLeft).Column MyArray(t - Columns("r").Column) = Cells(3, t) Next ListBox1.List() = MyArray End Select
Har finpudset koden lidt, men er kun sikker på Case Omega ved ikke hvilket område der skal vælges ved øvrige valg
Private Sub ComboBox1_Click() Dim MyArray()
Select Case ComboBox1.Value Case "Omega" c = Cells(3, 255).End(xlToLeft).Column ReDim MyArray(c - Columns("q").Column) For t = Columns("q").Column To c MyArray(t - Columns("q").Column) = Cells(3, t) Next ListBox1.List() = MyArray
Case "Alfa" c = Cells(3, 255).End(xlToLeft).Column ReDim MyArray(c - Columns("p").Column) For t = Columns("p").Column To c MyArray(t - Columns("p").Column) = Cells(3, t) Next ListBox1.List() = MyArray
Case "Delta" c = Cells(3, 255).End(xlToLeft).Column ReDim MyArray(c - Columns("s").Column) For t = Columns("s").Column To c MyArray(t - Columns("s").Column) = Cells(3, t) Next ListBox1.List() = MyArray
Case "Gamma" c = Cells(3, 255).End(xlToLeft).Column ReDim MyArray(c - Columns("o").Column) For t = Columns("o").Column To Cells(3, 255).End(xlToLeft).Column MyArray(t - Columns("o").Column) = Cells(3, t) Next ListBox1.List() = MyArray
Case "Zeta" c = Cells(3, 255).End(xlToLeft).Column ReDim MyArray(c - Columns("r").Column) For t = Columns("r").Column To Cells(3, 255).End(xlToLeft).Column MyArray(t - Columns("r").Column) = Cells(3, t) Next ListBox1.List() = MyArray End Select
hmm er det så ark vj eller blot vj ? ret evt. linie 3-5
Private Sub ComboBox1_Click() Dim MyArray() Set sh1 = Sheets("vj"): Set sh2 = Sheets("tt") Set sh3 = Sheets("qq") Set sh4 = Sheets("3"): Set sh5 = Sheets("5") Select Case ComboBox1.Value Case "Omega" c = sh1.Cells(3, 255).End(xlToLeft).Column ReDim MyArray(c - Columns("q").Column) For t = Columns("q").Column To c MyArray(t - Columns("q").Column) = sh1.Cells(3, t) Next ListBox1.List() = MyArray
Case "Alfa" c = sh2.Cells(3, 255).End(xlToLeft).Column ReDim MyArray(c - Columns("p").Column) For t = Columns("p").Column To c MyArray(t - Columns("p").Column) = sh2.Cells(3, t) Next ListBox1.List() = MyArray
Case "Delta" c = sh3.Cells(3, 255).End(xlToLeft).Column ReDim MyArray(c - Columns("s").Column) For t = Columns("s").Column To c MyArray(t - Columns("s").Column) = sh3.Cells(3, t) Next ListBox1.List() = MyArray
Case "Gamma" c = sh4.Cells(3, 255).End(xlToLeft).Column ReDim MyArray(c - Columns("o").Column) For t = Columns("o").Column To c MyArray(t - Columns("o").Column) = sh4.Cells(3, t) Next ListBox1.List() = MyArray
Case "Zeta" c = sh5.Cells(3, 255).End(xlToLeft).Column ReDim MyArray(c - Columns("r").Column) For t = Columns("r").Column To c MyArray(t - Columns("r").Column) = sh5.Cells(3, t) Next ListBox1.List() = MyArray End Select
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
