With Me.lst For i = 0 To .ListCount - 1 If .List(i, 2) = "Brak JPG" Then .Selected(i) = True End If Next End With Dodano po 1 lst - to jest ListBox
Trzeba posortować. Np metodą bąbelkową.[syntax=vb]Private Sub zapisz_Click() Me.ListBox1.AddItem (Me.TextBox1) Me.TextBox1.Value = "" With ListBox1 For i = 0 To .ListCount - 2 For j = i + 1 To .ListCount - 1 If .List(i) > .List(j) Then temp = .List(j) .List(j) = .List(i) .List(i) = temp End If Next Next End With End Sub [/syntax]
Inny plik, inny obiekt. Na przyszłość: Kliknij ppm w obszar obiektu, wybierz "Przypisz makro", "Nowe" lub "Edytuj" jeśli już jest...
1 - Bo nie do końca tak być powinno lecz w tej chwili nie bardzo mam czas żeby dalej w tym kopać. :cry: Chodzi mi o start formularza. 2 - SetFocus "wybiera" kontrolkę jakby była kliknięta myszą. Na marginesie - w tej chwili nie wiem, ale jak będę miał czas to spróbuję dojść co Ci się udało ściemnić w ListBoxach. :D
Próbowałem sposobem jak przy normalnych makrach Czyli jakim? :-) Umieść kod w zdarzeniu KeyDown formantu ListBox (a nie w zdarzeniu Formularza) Przykładowy kod dla ListBox1: [syntax=vbscript] Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyF4 Then ' dalszy ciąg instrukcji End Sub [/syntax]...
ListBox1.ColumnCount=9 ListBox1.RowSource = "Arkusz2!A1:I400"
Zerknij do załącznika. Ja tak to widzę...
[syntax=vb] Set Zmienna = Docel.Range(Cells(l_pw, l_kol), Cells(l_ow, l_kol)) ComboBox1.ColumnCount = 1 ' ComboBox1.List() = Zmienna ComboBox1.RowSource = Docel.Name & "!" & Zmienna.Address [/syntax]
Ktoś już kiedyś walczył z filtrowaniem listBox'a: http://www.elektroda.pl/rtvforum/viewtop...
U mnie drukuje poprawnie. Jaki masz komunikat błędu?
Lista produktów będzie pojawiała się zawsze od komórki C14 i ilość wierszy w dół może być różna
Podmień ComboBox na ListBox...
Podobnie. "Złap" wiersz który trzeba zmienić i podmień w nim poszczególne komórki Nie moge do końca zrozumieć twojej koncepcji. Ale może przykład zaadoptujesz do własnych potrzeb. [syntax=vb]pozycja = lstSala.ListIndex For k = 1 To 10 Worksheets("Glowna").Cells(pozycja + 2, k).Value = Controls("txt" & k & "v").Value Next k UserForm_Initialize[/syntax]...
Nadal klapa. Wykorzystałem podany kod, przerobiony na moje potrzeby. Wyskakuje błąd " Nie można ustawić własności RowSourse .Nieprawidłową wartość obiektu ". Mój kod wygląda tak: [syntax=vb]Private Sub CommandButton1_Click() With ListBox1 .ColumnCount = 3 .ColumnHeads = True .RowSource = "=Sheet1!A2:C6" End With End Sub[/syntax] Oczywiście dane, które...
Wszystko mi działa, ale to sortowanie niestety nie. Mam połączenie z bazą dodaje usuwam rekordy i jest ok. Dane wyświetlam w listbox. chodzi mi dokładnie o to żeby posortować dane wg 1 kolumny czyli wg nazwy (alfabetycznie) i wyświetlić ponownie listbox.
Aj For k = 0 To 18 Kolumna nie moze byc 0 Worksheets("TLP").Cells(ListBox1.ListInd... k+1).Value = Controls("txt" & k & "v").Value
Witam. Próbują utworzyć ListBox w którym wyświetlało by mi dane w wielu kolumnach (dane z całego miesiąca). Niestety kod który zastosowałem pozwala wyświetlać dane tylko w max 10 kolumnach. Jednak dla przykładu napisałem kod który pokazuje co dokładnie chcę osiągnąć. Ogólnie to potrzebuję aby ListBox wyświetlił mi dane w co najmniej 38-40 kolumnach....
Wystarczy pobrać który wiersz w kolejności z listbox'a zaznaczyłeś lstFiltr.ListIndex a jak widać wprowadzasz do boxa listę od drugiego wiersza (B2) więc mając na uwadze to że listbox "liczy" własne wiersze od 0 należy powiększyćwynik o 2 i już masz nr wiersza. nrWrs = lstFiltr.ListIndex +2
Można obejść ograniczenie ListBox'a do 10 kolumn przez załadowanie danych do zmiennej tablicowej, ale bardziej eleganckim rozwiązaniem będzie użycie kontrolki ListView zamiast ListBox.
Lecz pomimo jej przefitrowania w listboksie widzę wszystkie pozycje. Jak zrobić bym widział tylko te po filtracji? Najszybciej przez 'additem' (czyli pętla po widocznych komórkach i ładowanie do listboksa)
Wie ktoś może z czym problem ? Wysiadła mi bateria w magicznej kuli :cry: - więc na podstawie tak wyciętego obrazka i bez pliku trudno zgadnąć :cunning:
Witam 1. AddItem ma limit do 10 (0-9) 2. Przez AddItem nie da rady przypisać nazw jedynie przez RowSource
ad2 Jeżeli zrobisz wszystkie listboxy w osobnych userformach Dlaczego? Na podstawie zdarzenia Change jednego ListBox'a można przypisać zakres/tablicę/item drugiemu...
Witam, mam problem z programem napisanym w Excelu 2003, sprawa wygląda tak: mam jeden arkusz z danymi zaprojektowany w ten sposób że każda kolumna zawiera dane jednej grupy produktów w początkowych wierszach następnie jest jeden wiersz z typem danej grupy produktów a następnie znajdują się kody poszczególnych produktów każdy w osobnym wierszu (jeden...
Witam, nie wiem czy ja mam coś nie tak, czy tez mój excel (bo wg mnie co najmniej jedno z rozwiązań, których próbowałam powinno zadziałać. Mam formularz, w którym jest kontrolka RefEdit o nazwie Dane_wej oraz ListBox o nazwie Lista_kolumn. Chciałam by, w formularzu , w polu listy pojawiły się dane z pierwszego wiersza z zaznaczonego zakresu - czyli...
zobacz taki myk [syntax=vb]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) ListBox1.ListIndex = ListBox1.ListIndex + 1 End Sub[/syntax] gdzie textbox1 to twój textbox i listbox to samo
Hmm, zdaje się, że jest: dodatkowe umiejętności, kwalifikacje - wymagania Gdyby jeszcze zapisane były "bazodanowo"... Np na podstawie zdefiniowanych list (combobox, listbox, poprawność danych)
Moja baza pracowników zawiera około 1000 pracowników a każdy pracownik ma przypisane około 150 kolumn z przeróżnymi danymi. Baza jest aktualizowana prawie nonstop. Wolałbym utworzyć bazę danych w jakimś pliku tekstowym ale takim z którym dał bym sobie rady (przyznam że jeszcze nigdy czegoś takiego nie robiłem, do tej pory pracuję na bazie umieszczonej...
...ListView, który jest inną kontrolką niż ListBox (ma inne właściwości i inaczej się do niego ładuje dane). Ten sposób ListView2.ListItems = "'BAAN 3'!G8:K97" ładowania danych NIE JEST poprawny dla ListView, zapomnij o nim. To działa tylko z ListBox'em. USUŃ z formy wszystkie ListBoxy które tam miałeś... Zamiast nich wstaw i skonfiguruj...
Dzięki wielkie. Działa wyśmienicie. Teraz w ListBox wyświetlają mi się wszystkie dokumenty przypisane dla danego pracownika. A czy można bezpośrednio z tej listy wyświetlonej w ListBox otworzyć wybrany dokument?
to mi nic nie pomaga Oczywiście jeśli używany tylko w pogotowiu [syntax=vb]Private Sub ListBox1_Change() ListBox2.ListIndex = ListBox1.ListIndex End Sub [/syntax]
Próbowałem od nowa stworzyć aplikację i dalej ta sama sytuacja. Może jak mówi adamas_nt zastosować funkcję TimeSerial :?: Ale jak to zapisać :?: Pomóżcie, mam na poniedziałek oddać już tą aplikację :!:
Mam taki problem z UserForm3: Jest przycisk Otwórz plik -> otwiera plik Następnie lista arkuszy z tego pliku w ListBox1 -> użytkownik wybiera ręcznie które arkusze chce przeliczać (może wybrać kilka) Następnie W userform1 jest stworzony listbox1, do którego wrzucam normalną pętlą poszczególne arkusze z otworzonego pliku Następnie W głównym makrze pobieram...
Witam, Przygotowuje narzędzie dzięki któremu druga osoba będzie mogła w prosty sposób dodać albo usunąć dane z arkusza. Dodawanie jest proste, gorzej z usuwaniem Stworzyłem UserForm a w nim TextBox1 gdzie użytkownik wpisuje wartość, którą chce usunąć. Po wpisaniu tej wartości w ListBox1 wyświetla się ta wartość lub sugeruje odpowiedź. Przykład: Użytkownik...
Spawa dotyczy UserForm'y? Może wrzuć przykład.
problemem jest to ze data wyswietlana w listbox jest w amerykanskim formacie Bez obrazy, ale stwierdzam, że "leń patentowany" jesteś ... :-) ... "Rozwiązanie" masz pod nosem i sam się w pewnym sensie nim posługiwałeś. Właściwość " List " ... dlaczego nie sprawdziłeś składni tej właściwości ? " object.List(row, column) " Gdybyś zerknął w pomoc podręczną,...
Witam. Mam pytanko związane z oknem ListBox. Okno to wyświetla kolor czcionki jaki sobie ustawie. Czy jest możliwość aby w ListBox w którym wyświetlają się jakieś informacje w paru kolumnach, niektóre z tych informacji wyświetlały się w inny kolorze jaki bym potrzebował?
Ciekawe jak szybko jedna kolumna w ListBox przestanie wystarczać? Fajnie by było widzieć więcej danych. :) Jeżeli trzeba będzie wiele kolumn, to mam gdzieś przykład, tylko muszę go wygrzebać.
Jak najszybciej i najprościej przemieścić informację z textboxa do listboxa o ograniczonym zakresie komórek (30)? Pytanie jest spowodowane brakiem wiedzy i pomysłu.
Witam Możesz otworzyć przez shell-a i listbox np clik np. [syntax=vbnet]Private Sub lstDokument_DblClick(ByVal Cancel As MSForms.ReturnBoolean) sciezka = ActiveWorkbook.Path & "\Dokumenty\Pracownik\" & NazwiskoImie Set she = CreateObject("Shell.Application") she.Open sciezka & "\" & lstDokument Set she = Nothing End Sub[/syntax]
Tylko chodzi mi o listbox a nie combobox
Zdaje się, że najprościej będzie przepisać listbox do dodatkowego arkusza i drukować wynik.
1. Wstaw przycisk, najlepiej ActiveX, Menu>Wyświetl kod i wklej: Magazyn.Show 2. No, mamy. 3. Zmień w Initialize formularza: indeksy = .Range(" A 2:K" & OstW).Value na B 4 i 5 Działa przecież... A! sorry. Ma zwracać z kol.A, wyświetlać kol.B. Pkt.3 - zapomnij. Trzeba pozmieniać we właściwościach ListBox formularza.
Proszę o pomoc związana z ListBoxem i pobieraniem wybranej pozycji z listy do ustalonej komórki oraz wyświetlaniem tej pozycji również jako 4 kolumny, jak to jest w pierwszym. Mam stworzoną tabelę z 4 kolumnami, która jest wczytana do pierwszego ListBoxa. ListBox ustawiłem tak, aby wyświetlał 4 wczytane kolumny i wszystko gra. Problem pierwszy pojawia...
Tak, da się. I to na kilka sposobów -Najprościej nazwać zakresy i te nazwy umieścić na liście wyboru (list/comboBoox). -Jeśli ilość wierszy jest zawsze równa, można zastąpić powyższe mnożeniem indeksu listy. -Array i wybór wg indeksu -Tablica j.w. -Select Case Wyniki najprościej umieścić w ListBox, gdzie ilość kolumn=ilości kolumn zakresu.
Witam potrzebuję waszej pomocy. Próbuję stworzyć UserForm z dwoma listboxami które bazują na jednym textboxie i jednym comboboxie Pierwszy listbox służy mi do znalezienia użytkownika, nastepnie po wybraniu pozycji w comboboxie (nowy/istniejący) chciałbym aby w drugim listboxie pokazywało mi zamówienia tego klienta (lub nie jeżeli jeszcze nie dokonał...
Objawy jednak jak przy przypisaniu przez RowSource. Pokaż Initialize tego formularza.
Nie zaszalałeś z programowaniem... Jak przypisujesz listę do kombo? W kodzie, czy właściwościach? Lista ma indeks (od zera), więc wiersz będzie równy Kombo.ListIndex +1 Wystarczy dodać: Cells(indeks listy +1, kolumna)= Cells(indeks listy +1, kolumna) + wartość z pola Było kilka podobnych tematów, poszukaj. I trochę samodzielności kolego ;) ComboBox/ListBox...
oki dzięki za rade mam inny problem wb.Worksheets("arkusz1").Cells(c, "a").Value = c - 1 + "2011" problem ze do c typu integer cche dolepic /2011 z bierzacym rokiem dzieki za dodtychczasowe rady Dodano po 2 juz go rozwizałem jak automatycznie generować listbox lub combox i wypenic go danymi?
Podam ci przykład poradzisz sobie? [syntax=vbscript]Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Sheets("ARK_2").Range("a3") = ListBox1.Column(4) End Sub[/syntax]
... Jak naciśniemy w arkuszu Kosztorys pole B7 czyli to białe puste szybko dwa razy to otwiera się Listbox z wyborem danej pracy ... Wszystko działa ok ... No niezupełnie ... ' ListBox1_Click ' usuwa z komórki ' AB7 ' wartość liczbową i po zamknięciu okna nie można go już ponownie otworzyć bez wstawienia tam liczby. ... Potrzebne są tylko trzy zmiany....
Wszystko ma być zrobione w USER FORM Załącz plik z tym formularzem i przykładowymi danymi do odfiltrowania/wyszukania. Trudno wyczuć, czy najpierw filtrujesz listBox, czy kopiujesz "w locie" po... no właśnie otwiera się okno do wpisania wyszukiwanego tekstu
Dziękuję za odpowiedz, z tym "leniwcem " nie tak do końca się zgodzę :), Powinienem może załączyć plik było by łatwiej, więc załączam teraz. Przy wypełnianiu listbox wszystko fajnie działa, natomiast nie odświeża mi się suma w textbox1 - chyba że kliknę (?) i jeszcze jedno czy mógłbyś rzucić okiem na : Private Sub TextBox_Tytul_Gry_Sprzedaz_Change()...
...błąd pokazuje w tej ścieżce: Plik = Dir(sciezka & "\Dokumenty\Pracownik\" & Alpex.lstAnkieta.Column(0, Alpex.lstAnkieta.ListCount - 1) & "\" & Alpex.lstAnkieta.Column(0, Alpex.lstAnkieta.ListCount - 1) & ".jpg") To sprawdź jeszcze tak [syntax=vbscript]sciezka = ActiveWorkbook.Path & "\Dokumenty\Pracownik\" & Alpex.lstAnkieta.Column(0, Alpex.lstAnkieta.ListCount...
W prosty sposób robi się to w okienku ListBox. Poniżej opiszę krok po kroku jak to zrobić ( opis dotyczy Excel 2003 ) 1. stworzyć listę , w kolumnie A numer sali , w kolumnie B opis sali 2. utworzyć na arkuszu ( tym samym co spis ) okienko ListBox ( menu Narzędzia/ Dostosuj, wybrać w zakładce Paski narzędzi, Przybornik formantów ) 3. z paska Przybornik...
Ja też teraz widzę że zrobiłem błąd w oknach ListBox. We wszystkich oknach opróch 'Kierownik' na końcu kodu ma być linia: [syntax=vb]If lblEtat1.Caption = "" Then lblEtat1.Caption = "wszystkie"[/syntax] ... a u'Kierownik' jest dodrze
useform i listbox z opcją 'multiseleka' pierwsze słyszę o tym :) poczytam i wrócę z pytaniami! Kod z chekbox'ami działa! tylko podczas filtrowania nakładaj się na siebie i nie ma możliwości wyboru.
Temat rzeka, na forum parę razy pojawiały się tego typu pytania, ale szczerze mówiąc, to trudno się na nie odpowiada - są: 1. klasycy tematu typu: Pearson, Walkenbach, de Bruin 2. Fora tematyczne 3. e-book'i wydawane przez różne fora typu: excel.com, exceltip.com, stackoverflow.com, itd. 4. poradniki Ms 5. strony/blogi fascynatów excel/vba typu: patorjk.com,...
Dziękuję za pomoc, Próbowałem zaaplikować proponowane przez Ciebie zmiany do swojego excela. We właściwościach kodu Arkusza wpisałem tak: Private Sub ListBox1_Change() Module2.ukrywaj End Sub http://obrazki.elektroda.pl/3639391300_1... Następnie wprowadziłem warunek ukrywania pozostałych Arkuszy. http://obrazki.elektroda.pl/3415918300_1...
:arrow: kehn Wg mnie powinno działać. Dla pewności przed każdym "Else" możesz dopisać "Exit Sub". Sprawdziłem początek Twojej procedury i u mnie działa. DTPicker jest kontrolką formularza (podobnie jak TextBox, ListBox, CommandButton) służącą do wybierania daty z kalendarza. :arrow: walek33 Proszę nie wprowadzać zamieszania. Nie ma żadnego logicznego...
Metod jest kilka możesz rozszerzyć tą funkcję (czy zakres) do D i w listboxie przez np. ColumnWidths = "20;20;0;20" "ukryć" wyświetlić tylko interesujące kolumny
Tu znajdziesz wszystko http://www.planet-source-code.com/vb pozdr. dioda dla ułatwienia http://www.planet-source-code.com/vb/scr...
macie może jakiś pomysł co może być tego przyczyną Nie dziw się, że to "mieli", jak co chwile "dzwonisz" po 'aktualizacja_danych' lub 'odświeżanie' Witam, zrezygnowałem z przycisków, które odpowiadają za przejście listy w dół czy na bok czy ją wyłączają i każdorazowo po wrzuceniu jakiś danych lista się wyłącza. Już samo to poprawiło działanie, ale...
Nie wiem jak zrobić by z comboBoxa można było wybrać 2 bądz więcej numerów katalogowych Nie da się. Musiałbyś wykorzystać pole listy z ustawionym MuliSelect na wartość 1 lub 2. Następnie sprawdzać cała listę i działać warunkowo (if Listbox.Selected(indeks/licznik pętli)=true then) Ewentualnie umieścić dodatkowe, wielowierszowe pole listy z pionowym...
Nie ładują się comboboxy w UserFormie . Mam otwarte dwa pliki Excela na 1 monitorze , na drugim edytor VBA . W momencie uruchamiania formularza F5 gdy nie jest kliknięty plik odpowiadający uruchamianemu formularzowi , kontrolki texbox i listbox są puste . Nie wiem czy to może powodować jakieś komplikacje przy użytkowaniu przez inne osoby ? Pliki pobierają...
Po pierwsze chciałbym Ci mocno wybić z głowy arkusz(...) Dlaczego? Skoro się sprawdza... Po mojemu, najwygodniej byłoby wyszukiwać przez dodatkowy formularz z filtrowanym ListBox'em. Wystarczą dwa, trzy klucze. Np WZ, data, godzina. [url=http://www.elektroda.pl/rtvforum/vi... jest załącznik z przykładem.
Fajne te Twoje pytania. ;) Ile sam sie przy nich uczę. ;) Znalazłem rozwiązanie na Twoje pytanie, daj mi 10 min to poskładam to czytanie i wrzucę tu. ;) [syntax=vb] Private Sub txtNazwisko_Change() Call AktualizujListe(txtNazwisko.Text, 0) End Sub Private Sub txtZnaczek_Change() Call AktualizujListe(txtZnaczek.Text, 2) End Sub Private Sub AktualizujListe(ByRef...
UserForm1 Wartość/Szanse na powodzenie: W polu wartość wpisywana jest kwota - jak zrobić, żeby po wpisaniu liczby, automatycznie formatowałaby się ona 0000,00 ZL? W przypadku pola Szanse na powodzenie - liczba automatycznie formatowana do procentów. Komentarz: Czy można wprowadzić automatyczne zawijanie tekstu? UserForm3 Zakładka Inwestycje/Projekty...
Niestety ze względu na wrażliwe dane nie mogę tego podesłać. EDIT Oto kawałek kodu do wyszukiwania. Wyniki to ListBox z wynikami ;) W tej chwili do formularza Edycja wchodzą dane z Arkusza3. Kod zlicza pozycję z listy wyświetlanej na ListBoxie i wyświetla tą samą pozycję z Arkusza. Problem w tym, że pozycje w arkuszu i ListBoxie nie są te same. ostWiersz...
Mam identyczny plik, problemem jest właśnie przycisk 'dzielenie', którego ma nie być ;) Ed. Bezsensownie utrudniłam sobie całą procedurę. Czy byłbyś w stanie zmodyfikować makro zapisujące wybór z listy do oddzielnych komórek a nie do komórki I1? Private Sub ListBox1_Change() Dim i As Integer Dim tekst As String For i = 0 To ListBox1.ListCount...
Chciał ComboBoxa to po co dawać mu ListBox? Nie rozumiem... 1. "Klient nasz pan" Załączam zupełnie inne podejście. Raczej nie o to chodziło, ale jako wyszukiwarka działa dużo lepiej. http://obrazki.elektroda.pl/3546094000_1... Obsługi zaznaczania danej kategorii nie chciało mi się już pisać. To jest proste, ale trochę z tym zabawy, więc...
Sam kod w VBA, w najprostszej postaci, nie jest skomplikowany. Z pewnych wzgledów jest to bardzo uproszczony sposób na uzyskanie zamierzonego zadania. Na poczatek należy jasno okreslic pewne warunki jak ma dzialac taka procedura. Po pierwsze to w zadnym przypadku nie powinno sie do tego celu korzystac z dodatkowego arkusza. Po drugie procedura powinna...
Mam w moim pliku dodane okno (na poniższym screenie) na podstawie którego drukuję arkusz z odpowiednimi danymi. Ogólnie to wszystko jest OK. Poniżej jest kod który wszystko przesyła do arkusza. Okno pozwala na wydruk pojedynczej listy dla jednego pracownika. Jak zrobić aby okno miało możliwość wydrukować taki sam arkusz dla wielu pracowników? http://obrazki.elektroda.pl/3447331200_1...
lista wielokrotnego wyboru , po naciśnięciu edytuj można edytować zawartość Przejrzałem Twój plik i niestety "za Chiny" nie mogę zrozumieć :cry: co masz na myśli używając nazwy lista wielokrotnego wyboru . Co to ma być jakiś listbox, czy combobox :?: ale co wtedy ma znaczyć wielokrotny wybór u Ciebie ? Robiłem już jakieś listboxy z wielokrotnym wyborem...
Cześć wszystkim mam mały problem a mianowicie Po kliknięciu raz pojawi się imie w komurce np. C1 Po dwukrotnym kliknięciu pojawi się imie w komurce np.. D1 Ale żeby po tym dwukrotnym kliknięciu nie znikło ani się nie zmieniło imię w komurce C1 tylko żeby wtedy były dwa c1 z pierwszego wyboru(1 klik) a w d1 z drugiego wyboru(dwa kliki) Dołączam załącznik...
Siedzę już nad tym problemem 3 dni i nie mogę sobie poradzić. Poradziłem sobie z tym, że w kontrolce „Label5” wyświetlają się liczby sformatowane z oddzieleniem tysięcy i dwoma miejscami po przecinku. Daje mi to ten zapis: Label5.Caption = Format(Round(suma1, 7), "# ### ###.00") To pozwala na szybszą orientację w wyświetlanych kwotach. Próbuję...
W Listboxie możesz ustawić ColumnCount = 5 i RowSource = =PRODUKTY!B2:F46 Ewentualnie, przy klinięciu przycisku START wczytać dane ręczenie wiersz po wierszu: [syntax=vb]Private Sub cmbstart_Click() With Worksheets("PRODUKTY") For i = 2 To .Range("B" & .Rows.Count).End(xlUp).Row PROG1.ListBox1.AddItem PROG1.ListBox1.List(i - 2, 0) = .Range("B" & i)...
Witam ponownie mistrzu chyba utknąłem i proszę o pokazanie właściwej drogi - muszę zrobić sortowanie w combox-ie - do zrobienia, wrzucić te same dane ( tzn komórki z tymi samymi nazwami które są posortowane combox-em) do listbox-a i tak jak zaznaczę daną nazwę wrzuci mi wszystkie pozostałe dane tej konkretnej nazwy w textbox-ie. hmm chyba się poddaję,...
Witam Mam podobny problem bo chcę schować kolumny po wybraniu zakresu z PolaNazwy ( te wybrane chcę aby zostały widoczne) . Czy jest to możliwe poprzez listboxa i czy mogę poprosić o pomoc krok po kroku bo jeszcze się uczę tego narzędzia :) Dziękuje i pozdrawiam Krzysztof A może być inaczej? Przykładowo przez listbox? http://obrazki.elektroda.pl/9822597900_1...
Witam, ListBox ma być wypełniany danymi z tablicy, spełniającymi warunek (porównanie tekstu z TextBoxa i komórek arkusza). Procedura działa ale tylko przy pominięciu słowa "Preserve" przed Redim - w ListBoxie wyświetla wtedy oczywiście tylko ostatni wiersz spełniający warunek. Po dodaniu "Preserve", mam błąd "Subscript out of range". Co robię nie tak?...
Witam wie ktoś może jak zapisać całą tablicę "listbox" do pliku tekstowego? Robię to w ten sposób... Idealnie by było gdyby zapisać całą tablicę z podziałem na kolumny bez używania pętli. : D
Dzieki bardzo, Wlasnie chcialem dac ci znac ze ogarnalem temat, jesli mozna mam jeszcze dwa pytania, co do pytania odniosnie nazw kontrolek to zapisuje je tak zeby pozniej wiedziec o co chodzi - mam mala sciage, (wiem ze to moze wydawac sie smieszne, ale dopiero sie ucze) 1) w tym samym userform udalo mi sie zrobic podsumowanie z listbox (textbox1)...
Witam, Czy można na formie dynamicznie tworzyć etykiety (Label), ListBox, ComboBox w zależności od zadanej liczby? Ta liczba zawsze będzie zmienna. Poniżej kod programu, który dla 5-ciu etykiet nazwanych Label1....Label5, wstawionych do UserForm, w pole Caption wpisuje odpowiednie wartości z Excel'a. [syntax=vb] Dim i As Integer ' zmienna pomocnicza...
A jak zrobić taką rzecz: mam zdefiniowaną nazwę dla danych z tabeli, które znajdują się w zakładce Baza. Listbox chcę wywołać przyciskiem z zakładki o nazwie Bilans jako Userform1.Show. Tym userformem jest właśnie ten z listbox, dla którego mam takie makro: Private Sub UserForm_Initialize() ListBox1.RowSource = Range("Firma").Address End Sub Kiedy próbuję...
Cześć, próbuję przenieść dane z formularza w jednym arkuszu do raportu w drugiej. Udało mi się przenieść dane z ListBoxów, ale nie mogę przenieść tekstu wpisywanego do TextBoxów. Próbowałam zrobić coś takiego: [syntax=vbscript]Sub textbox() Dim Ark As Worksheet Dim Sciezka As textbox Dim Raport As Worksheet Set Ark = ThisWorkbook.Sheets("Formularz")...
Cześć wszystkim! Chciał bym zapytać w jaki sposób rozwiązać zagwuzdkę jaką mam z exce'em. Chcę aby w wybranej komórce można było posortować i wybrać element z dodatkowej lisy w innym arkuszu. Czyli mam jakąś tam listę składającą się z kilkunastu komórek w jednej kolumnie. I chciałbym móc wybrać którąś z tych komórek w innym arkuszu w innej komórce wpisując...
Zauważyłem, że na tym forum jest spore grono fachowców z Excela, wiec przedstawiam swój problem, może mi ktoś pomoże. Wprowadzane są dane w tabeli - w poszczególnych wierszach. W jednej z komórek muszę wprowadzić dane związane z określoną listą (lista ta ma kilkanaście pozycji, ale o bardzo długich nazwach - więc proste rozwiązanie typu "sprawdzanie...
Ok, to najlepiej w bloku cmdDodaj_Click() za wszystkimi ifami sprawdzającymi poprawność danych dać coś takiego. Myślałem, że te dane są przeliczane na arkuszu i dopiero sprawdzane względem poprawności. Takie coś załatwia sprawę: [syntax=vb]If WorksheetFunction.CountIf(Sheets("Rejest... txt4.Text) > 0 Or _ WorksheetFunction.CountIf(Sheets("Rejest...
Witam. Mam pytanie. Czy jest możliwa zmiana koloru wybranych wierszy (np co drugiego wiersza) w listboxie. Chodzi mi o to, żeby lista była bardziej czytelna.
Wykorzystałem ten dodatek Microsoftu do Excela, spełnia moje oczekiwania. Jeszcze raz dziękuje !
Zabrałąe sie za tworzenie bazy danych i wymysliłem sobie że zrobie formularz i bedzie sam uzupełniał bazę danych i ok wyszło mi coś tam w vba napisało mi się jako tako. Ale stoję teraz pod murem mam bazę, która zawiera obecnie 1750 rekordów w 16 kolumnach. W kolumnach mam pokolei: nazwisko, imię, data zatrudnienia...... i np w ostatnich dwóch data badania...
A jakis pomysl jak to dokladnie zrobic? Pomysł kolega przedstawił, należy go jedynie wprowadzić w życie. Wyskakujące okno, jak można zrozumieć, formularz wstawia się w edytorze VB (Alt+F11). Na nim umieszcza się kontrolki. Czy to będzie 30 przycisków, oprogramowanych oddzielnie, czy jeden listbox... wszystko jedno. Sugeruję wykonanie obu wersji i wybranie...
Chciałbym dowiedzieć się jak automatycznie tworzyc przy pomocy makra listboxa lub comboxa i wypełniac je danymi np z komórki?
Taki przykład. Na jednej formie mam ListBoxa, który w zdarzeniu initialize pobiera dane z tablicy1 (wcześniej załadowane od tablicy z arkusza) . Procedura w zdarzeniu Change (TextBox) filtruje dane w arkuszu (poprzez porównywanie ciągów w TextBox i arkuszu) i tworzy nową tablicę2 z pasującymi rekordami, która trafia do tego listBoxa (w miejsce tablicy1)....
Udało mi się uporać z usuwaniem wybranej pozycji. Natomiast nadal jest problem z dodawaniem, tzn. dopóki dodaję kolejne pozycje do bazy i nie zamknę userforma z dodawaniem jest prawie ok. Prawie, bo baza nie zawsze na bieżąco aktualizuje listboxa. Większy problem pojawia się wtedy kiedy zamknę userforma odpowiadającego za dodawanie firmy do bazy i włącze...
Witam, mam problem nie z podglądem obrazka w arkuszu po wywołaniu UserForm, a raczej z brakiem wyświetlania pustego okienka, jak nie ma obrazka. Już tłumaczę - po wywołaniu UserForm podświetlając dane wiersze z arkusza 1 w ListBoxie z prawej strony w Image1 wyświetla mi się podgląd obrazka z widokiem danego elementu. Wszystko gra, jeżeli istnieje opis...
Czyli z tego co zrozumiałem, wynikałoby że maksymalna liczba kolumn to 10. Ale używam ComboBoxy i ListBoxy z większą liczbą kolumn. Także odwołuje się do wartości kolumn o indeksie powyżej 10 i jest ok. Także przy dodawaniu, jak wspomniałem, jeżeli na liście są już jakieś pozycje to nie ma problemu żeby dodać kolejną. Chyba że źle rozumiem ten fragment...
No cóż, widzę że muszę zrezygnować z podglądu plików, przynajmniej tych w pdf. Spróbuje zamiast pdf-ów wyświetlać informację, że podgląd niedostępny. Ale mam inne pytanie. Kolejnym etapem pracy z plikami ma być ich wyświetlenie, najlepiej w domyślnym programie. Znalazłem następujący kod: Dodano po 2 Znalazłem w necie takie rozwiązanie: [syntax=vb] Option...
Ojojoj! Toż to trzeba oprogramować ponownie od podstaw... Zaczynając od "lista = Range("Baza!B:B").Value" - tablica ma rozmiar = ilości wierszy w arkuszu = 1 048 576 w Excel 2007. Rozumiem, że do 'TextBox1' wpisywane będą kryteria do filtrowania listy 'ListBox2' zawierającą listę artykułów z "Bazy". Filtrowanie listy wielokolumnowej realizował kiedyś...
Nie rozumem o co chodzi z tym leczeniem kanałowym i co to ma do dolnej kolumny... Ogólnie ciekawy pomysł... dolna kolumna... Biorąc kod marcimix wyszło takie coś: [syntax=vb]Type iCell Row As Integer Col As Integer End Type Sub ColorNext() Dim C As iCell Dim r As Range Dim tmp As Range Dim step As Integer C.Row = Excel.ActiveCell.Row C.Col = Excel.ActiveCell.Column...
excel listbox excel listbox filtr kolumny listbox excel
przekroczeniu transferu danych husqvarna wysoki obrót programy kalkulator
webasto actros falownik elektronix
Szarpanie silnika w BMW E87 - przyczyny i diagnostyka Mini wieża wyłącza się po 20 minutach - przyczyny