[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ę...
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]
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) & "...
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'
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
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ć.
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...
zamiast exit sub daj pustą funkcję albo przypisanie jakiejś zmiennej do samej siebie
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]
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]
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...
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...
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"...
Trzeba odpowiednio sformatować wynik. Załącz przykładowy plik, a nie obrazki.
Tak, schodząc do poziomu bibliotek systemowych, klas bazowych i komunikatów Windows można zrobić z oknem wszystko. Dobre ćwierć wieku nie oglądałem już WM_MESSAGE :)
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...
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...
[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]
Witam, załączyłem poprawny plik z userformami
Pokaż co zrobiłeś do tej pory, załącz przykładowy plik (xlm spakuj do zip ).
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łę.
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')
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ę :!:
Już znalazłem błędy - temat od zamknęcia
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.
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
gdzie dokładnie podmieniłeś ten skrypt?
Idealnie. Bardzo dziekuje!
Z tym pierwszym.
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.
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
Poprawione, przepraszam za nieporozumienie
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...
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"...
Panie Macieju, wrzucam plik. Makro jest w UserForm w przycisku "Zaloguj" Login: Jan1 Hasło: 12
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...
Cells(NextRow, 1) = Cells(NextRow -1, 1) + 1
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.
Ł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.
miał na myśli przykładowy plik programu Excel z tym UserForm
okno userform wywołuję tak: Private Sub Workbook_Open() WYDRUK_ETYKIET.Show End Sub w moim przypadku najpierw włącza się excel - potem userform - następnie arkusze się minimalizują a skoroszyt nie - a chodzi mi o to aby cały arkusz włączał się zminimalizowany a userform zmaksymalizowane
Mam je wstawione na UserForm
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...
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????
Tak nie dobrze? Private Sub UserForm_Initialize() MultiPage1.Value = 4 End Sub
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ł.
a jak uruchomię UserForm to na liście nic się nie pojawia ;/ Zmień zdarzenie Private Sub UserForm_Initialize()
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...
userform excel excel wyszukiwanie userform userform textbox excel
regulator wentylator termistor instalacja elektryczna norma memtest wyniki
interfejs diagbox elektryczne ogrzewanie podłogowe
Regulator obrotów silnika okapu kuchennego – dobór, typy, filtracja EMI Ustawienie anteny satelitarnej Hot Bird 13E w Niemczech – azymut, elewacja, skręt LNB
