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"
Denne side indeholder artikler med forskellige perspektiver på Identity & Access Management i private og offentlige organisationer. Artiklerne behandler aktuelle IAM-emner og leveres af producenter, rådgivere og implementeringspartnere.
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.
