Nie, w UserForm, w sekcji UserForm_Initialize: Private Sub UserForm_Initialize() MultiPage1.Value = 0 DTPicker1.Value = Date MultiPage1.Value = 1 DTPicker2.Value = Date MultiPage1.Value = 2 DTPicker3.Value = Date End Sub
[syntax=vbscript]Private Sub CommandButton1_Click() Sheets("Test").Select nw = Cells(Rows.Count, "E").End(xlUp).Row + 1 For x = 5 To 17 t = "TextBox" & x - 4 Cells(nw, x) = Me.Controls(t) Me.Controls(t) = "" Next End Sub [/syntax]
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...
[syntax=vb] Dim i as Integer For i = 3 to 36 OLEObjects("cmd" & i).Enabled = True Next i[/syntax] Kolekcją dla obiektów ActiveX jest OLEObjects, a nie jak to ma miejsce w UserForm - Controls. Co właśnie znalazłem, a czego nie wiedziałem. ;) Może się komuś przyda taka wiedza. ;) Edit: Tak to jest, jak się nie kopiuje, tylko pisze. ;)Zrobiłem literówkę...
Czyżby taki prosty błąd?[syntax=vb] For i = 3 To ostWrs If (InStr(1, etat, "| " & .Cells(i, 5) & " |") > 0 Or .Cells(i, 5) Like etat) And _ (InStr(1, firma, "| " & .Cells(i, 9) & " |") > 0 Or .Cells(i, 9) Like firma) And _ (InStr(1, szef, "| " & .Cells(i, 10) & " |") > 0 Or .Cells(i, 10) Like szef) And _ (InStr(1, kopalnia, "| " & .Cells(i, 11) & "...
Wklej to w userforma [syntax=vb]Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then Cancel = True MsgBox "Blokada" End If End Sub[/syntax]
W arkuszu 2 komórki latwiej nie są scalone, ale tylko szeroki, łatwiej zarządzać nimi. Ocena to średnia ważona każdego parametru z jego wagą Z kazdego parametru wybierame tylko 1 wartosc. Z czego ta 'średnia ważona '. Napisz przyklad, jak liczyc ta 'średnia'
zamiast exit sub daj pustą funkcję albo przypisanie jakiejś zmiennej do samej siebie
Witaj, Zgaduję, że chodzi o Excela? Spróbuj zmieniać parametr Top i Left: UserForm1.Top=100 UserForm1.Left=100 Jeśli chcesz ustalać pozycję względną w stosunku do okna aplikacji macierzystej, możesz spróbować: UserForm1.Top=Application.Top+100 UserForm1.Left=Application.Left+100
W tym wypadku zwykłe [syntax=vb]UserForm3.Show[/syntax] wystarczy. PS. Słowo "stworzyłem kalendarz" jest nieco na wyrost - po prostu użyłeś gotowej kontrolki, która w dodatku potrafi być problematyczna przy innych wersjach Excela. Jeżeli chciałbyś naprawdę stworzyć kalendarz od podstaw, proponuję zapoznać się z [url=http://www.elektroda.pl/rtvforum/to...
Witam [syntax=vb]Dim tb As Control Dim wiz As Boolean wiz = Not (Index = "") For Each tb In UserForm1.Controls If tb.Name Like "txt*" Then tb.Visible = wiz Next [/syntax] Jeśli jest to widoczne, ale zablokowany [syntax=vb]wiz = Index = "" For Each tb In UserForm1.Controls If tb.Name Like "txt*" Then tb.Locked = wiz Next [/syntax] nie zaleca się używania...
Naprawdę nie działa?? Przy PODWÓJNYM kliku?? Hmmm... Selecion_Change też jest dobre, tyle że chciałem go uniknąć ze względu na to, że okno pokazuje się przy każdej zmianie zaznaczenia komórek. Ale jak Ci odpowiada to OK. Za dużo kodu w tym pliku to nie masz, nie ma czego sprawdzać. Generalnie OK, tylko te Module1 i 2 nie są potrzebne i można je wykasować.
Na Twoim przykładzie dla przycisków '< ' a '> ' na arkuszach nie powinna oddzielne makra. Wystarczy dla dwóch. Dla '<' [syntax=vb] If ActiveSheet.Index >1 Then Activesheet.Previous.Activate [/syntax] Dla '>' [syntax=vb] If ActiveSheet.Index <9 Then Activesheet.Next.Activate [/syntax]
Może(w jednym programie ). Nie może w tym samym UserForm kilka UserForm_Initialize lub UserForm_Activate etc.
możliwość modyfikacji userform np zmienić nazwe w pasu okna lub zmienic jego kolor itp? Możesz odwoływać się do prawie wszystkich właściwości widocznych w okienku "Properties" formularza przy dowolnym zdarzeniu (kontrolek włącznie). Np Private Sub UserForm_Initialize() With UserForm1 .BackColor = RGB(255, 255, 0) .Caption = "kehn"...
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...
Trzeba odpowiednio sformatować wynik. Załącz przykładowy plik, a nie obrazki.
Najwygodniej byłoby zrobić UserForm z dwoma ComboBox'ami, gdzie na podstawie wyboru pierwszego (nazwa arkusza) wypełniało by się drugi danymi z dwóch kolumn. Bardzo uprościłoby ujednolicenie nagłówków. Oczywiście jest to do zrobienia w obecnej postaci, ale nie we wszystkich arkuszach występują obie poszukiwane kolumny. Co w takim przypadku? http://obrazki.elektroda.pl/5048931400_1...
Rozumiem, że chodzi o to, że nie ma formuły w dopisywanym wierszu. Dobrze myślę? Jak już masz formularz to możesz wyznaczać ten status VBA podczas zapisywania. Możesz też makrem wpisać tam kod formuły w tym dopisywanym wierszu. To nawet lepsze bo status staje się dynamiczny, będzie się zmieniał w czasie, ale użytkownik może zepsuć formułę.
Witam, załączyłem poprawny plik z userformami
VBA nie ma takiej możliwości. Możesz to zrobić w VSTO (Visual Studio Tools for Office czyli biblioteka .net jako add-in do excela)
Pokaż co zrobiłeś do tej pory, załącz przykładowy plik (xlm spakuj do zip ).
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...
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ę :!:
Na forum umieściłem plik bez makr bo nie w nich jest problem lecz w userform1. Z makrami czy bez i tak się wiesza.
Z tym pierwszym.
Już znalazłem błędy - temat od zamknęcia
gdzie dokładnie podmieniłeś ten skrypt?
Idealnie. Bardzo dziekuje!
Witam Potrzebuję rady czy jest możliwość wydruku z UserForm Wstawiłem przycisk i podstawiłem kod UserForm2.PrintForm Drukuje cały panel, czy jest możliwość zmiany wydruku aby nie drukowało przycisków tylko wybrane miejsce i zarazem orientacja papieru do wydruku
Poprawione, przepraszam za nieporozumienie
Proszę o pomoc. Mam taki problem: Jakie przypisać makro do CommandButton1, CommandButton2, .... znajdujących się w UserForm, aby po przyciśnięciu każdego przejść odpowiednio do "Arkusza2", "Arkusza3", .... . Z góry dziękuję za pomoc Pozdrawiam
Coś mi się kojarzy z tymi salami, ale kiedy to było... W każdym razie: w załączniku masz formularz z filtrem 2-poziomowym (opcjonalnie). Co prawda to typowa książka telefoniczna, ale zrobiona na tej samej podstawie.
Panie Macieju, wrzucam plik. Makro jest w UserForm w przycisku "Zaloguj" Login: Jan1 Hasło: 12
zobacz to [syntax=vb]Private Sub UserForm_Initialize() ost = Worksheets("Kolor").Cells(Rows.Count, 1).End(xlUp).Row userform.SMkolor.rowsource = "Kolor!A1:A" & ost End Sub[/syntax]
Super właśnie tak chciałem żeby to działało. Wielkie dzięki. Mam jeszcze jedno pytanie czy jest jeszcze możliwość żeby na tym UserForm dodać przycisk "POWIĘKSZ" po kliknięciu którego otworzy się okno z powiększoną grafiką z pierwszego userform????
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...
...jak kliknę w Excel na pasku to pojawia się cały arkusz - czy nie da się zablokować tej możliwości ? Chodzi mi o to, aby nie można było pokazać arkusza. Najprościej zminimalizowany plik Excela ukryć. Rozszerz procedurę UserForm_Initialize o linijkę kodu wykorzystującą właściwość "Visible" [syntax=vb]Private Sub UserForm_Initialize() Application.WindowState...
[syntax=vbscript]Private Sub CommandButton1_Click() Dim W As Workbook Set W = Workbooks.Open("C:\PlikiExcela\Zeszyt1.x... W.Sheets(1).Range("A1") = Me.TextBox1 W.Close vbYes End Sub[/syntax]
Jak wyżej. W tym przypadku należy oprogramować zdarzenie ramki. Poniżej przykład dla Frame_Exit. Jednym z minusów jest to, że ramka "odezwie" się także przy zamykaniu formularza. Dlatego dodatkowy warunek i czyszczenie zawartości. Jeśli ramka służy tylko celom estetycznym, prościej będzie zamiast niej wstawić pusty Label z obramowaniem... [syntax=vb]Private...
Mam je wstawione na UserForm
miał na myśli przykładowy plik programu Excel z tym UserForm
Łatwiej będzie Umieść swój przykład Userform z kontrolami, komentarz gdzie i jak należy przekazać dane. Zależy, Unload lub Hide formy. I Twója drogę rozwiązywania.
Super pewnie ale troszke nie wiem jak z tego skorzystać jak przekopiowuje do module to nie moge odpalic dacie jakas podpowiedz W swoim 'userform' musisz wywołać funkcje 'pastepicture' i w zależności od posiadanej wersji systemu będzie to win32 lub win64. (patrz co podał ci (at)adamas_nt chociaż on ładuje obraz do 'ramki')
Jak już piszemy o różnych rozwiązaniach, to zaproponuję takie: Witam, mam pytanie. Jak zrobić i gdzie zapisać kod aby działał w momencie gdy w pliku stworzymy drugą zakładkę i pomalujemy zakres na żółto. Żeby wtedy userform się odpalał.
Pole wyboru mam w VBA userform i powiedzmy, że teraz zaznaczę 5 pierwszych pól i w tym momencie chciałbym, aby nazwy tych pól (checkbox'ów) zostały wypisane do arkusza, a jeżeli je odznaczę w userform, to żeby zostały usunięte z arkusza :) Czyli np: 1. Zaznaczam checkbox o nazwie "elektroda" 2. i po jakiejś następnej akcji nazwa checkbox'a "elektroda"...
a jak uruchomię UserForm to na liście nic się nie pojawia ;/ Zmień zdarzenie Private Sub UserForm_Initialize()
Witaj. Tak w tym stylu, ale : -z możliwością wybierania lub dodawania kolejnych arkuszy -wprowadzania danych kolejno po sobie z poziomu jednego wiersza coś w rodzaju formularza do wprowadzania danych. Mógłby to być po prostu jeden wiersz na Arkuszu1. http://www.coderscity.pl/ftopic862-0-asc... tu znalazłem Userform do wprowadzania danych i było...
Jakie pliki : Za pomocą UserForm otwieram inne pliki excel bądź foldery z takimi plikami W jakim celu: w celu znacznego przyspieszenia pracy, nie muszę bawić się w skróty, hiperłącza itp. tylko mam wszystko w jednym okienku Po co ukrywam: Bo chcę mieć tylko widoczne okienko UserForm - (które wygląda jak osobna aplikacja) i tylko ten plik excela, który...
A jak to ma działać. Czy w tabeli mają się pojawiać kolejne wiersze po każdym wpisaniu danych do UserForm, czy też mają się kasować wpisy i pojawiać nowe w tym samym miejscu. Będzie mi wygodniej dokonać korekt jeżeli zamieścisz plik Excelowski ze wspomnianym UserForm i Makrem jako załącznik i zaznaczysz że za ściągnięcie nie pobierasz punktów.
Chętnie bym poczytał na temat kolekcji Control i innych. Możesz coś podrzucić? Na forum nie mogę znaleźć. Poniżej kod programu. Załączyłem również plik. [syntax=vb] Private Sub UserForm_Initialize() Dim liczba_wierszy As Integer ' zawiera liczbę niepustych wierszy w pliku excel liczba_wierszy = 0 For Each c In Arkusz2.Range("A2:A35") ' pętla zwraca...
w TextBox wpisywana jest wartość raz z lewej strony a raz z prawej Zdaje się, że kolega Marek003 już z tym walczył. Co wywalczył, nie pamiętam, trzeba by poszukać tematu. Co do stawki. Wszystko jedno czy będziesz pobierał ją z label.caption, czy przypisywał do zmiennej. Jeśli do zmiennej, to poskładaj label.caption (jest typy String) przy UserForm.Initialize.
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]...
Chciałem przenieść plik excela z makrem do obsługi urządzenia przez port RS232 na drugi komputer, ale niestety excel na drugim komputerze generuje błąd kontrolki MSCOMM32. Komputer trochę leciwy, jeszcze z systemem WIN 7 64bit, zainstalowany excel 2010. W excelu po wybraniu formantu ActiveX mogę wybrać MSComm w wersji 6.0 ale przy próbie dodania formantu...
Czesc, Niestety przyszlo mi dzialac w pracy przy pomocy OneDrive, nie kalsycznego serwera gdzie kazdy moze po prostu wejsc do folderu.... i pojawil sie problem z transferem plikow. Mianowice, potrzebuje stworzyc makro, ktore bedzie dosyc prostym UserFormem, w ktorym pozostali wypelnia podstawowe dane oraz za pomoca przycisku ''browse'' wskaza mi plik...
Excel 2003
Dzień dobry, mam problem z bazą stworzoną w Excel z wykorzystaniem VBA. Baza zawiera 3 formularze UserForm (o różnym stopniu rozbudowania) , gdzie w zależności od potrzeb wprowadza się różne dane do bazy. Dane są zapisywane w odpowiednio przygotowanych tabelach, które na potrzeby działania poszczególnych UserForm pobierane są do tablic dynamicznych...
Kolega cbrman rzucił dobrą myśl. W przykładzie poszedłem ciut dalej. Lista w UserForm uruchamiana podwójnym kliknięciem. Spróbuj...
Me.Hide ukrywa mi Ps3 kupno i otwiera userform do dodania gry
Pozwolę sobie podrążyć temat, licząc na jakieś uwagi. Po pierwsze doczytałem, że parametr vbModeless działa od wersji VB6 więc w starszej wersji Excela raczej nie powinien działać. Po drugie gdy przeczytałem odpowiedź kolegi czeles -ia natychmiast ją wypróbowałem i zadziałało tak jak chciałem, stąd moja radość. Ale po chwili coś się stało z moim plikiem...
Cells(NextRow, 1) = Cells(NextRow -1, 1) + 1
Prośba o pomoc. Potrzebuję rozwiązać taki problem: mam utworzony userform z dwoma textboxami. Jak napisać procedurę aby po wpisaniu tekstu do textbox1 w drugim textbox2 wyświetlana była wartość przypisana w bazie do wartości w textbox1. Innymi słowy, jeśli w arkusz1 komórce A1 jest wartość "ZORRO" a w komórce B1 jest wartość 23 to chciałbym aby po wpisaniu...
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 :!:
o możliwości wprowadzania danych jednocześnie przez wielu sprzedawców Do jednego pliku? Excel ma moznosc skoroszytu udostępnionego . https://support.office.com/pl-pl/article... Z reguły jest na dysku sieciowym.
Cześć Czy ktoś pomoże rozwiązać mój problem? :) W Excelu posiadam okno UserForm z polem TextBox. Chciałbym aby po wpisaniu numeru seryjnego np, G20A61627 excel wyszukał je w jednym z arkuszy w kolumnie oraz podał obecną godzinę w tym samym wierszu, natomiast kolumnę obok numeru seryjnego. Obecnie kod wyszukuje wolne pole w kolumnie "Data oddał" https://obrazki.elektroda.pl/6582089700_...
Dzięki to znalazłem sam w sieci sęk w tym, że nie wiem jak z tego skorzystać :/ Dlatego proszę o pomoc tutaj jestem początkujący w VBA :) Put this in a module: Code: [syntax=vb]Private Const SWP_NOSIZE = &H1 Private Const SWP_NOMOVE = &H2 Private Const HWND_TOPMOST = -1 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName...
Chyba najprościej będzie wykorzystując UserForm(ik) z pętelką.
Witam, Pracuję od dłuższego czasu nad makrem i niestety napotkałem kilka znaczących problemów, których pomimo szukania nie mogę zlikwidować. Makro działa w następujący sposób: 1. Po kliknięciu ikony pojawia się UserForm, który posiada różne opcje do wprowadzenia pewnych wartości do arkusza. 2. Wybieram przycisk "RUN", który odpala makro- makro ma za...
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...
Mam UserForm z MultiPage i Listview i do Listview są pobierane informacje z arkusza1 z komorek od G8 do M97 z tym że w kolumnach L i M mam funkcje w arkuszu: Kolumna L: funkcja Jeżeli Kolumna M: funkcja wyszukaj pionowo Jeżeli z tego kodu: Private Sub UserForm_Initialize() Dim listItem As listItem With Worksheets("arkusz1")....
Witam, Napisałem sobie programik, który zlicza w firmie sprzedaż konkretnych pracowników. Wszystko musi być jak najbardziej idiotoodporne stąd też w celu uniknięcia przypadków jakie się zdarzały wcześniej (np. nieczytelnie wklejane dane w złym formacie, które się nie zliczały itd.) wszystko działa na Userformach. Każdy pracownik ma swój plik Excelowy...
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ć...
Witam. Jestem w trakcie tworzenia w pliku nowego okna UserForm z opcją drukowania. W sumie to już wszystko zrobiłem ale chcę dodać jeszcze opcję wyboru drukarki ponieważ w pracy mam dostęp do paru drukarek i korzystam ze wszystkich. W oknie dodałem ComboBox i mam pytanie jakim kodem wywołam żeby po rozwinięciu okna ComboBox pokazało mi wszystkie dostępne...
Dzień dobry, mam utworzony excel z userformem. Skoroszyt działa w ten sposób, że podczas włączenia pliku w pierwszej kolejności pojawia się User Form. Użytkownik loguje się. Po zalogowaniu uruchamia się makro, które zmienia poszczególne zakładki z veryhidden na visible. Użytkownik wprowadza dane w odkryte zakładki, zapisuje plik i później wchodzi tak...
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...
Witam Do formatowania dat w TextBox-ach używam poniższego makra. Jak zrobić, żeby takie jedno makro działało na wielu TextBoxa-ch o różnych nazwach? Potrzebuję, aby to makro działało na około 60 TextBox-ach. Jak mogę dodać je do tego makra? [syntax=vb]Public Function FormatyDat() As String With UserForm .TextBox = Replace(.TextBox, "-", ".") .TextBox...
Problem przedstawiłaś dosyć czytelnie, próbujemy Cię raczej przekonać, że po co maska, po co te ograniczenia? :D Użytkownik ma wpisać poprawną datę - jeżeli Excel rozpozna ją funkcją IsDate() to w zupełności wystarczy, a o ile problemów mniej... Nieprawdaż?? ;P
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...
Worksheet_SelectionChange(ByVal Target As Range) Ale tu widać że procedura reaguje na zmiany zaznaczenia w arkuszu, a tobie potrzebne są reakcje na otwarcie arkusza. 1. Pojawił się module1 z procedurą "g" - ile wiem w modułach piszemy procedury dla Arkuszy 2. W "ten skoroszyt"(Excel2010 procedury "private") odnoszą się do całego skoroszytu Za dużo chaosu...
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,...
mam okno UserForm w którym jest tylko jedna kontrolka (...) TextBox zaczyna wykonywanie funkcji po kliknięciu na niego W takim razie dlaczego TextBox? Intuicyjnym rozwiązaniem jest Command Button. Tekst, jeżeli występuje, możesz przypisać do Caption. Jeśli to istotne, wygląd sformatować tak, żeby przypominał TextBox.
Witam, mam taki kodzik na UserForm : http://obrazki.elektroda.pl/1634274300_1... i nie wiem bardzo co mam wpisać w polu ".Picture = LoadPicture("C:\Image Excel ActiveX Control Object.jpg")" '???' Aby ładował się wybrany plik przyciskiem "wybierz zdjęcie" Jakie pomysły ?
Witam, chciałbym skopiować dane po nacisnięciu przycisku z userform z otwartego pliku txt np: "C:\notatnik.txt" do textbox w userform (mam 5 textboxów gdzie dane z 5 wierszy w pliku txt mają być skopiowane do textboxów np: 1 wiersz z txt do textbox1, 2 wiersz z txt do textbox 2 itd). Po każdym imporcie danych plik txt jest czyszczony i zapisywany. https://obrazki.elektroda.pl/6886566600_...
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...
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...
Po wstępnych oględzinach działa super. Jutro dostosuję to do moich potrzeb, bo raczej chcę ten kod implementować w plikach właściwych, na których pracuję, a nie robić osobny plik sterujący. Tak swoją drogą to myślałem, że sam kod będzie bardziej rozbudowany :) . Dodatkowo mam pytanie dotyczące metody Application.GetOpenFilename, z której to czasami...
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 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...
Tak nie dobrze? Private Sub UserForm_Initialize() MultiPage1.Value = 4 End Sub
Tag aktywnego formularza potrzebuje do innych celów. Odpada. Ale ja w zasadzie nie zamykam UserForm, tylko ukrywam (Hide). Wtedy mogę .Tag wykorzystać, prawda? Jestem samoukiem, więc możliwe, że to kala sztukę programowania. Ale w końcu piszę program wyłącznie dla siebie. Chodzi mi najwyżej po głowie darmowe udostępnienie kodu chętnym, dlatego nie chciał...
Nie, nie spowolni. Userform jest jeden, a datę wpisuje po prostu w zaznaczoną komórkę bądż w kilka wybranych. Tutaj jest taka dowolnoać, że można zrobić praktycznie każdą opcję. Niestety bez znajomosci VBA nic nie zdziałasz. Pozdrawiam
Witam. Bardzo proszę o pomoc w napisaniu odpowiedniego kodu, niestety ja sobie nie umiem z tym poradzić. Potrzebuję aby kod sprawdzał mi czy w wybranym folderze istnieje plik "PDF". Dokładnie to mam w oknie UserForm TextBox o nazwie "txtNazwiskoImie" w którym pokazuje mi się pracownik. W osobnym folderze (ścieżka folderu jest taka sama jak główny plik)...
Drugie pytanko jest związane z możliwością wizualizacji w UserForm paska postępu działania makra. Jak wygląda utworzenie takiej wizualizacji dla poniższego kodu? Załączam - jako przykład -prosty pasek postępu działający nie w userForm, ale w arkuszu. Reszta opisu w pliku. Jak to zrobić na formie? Można analogicznie, używając zamiast obiektu Shape kontrolkę...
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...
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...
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...
wolałbym jednak zrobic to w excelu Rzecz w tym, że ostatni znak w stringu skanera musi być Enter'em (char 13), w przeciwnym wypadku komórka pozostanie w trybie edycji. Jeśli nie chcesz grzebać w konfiguracji skanera, to spróbuj z UserForm i sprawdzaniem długości ciągu przy TextBox_Change. Dołóż "licznik" sczytanych kodów, label z poprzednią zawartością...
Przeglądając forum znalazłem fajny kalendarz zrobiony w exelu w userform przez (at)marcinj12. Oryginalny temat : [url=http://www.elektroda.pl/rtvforum/to... Pytanie mam następujące czy do tego kalendarza oprócz wyboru daty można dorobić wybranie godziny i wstawieniu do komórki jako np: 2016-01-12 06:00
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...
excel userform excel wyszukiwanie userform userform textbox excel
skręcać kabel poszerzenie efektu stereo nagrywa pendrive
sonda diagnostyczna zabezpieczenie przedlicznikowe
Grzejniki żeliwne – różnica temperatur zasilanie-powrót 3°C, Ferroli, Viessmann, regulacja ΔT Schemat podłączenia modułu WQP12-7601.D1-1 V1.2 w zmywarkach Midea
