Cześć, Mam pewien problem do rozwiązanie. Może ktoś zechce mi pomóc. Potrzebuję utworzyć Okienku UserForm w excelu, które ma wybierać dane na zasadzie filtrowania i wyświetlania danych. Wszystkie dane znajdują się w pliku excel. Zawiera on 1 arkusz: dane Widok User form tak jak w pliku excel. Chodzi o to że w userform: użytkownik z listy rozwijanej...
Dzień dobry, Przy wykorzystaniu Userform wprowadzane są dane da arkusza. Arkusz traktowany jest jako swego rodzaju baza danych. Jedna z kolumn tworzy nazwany dynamiczny zakres: "PESELW" [ =PRZESUNIĘCIE(DaneOsobowe!$B$2;0;0;ILE.N... ]. Następnie ten zakres wykorzystany jest do wygenerowania listy w combobox: [syntax=vbscript]...
Kolega cbrman rzucił dobrą myśl. W przykładzie poszedłem ciut dalej. Lista w UserForm uruchamiana podwójnym kliknięciem. Spróbuj...
Witam Dziś mam takie zadanie. Mam userform którego zadaniem jest ocena dostawcy. Jest w nim 8 comboboxow ( kryteriów) oceny a w każdym combo są po trzy parametry słowne oceniające dostawce w danym kryterium, np.: dla kryterium jakość Obslugi w combobox jest: odpowiednia, zadowalająca i niezadowalajaca. I te maja swoje odpowiedniki 2, 1 i 0. - do średniej...
Po pierwsze, wyraźnie napisałem że MOŻNA tak użyć tę funkcje. Po drugie, dodatki uaktywniamy: menu Narzędzia/Dodatki i stawiamy ptaka, gdzie trzeba. Po trzecie, prawidłowo zastosowana funkcja WORKDAY, eksponuje komórki "godne uwagi", osobno, oczywiscie ozdobniki mozna wstawiać dowoli do koloru i wyboru a wyniki wyswietlać z pomocą userform. Po czwarte,...
Po kliknięciu w listę, którą dodałem w formacie ActiveX chciałem wybierać z listy, która będzie się zawężać po wpisywaniu kolejnych liter i cyfr. Hm w pliku który zamieściłeś nie ma żadnego kodu.... Bez VBA można to zrobić np tak: Wybacz, poniosło mnie i zapomniałem, że zrobiłem nowy plik. Próbowałem z tym sposobem, ale w bazie mamy ponad tysiąc kodów,...
Witam. Mam dwa pytanka. W załączonym kodzie, makro tworzy mi 10 + 1 różnych list, a do tych list makro tworzy również odpowiednio nazwane zakresy. Jak zrobić aby to makro nie tworzyło nazwy zakresu dla drugiej pozycji? (ale tylko nazwy zakresu, lista ma być utworzona). Czyli dla: "xxx"? Drugie pytanko jest związane z możliwością wizualizacji w UserForm...
Witam Mam problem z formularzem Mianowicie chciałbym dodawać do tabeli Poprzez formularz Wybieram z combobox wartość wpisuje w texbox ilość -klikam dodaj i dana wartość się dopisuje do istniejącej czy takie coś się da zrobić ?
Zerknij do załącznika. Kod w arkuszu + UserForm. Kod uruchamia dwuklik w zakresie E2-E22 ;)
... Dla lepszego zobrazowania i wpisywania wymiarów można wykorzystać formularz excela. Np. coś takiego: http://obrazki.elektroda.net/74_12270180... ... Tak na marginesie się zapytam: Czy ten rysunek w oknie userform1 jest aktywny? Możesz dołączyć arkusz z tym userform'em?
jak go przesunąć lub zmienić wygląd etc. PPM nie działa Karta "Deweloper" > Tryb projektowania P.S. Jest to przycisk AciveX, wywołujący UserForm ;)
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...
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...
A nie byłoby prościej utworzyć listę przy Initialize na podstawie wartości z combo UserrForm1 ? Podmień procedurę w UserForm2 na [syntax=vb]Private Sub UserForm_Initialize() firma = UserForm1.ComboBox1.Value wrs = 2 ComboBox1.Clear With Sheets("Arkusz2") Do While .Cells(wrs, 4) <> Empty If .Cells(wrs, 4) = firma Then ComboBox1.AddItem .Cells(wrs,...
Proponuje zmienić nazwy zmiennych "placowka, podzespol" aby były różne dla każdego ComboBox. np. tak: [syntax=vbscript] Private Sub UserForm_Initialize() Dim ost As Long With Arkusz1 ost = .Cells(.Rows.count, "C").End(xlUp).Row If ost = 2 Then ComboBox1.AddItem .Range("C3").Value ElseIf ost > 2 Then placowka = .Range("C3:C" & ost).Value ComboBox1.List...
[syntax=vbscript]Private Sub ComboBox1_Change() [F1] = ComboBox1 End Sub Private Sub OptionButton1_Click() Me.ComboBox1.RowSource = "Arkusz1!A1:A5" [F1] = ComboBox1 [E1] = "litera" End Sub Private Sub OptionButton2_Click() Me.ComboBox1.RowSource = "Arkusz1!B1:B5" [F1] = ComboBox1 [E1] = "cyfra" End Sub Private Sub UserForm_Initialize() Me.OptionButton1...
Różne drogi prowadzą do Rzymu Zastosowałeś jedną w VBA (jak dla mnie trochę przekombinowaną - ale działa) Ja bym to zrobił np. tak edit: Jak teraz patrze na "twoje" rozwiązanie to widzę że właściwie są tam zmieszane ze soba (przedstawione wyżej przeze mnie) dwie metody na raz, co jeszcze bardziej przekonuje mnie w stwierdzeniu "przekombinowane".
Poniższy kod pokazuje listę w ListBox, i chciałbym aby po kliknięciu (zaznaczeniu) żądanej pozycji w arkuszu w odpowiedniej komórce pokazało w jakim wierszu znajduje się ta pozycja: [syntax=vb]Private Sub UserForm_Initialize() Dim ostWrs As Long With Sheets("4") ostWrs = .Range("B65536").End(xlUp).Row Lista = .Range("B2:D" & ostWrs).Value lstFiltr.ColumnCount...
:) ... sformatować ... bowiem to co widzisz jako format godzinowy w arkuszu, to tylko zwykła excelowa ściema. W komórce jest właśnie to, co ci się wyświetla w liście kombinowanej ... :) Np.: [syntax=vbscript]Option Explicit Private Sub UserForm_Initialize() Dim tbl(), indeks With Arkusz5 'tbl = .Range(Cells(10, 4), Cells(10, 15)).Value 'lub tbl = .Range("d10:o10").Value...
To nie taki hop-siup: w VBA masz trochę ograniczoną liczbę obiektów którymi by można to wykonać w miarę prostu, więc trzeba samemu napisać dwa fragmenty kodu: jeden odpowiedzialny za wyłuskanie niepowtarzających się wartości z podanego zakresu i drugi, który je posortuje rosnąco (zakładając, że te dane mają być posortowane). Można by do tego wykorzystać...
Aby nie otwierać nowych wątków, napiszę tutaj. Mam problem z formatem daty w 2'iej kolumnie. Wygląda tak D/M/RRRR, a chciałbym coś takiego DD-MM-RRRR. Coś tam wypociłem, ale sypało sie po sortowaniu i wracało do starego formatu. Podobnie wygląda to z godziną, wyświetla sie w postaci ułamka. Mam nadzieje, że to ostatni mój problem. Z góry dzięki za pomoc....
Koledzy pomożecie z takim drobiazgiem. Bo mam zaćmienie. Private Sub UserForm_activate() Sheets("LISTA").Activa... Dim a As Integer a = 4 + ComboBox1.Value Me.ComboBox3.RowSource = Range(Cells(4, 3), Cells(a, 3)).Address Jeśli Combox1 ma wartość jest OK ale jeśli jest puste wyskakuje błąd nr 13 i nie...
Po analizie Twojego nowego załącznika spróbuje coś podpowiedzieć więcej. Wprawdzie autor postu nie odpowiada na szczegółowe pytania - ale "słowo się rzekło - kobyłka u płota" :D Plik przeanalizowałem i wg mnie takie funkcjonalności jakie opisywał m4xon zależy mi żeby makro zawierało listę funduszy (kodów), które można powiększać o kolejne nowe lub...
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...
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...
Serdeczne dzięki za pomoc. Spróbuję to wykorzystać. Dodano po 45 Z tym ostatnim wierszem to nie za bardzo. Dane są bowiem wpisywane w różne miejsca w kolumnach i dodawanie do już istniejących danych liczbowych. A przy okazji może mi pomożecie z takim drobiazgiem. Bo mam zaćmienie. Private Sub UserForm_activate() Sheets("LISTA").Activate Dim a As Integer...
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...
Zrobiłem pewien plik, który jak się uruchomi wyskakuje okno UserForm z miejscami do uzupełnienia arkusza. Część tekstu wpisuje się w TextBox'y a część wybiera z list ComboBox'ów. Problem pojawia się wtedy gdy kliknę na listę ComboBox, Excel się zawiesza i bez zamknięcia z poziomu menadżera urządzeń nic się nie poradzi. Nie wiem co jest nie tak?
Mam wybieraną listę To pokaż ją w załączonym pliku. Jeżeli masz użyty jakiś UserForm lub kod VBA - koniecznie skompresuj ten plik przed zamieszczeniem na forum :!:
... 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....
Są różne pakiety office - access jest chyba tylko w pakiecie Profesional. Budowa formularza w accessie jest znacznie łatwiejsza, ale ... sposób tworzenia formularza w excelu jest bardzo podobny - wystarczy przenieść opracowany układ kontrolek do UserForm i wymusić przez VBA wprowadzanie wpisanych (w formularzu) danych do określonej tabeli.
Dzięki. Jeśli chodzi o nazwy zakresów to wszystkie je łączy to że zaczynają się od słowa 'nam' a dalej to są nazwiska a to co podałem powyżej to tylko przykład. Pomyślałem o innym rozwiązaniu. Dodałem okno UserForm które będzie mi służyć do ustawiania opcji i między innymi dodałem okno ComboBox i mam pytanie, jakim kodem po inicjalizacji okna UserForm...
Niestety mi ten plik nie działa ale poniżej jest makro z uszkodzonego pliku i po wklejeniu do sprawnego pliku -działa dalej. wiec nie jestem teraz pewny czy to napewno makro ... Private Sub ComboBox1_Change() End Sub Private Sub UserForm_Initialize() lista1 = Array("Oferta", "Zamówienie", "Specyfikacja", "Pismo", "Protokół", "Reklamacja") ComboBox1.List...
... no i można zamykać ....... :->
Witam. Mam 2 problemy/zapytania z listboxem w excelu 2013. 1. Stworzyłem listboxa w userform, połączyłem z listą w arkuszu (rowsource), ale nie wiem jak zrobić że jak kliknę na liście to wybrana pozycja pojawi w wybranej komórce arkusza 2. czy jest możliwe takie stworzenie listboxów, że w zależności od wyboru w pierwszym pojawi mi się odpowiedni kolejny...
Dziś chciałbym spytać jak sprawdzić czy, używając metody CreateObject("Excel.Application"), mamy już uruchomioną drugą aplikację Excela. Wyjaśnię pokrótce dlaczego chciałbym to sprawdzić. Generalnie w mojej aplikacji nie korzystam z arkuszy, to znaczy nie mam tam żadnych danych ani niczego nie zapisuje. Ale w pewnych sytuacjach potrzebuje wygenerować...
W UserForm1 wystarczy zrobić 3 proste rzeczy: 1. Aby załadować dane do comboboxa, dodaj: [syntax=vb]Private Sub UserForm_Initialize() Dim ostTowar As Long With Arkusz2 ostTowar = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 cmbTowar.RowSource = "Towary!" & Arkusz2.Range("A2:A" & ostTowar).Address End With End Sub[/syntax] 2. Aby przepisywać towar do textboxa...
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...
Ten błąd (przy włączeniu przycisku) dotyczy zapewne inicjalizacji okna. We wczesnych wersjach - które sygnalizowałeś - aby ominąć podobny błąd musiałem skierować makro na arkusz DANE przy "zerowaniu" danych. Sporóbuj więc poprawić kod inicjalizacji (w VBA dwukliknij w obszar okienka i popraw): Private Sub UserForm_Initialize() Arkusz_Nazwa =...
łatwiej w userformie wypunkować coś pod daną nazwą parę razy niż oddzielnie pokazywać. Tu nie byłbym taki pewien. Zrób coś z dublami (nie wiem jakiego typu masz dane), może zakres listy pobieraj z dwóch kolumn http://obrazki.elektroda.net/40_12698845... posortuj i dopiero podstaw jako listę combobox'a
Dzięki za sugestie . Zminiłem ładowanie listy na dynamiczne i zadziałało, szkoda że nie rozumiem przyczyny . Nie łapię "jawnie określone " w RowSource - wpisuje nazwę zakresu np. lista_Czegos , inny sposób wywala błędy ; pewnie czegość nie wiem?. Dynamicznie AddItem działa przy otwartych innych plikach i o to chodzi - trochę więcej zachodu bo trzeba...
No no, wielki szacun dla Ciebie. Jak ja mogłem przegapić tego Rabunkarza :?: :!: Nawet nie pamiętam kiedy dodałem go do listy skoro nie ma go w zestawie 'Funkcja'. Chociaż przypuszczam że został przeniesiony ze starego mojego pliku 'Kwestionariusz' razem z listą pracowników, który kiedyś pisałeś i pewnie przez moje niedopatrzenie nie dodałem Rabumkarza...
Kurcze w żaden sposób nie potrafię zastosować powyższego kodu :( W kodzie jest zawarte słowo "wiersz", co tam muszę wpisać? Dodano po 28 :D :D :D już znalazłem rozwiązanie. Zamiast znaków zapytania wkleiłem poniższy kod i teraz jest już ok. Ale wcześniej nie pomyślałem o jednej rzeczy, że chciałbym zatrzymać funkcję automatycznego aktywowania okna UserForm...
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...
Dzięki wielkie. Teraz to już taki wypas że ino pozazdrościć, a najważniejsze że ułatwi mi to moją pracę. Jeśli chodzi o funkcję magazyn to na chwilę obecną właśnie mam to zrobione tak że jak chcę coś prze edytować to kopiuję pozycję do edycji w odpowiednie komórki zaznaczone na screenie, potem pozycja jest usunięta z listy a po edycji dodana z powrotem...
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...
Dzięki za podpowiedź ! ale mam kolejny problem a nawet dwa: 1) zwiększyłem listę danych (1000 pozycji) i widzę że UserForm pojawia się z małym opóźnieniem, przy ok 3000 jest to już bardzo wolno, ale chyba nie ma na to rady ? 2) po wpisaniu danych w 30 wierszy, przesuwam widok arkusza do dołu o ileś tam pozycji i gdy chcę wpisac kolejna pozycję Userform...
To ja przedstawię jeszcze bardziej zbliżone rozwiązanie :) i to bez makr :) bez UserForm itp i na wszystkie miesiące wraz z latami przestępnymi. Dodam że cały silnik tkwi w funkcjach w kolumnie A (ukrytej dla "ładności"). Wybór danego miesiąca i roku jest poprzez sprawdzanie poprawności (Menu - Dane sprawdzania - lista [wpisana z ręki]) Kolory (i ramki...
Wrócę jeszcze do tematu bo nie mogę sobie jeszcze z czymś poradzić. Mam jeszcze dwa pytanka. Jedno to: Poniższy kod po inicjalizacji pokazuje mi wynik dokładnie z czterech kolumn, jednak jak widać tabela jest bardzo wielka i musiałem wyzerować bardzo dużo kolumn. Jak zmniejszyć ten kod aby pokazywał tylko listę w czterech kolumnach, i tak w: kolumnie...
Zgadza się, chodzi o bazę danych gdzie niektóre rekordy będą miały skorelowane skany dokumentów zapisane w jakieś lokalizacji. Myślałem żeby zrobić podgląd tych plików w jakiś małych okienkach. Jeśli się nie da to zrobię po prostu listę ale chciałbym móc wskazać dany plik i go otworzyć w pdf-ie (oczywiście wiem, że to inny problem nie związany z pytaniem...
Witam. Właśnie pracuję nad udoskonaleniem mojego pliku i mam pewien problem z którym nie mogę sobie poradzić. Mam pewne okno UserForm w którym mogę przefiltrować listę pracowników. Obok w oknie (zaznaczone na screenie) mam opcję z którą nie mogę sobie poradzić. Jest tam przycisk 'Dodaj'. Na chwilę obecną udało mi się zrobić tak że w oknie ComboBox wybieram...
userform excel excel userform userform textbox excel
regulator ilości przepływu zasilacz komputer mustang sterownik nadajnikiem
szuflada elektrycznie philips tab8505
Szybko tykający zegar w piekarniku - przyczyny i rozwiązania Skoda Octavia 1.6 MPI - Gaśnięcie Silnika i Kontrolka Trakcji
