Lista produktów będzie pojawiała się zawsze od komórki C14 i ilość wierszy w dół może być różna
ListBox1.ColumnCount=9 ListBox1.RowSource = "Arkusz2!A1:I400"
Tak chyba najprościej będzie. W "Module2" masz wypełnianie listy. Na wzór wstawiłem pierwsze trzy (z ośmiu). Musisz sobie tylko dopasować szerokość kolumn w Initialize oraz dopisać pozostałe. Kolejność zostawiam Tobie. W moim przykładzie zaczyna się od "model", dalej "typ" i "chipset".
Aj For k = 0 To 18 Kolumna nie moze byc 0 Worksheets("TLP").Cells(ListBox1.ListInd... k+1).Value = Controls("txt" & k & "v").Value
Inny plik, inny obiekt. Na przyszłość: Kliknij ppm w obszar obiektu, wybierz "Przypisz makro", "Nowe" lub "Edytuj" jeśli już jest...
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
...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...
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]
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:
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ę :!:
Dlaczego? Na podstawie zdarzenia Change jednego ListBox'a można przypisać zakres/tablicę/item drugiemu... No tak coś sobie wbiłem w głowę na zasadzie ze z listboxa wybierasz coś ten się ukrywa i wyskakuje nowy
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...
Teraz wiem w czym problem. Twoja podpowiedź dotyczy trybu projektowania z poziomu arkusza excel. Moje pytanie dotyczy listbox'a umieszczonego na formatce userform.
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
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.
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 W ListBox nie ma takiej możliwości ale możesz to zrobić w ListView zobacz takie coś
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...
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]...
Witam, (at)1: JRV BARDZO DZIĘKUJĘ !!!! - (kolejny raz, już zresztą) A zupełnie poważnie - po takich podpowiedziach / radach - jak Twoje - uświadamiam sobie jak mało wiem, jeśli chodzi o pisanie makr w VBA Excel !!! Dla "czytających" - załączam przykład makra z poprawkami JRV - po tych poprawkach można tworzyć dynamicznie uzupełniane / rozwijane listy...
Ktoś już kiedyś walczył z filtrowaniem listBox'a: http://www.elektroda.pl/rtvforum/viewtop...
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ć.
Excel 2003
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ł...
U mnie drukuje poprawnie. Jaki masz komunikat błędu?
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?
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.
...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...
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()...
Tylko chodzi mi o listbox a nie combobox
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...
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]
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...
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...
>10 column jezeli zakres bedzie w ListFillRange p.s. edytowano Dodano po 10 Sprobuj Dim zakr '.... zakr(i,1) = ark.Cells(i, 2) zakr(i,2) = ark.Cells(i, 4) '... itd. Alpex.ListMarkownik.ColumnCount =30 Alpex.ListMarkownik.List = zakr
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?...
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...
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ę...
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...
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...
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ł?
Witam 1. AddItem ma limit do 10 (0-9) 2. Przez AddItem nie da rady przypisać nazw jedynie przez RowSource
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)
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]
Podmień ComboBox na ListBox...
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.
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.
O! Ktoś mnie wyprzedził :) http://obrazki.elektroda.pl/7119706200_1...
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
Jeśli ListBox wypełniasz przez RowSource, to przepisz listę do tablicy tymczasowej, wyzeruj i przypisz tablicę. Coś takiego: [syntax=vbscript]Private Sub UserForm_Initialize() Dim tbTemp() tbTemp = ListBox1.List ListBox1.RowSource = "" ListBox1.List = tbTemp End Sub[/syntax] Wtedy możesz dodawać przez AddItem. W innym przypadku będzie komunikat "Permission...
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)
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]
Objawy jednak jak przy przypisaniu przez RowSource. Pokaż Initialize tego formularza.
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...
... 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....
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...
Zdaje się, że najprościej będzie przepisać listbox do dodatkowego arkusza i drukować wynik.
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.
: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...
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.
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...
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
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?
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
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...
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,...
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ą,...
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ą...
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...
Witam jak w temacie, Jak mogę poprawić/skrócić ten kod, Z góry dziękuję za okazaną pomoc [syntax=vba]Private Sub TextBox_Tytul_Gry_Sprzedaz_Change() On Error Resume Next With Me .TextBox_Tytul_Gry_Sprzedaz.Text = StrConv(Me.TextBox_Tytul_Gry_Sprzedaz.Te... vbProperCase) .ListBox_Tytul_Gry_Sprzedaz.Clear If TextBox_Co_Sprzedaz.Value = "PS3_Nowa" Then...
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)...
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...
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...
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...
Która wersja Excela się wyłącza? Mógłbyś może podesłać kod tego makra? Wersja Excela 365, Kod makra : Private Sub CommandButton1_Click() Me.CommandButton2.Visible = True Me.CommandButton1.Visible = False Me.Height = 350 End Sub Private Sub CommandButton2_Click() Me.CommandButton1.Visible = True Me.CommandButton2.Visible = False Me.Height = 285 End...
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ę,...
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...
W najprostszym przypadku tylko pierwszy do wyboru przez dwukrotne kliknięcie, a następnie pojedyncze. Inaczej to już jest akrobacji z funkcji API i wymiar czasu po dwukrotnym kliknięciu. Również stosowanie wywołania zwrotne z API(CallBack function, AddressOf) - Excel 2003 i powyżej.
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...
Potrzebna jeszcze nazwa arkusza. Np "Baza!" & Range("Firma").Address lub po prostu: ListBox1.RowSource = "Firma"
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
A może być inaczej? Przykładowo przez listbox? http://obrazki.elektroda.pl/9822597900_1... Możesz sobie dodać okno do twojego skoroszytu lub zapisać w skoroszycie makr osobistych. By wywołać okno z np. modułu piszesz np.: ShowHideColumnForm.show by mieć kontrolę nad oknem Excela piszesz: ShowHideColumnForm.show 0 Okno działa samo z siebie....
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...
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...
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.
chyba jak na razie sobie z tym nie poradzę. Inny problemik. Mam dwa pola listy które chciałem powiązać kodem Private Sub ListBox2_Click() If ListBox1.Value = "ZT 1100" Then ListFillRange = ("h1:h7") Else: If ListBox1.Value = "ZT 1200" Then ListFillRange = ("h8:h18") Else: If ListBox1.Value = "ZT 1300" Then ListFillRange = ("h19:h29") Else: ListBox2.ListFillRange...
Wykorzystałem ten dodatek Microsoftu do Excela, spełnia moje oczekiwania. Jeszcze raz dziękuje !
Lepiej zrobić wyskakujący listbox niż tworzyć 30 przycisków np. w arkuszu2 stworzyć sobie listę słówek/tekstu (zawsze będzie można szybko zmienić dodać nowe) a w arkuszu1 wykorzystać selectionchange
Wszystko fajnie, tylko zmiana drugiego formularza (Polska, Niemcy, Anglia) powoduje zmianę w pierwszym Ale tak wynika z Twojego opisu. Teraz to już nic nie rozumiem ;) Listę do ComboBox/Listbox mozna przypisać na wiele sposobów (z tablicy .List=tablica, z zakresu .rowsource=Range(), pojedynczo przez add). Dokładnie opisane jest to w pomocy.
Witajcie po raz kolejny potrzebuje waszej pomocy Szczerze mowiac to nawet nie za bardzo wiem jak opisac ten przypadek , ale sprobuje. W userform1 wpisuje kwote zakupu ktora jest przerzucana do userform11 jako label58 oraz textbox_punkty, nastepnie w TextBox_Klient wyszukuje klienta i po podwojnym kliknieciu dodaje punkty dla danej osoby w zaleznosci...
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...
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...
Cześć wszystkim, Po ponad 2 miesięcznej przerwie wróciłem do swojego projekciku i niestety o ile wtedy wszystko szło w dobrym kierunku, to teraz pozapominałem niektórych kwestii i na dodatek przekombinowałem teraz z kodem co w efekcie przysporzyło mi kilku problemów. Program pisany jest w C# i ma współpracować z Arduino, do którego podpięte są dwa włączniki...
listbox excel excel listbox filtr excel combobox listbox
rolek napinać pasek rozrząd lokalizacja pulpitu odbieranie danych bluetooth
kamerą termowizyjną agregat malarski
Audi A4 B7 3.0 TDI BKN – metaliczne brzmienie silnika po nagrzaniu, rozrząd, napinacze, popychacze Opel Zafira A 2003 gaśnie podczas jazdy – diagnostyka CAN, ECU, PSG16, wiązka
