Żaby zachować focusa na kontrolce, musisz wykorzystać zdarzenie, które pozwala anulować akcję, np.BeforeUpdate, w sposób podobny do tego: [syntax=vb]Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Cancel = Not CzyNumer(TextBox1) End Sub Private Function CzyNumer(ByRef ctrl As MSForms.TextBox) If Not IsNumeric(ctrl.Value) Then...
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...
No właśnie dlatego mam mały problem, bo mam okno UserForm w którym jest tylko jedna kontrolka TextBox, dlatego pytam czy mogę usunąć fokus bez jego przenoszenia do innej kontrolki (której akurat nie ma, może źle to ująłem żeby przenosić makrem). Wiem że w ostateczności mogę wykorzystać pomocniczą kontrolkę którą ukryję, ale czy mogę to zrobić bez pomocniczej...
Zawsze możesz wyświetlić cały PDF - w odpowiedniej skali, choć to głupie rozwiązanie. Pewnie istnieje jakaś kontrolka zrzucająca stronę PDF-a do jpg'a. Programy pdf2img/pdf2tiff są, ale nie o nie tutaj chodzi, tylko o generowanie miniaturki dynamicznie, prawda?
Jest tam wykorzystana kontrolka 'dtPicker' Potwierdzając problem z cytowanego przez autora wątku i dyskusję o problemach z tą kontrolką - oto zachowanie tego pliku na moim komputerze :) http://obrazki.elektroda.pl/5826995400_1... Czyli tak jak mówiliśmy - dateTimePicker = samo zło :D Plik kalendarza rozbudowany o textbox do wyboru godziny...
...ListView, który jest inną kontrolką niż ListBox (ma inne właściwości i inaczej się do niego ładuje dane). Ten sposób ListView2.ListItems = "'BAAN 3'!G8:K97" ładowania danych NIE JEST poprawny dla ListView, zapomnij o nim. To działa tylko z ListBox'em. USUŃ z formy wszystkie ListBoxy które tam miałeś... Zamiast nich wstaw i skonfiguruj...
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"...
(at)clubs - Spróbuj z kilkoma obrazkami przy otwartym formularzu (wiele przycisków lub w pętli /animacja/) Sprawdziłem na dwóch przyciskach jak i w pętli z czterema obrazami przechodzącymi między dwoma kontrolkami i brak 'mignięcia' :)
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...
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...
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.
Witam, Stary temat ale nie skończony. Czytałem dużo na ten temat i wszędzie trzeba kontrolkę skopiować do system32. Tak właśnie robię (dziwne bo w Viscie już był identyczny plik, zaraz po instalacji windowsa). Jednak potem wybierając kontrolkę, z Userform nie jest ona dostępną, próbowałem w Viscie, XP i 7. Stąd moje pytanie, czy udało się Wam uruchomić...
Witam ! Mnie wyszukanie metody zapewniającej założoną funkcjonalność zajęło 6 dni :cry: Jestem pewien na 100%, że można to zrobić na kilka innych sposobów :D i lepiej, ale muszę Ci zwrócić uwagę, że przy wszelkich modyfikacjach kodu trzeba dokładnie przeanalizować funkcjonowanie całego projektu :kody kontrolek userform, kody związane z wykorzystywanym...
Nie poddałem się i w końcu zajarzyłem. [syntax=vb]Private Sub CommandButton1_Click() Dim wiersz As Long If Me.OptionButton1 Or Me.OptionButton2 Then wiersz = Val(Me.Label1) kolumn = Range("h" & wiersz) If Me.OptionButton1.Value Then ocena = 1 Else ocena = 0 Sheets("ARK_1").Cells(wiersz, kolumn) = ocena Sheets("ARK_1").Cells(wiersz, kolumn) = 0 - Me.OptionButton1...
Dlaczego sprawdzać wszystkie w pętli? Przecież można przekazać argument (nazwę/indeks kontrolki) do procedury w module...
Można użyć niektórych właściwości formantów(kontrolek), np. Tag
Jak szukałem czegoś na ten temat to zauważyłem, że trzeba użyć ! zamiast kropki. U mnie się to nie przydało, więc się nie wgłębiałem, ale coś jest na rzeczy. Co do usuwania to być może służy do tego metoda (Me.Controls.)Remove. Proponuję doczytać, bo też jeszcze nie usuwałem kontrolek.
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...
Cześć, Wyszło 2,5 tys. bo: - Planowanie jest tygodniowe więc chciałem mieć widoczny cały tydzień co kiedy było zrobione a tam: - Plan 20 linii produkcyjnych (linia, asortyment, ilość, start, stop, ile wg normy, ile kg) - Realizacja (praca na 3 zmiany więc 21 "Arkuszy"). Teraz zmieniam aby był jeden userform do wprowadzenia Realizacji a poszczególne...
Jest, ale w Initialize są odwołania do nieistniejących kontrolek (albo pomyliłeś nazwy): TextBox26 ComboBox1 Zaapostrofuj i pójdzie... Druga sprawa - zapisujesz plik: ActiveDocument.SaveAs FileName:="NOWY PLIK" & ".doc" Spróbuj z okienkiem dialogowym, Poniżej przykład kodu: Application.Quit
Generalnie Activex jest stworzony dla 'userform' a nie dla 'arkusza' czyli nie da się w tym momencie do kontrolki napisać kodu No można tylko ile masz tych kontrolek do oprogramowania? i co to za kontrolki
dt1 - wpisując dane przesuwa mi Okienko w lewo.Niestety nie mogę przesunąć tylko w górę. Ponieważ drugie okienko będzie takie samo jak pierwsze, tylko krótsze, chcę ustawić go tak aby zaczynało się w tym miejscu co pierwsze i w kontrolkach powinny być widoczne wpisane w pierwszym Okienku wartości.
Chyba Twój problem ma rozwiązanie Frame grupuje kontrolki i odwołując się do nich powinieneś odwoływać się przez Frame
A czemu ta indeksacja nie działa? Dlatego, bo Twój sposób odwołania się do kontrolki jest nieprawidłowy. Możesz zrobić też tak: [syntax=vbscript] If Me.Controls("checkbox" & i) Then [/syntax] andie
Skoro tylko jeden rekord, to wystarczy, w UserForm_Initialize przywrócić wartości poszczególnych kontrolek. Tak naprawdę nie potrzebujesz dwóch przycisków - wystarczy jeden, który załaduje dane z istniejącego formularza (ten z UserForm1.Show). Cały kod zapisywania zamiast w module Formularze_VBA, proponuję umieścić bezpośrednio w zdarzeniu kliknięcia...
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ę...
Jak pisze w pomocy Sends a bit-by-bit image of a UserForm object to the printer. (...) PrintForm prints all visible objects and bitmaps of the UserForm object. PrintForm also prints graphics added to a UserForm object. (...) The printer used by PrintForm is determined by the operating system's Control Panel settings. Nie masz wpływu na wydruk tą metodą....
Ano tak to już jest z Excelem ;) Nic nie jest doskonałe... Sama forma i jej podstawowe kontrolki są elementami tej samej biblioteki (FormCoćTam.dll). Natomiast ListView to w skrócie element "doklejony" z innej biblioteki (CośTam.ocx). Stąd "różne" zachowanie. Nie wiem do czego (nie opisałeś tego) potrzebne Ci zdarzenie przy aktywacji, ale jeśli możesz...
Witam W programie mam kilka Okienek. W pierwszym wpisuję dane w kontrolki Textbox . Po wpisaniu określonego znaku w jedną z kontrolek wywołuję drugie Okienko i chciałbym aby w nim skopiowane zostały dane z pierwszego Okienka w kontrolki o tej samej nazwie (kontrolki mają te same nazwy co w pierwszym, ponieważ zostały skopiowane i pewna ich część została...
"Me." wewnątrz UserForm'a oznacza UserForma. Nie ma znaczenia jaką on ma nazwę. Tak samo, jak ThisWorkbook. - Nie ma znaczenia, jaką nazwę ma arkusz. Można stosować "Me." w zakłądce "ThisWorkbook" w edytorze VBA i da taki sam efekt jak "ThisWorkbook." Tak mi się przynajmniej wydaję. ;> Co do kodu kolegi - Tam było [syntax=vb]With Sheets("Arkusz1") .cmd1.enabled...
Dzieki bardzo, Wlasnie chcialem dac ci znac ze ogarnalem temat, jesli mozna mam jeszcze dwa pytania, co do pytania odniosnie nazw kontrolek to zapisuje je tak zeby pozniej wiedziec o co chodzi - mam mala sciage, (wiem ze to moze wydawac sie smieszne, ale dopiero sie ucze) 1) w tym samym userform udalo mi sie zrobic podsumowanie z listbox (textbox1)...
...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ś...
Nie ładują się comboboxy w UserFormie . Mam otwarte dwa pliki Excela na 1 monitorze , na drugim edytor VBA . W momencie uruchamiania formularza F5 gdy nie jest kliknięty plik odpowiadający uruchamianemu formularzowi , kontrolki texbox i listbox są puste . Nie wiem czy to może powodować jakieś komplikacje przy użytkowaniu przez inne osoby ? Pliki pobierają...
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...
Jestem raczej początkujący w tym temacie :( nauczyłem sie już jak uzywać kontrolek, no i przyszedł czas na ListBox. W necie jest sporo teorii ale nie potrafie znaleźć przykładu. Chce umieścić ListBox na arkuszu excela aby móc wybrać i odczytać w VB co zostało wybrane.. Nie wiem jak używać UserForm - ktoś na elektrodzie pisał ze kod powinien być tam...
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...
Microsoft Date and Time Picker Control: tak jak dodawałeś ListView do listy kontrolek na toolboxie, dodaj element Microsoft Date and Time Picker Control (ja mam w wersji 6.0 (SP6)). Potem przeciągasz go na formę, nadajesz wymiar i ustawiasz parametry który chcesz mieć: Format - format w jakim wyświetlana jest data, użyej ShortDate albo 3-custom (wtedy...
Wypełnianie kontrolki ComboBox danymi: '/ wypełnianie kontrolki ComboBox1.AddItem dane Next x ComboBox1.ListIndex = 0 indeks = (ComboBox1.ListIndex) End Sub '/ przepisanie do okienka txt1 = ComboBox1.Value End Su[/syntax]b Mniemam że, jak kolega będzie tworzył tyle formatek na ekranie , to zgubi się lada moment z kodem. Do wyświetlania lub pobierania...
Nie jest to zapewne najbardziej elegancki sposób, ale zrobiłam tak: 1. najpierw program liczy ile jest "AR;" w komórce E6 2. potem, jeżeli tych AR (język arabski) jest więcej niż 1 to usuwa wszystkie i dodaje z powrotem tylko jeden Zrobiłam to tylko dla AR, ale jak przekopiujesz ten kawałek i wpiszesz nazwy innych kontrolek to będzie po kolei sprawdzał...
Witam, Dzisiaj dodałem do mojej UserForm dodatkową kontrolkę Comboboxa. Zauważyłem że po wybraniu w comboboxie jakiejś wartości i przyciśnięciu guzika sprawdź zamienia mi wybraną wartość w comboboxie na numer -2147483643. Dzieje się to w momencie kiedy jest określany kolor comboboxa. Poniżej kod .cmbsezuordstandort6 = &H80000005 'tutaj zamienia...
Przykładowe rozwiązanie Dodajesz pole krok typu int. Tworzysz główną metodę, która będzie zajmowała się wyświetlaniem paneli (może też odczytywać wpisane wartości w kontrolkach itp). Będzie ona realizować wyświetlanie na podstawie aktualnej wartości kroku. Dodatkowo piszesz metodę dla przycisku >, który będzie zwiększał krok o jeden oraz dla przycisku...
Witam W pierwszym Okienku1 w kontrolce TextBox wpisuję literę np. "x" co wywołuje drugie Okienko2 . Chciałbym aby w nim uaktywniło (już wpisane) te same wartości co były w pierwszym Okienku1 (TextBoxy i ComboBoxy). Chciałem zapytać jak to zrobić?
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]...
Projektując formę, we właściwościach comboboxa masz RowSource. Możesz je ustawić tak, aby wskazywało źródło danych w arkuszu, np. [syntax=vb]Sheet2!A1:A7[/syntax] Jeżeli zakres może się zmieniać dynamicznie, wtedy np. w zdarzeniu Initialize formy wstawiasz: [syntax=vb]Private Sub UserForm_Initialize() ost_w = Sheet2.Cells(Sheet2.Rows.Count, 1).End(xlUp).Row...
Nie potrzebujesz dwóch okienek :) Rzutnik i tak wyświetla to, co masz na ekranie. Przeanalizuj kawałek kodu który na szybko napisałem w VBA w Excelu ;) Ja to zrobiłem tak: na formie umieściłem Label'e odpowiedzialne za: wyświetlanie odpowiedzi, wyświetlanie punktów zawodnika oraz 6 ukrytych (Visible = false) z X: po 3 z każdej strony, odpowiednik błędów....
myślałem ze przy uruchomieniu userforma ma się tylko czyścic zobacz teraz swoją drogą trochę to dziwnie rozwiązałeś no i zakresy masz ustawione na sztywno
Na początek drobna rada. Zapoznaj się trochę z teorią ;). A co do przykładów to do zmiennej typu string nie da się doczepić obrazka a na taką mi ZmiennaZNazwa wygląda. Potrzebny jest obiekt. Druga część problemu jest prosta i nie powinna Ci przysporzyć kłopotów. Rozumowanie prawidłowe. Zabrakło mi tylko właściwego wykonania. [syntax=vb]UserForm1.Image2.Picture...
Najprostszy sposób - zapisuj to w jakieś komórce excela. Przy starcie - odtwarzaj. zawsze to jakieś rozwiązanie ale strasznie dużo tych kontrolek i ustawień. Niema czegoś bardziej profesjonalnego? Coś w stylu "userform1.savesetting" hehe ; )
Nie ma za co. Mam tylko nadzieję, że nie pisałeś sześć razy LB.SetFocus (to tak trochę nieprofesjonalnie :D ) a zastosowałeś pętelkę w stylu: Dodane: A żeby jeszcze bardziej namieszać Ci w głowie to te sześć linijek zamieniłbym na trzy: [syntax=vb] For Each oListBox In Controls If TypeOf oListBox Is MSForms.ListBox Then oListBox.Value = element(Right(oListBox.Name,...
Witam Uaktywniłem drugie Okienko i wpisałem w kontrolki TextBox dane. Chciałbym dane z drugiego Okienka wpisać w tabelę - z pierwszego Okienka dane wpisywane były bez problemu w tabelę. Nie mogę sobie poradzić z tym problemem, dlatego wysyłam program i proszę o pomoc.
Chciałbym prosić o pomoc w poradzeniu sobie z błędem jak w temacie. Pracuje nad excelowym makrem w którym wykorzystuję metodę „AfterUpdate()” , w trakcie wykonywania makra pojawia się czasem powyższy błąd czego efektem, najczęściej jest zawieszenie się excela i ekran odzyskiwania dokumentu. Przyczyną błędu wydaje mi się, że wiem co jest....
userform excel formularz userform userform makro
drukarka brother drukuje białe kartki comodo polska agregat prądotwórczy pompa wtryskowa
fabia czujnik biegu zdalne sterowanie silniczkami
Wieża Thomson MS4200 - Gubienie stacji radiowych Jak zwiększyć prędkość wózka Invocar Leo?
