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...
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() 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]
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...
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 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...
[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ę...
Cells(NextRow, 1) = Cells(NextRow -1, 1) + 1
Chyba najprościej będzie wykorzystując UserForm(ik) z pętelką.
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]
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) & "...
[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]
Może tak...
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...
Tutaj [url=http://www.tek-tips.com/faqs.cfm?fi... gdzie jest opisane co i jak. W załączniku: zastosowanie w Twoim przypadku. Dorobiłem i podstawiłem do wywołania nową procedurkę.
Może(w jednym programie ). Nie może w tym samym UserForm kilka UserForm_Initialize lub UserForm_Activate etc.
Tu dodałem jeszcze usuwanie wiersza z pewnymi zabezpieczeniami edit: Teraz mi przyszło że zamiast przycisku edytuj kod z pod tego przycisku można umieścić na podwójnym kliknieciu w listbox (na danym wierszu) wtedy dane się zczytają do okienek edycyjnych. Podmieniłem załącznik
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
Tak nie dobrze? Private Sub UserForm_Initialize() MultiPage1.Value = 4 End Sub
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'
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]
Przy podwójnym kliknięciu to będzie coś takiego: [syntax=vb]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column > 2 And Target.Column < 6 Then UserForm1.Show End If End Sub [/syntax]
Witaj A1...A30, ......G1...G30 co to jest? Objekty? (TextBox, Combo, Button, UserForm) ?
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...
Witam, Możesz to zrobić prościej - przekazując referencję do kontrolki jako argument funkcji. Przykład: [syntax=vb]Private Sub TextBox1_Change() Call Wiadomosc(TextBox1) End Sub Private Sub TextBox2_Change() Call Wiadomosc(TextBox2) End Sub Private Sub TextBox3_Change() Call Wiadomosc(TextBox3) End Sub Private Sub Wiadomosc(ByRef sender As MSForms.TextBox)...
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, 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 :)
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 ;)
Pierwsza metoda - zdefiniować niektóre zmienne globalne i używać ich do przekazywania danych w innej formie
miał na myśli przykładowy plik programu Excel z tym UserForm
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]
Trzeba odpowiednio sformatować wynik. Załącz przykładowy plik, a nie obrazki.
Zerknij do załącznika. Kod w arkuszu + UserForm. Kod uruchamia dwuklik w zakresie E2-E22 ;)
Poniżej przykład do pierwszej zakładki. Resztę zrobisz sobie analogicznie.
google -> VBA pętla for Linków tam od groma :)
Mam je wstawione na UserForm
zamiast exit sub daj pustą funkcję albo przypisanie jakiejś zmiennej do samej siebie
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.
Ale to będzie 'pomógł' ? :)
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...
...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...
Udało mi się uporać z usuwaniem wybranej pozycji. Natomiast nadal jest problem z dodawaniem, tzn. dopóki dodaję kolejne pozycje do bazy i nie zamknę userforma z dodawaniem jest prawie ok. Prawie, bo baza nie zawsze na bieżąco aktualizuje listboxa. Większy problem pojawia się wtedy kiedy zamknę userforma odpowiadającego za dodawanie firmy do bazy i włącze...
Z tym pierwszym.
Witam, załączyłem poprawny plik z userformami
Pokaż co zrobiłeś do tej pory, załącz przykładowy plik (xlm spakuj do zip ).
Podana odpowiedź nie rozwiązała problemu. Rozwiązanie problemu znalazłem za pomocą Google - www.onlinepclearning.com/excel-userform-...
Już znalazłem błędy - temat od zamknęcia
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.
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łę.
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"...
Słowem: korekta OstW (walek33) i UserForm zamiast MsgBox (marek003)...
Jeżeli masz zainstalowanego Adobe Readera, to po prostu zarejestruj makro w Excel-u, dodając na ekran nowy object : http://obrazki.elektroda.pl/9498049200_1... I zobacz co się zapisze. Potem możesz modyfikować ustawienia. Poszukaj w Google takiej frazy : "adobe pdf reader activex control vba".
Witam, Posiadam programik (nie ja go pisałem) który zmienia format liczby w zależności od podania ilości liczb znaczących oraz rozdzielczości liczby. Programik działa idealnie. Programik jest przypisany do Worksheet Arkusza1. Natomiast chciałbym program ten połączyć z UserForm wraz z textboxami. Podanie w textboxach liczby cyfr, rozdzielczości oraz...
Dzięki za podpowiedz, może powinienem załączyć plik od razu pewnie było by łatwiej, Pytam się o ten kod ponieważ jestem kompletnym laikiem w projektowaniu VBA (jeszcze 2 m-ce temu nie wiedziałem co to jest userform :)), Pozdrawiam
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?
Jestem początkujący w temacie VBA więc nie wszystko zrozumiałem. Poprawiłem typ Change na Click i nic to nie dało /wręcz pogorszyło ponieważ dane w UserForm mogę teraz zmieniać/ dalej szukając np. nowak i wychodząc przyciskiem wyjście makro działa w tle bo nie kończy pętli. Działanie pętli powinno być przerwane po naciśnięciu /zlecenie, faktura, wyjście...
też zmieniam na jeden userform Jeszcze jakbyś pożegnał Excel jako magazyn danych, na rzecz prawidłowo użytego SQL Programiści na normalnych narzędziach (upraszczając) mają gdzieś ilość stanowisk, ilość miesięcy itd. Zaprezentowanie "usług wg stanowiska i miesiąca" to jest tylko widok, okno (okno w sensie wycinka tabeli / wycinka czasu) z JEDNEJ tabeli...
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ę :!:
Mam jeszcze jedno pytanie- mam w userform pola tekstowe textbox oraz przycisk. Chciałabym, aby po jego przyciśnięciu wszystkie pola były puste, bez tekstu. Ale tych pól mam dość sporo i nie chcialabym do każdego pisać oddzielnie komend txtBox1.Text= Empty bo zajęłoby mi to mnóstwo miejsca. Czy jest jakaś mozliwośc by w krótszej komendzie objąć zakres...
Ł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.
Witam. Mam pytanie odnosnie otwierania plików w wywołanym folderze przez makro. Mam bazę pracowników, każdy pracownik ma swój folder w którym są dokumenty od danego pracownika. Menadżera z wybranym folderem wywołuje tym makrem: [syntax=vb]sciezka = ActiveWorkbook.Path & "\Dokumenty\Pracownik\" & NazwiskoImie If Dir(sciezka, vbDirectory) = "" Then MsgBox...
Idealnie. Bardzo dziekuje!
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ł.
Panie Macieju, wrzucam plik. Makro jest w UserForm w przycisku "Zaloguj" Login: Jan1 Hasło: 12
Teraz wiem w czym problem. Twoja podpowiedź dotyczy trybu projektowania z poziomu arkusza excel. Moje pytanie dotyczy listbox'a umieszczonego na formatce userform.
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ą,...
W v.2007 działa (jeszcze) otwieranie w nowej instancji. Spróbuj [syntax=vbscript]Dim oExcel As Excel.Application Set oExcel = CreateObject("Excel.Application") oExcel.Workbooks.Open Filename:="c:\plik.xls" oExcel.Visible = True 'albo nie (domyślnie jest False) jeśli tylko pobierasz dane i zamykasz oExcel.Workbooks(1).Close SaveChanges:=False oExcel.Quit...
Kolega cbrman rzucił dobrą myśl. W przykładzie poszedłem ciut dalej. Lista w UserForm uruchamiana podwójnym kliknięciem. Spróbuj...
próbowałam coś z User Form Powinna koleżanka spróbować coś ze zdarzeniem arkusza 'Worksheet_SelectionChange'. To co nie wychodziło w UserForm, powinno tu zadziałać.
Nie, do UserForm. For Each to znaczy "Dla kazdego"
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.
a jak uruchomię UserForm to na liście nic się nie pojawia ;/ Zmień zdarzenie Private Sub UserForm_Initialize()
czy ktos moze pomoc rozwiazac problem? Najlepiej pomóż sobie sam :D Otwórz edytor VBA (najlepiej przy otwartej "matce" i kopii) i porównaj sobie kody modułów jednego i drugiego pliku, oraz kody UserForm-ów. Uzupełnić to możesz lekturą np https://www.cognity.pl/kurs-vba-procedur...
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...
Mogłbyś prościej wytłumaczyć? Wchodzę do Visual Basic Excel tworzę nowy Userform, Wlkejam do Code ten kod z VB i co dalej? Na pasku znalazłem View-->Object ale to chyba nie to..
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]...
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 W tej formie coś mi nie chodzi. Po dwukrotnym kliknięciu w UserForm na CommandButton wpisuje: Worksheets("Arkusz2").Activate i żadnej reakcji.
Ad.1 Zerknij do ostatniej linii UserForm_Initialize. Tam jest przypisanie listy ComboBox'a do tablicy. Odwróciłbym to. Wykorzystałbym tę tablicę globalnie, z wypełnieniem jej już przy otwarciu pliku. W UserForm2 zamiast dodawania wartości do listy ComboBox'a w pętli, przypisywałbym tablicę. Plik co prawda będzie się otwierał ciut dłużej, za to inicjacja...
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...
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...
... vba działa tak jak powinno ale po przeniesieniu do właściwego pliku i zmianie zakresów przestaje pokazywać miejsce docelowe jeszcze nie wiem o co chodzi ... ... :) ... warunki graniczne ... :) ... jak się je zmieni, to będzie działać dla innych ... :) ... to był tylko 'przykład', jak ten poniżej , dla całego arkusza w zakresie komórek: 65536 wierszy...
Poprawione, przepraszam za nieporozumienie
Niestety nie mogę zobaczyć pliku, nie mogę go nawet pobrać z internetu - admin zablokował. No to teoretycznie: Tak sobie myślę skąd makro ma wiedzieć z którego pliku pobrać dane? Sprawdź czy jest to jawnie określone w RowSource. Nazwany Range też może nie mieć właściwego (pełnego) adresu i próbuje brać z ThisWorkbook. Wyświetl sobie co tam dokładnie...
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...
Me.Hide ukrywa mi Ps3 kupno i otwiera userform do dodania gry
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...
Witam, proszę o pomoc - tworzę makro, które wrzuca na userform dane tekstowe (są to etykiety cenowe) z arkusza. Czy istnieje polecenie, które zapisuje formatkę jako plik .jpg bądź jakikolwiek inny obrazek? Póki co drukuję jedną po drugiej, a chciałbym, by zapisywały mi się one na dysku. z góry dziękuję za pomoc
Witam Może coś takiego [syntax=vbnet]Private Sub ComboBox1_Change() obszar = "B1:T" & Cells(Rows.Count, "B").End(xlUp).Row TextBox1.Text = Application.VLookup(ComboBox1.Value, Sheets("Arkusz1").Range(obszar), 2, 0) TextBox2.Text = Application.VLookup(ComboBox1.Value, Sheets("Arkusz1").Range(obszar), 3, 0) TextBox3.Text = Application.VLookup(ComboBox1.Value,...
Taka informacja była. "Rozwiązano problem z częstszą kompilacją makr VBA." :-? Podczas uruchamiania realizuję kod poniżej. Może coś rzuci się w oczy. skróty klawiaturowe które są wyłączane na końcu, to: 'Customize File functions Application.OnKey "^{n}", "" 'New Application.OnKey "^{o}", "" 'Open Application.OnKey "^{p}", "" 'Print Application.OnKey...
Excel nie ma kontrolek typu linia w zasobniku. Kod, który pokazałeś nie jest tym, czego szukasz. Owszem wyrysujesz linię na ekranie, ale nie jest to linia na formie. Pozostaje skorzystanie z autokształtów. Zobacz [url=http://www.andypope.info/vba/userfo... Do ściągnięcia pożyteczny w takich przypadkach dodatek (UFDrawer.xla) z formularzem...
Można to zrobić np w ten sposób:[syntax=vb] Dim Nazwane_zakresy(2) Private Sub UserForm_Initialize() Nazwane_zakresy(0) = "zakres1" Nazwane_zakresy(1) = "zakres2" Nazwane_zakresy(2) = "zakres3" ComboBox1.List() = Nazwane_zakresy ComboBox1.ListIndex = 0 End Sub Private Sub ComboBox1_Change() ListBox1.RowSource = ComboBox1.List(ComboBox1.ListIndex) End...
Jak najszybciej i najprościej przemieścić informację z textboxa do listboxa o ograniczonym zakresie komórek (30)? Pytanie jest spowodowane brakiem wiedzy i pomysłu.
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,...
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...
Witam raz jeszcze, Mam nadzieję, że piszę już po raz ostatni w tym temacie, ale nie daje mi on spokoju, ponieważ makro traktuje wszystkie procedury jako True. A sądząc z warunku If, jeśli nie znajdzie odpowiedniego wymiaru w tabeli, to powinno być False. Nie wiem też czemu po podświetleniu w kodzie słowa knyps, zawsze wyświetla się knyps=True, a moim...
Dzięki. Już zdążyłem to znaleźć w międzyczasie. I ile zauważyłem to drukarka zmienia sie w Office 2010 w 2013 już nie. Korzystam z userform. Pzdr.
Doraźne rozwiązanie problemu to przy aktywacji danie focusa każdemu LBoxowi. ListBox1.SetFocus Tak po kolei dla wszystkich w UserForm_Activate.
Witam Próbuję odwołać się do procedur z poziomu vba, ale powstaje błąd 449 arument not optional i nie bardzo wiem co z tym fantem zrobić. Chciałbym, żeby procedury były wykonywane dlatego odwołuję się do nich za pomocą Call. Może coś robię nie tak, dziękuję za każdą pomoc, kod wygląda tak: Błąd występuje w linii Call OpenEcxel. Te procedury znajdują...
excel userform userform textbox excel userform excel lista
halogenowy transformator zasilacz zawodny cieknie pojemnika proszek
odkurzacz xiaomi odkurzacz xiaomi
Błąd CRC pamięci aplikacji w bootloaderze 1.12 Co to są decybele w elektronice? Wyjaśnienie i zastosowanie