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...
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...
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 ).
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ę :!:
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ć ?
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...
[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]
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.
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...
...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...
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')
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.
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...
excel userform excel wyszukiwanie userform userform textbox excel
aktualizacja dekoder skymaster usbasp sterownik środek czyszczący
interfejs diagbox fiesta tylne światła
Pikanie elektroniki przy zmianie biegów w Volvo C30 - przyczyny i diagnostyka Termet MiniMax Elegance: Błąd E01 i Wybuchowy Start
