Może(w jednym programie ). Nie może w tym samym UserForm kilka UserForm_Initialize lub UserForm_Activate etc.
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ę :!:
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ł...
Mam UserForm w którym jest Multipage z 7 stronami. Na każdej stronie jest ListBox ( też jest ich 7 oczywiście - po jednym na stronę) z kolumnami i każdy ListBox jest powiązany ze swoim arkuszem. UserForm4.MultiPage1.Value = 0 UserForm4.Show Ten kod otwiera mi Userform tylko wtedy kiedy w Private Sub UserForm_Initialize() ListBox1.ColumnCount...
Private Sub KategorieWydatków_Click() Range("C2") = KategorieWydatków.Value End Sub I niestety jak uruchomiłem pierwsze makro wyświetla listę ale jak klikam na wartość z listy niestety nie wstawia się ona w komórkę C2. Witam KategorieWydatków.Show tak masz nazwany userform a listbox też ma taką samą nazwę?
Witam, Mam problem odnośnie aktualizowania danych w innym pliku Excela za pomocą ListBox. Tzn, w jednym pliku Excela mam UserForm z Listbox która zaciąga dane z konkretnego pliku Excela. W tym UserForm mam dodatkowo 19 Textboxów do których po kliknięciu na wiersz w Listbox kopiowane są wybrane wartości. Problem u mnie polega na tym że jak chce zaktualizować...
Proszę pomóżcie. Mam w oknie UserForm okno ListBox a w nim pokazuje mi listę pracowników która jest utworzona w arkuszu. Jak zrobić żeby po kliknięciu na pracownika z listy pokazanej w ListBox w odpowiedniej komórce arkusza pokazało mi pod jakim numerem wiersza jest dany pracownik?
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...
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...
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...
Doraźne rozwiązanie problemu to przy aktywacji danie focusa każdemu LBoxowi. ListBox1.SetFocus Tak po kolei dla wszystkich w UserForm_Activate.
1. Private Sub UserForm_Terminate() combo1.Value = combo1.ControlSource End Sub 2. combo1.MatchRequired = True 3. Do wujka Googla CreateObject("scripting.dictionary") Na angielskom - http://www.snb-vba.eu/VBA_Dictionary_en....
Teraz wiem w czym problem. Twoja podpowiedź dotyczy trybu projektowania z poziomu arkusza excel. Moje pytanie dotyczy listbox'a umieszczonego na formatce userform.
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ą,...
Spawa dotyczy UserForm'y? Może wrzuć przykład.
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...
... no i można zamykać ....... :->
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ą...
... 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....
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...
[syntax=vbscript]Private Sub UserForm_Initialize() ow = Cells(Rows.Count, "BB").End(xlUp).Row For x = 2 To ow If Cells(x, "BA") = Date Then Me.ListTODO.AddItem Range("BB" & x) Next End Sub [/syntax]
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)....
Jeśli dane w "Kolumna5" są unikatowe, to można przez "zwykłe" kopiowanie: [syntax=vbscript]Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim wSrc As Long, wDst As Long If ListBox1.ListCount = 0 Then Exit Sub wSrc = Sheets("ARK_1").Columns(5).Find(what:=Li... lookat:=xlWhole).Row wDst = Sheets("ARK_2").Range("A" &...
Cześć, Piszę do Was z kolejnym problemem. Mianowicie, jest command but. do usuwania pozycji z listboxa 2 po uprzednim wrzuceniu do niego pozycji z listbox 1. Zaznaczam konkretne pozycje do usunięcia, klikam knefel i wyskakuje błąd (Unspecified error) i zaznacza .Remove item i Zamawianie, gdyż tak nazywa się cały userform. Arkusz Eksport z którego ma...
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 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, 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...
Można to zrobić np w ten sposób:[syntax=vb] Dim Nazwane_zakresy(2) Private Sub UserForm_Initialize() Nazwane_zakresy(0) = "zakres1" Nazwane_zakresy(1) = "zakres2" Nazwane_zakresy(2) = "zakres3" ComboBox1.List() = Nazwane_zakresy ComboBox1.ListIndex = 0 End Sub Private Sub ComboBox1_Change() ListBox1.RowSource = ComboBox1.List(ComboBox1.ListIndex) End...
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)...
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...
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...
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...
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ę...
Witam Prawdopodobnie jest, to nie tylko jest tak szybko zrobić. To praktycznie wszystko od nowa robić. I do tego, aby być trochę czasu. Tak co na to? Do UserForm1: [syntax=vb]Private Sub CheckBox1_Click() wybor End Sub Private Sub CheckBox2_Click() wybor End Sub Private Sub CheckBox3_Click() wybor End Sub Private Sub CheckBox4_Click() wybor End Sub...
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 problem z ładowaniem danych do List box. Nie wiem czemu, ale gdy program dochodzi do 10 kolumny wywala mi błąd: Cannot set Listindex property. Nie wiem gdzie jest błąd? Zamieszczam przykładowy plik z danymi oraz plik przykład 2 z userform i list boxem. Dzięki za pomoc! [syntax=vbnet]Private Sub CommandButton1_Click() Dim con As ADODB.Connection...
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...
No szkoda że temat ma ograniczoną ilość kliknięć na http://obrazki.elektroda.pl/9948249500_1... . Już tyle pomocy mi tu udzieliłeś że za każdą z nich zasługujesz na http://obrazki.elektroda.pl/9948249500_1... . Nie chcę otwierać ciągle nowych tematów skoro każdy dotyczył by jednego i tego samego pliku Dodano po 1 No a teraz mam kolejne...
Witam, Szukając w sieci rozwiązania, znalazłem to: http://www.vbaexpress.com/forum/showthre... I przystawałem do, moich potrzeb ;-) i generalnie działa (przykład w załączeniu) : W części makra dopisanego do UserForm1 jest wpisane: „ ReDim Zmienna(4) Zmienna = Array("a", "b", "c", "e") „ I tu...
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...
Jestem raczej początkujący w tym temacie :( nauczyłem sie już jak uzywać kontrolek, no i przyszedł czas na ListBox. W necie jest sporo teorii ale nie potrafie znaleźć przykładu. Chce umieścić ListBox na arkuszu excela aby móc wybrać i odczytać w VB co zostało wybrane.. Nie wiem jak używać UserForm - ktoś na elektrodzie pisał ze kod powinien być tam...
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...
Wybacz JRV, byłem przekonany, że w pierwszym poście wrzuciłem prawidłowy plik. Załączam jeszcze raz spakowanego. Tak jak pisałem wcześniej, zależy mi żeby makro zawierało listę funduszy (kodów), które można powiększać o kolejne nowe lub odejmować niepotrzebne. Makro będzie miało za zadanie usuwać wszystkie fundusze/kody inne niż na liście. Domyślam...
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...
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...
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...
Dodaję załącznik z plikiem oczywiście dane zostały zmienione. Gdy wchodzi się do pliku pojawia się na start userform wybieramy pierwszą opcję dodawania do magazynu. Gdy już będzie widoczny arkusz do wprowadzania danych to wpisujemy datę, z listboxa wybieramy selekcję następnie wpisujemy ilość w zielony textbox (jeżeli chcemy coś dodać) lub czerwony...
Niestety pomysł z odejmowaniem jednego dnia nie sprawdzi się gdyż sobota (zazwyczaj) i niedziela są dniami wolnymi od pracy. Dochodzą przypadki że np we wtorek jest święto i potrzebny jest w środę plik z poniedziałku a nie z wtorku. na forum znalazłem kod [syntax=vb]Sub test() Dim fDialog As Office.FileDialog Dim varFile As Variant Set fDialog = Application.FileDialog(msoFileDialogFile...
Witam, Piszę z prośbą o pomoc,a mianowicie potrzebuje pomocy przy wyświetlaniu zdjęć. Obecnie mam dwa ListBoxy pierwszy do wybrania numeru faktury + wtedy zmieniają mi się wszystkie dane w TextBoxach - wszystko to zaczytuje się z excela i to jest ok. Natomiast drugi ListBox obecnie służy tyko do wybrania zdjęcia - i z tego chciałbym zrezygnować Chciałbym...
listbox excel userform excel excel userform
kocioł gazowy wymiana pompa ciepła koszty wbudowany mikrofon
bateria parkside lutownica amatorska
Renault Trafic 1.9 dCi 2006 - Głośna praca silnika Mercedes Sprinter: Gaśnięcie zegarów po odpaleniu
