curro70
06.12.10,17:30
Vaše rady sú niekedy nad zlato.
Potreboval bi som zas nejaký kód na prenesenie z buniek do ListBoxu napr:
Pri v písaní slova do A1, B1, C1 atď... aby mi to preplo do ListBoxu a potom zas A2, B2, C2 atď...
A tiež ešte jeden kód na vymazanie.
To znamená, že keď označím jeden riadok v ListBoxe tak pri stlačení tlačítka CommandButton bi malo vymazať.
Vaše radi mi veľmi pomohli hlavne palopa a dúfam, že aj tento raz vopred Ďakujem!!!
Potreboval bi som zas nejaký kód na prenesenie z buniek do ListBoxu napr:
Pri v písaní slova do A1, B1, C1 atď... aby mi to preplo do ListBoxu a potom zas A2, B2, C2 atď...
A tiež ešte jeden kód na vymazanie.
To znamená, že keď označím jeden riadok v ListBoxe tak pri stlačení tlačítka CommandButton bi malo vymazať.
Vaše radi mi veľmi pomohli hlavne palopa a dúfam, že aj tento raz vopred Ďakujem!!!
Charon
12.12.10,16:30
ListBox v akom programe? Excel, Access ... iný? A ktorá verzia?
PaloPa
13.12.10,14:10
Podľa typu Listboxu (Form prvok alebo Ole Object)
- Form prvok - klik pravým na ListBox, voľba "Format Control"
- OLE Object - klik pravým na ListBox, voľba "Properties (Vlastnosti)"
Viď obrázok.
Palo
- Form prvok - klik pravým na ListBox, voľba "Format Control"
- OLE Object - klik pravým na ListBox, voľba "Properties (Vlastnosti)"
Viď obrázok.
Palo
curro70
19.12.10,17:05
ListBox v programe excel 2007
Pre PaloPa: Dík za súbor, ale nieje to čo som myslel. Toto zatiaľ ovládam, ale chcel som či sa náhodou dá aby to písalo do listboxu ako jeden riadok po v písaní do buniek napr. A1,B1,C1...potom druhý riadok A2,B2,C2...
Zadal som aj tento kód:
Private Sub worksheet_change(ByVal target As Range)
With target
If .Column = 2 Then
With Sheet1
.ListBox1.List = .Range("b1", .Cells(.Rows.Count, "B").End(xlUp)).Value
End With
End If
End Sub
ale stále mi to píše len jeden stlpec z buniek B
Keď pripíšem celý kód pod tento a zmenim B na C a tiež =3Then tak po kliknutí mi to prepína raz jeden, raz druhý stlpec. O čo ide?
Chcem aby mi v listboxe ostávali obydva stlpce.
Je možné, že tu treba len niečo prerobiť, ale neviem čo.
Tiež by som chcel aj na vymazanie z listboxu nejaký kód.
Napr: pri označení riadka v listboxe a stlačení commandbutton aby mi to zmazalo.
Ak môžeš tak mi prosím ešte poraď vopreď Ďakujem!!!
Pre PaloPa: Dík za súbor, ale nieje to čo som myslel. Toto zatiaľ ovládam, ale chcel som či sa náhodou dá aby to písalo do listboxu ako jeden riadok po v písaní do buniek napr. A1,B1,C1...potom druhý riadok A2,B2,C2...
Zadal som aj tento kód:
Private Sub worksheet_change(ByVal target As Range)
With target
If .Column = 2 Then
With Sheet1
.ListBox1.List = .Range("b1", .Cells(.Rows.Count, "B").End(xlUp)).Value
End With
End If
End Sub
ale stále mi to píše len jeden stlpec z buniek B
Keď pripíšem celý kód pod tento a zmenim B na C a tiež =3Then tak po kliknutí mi to prepína raz jeden, raz druhý stlpec. O čo ide?
Chcem aby mi v listboxe ostávali obydva stlpce.
Je možné, že tu treba len niečo prerobiť, ale neviem čo.
Tiež by som chcel aj na vymazanie z listboxu nejaký kód.
Napr: pri označení riadka v listboxe a stlačení commandbutton aby mi to zmazalo.
Ak môžeš tak mi prosím ešte poraď vopreď Ďakujem!!!