Excel umożliwia w ramach budowania bazy danych uzupełnianie treści komórki predefiniowanymi wartościami zapisanymi przez użytkownika najczęściej w osobnym arkuszu. Na przykład kolumna pt.: rodzaj spotkania ma wybór spośród: konferencja, kongres, wyjazd motywacyjny. Czy istnieje możliwość wielokrotnego wyboru spośród tej listy dla jednej komórki (np.: konferencja+wyjazd motywacyjny)?
Standardowym sprawdzaniem poprawności tego nie da się zrobić. Trzeba posłużyć się np. formantem Pole listy (menu Developer -> Wstaw), ustawić go w tryb wielokrotnego wyboru (prawa mysz na formancie ->Formatuj formant -> zakładka Formant), a następnie utworzyć makro, które będzie reagowało na zmiany wybranych pozycji (prawa mysz -> Przypisz makro -> Nowe). Skrypt może wyglądać np. tak:
Sub Lista1_Zmienianie()
'przypisujemy naszą listę do zmiennej - w miejsce "Lista1" wpisz nazwę Twojego formantu
Set lista = ActiveSheet.ListBoxes("Lista1")
'przechodzimy przez wszystkie elementy listy
For i = 1 To lista.ListCount
'jeśli element jest wybrany, dołączamy go do ciągu
If lista.Selected(i) Then tekst = tekst & "+" & lista.List(i)
Next
'usuwamy początkowy plus
tekst = Mid(tekst, 2, Len(tekst))
'przepisujemy uzyskany ciąg do komórki A1
Range("A1") = tekst
End Sub
Dokładnie tylko za pomocą VBA można to zrobić.
