Elektroda.pl
Elektroda.pl
X

Wyszukiwarki naszych partnerów

Wyszukaj w ofercie 200 tys. produktów TME
Europejski lider sprzedaży techniki i elektroniki.
Proszę, dodaj wyjątek elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

vba - Lp w do funkcji loop w listboxie

dajmilogin 16 Sty 2015 14:19 438 2
  • #1 16 Sty 2015 14:19
    dajmilogin
    Poziom 10  

    Witam,
    Jak przerobić poniższy kod, żeby dodawał do listboxa Lp.
    Jeżeli znajdzie 3 pozycje szukane to doda:
    1
    2
    3

    Kod: vb
    Zaloguj się, aby zobaczyć kod

  • Pomocny post
    #2 16 Sty 2015 20:35
    marek003
    Poziom 40  

    Piszę na "ślepo". Nie ingeruję za mocno w twój kod, a w szczególności poprawność zastosowanego warunku w funkcji IF (nie mam po takim wyrywku wiedzy by to z sensem analizować)

    Zamieniłem zmienną "k" na zmienną "lp". (bo lepiej się kojarzy i przy okazji zastąpi zadanie dane zmiennej "k".

    Chyba o to chodziło?

    Kod: vb
    Zaloguj się, aby zobaczyć kod


    edit
    ----------------------

    Jak chcesz mieć oprócz Lp. jeszcze adres komórki to zastąp w powyższym kodzie linię:
    SDMduplikatZnalezione.AddItem lp
    linią:
    SDMduplikatZnalezione.AddItem lp & ". Adres: " & a.Address(False, False)

    Na marginesie to false,false jest po to by nie pokazywał w adresie dolarów.

    edit2
    ------------------------
    Jeszcze pamiętaj że listbox też ma ograniczenia ilościowe.
    Bez opcji adresu, jeżeli dubel zaczyna się powtarzać już od pierwszego wiersza maksimum osiąga w 120.767 linii. Gdy się doda współrzędne adresu listbox zmniejsza się do 116.721 linii.
    Tak że w razie czego miej to na uwadze lub zabezpiecz kod przed "przepełnieniem" danych w listbox. (test na E2010)

  • #3 20 Maj 2015 14:37
    dajmilogin
    Poziom 10  

    Dziękuje zamykam.

TME logo Szukaj w ofercie
Zamknij 
Wyszukaj w ofercie 200 tys. produktów TME
TME Logo