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...
A nie byłoby prościej utworzyć listę przy Initialize na podstawie wartości z combo UserrForm1 ? Podmień procedurę w UserForm2 na [syntax=vb]Private Sub UserForm_Initialize() firma = UserForm1.ComboBox1.Value wrs = 2 ComboBox1.Clear With Sheets("Arkusz2") Do While .Cells(wrs, 4) <> Empty If .Cells(wrs, 4) = firma Then ComboBox1.AddItem .Cells(wrs,...
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.
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ą...
Witam, Czy można na formie dynamicznie tworzyć etykiety (Label), ListBox, ComboBox w zależności od zadanej liczby? Ta liczba zawsze będzie zmienna. Poniżej kod programu, który dla 5-ciu etykiet nazwanych Label1....Label5, wstawionych do UserForm, w pole Caption wpisuje odpowiednie wartości z Excel'a. [syntax=vb] Dim i As Integer ' zmienna pomocnicza...
Słuchajcie mam cos takiego: Szanowni koledzy juz sie trudze i trudze i ni hu hu nie umiem dobrnąć do konca :( otóż robię makro symulujące losowanie multilotka z tym ze potrzebuję jeszcze takiego myku który bedzie wskazywał ilość trafień. Zrobiłem juz user forma i skrypt mniej wiecej taki: Option Explicit Private Sub CommandButton1_Click() Dim Ilosc_liczb...
Skoro uparłeś się na Excel... Jeśli nie potrzebujesz dokumentów magazynowych, to sprawa jest dość prosta, a widziałbym to tak: 1. Potrzebna "Baza" - osobny arkusz z asortymentem i przypisanymi kodami. Wszystkiego 3 kolumny 2. Wyszukiwarka, najlepiej w postaci UserForm (jedno pole txt, przycisk [Zamknij] + ew label z z info o ostatniej operacji), z funkcją...
czy ma ktoś jakąś instrukcję jak krok po kroku zrobić taki kalendarz??? nie proszę o gotowca (no chyba że ktoś jest bardzo życzliwy i pozwoli zaoszczędzić mi kilka dni a raczej nocy pracy) chodzi mi o instrukcje miło by było z jakimś screenem albo coś. A proszę, kilkadziesiąt minut pracy i cierpliwości ;) - może żadna francja-elegancja, ale coś podobnego...
Niestety mi ten plik nie działa ale poniżej jest makro z uszkodzonego pliku i po wklejeniu do sprawnego pliku -działa dalej. wiec nie jestem teraz pewny czy to napewno makro ... Private Sub ComboBox1_Change() End Sub Private Sub UserForm_Initialize() lista1 = Array("Oferta", "Zamówienie", "Specyfikacja", "Pismo", "Protokół", "Reklamacja") ComboBox1.List...
Nie ma standardowych "podwójnych" combo box - trzeba wyświetlaniem w drugim sterować na podstawie tego co jest w pierwszym. Jeśli tylko do tego ma służyć UserForm, to można rozważyć inną koncepcję: - na górze arkusza zrobić "sekcję" wprowadzania danych i zablokować przez okno-> zablokuj okienka - wybór sali w komórce z listy zadeklarowanej w Dane->...
Nie wiem co mogłem zepsuć kopiując powyższą formułkę ale zwyczajnie nie działa. No ja też nie wiem... :) To jest label na UserForm'ie, który podpinasz w zdarzeniu Initialize? Edit: Mała korekta :) Zamiast zdarzenia Activate lepiej wykorzystać Initialize.
Chcę aby to co znajduje się w Label po kliknięciu Buttona znalazło się w komórce np. h14 ..jak dodać pozycję (chodzi mi o items) w ComboBox ? [syntax=vb]Private Sub UserForm_Initialize() ComboBox1.AddItem "Nowak" ComboBox1.AddItem "Kowalski" ComboBox1.AddItem "Jackowski" ComboBox1.AddItem "Majewski" ComboBox1.AddItem "Wojewódzki" End Sub[/syntax]
Witam. Uczę się dla siebie samego pisania makr i mam prośbę odnośnie czy, ktoś z was zna jakiś dobry link do strony gdzie wytłumaczono by jak zrobić pętle w excel'u? Chce zrobić coś takiego, że w UserForm'ie wpiszę 10 liczb z zakresu od 1 do 100. Makro będzie zawsze losowało 10 liczb z tego zakresu. Gdy wylosuje 5 takich samych cyfr jak te z 10, które...
Witam Mam taki problem: zrobiłem pewien UserForm w którym znajdują się TextBoxy od 1 do 10. W TextBoxach od 1 do 9 wpisuje wartości, które są wpisywane w odpowiednie komórki w arkuszu np. od A1 do A9. TextBox10 powinien za to pokazywać wynik obliczeń z komórki A10. Tak się jednak nie dzieje ponieważ jak wpiszę tylko jedną wartość, obojętnie w którym...
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ę...
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....
Ja tego jakoś nie potrafię ruszyć. Zrobiłem coś takiego: http://obrazki.elektroda.pl/5832044100_1...
ok czaje ale mam inny problem: Private Sub TextBox1_Change() Dim tekst As String, wynik As String tekst = TextBox1.Value wynik = TekstEtykiety(tekst, "Magazyn") If wynik <> "" Then Label1.Caption = wynik Else wynik = TekstEtykiety(tekst, "Magazyn2") If wynik <> "" Then Label1.Caption...
Możesz odwołać się do wielu kontrolek w pętli np w ten sposób: 'definiowanie Dim tabl_kontrolek(1 To 6) As Control Set tabl_kontrolek(1) = Label1 Set tabl_kontrolek(2) = TextBox1 Set tabl_kontrolek(3) = Label2 Set tabl_kontrolek(4) = TextBox2 Set tabl_kontrolek(5) = Label3 Set tabl_kontrolek(6)...
Temat udało mi się rozwiązać --- jak ktoś by był zainteresowany to podaję filmik na YouTub-ie, który mi pomógł Pozdrawiam Dodano po 1 Post#3 Post autora tematu 20 Lip 2014 21:20 Re: VBA - Jak dodać tabelę z Excela do ListBox ? Dodaj do ulubionych na forum Cytowanie selektywne - zaznacz tekst wiadomości i kliknij Odpowiedz z cytatem Pisownia Zmień/Usuń...
"Wyskakujące okno" - trzeba wykorzystać UserForm, MsgBox sie do tego nie przyda. Przy zdarzeniu Initialize formularza, wpisz wywołanie procedury zamykającej formularz przez Application.OnTime (opis z przykładem w pomocy). Sumuj przez Worksheetfunction.Sum(argumenty), wartość przypisz do Label.Caption i... to wszystko.
całość jest na userformie, niestety w pracy mam oganiczenia - np nie ma accessa. stworzyłem na labelkach ale wszystko ok jak chce wybrać jeden dzień, nie potrafie zrobić tak żeby był możliwy wybór paru dni jakie obsługują on clic?
Witam Po pierwsze zmiany w makro symbole narodowe na angielski w związku z tym mogą być błędy TextBox3.Value == w polu tekstowym tekst zawsze. trzeba przerobić na numer Ponadto sprawdź różnicę - arkusz -> Target(i).NumberFormatLocal = PodajFormat(.... makro -> Label3 = PodajFormat(..... Spróbuj oddzielnie - Label3.caption = format( 3, "0.000")
Uwagi: 1. Nie ustawiaj na sztywno w projekcie formatki, to co potem ustawiasz programowo - ilość kolumn "ListBox2" 2. Czytaj składnię poleceń/obiektów i ich ograniczenia - maksymalna liczba kolumn w "ListBox" to 10, a w pętli próbujesz ustawić wartości dla 13 kolumn: 912728 Po wpisaniu daty w "TextBox" klikasz pole "Data" w "ListBox1", zwrotnie do pola...
Ja będę chciał jeszcze trochę rozwinąć temat powyższej 'Ankiety' i jeszcze dodać do filtra dodatkową opcję. Jak widać na załączonym screenie dodałem do filtra jeszcze jedno okno 'ListBox' z pracownikami. W zaznaczonym kółeczku jest wstawione okno 'Label', jak zrobić aby w oknie 'Label' pokazało mi ilu pracowników jest zaznaczonych w powyższej liście?...
Witam, Zrobiłem stany magazynowe oraz historię ich zmian. Mój problem polega na tym, że jak zrobię jakieś pobranie towaru to w historii zmian wszystko ładnie się wyświetla ale tylko ostatnia zmiana. Moje pytanie brzmi jak zrobić by w historii zmian pojawiały się wszystkie wpisy zmian wers pod wersem? A o to mój kod: [syntax=vb]Private Sub CmbAktualizujdane_Click()...
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...
Tutaj niestety pojawił się następny problem jak przenieść mechanizm pola "Przycisku 1" arkusza "Szukanie obiektów 2" na przycisk "Nowe rozliczenie' arkusza "Zamówienia, rozliczenia 2"? Dokładniej na "Combobox1" tak aby dalej był zsynchronizowany z Label3 i Label24. Bardzo proszę chociaż o wskazówkę na "moim" poziomie. Podziwiam ludzi, którzy porywają...
Mam taki problem że Combobox pobiera dane tylko z 4 komórek, ja mam dane około 4000 komórek pomóżcie co innrgo zrobic sterowania ale to ???????? :) Private Sub ComboBox1_Change() Label1.Caption = Sheets("Arkusz1").Cells(ComboBox1.ListIn... + 2, 1) End Sub Private Sub CommandButton1_Click() Unload Me End Sub Private Sub UserForm_Click() End Sub
W komponencie ListBox chyba nie ma możliwości zrobienia siatki. Do tego musiałbyś wykorzystać inny komponent: jak w projekcie UserForm4 klikniesz prawym na toolboxie / Additional Controls, to jest tam komponent Microsoft ListView Control. Wygląda podobnie jak ListBox, tylko trzeba go skonfigurować. Jest o tyle fajny że działa na nim scroll myszy :)...
Ok mam już coś takiego [syntax=vb]Private Sub CommandButton2_Click() Dim i As Integer For i = 3 To 12 Selection.NumberFormat = "General" Cells(i, 3) = "='" & Link(TextBox1.Text) & "[" & Nazwa(TextBox1.Text) & "]Input'!$C$" & i Next i For i = 14 To 287 If i <> 32 And i <> 33 And i <> 103 And i <> 104 And i...
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)...
Jeszcze nie zacząłem nauki w >VB6 ;) Tzn zaczynam od kilku ładnych lat i dlatego zainstalowany mam vb2005 express. Poniżej intuicyjna adaptacja z VB6 Excela. Wstawiłem Form, umieściłem textbox, label oraz button. Wstawiłem moduł, zerknąłem [url=http://social.msdn.microsoft.com/Fo...
Witajcie po raz kolejny potrzebuje waszej pomocy Szczerze mowiac to nawet nie za bardzo wiem jak opisac ten przypadek , ale sprobuje. W userform1 wpisuje kwote zakupu ktora jest przerzucana do userform11 jako label58 oraz textbox_punkty, nastepnie w TextBox_Klient wyszukuje klienta i po podwojnym kliknieciu dodaje punkty dla danej osoby w zaleznosci...
userform excel excel label excel userform
wejście cyfrowe wzmacniacz force pilot tracer gamepad
Naprawa zegarka LCD: brak wyświetlania po zasileniu Dłuższy czas kręcenia rozrusznikiem po wymianie baku