Pomoc - Szukaj - Użytkownicy - Kalendarz
Pełna wersja: VBA i combo box
Osłomania > IT, Multimedia, Home Entertainment, Komunikacja > Programowanie
Vandi
POnieważ nie znalazłem w sieci i w książce którą kupiłem, mam do was zapytanie.

Mam prawie gotowe makro w excelu. Do szcześcia brakuje mi tylko jednaj rzeczy:


Jest arkusz z listą towarów A1 do A1000
W komórkach B1 do B1000 są ceny tych towarów.

Chodzi mi o to żeby w VBA w comboboxie pokazała się lista tych towarów.
A po kliknięciu na produkt do arkusza wstawiła się cena.

Formant potrafię stworzyć bez problemu. Połączyć go z makrem teź. Niestety nie potrafię stworzyc makra które zadziała

conf20.gif worthy.gif
Vandi
No dobra. Posiedziałem trochę i zrobiłem narazie coś takiego:
KOD
Private Sub UserForm_Initialize()
Worksheets("Lista produktów").Activate
ComboBox1.RowSource = "A1:A1000"
End Sub

Private Sub ComboBox1_Change()
ActiveCell.Value = ComboBox1.value
ActiveCell.Offset(1, 0).Activate
End Sub


Może ktoś wie:
1. Jak ma wyglądać makro, aby były zwracane dane z komórek b1 : b1000 a nie z A1: A1000
2. Jak ma wyglądać ta linia jeżeli lista często zmienia długość
KOD
ComboBox1.RowSource = "A1:A1000"
Ace McCloud
ad1.
ComboBox1.RowSource = "B1:B1000"
??
Vandi
@Ace jednak nie tak. Po twojej modyfikacji w comboxie pokazywane były ceny i zwracane również ceny wink.gif

Ale już wiem. I napiszę rozwiązanie. Może ktoś skorzysta

Zdefiniowałem dla ułatwienia nazwę komórek A1:B1000 - "produkty"
Dalej:
Właściwości combobox-u/
- Listfilrange = produkty
- BoundCount = 2 - żeby zwracana wyła druga kolumna

Makro:
KOD
Private Sub ComboBoxlista_Click()
Range("c1").Select
   Selection.End(xlDown).Select
   ActiveCell.Offset(1, 0).Range("A1").Select
   ActiveCell.Value = ComboBoxlista.Value
End Sub


P.S Prościzna biggrin.gif
To jest wersja lo-fi głównej zawartości. Aby zobaczyć pełną wersję z większą zawartością, obrazkami i formatowaniem proszę kliknij tutaj.
Invision Power Board © 2001-2012 Invision Power Services, Inc.