X
ďťż

Mefisto...diabeł czy anioł?

Poniżej przedstawiam makro dotyczące - listy wielokrotnego wyboru.
Sposób działania makra - w kolumnie I pokazuje się lista wielokretnego wyboru, z której można wybrać kilka nazw, a po kliknięciu obok te nazwy pojawiają się w danej komórce.
Mój problem, chciałbym dodać do tego makra funkcję, aby nie dało się wpisać ręcznie innej nazwy.W obecnej formie można wpisać inną nazwę.
Oto kod makra:


Option Explicit
Dim kom As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As Integer, tekst As String
If Target.Cells.Count <> 1 Then Exit Sub
If Not Intersect(Target, Range("I5:I2000")) Is Nothing Then
    ListBox1.Top = Target.Top
        ListBox1.Left = Target.Left
            ListBox1.Visible = True
              Set kom = ActiveCell
                   Exit Sub
                       End If
 
If ListBox1.Visible = True Then
With ListBox1
    For a = 1 To ListBox1.ListCount
        If .Selected(a - 1) = True Then tekst = tekst & " " & .List(a - 1): .Selected(a - 1) = False
            Next a
                End With
            If tekst <> "" Then kom = Trim(tekst)
       ListBox1.Visible = False
   
End If
End Sub

PROSZĘ O POMOC

[ Dodano: 2009-05-25, 21:40 ]
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • katkaras.opx.pl

    • Drogi uzytkowniku!

    W trosce o komfort korzystania z naszego serwisu chcemy dostarczac Ci coraz lepsze uslugi. By moc to robic prosimy, abys wyrazil zgode na dopasowanie tresci marketingowych do Twoich zachowan w serwisie. Zgoda ta pozwoli nam czesciowo finansowac rozwoj swiadczonych uslug.

    Pamietaj, ze dbamy o Twoja prywatnosc. Nie zwiekszamy zakresu naszych uprawnien bez Twojej zgody. Zadbamy rowniez o bezpieczenstwo Twoich danych. Wyrazona zgode mozesz cofnac w kazdej chwili.

     Tak, zgadzam sie na nadanie mi "cookie" i korzystanie z danych przez Administratora Serwisu i jego partnerow w celu dopasowania tresci do moich potrzeb. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

     Tak, zgadzam sie na przetwarzanie moich danych osobowych przez Administratora Serwisu i jego partnerow w celu personalizowania wyswietlanych mi reklam i dostosowania do mnie prezentowanych tresci marketingowych. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

    Wyrazenie powyzszych zgod jest dobrowolne i mozesz je w dowolnym momencie wycofac poprzez opcje: "Twoje zgody", dostepnej w prawym, dolnym rogu strony lub poprzez usuniecie "cookies" w swojej przegladarce dla powyzej strony, z tym, ze wycofanie zgody nie bedzie mialo wplywu na zgodnosc z prawem przetwarzania na podstawie zgody, przed jej wycofaniem.