Poniżej przykład do pierwszej zakładki. Resztę zrobisz sobie analogicznie.
Zerknij do załącznika. Kod w arkuszu + UserForm. Kod uruchamia dwuklik w zakresie E2-E22 ;)
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 ;)
Trzeba odpowiednio sformatować wynik. Załącz przykładowy plik, a nie obrazki.
Musi być świetna fucha :D Gdyby zwolnił się etat... pamiętaj o mnie ;) http://obrazki.elektroda.pl/1379930300_1... Brakuje na liście w 'Admin'
Kolega cbrman rzucił dobrą myśl. W przykładzie poszedłem ciut dalej. Lista w UserForm uruchamiana podwójnym kliknięciem. Spróbuj...
Listy dla pola kombi nie sortuj poza arkuszem, nie pozbierasz się z indeksami. Nie rozumiem natomiast dlaczego uparłeś się biegać przez ogródek, jeśli do furtki dwa kroki...
Witam Pliki musisz pakować rar/zip itp. Co do ładowania danych do comboboxa odpowiedzialna jest część j.n musisz dopisać z jakiej zakładki są pobierane dane czyli [syntax=vbnet]Private Sub UserForm_Initialize() Dim i As Long i = 2 'bez nagłówka 'zapisanie do tablicy Do While Sheets("Articles").Cells(i, 1) <> "" AddItem Sheets("Articles").Cells(i,...
... 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?
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]...
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 :!:
Pomogło ale tylko przy wyborze z Combobox 1 i 2, jeśli natomiast szukamy nie po nazwie elementu ale po indexie to w pierwszym momencie po wybraniu pierwszych znaków z Combobox 3 jest dobrze ale wystarczy cofnąć się np. Esc lub Backspace i wtedy klawiszami "Góra", "Dół" uzyskujemy błąd (Zdjęcie 1) a polem przycisku Comboboxa 3 - listę z Comboboxa 1 (Zdjęcie...
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...
dzięki bardzo działa elegancko ;) a teraz mam kolejny problem;/ utworzyłam sobie UserForm który działa poprawnie oprócz listy rozwijanej tzn. mój kod do ComboBox'a : Private Sub ComboBox1_Change() ComboBox1.AddItem "DANE1" ComboBox1.AddItem "DANE2" End Sub a jak uruchomię UserForm to na liście nic się nie pojawia ;/
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.
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...
Po wpisaniu czegokolwiek w pierwszej komórce, przejdź do rozwinięcie listy. Z góry wielkie dzięki za pomoc.
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ę?
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....
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...
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ć...
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...
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...
... 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....
Już znalazłem w necie jak to można zrobić. Wpisałem w VBA 'Initialize' poniższy kod i działa wyśmienicie. Jednak w opisie było jeszcze podane żeby zakres listy z pracownikami nazwać i w odnośniku do zakresu wpisać =OFFSET(Lists!$A$2, 0, 0, COUNTA(Lists!$A:$A)-1,1) Jednak opis jest z anglojęzycznej stronki i nie wiem co to jest w PL wersji OFFSET i COUNTA....
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...
Cześć! Moje doświadczenie z VBA jest niewielkie, dlatego zawracam się do Was z prośbą o podpowiedź. Chciałam skorzystać z tego kodu interesuje mnie wersja z arkusza drugiego. Ma to służyć do uzupełniania poszczególnych komórek w kolumnie "TEST1". Czy sam kod UserForm2 + przypisanie UserForm do wybranych komórek powinno wystarczyć? W jaki sposób można...
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ą,...
Podobny sposób do zablokowania kontrolki - dający efekt "wyszarzania", ale samego tekstu - można uzyskać ustawiając właściwość Enabled kontrolki na False. Excel faktycznie nie obsługuje wyszarzenia całej kontrolki, chyba że jej BackColor zmienisz ręcznie ;). witam ponownie czy moglbys mi powiedziec gdzie znalesc w jezyku polski opis kodow do VBA. jesli...
Tak dla pewności zapytam: 1. Jeśli użytkownik zmieni hasło w czasie pracy? 2. Jeśli otworzy bez VBA? To wszystko jest do ominięcia, ale trochę z tym zachodu. Makra muszą znajdować się w kodzie przy zdarzeniach skoroszytu (Thisworkbook). Ukrywasz przez .Visible = xlVeryHidden (odkryć można tylko z poziomu VBA!), odkrywasz przez .Visible = True. Lepiej...
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...
Mi nie zależy, żeby Excel widział "date" jako datę. Wystarczy mi, że w kolumnie D UserForm będzie mi wstawiał wartość wyglądającą jak dd.mm.rr, żeby to ładnie wyglądało mi później w liście, który będzie wysyłało. Nie wspomniałem, że ma mi to po prostu ułatwić wpisywanie danych do kolejnych wierszy. UserForm uruchamia mi kreatora, gdzie w TextBoxy wpisuję...
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...
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...
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,...
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?
To że się poddałem nie znaczy że nie próbowałem. Uwierz że próbowałem ale nic z tego mi nie wychodzi. Nawet wkleiłem kod w takiej postaci jak zapodał kolega Aldrin do UserForm_Initialize ale to powoduje że ten kod jest już inicjowany w momencie jak kliknę na przycisk którym otwieram okno UserForm. A gdzie tam żeby kod był inicjowany po otwarciu listy...
ListIndex w combo UserForm2 nie ma zastosowania w taki sposób, ponieważ lista jest wynikiem filtrowania. Rozwiązań jest jak zwykle kilka: 1. Wielokolumnowy Combobox, gdzie wyświetlana jest tylko jedna kolumna. Po wybraniu wartości, w Label'ach umieszczamy zawartość pozostałych kolumn. 2. Klasycznie - z wykorzystaniem tablicy, tu ListIndex jak najbardziej....
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...
[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...
Nie ma standardowych "podwójnych" combo box - trzeba wyświetlaniem w drugim sterować na podstawie tego co jest w pierwszym. Jeśli tylko do tego ma służyć UserForm, to można rozważyć inną koncepcję: - na górze arkusza zrobić "sekcję" wprowadzania danych i zablokować przez okno-> zablokuj okienka - wybór sali w komórce z listy zadeklarowanej w Dane->...
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...
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...
Witaj Lista wartości jest gdzieś na arkuszu, lub musi być wykonane makro?
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...
A jaki konkretnie masz błąd i kiedy, bo kod jest poprawny i działa. Do wybierania dat możesz użyć pole tekstowe, comboboxa z listą dat, 3comboboxy: jeden z dniami 1...31, drugi z miesiącami 1...12, trzeci z latami, z których zbudujesz datę, albo - mój ulubiony sposób ;) - komponent Microsoft Date and Time Picker Control który można sobie dowolnie skonfigurować...
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...
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...
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...
Witam. Tym razem przy projektowaniu mojego pliku utknąłem przy ComboBox i ListBox- a dokładnie, dodania do nich ewentualnych możliwości jeśli oczywiście jest taka opcja. Jeśli chodzi o ComboBox: czy jest możliwość aby w ComboBox umieszczonym w oknie UserForm wybrać coś z rozwijanej listy i aby to co wybiorę pozostało w tym ComboBox nawet po restarcie...
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...
dodałem rabat przy zakupie Już wcześniej się zastanawiałem: Dlaczego rabat przy zakupie? Jako cenę zakupu wpisuje się cenę z rabatem i nikogo (łącznie z US) nie obchodzi cena bez rabatu. Istnieją różne systemy rabatów: procentowe, kwotowe, łączone (Np: jeśli poniedziałek to rabat 5% ale nie więcej niż 5zł) i musiałbyś je wszystkie uwzględnić :) Natomiast...
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...
Macie jakiś pomysł, aby po kliknieciu w przycisk otwierało nowe okno do kontretnego katalogu i mógłbym wybrać odpowiedni plik, z którego skopiowałoby odpowiednie komórki do mojego arkusza ? Przykład W arkuszu Arkusz1 przycisk POBIERZ powinien pobierać dane z pliku z lokalizacji np. H:\CCC\ccc\ (jest w nim kilkanaście plików excel wiernej kopii arkusza...
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...
Mam problem z zastosowaniem poniższego kodu. W UserForm przyciskiem chcę aby zostało wykonane zadanie z poniższego kodu który jest umieszczony w 'Modules', niestety po kliknięciu na przycisk w UserForm nic się nie dzieje. Jeśli ten sam kod wstawię do przycisku który umieszczę bezpośrednio w arkuszu to jest wszystko ok, kod wykonuje zadanie. http://obrazki.elektroda.pl/7949520600_1...
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 =...
Witam serdecznie... Napotkałem problem z filtrowaniem rozwijanej listy w ComboBox Po kliknięciu w komórki kolumn C , D , E w Arkuszu1 wyświetla się okno UserForm Okno to zawiera rozwijaną listę ComboBox, pokazującą zawartość kolumny B Chcę żeby formant ComboBox wyświetlał przefiltrowaną listę kolumny B http://obrazki.elektroda.pl/7211171300_1...
... działa świetnei do momentu, kiedy zamiast 6 produktów faktura ma 7 produktów, tak więc dodaje nową linie z produktem, co automatycznie przesuwa mi komórke C5, w której ma byc numer zamówienia jedna linie niżej czyli teraz mój inputbox musi wstawi numer zamówienia do komórki C6, a nie C5. Ale przy powyższym kodzie zawsze będzie wstawiał do C5 -...
Excel. Jest właściwość MatchEntry ale to nie rozwiązuje problemu. Owszem mogę wprowadzić dowolny tekst ale chciałbym zachować równocześnie możliwość rozpoznawania czy tekst jest nowy czy istniejący na liście. Przy ustawieniu MatchEntry na None kązdy tekst, niezależnie czy istnieje na liście czy nie ma ListIndex = -1. Także chciałbym móc korzystać z...
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...
OK. Nie napiszę gotowca i zachęcam do pisania samemu. Większa satysfakcja i coś się można nauczyć. Struktura jest taka, że są obiekty Application, Workbook, Sheet. W takiej hierarchii. W Excelu, edytorze VB użyj narzędzia ObjectBrowser. Wybierasz z listy gdzie jest "All libraries" Excel. Na liście Classes masz klasy obiektów z danej biblioteki. Wybierasz...
Witam, Mam taki problem, że mam dwa makra i chciałbym żeby były odpalane z dwóch warunków. Jeżeli spełniony jest 1 warunek If uruchom 1 makro (private sub ...end sub). W przeciwnym razie Else uruchom 2 makro (private sub ...end sub). Problem jest tylko tego rodzaju, że warunek 1 jest następujący. Mamy Tablicę z liczbami (wymiary) w arkuszu excel w jednej...
...szukałem info na ten temat ale nie mogę znaleźć... Nie szukałeś. Gdybyś szukał (Google w zależności od sformułowanego pytania podaje od kilkuset do kilku mln odsyłaczy), - to w najgorszym wypadku miałbyś problem z zastosowaniem tej kontrolki. Od jakiegoś czasu kontrolka ma nazwę "Microsoft Date and Time Picker Control" a jej plik to jak napisałeś...
A mógłbyś mi trochę podpowiedzieć w którym miejscu mam umieścić dany kod? W Module czy w kodzie z UserForm - akcja po naciśnięciu przycisku? Sorry za takie "głupie' pytania ale jestem totalnie zielony. Modules-> Formularz: [syntax=vbscript]Sub Zapisywanie() ActiveWorkbook.Save 'Metoda Save zapisuje obiekt, nasz kod powoduje zapisanie zmian w aktywnym...
może zobacz tak [syntax=vb]Private Sub UserForm_Initialize() Set mysht = Sheets("ListaPracowników") LastRow = mysht.Range("B" & Rows.Count).End(xlUp).Row With lstSzkolenia .ColumnCount = 4 .ColumnWidths = "80pt;50pt;50pt;50pt" For I = 2 To LastRow .AddItem mysht.Range("B" & I) .Column(1, lstSzkolenia.ListCount - 1) = mysht.Range("J" & I) .Column(2,...
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...
Czy jest możliwość jakiejś aktualizacji przed przełączeniem do userform Ps3Kupno bo po dodaniu nowej pozycji za każdym razem muszę zamykać user form żeby zaczęło działac? [syntax=vbscript]Private Sub cmbSubmit2_Click() If TextBox1 = "" Then Call MsgBox("WPROWADZ DANE") Else Dim sheet As Worksheet Set sheet = ThisWorkbook.Sheets("List") nr = sheet.Cells(Rows.count,...
Witam Chciałbym prosić o wyjaśnienie przyczyny pewnego błędu. W mojej procedurze wykorzystuje metodę AddItem dla dodania nowej pozycji listy w kontrolce ComboBox. Wszystko jest ok gdy dodaję do listy kolejną pozycję problem pojawia się gdy na liście nie ma jeszcze żadnych pozycji, czyli gdy dodaję pierwszą pozycję. Fragment kodu wygląda tak: [syntax=vb]...
Trochę odgrzebuję temat, ale nie bardzo sobie potrafię poradzić z wykorzystaniem podanego rozwiązania do moich potrzeb. Pytanie jest takie: w jaki sposób można połączyć wyszukiwanie poprzez zawężanie zakresu? Innymi słowy, jeśli w polu "nr sali" wpisze jakaś wartość, to chciałbym, aby wpisując wartość w "Opis sali" wyszukiwał w zakresie już zawężonym...
Witam, Jak w temacie. Combobox o nazwie SMkolor w userformie, próbuję dodać listę z innego arkusza(Kolor) niż aktywny(mogą różne arkusze), problem w tym, że nie wiem jak napisać kod który dodał by tylko pola wypełnione z pierwszej kolumny arkusza "Kolor". Czy mógłby ktoś miły pomóc? Dodano po 55 Jakby co to sobie już poradziłem, wklejam kod... może...
Witam czytałem o sposobach zabezpieczenia hasłem excela bezpośrednio z opcji chroń arkusz lub po przez VBA, o blokowaniu i ukrywaniu kolumn, wierszy i arkuszy. Wiem że mój problem da się rozwiązać jedynie poprzez zastosowanie Userform i nie jest to łatwe;/ opis mojego skoroszytu: Arkusz1 - zestawienie danych z pozostałych arkuszy, są w nim butony oraz...
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 ponownie. Mam w moim pliku poniższy kod którym po aktywacji okna UserForm wpisuje zakresy do odpowiednich okien. Wszystkie listy z zakresami są umieszczone w pomocniczym arkuszu. Jak zrobić żeby kod pobierał zakresy nie z arkusza ale z osobnego pliku tekstowego? Do jakiego pliku tekstowego wrzucić moje zakresy i jak przerobić kod żeby te zakresy...
Temat ciekawy, więc dołączam. Sprawę blokady zapisu szablonu można rozwiązać następująco Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI = False Then Cancel = True End Sub Uwaga: Po wklejeniu tego kodu nie można już zapisać pliku, działa tylko zapisz jako i tak trzeba będzie zapisać szablon. W związku...
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...
skopiowalam twoj kod i dostosowalam do kolumn i teraz mam w formularzu w odpowiednich listach odpowiednie kolumny ale jak mam zrobic zeby mi zawezalo te listy czyli jak wybiore Suchbegrif to zostana mi przefiltrowane Selektion i tak samo Stärke tak jakbym filtrowala w Tabeli.. i teraz wyswietlaja mi sie Artikel przefiltrowane tylko przez Suchbegrif...
Witam, mam plik z dwoma kolumnami z danymi. W pliku znajduje się Userform (niestety nie wiem, czy da się załadować plik z formularzami), przy pomocy którego wybieram kolumnę, z której chcę zsumować dane. Po wybraniu z listy wybranej kolumny uruchamiane jest makro sumujące dane oraz wyświetlające komunikat w postaci zsumowanej wartości. [syntax=vbscript]...
Próbował kolega wstawić UserForm i umieścić w nim 17 przycisków? Jeśli nie, proszę to zrobić i plik zamieścić na forum jako załącznik. Dlaczego to dla kolegi taki problem? Nawet po imporcie frm można wstawić nowy w Edytorze VB i skopiować wszystkie kontrolki (zaznaczyc myszą, ctrl+c i ctrl+v w nowym UserForm)... Dalej: wybrać obiekt z lewej listy (u...
Witam Mam takie makro wyrzuca mi debuga w jednym miejscu i nie moge dojś dlaczego? Co jest nie tak? Private Sub cmdEdytuj_Click() ' Wprowadzenie danych z listy do okienek pozycja = lstSala.ListIndex If pozycja = -1 Then MsgBox "Nie wybrano danych do edycji" & Chr(10) & "Wybierz dane do edycji." Exit Sub End If For k = 1 To 29 Controls("txt" & k & "v").Value...
Splitem go i policz. Np [syntax=vb]Private Sub CommandButton1_Click() Dim a As Double Dim b As Double Dim dr As Integer a = TextBox1.Value b = TextBox2.Value liczba = Split(UserForm1.ComboBox1.Value, ",") dr = Len(liczba(1)) Me.Label5.Caption = Round(a + b, dr) End Sub[/syntax]
:) ... 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...
Nie ja nie chcę żadnego gotowca. Wcześniej nie mogłem wstawić tego co już mam bo pisałem temat na szybko. W dalszym ciągu nie wiem jak to rozwiązać. Mam w oknie UserForms jak widać dwa pola do wyboru rodzaju daty: 1. txtMiesiac - do wyboru miesiąca 2. txtRok - do wyboru roku http://obrazki.elektroda.pl/6727683400_1... Poniższym kodem...
Tak masz zasięg w całym formularzu (i projekcie, dopóki formularz jest otwarty): Private Sub UserForm_Initialize() GetObject ("c:\zeszyt1.xls") Workbooks("zeszyt1.xls"... End Sub Private Sub CommandButton1_Click() TextBox1 = Worksheets("Arkusz1")....
Witam, Od jakiegoś czasu staram się posługiwać VB, z jakimś nienajgorszym skutkiem jednak z rzeczami trudniejszymi gorzej:). Czy można powiązać ze sobą : 1. Wartość z textboxa ze definiowaniem listy do comboboxa? CHodzi mi o to że w textboxie pojawia mi się miasto i wg tego miasta w comboboxie miała by się pojawić odpowiednia lista klientów. 2. Jak...
... no i można zamykać ....... :->
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...
Generalnie z ListView wybierana jest pozycja, na której będą dokonywane dalsze operacje. Możliwych jest kilka operacji. Do każdej jest przycisk. A dodatkowo do domyślnej można użyć dwukliku. Nie jest mi na rękę uruchamianie Activate, bo mi to resetuje filtry i na nowo wczytuje listę i zmienia sortowanie. Użycie Initialize zamiast Activate nie zda niestety...
wypełniam arkusz pierwszy z niego wypełniają się trzy następne odpowiednimi informacjami... I w tym momencie zrobiłbym aktualną listę drukarek i "przydzielił" odpowiednim arkuszom Np w UserForm. [syntax=vbscript]Dim WshNetwork As Object, oPrinters As Variant Dim i As Integer, txtMsg As String Set WshNetwork = CreateObject("WScript.Network") Set oPrinters...
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...
... wartosc2 = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N") '14 wpisów Te wartości trzeba wprowadzać ręcznie ? Mam ich w bazie ponad 30 - numerów oraz nazw ... Przecież miał to być tylko przykład :D ... pewnie że nie trzeba ... :D Do przejrzenia zmiany w " ini ", " dopisz_do_bazy " oraz " usun_z_bazy " 828986 :D Dla wielu...
Dzięki właśnie o takie coś mi chodziło, przepraszam że dałem tak mało danych, ale to fragment większego projektu. Zaraz to przerzucę do mojego projektu i zobaczymy jak się spisze :) Pytanie, gdzie tutaj mogę dopisać aby przeszukiwał konkretny arkusz? [syntax=vb] Private Sub Worksheet_Calculate() For Each Szukana In Range("V12:V16") If Szukana = "OK."...
i tak kombinowałem aż wykombinowałem. Udało mi się rozwiązać problem. Brawo. O to właśnie chodzi :) jaki kod dodać żeby jeśli okienko w którym wpisuję hasło jest puste to przycisk "Logowanie" jest w tym momencie nieaktywny. 1. Warto skorzystać z txtPassword_Change() - kliknij x2 na okienko tekstowe txtPassword i powinieneś trafić właśnie tam. Jeśli...
Tam, gdzie jako źródło wierszy do listboxa masz nazwy ze spacją , musisz umieścić je w apostrofach . Czyli w UserForm4, MultiPage1_Change() możesz usunąć, wystarczy że zostawisz to (zwróć uwagę na apostrofy!): Private Sub UserForm_Initialize() ListBox1.ColumnCount = 5 ListBox1.RowSource = "'BAAN 2'!G8:K97" ListBox2.ColumnCount...
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...
userform excel excel userform userform textbox excel
prasa prędkość podajnik ręczny sterowanie rolet zewnętrznych
Jak ustawić odstęp elektrod w świecy Oleo-Mac 937 bez szczelinomierza Strzelanie w głośnikach po czyszczeniu Sony TA-F690ES