Na obrazku naliczyłem 9 pól tekstowych, jeśli zielone to label. Dlatego nie widzę problemu. Wartości z pól tekstowych wpisujesz (Np przy opuszczeniu pola) do komórek A1:A9, wynik masz w formule w A10. Podstaw do label'a przy każdej w. opisanej zmianie i powinno być OK. [syntax=vb]Private sub txtPole1_Exit(cancel as coś_tam) 'wybierz zdarzenie z listy...
No tak, ale Command Button to przycisk. W moim TextBox jest wklejony kalendarz, po kliknięciu na TextBox wyskakuje kalendarz i po kliknięci na odpowiedni dzień data pojawia się w TextBox, a z niego informacja o dacie jest pobierana dalej. Ale chyba już znalazłem rozwiązanie i zamiast TextBox użyję Label
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...
Dzięki śliczne - kontrol mi działa świetnie a wielkość procentu mogę ustawiać w trybie projektowania. Ale mi chodzi o to aby można było w razie zmiany wielkości procentu np: z 8 na 10 wpisując w zmienną (stawka) liczbę 10 i centralnie wszędzie zmienić gdzie ten procent występuje - w obliczeniach to proste , napis na głównej stronie także - ale jak to...
Ustaw mu właściwość Enabled = False. Ale jeżeli ma on służyć tylko do wyświetlania danych, to lepiej użyj Label (zawsze możesz go sforrmatować tak, żeby przypominał textboxa: BorderStyle i BackColor)
Rzeczywiście Label mi wystarczy. A na marginesie można do VBA excela (do kontrolek) dodać jakieś elementy rysunku np. linia, okrąg prostokąt itp.?
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ą...
Chyba źle sformułowałem moją prośbę o pomoc. A więc jeszcze raz. Teraz wstawiłem sumowanie kolumny z listy formularza. Po wstawieniu liczby np.:1 w polu „Nr zmiany” suma jest wyświetlana na formularzu w kontrolce „ Label 5”. Ale zrobiłem to poprzez arkusz „druk”, bo tylko tak potrafię. Chodzi mi o to jak zrobić, żeby...
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...
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->...
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 :)...
Aktualizacja firmwaru do wersji 15.807 powinna rozwiązać problem poniżej lista skorygowanych problemów przez nową wersję Release Memo FS-3820N (B-28) FS-3830N (B-21) Version 158.07 Release: 2005/04/19 (Status date:2005/4/19) REFERENCE CHECK SUM LABEL NAME U-NO ROM TYPE PPC750CXe 1C75 SB21K15807 YS01 4MB-DIMM This is the latest official version firmware...
To jest "shapes" To jest ActiveX Dodano po 2 Ponadto etykiety Pole1...3 to samo ActiveX, czyli Forms.Label
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,...
Wszystko jest w oknie UserForms: A1-A31, B1-B31 to są TextBox-y, a C1-C31, D1-D31 i G1-G31 to są Label
jak napisać program obliczający sumę 1+1/2 + 1/3 +1/4.... +1/n dla n podanego w polu edycyjnym , wynik pokaż w msg box lub label . Program ma być napisany w języku VBA Oczywiście, poniżej znajdziesz przykładowy kod napisany w VBA, który oblicza sumę ciągu harmonijnego 1 + 1/2 + 1/3 + ... + 1/n, gdzie n jest liczbą podaną przez użytkownika. Kod ten...
Moje sugestie: 1. Jeśli część pól formularza ma być nieedytowalna, użyj etykiet (Label) 2. Co, jeśli już wcześniej zapisano? Należy umożliwić edycję (Np Find w arkuszu wynikowym). Wybierz Nr1 dla przykładu. 3. Nazywaj kontrolki! Teraz masz ich kilka, ale jeśli będzie kilkadziesiąt... Przykład w załączniku.
Wydaje mi się, że jest namieszane po sekcji: 'Wersja II 'gdy przekroczona data - masz 20 sek na zmianę daty Jeżeli termin ważności testu nie wygasł i użytkownik zaakceptuje warunki, to...? A chwilę później jest "End Sub" - moim zdaniem wygląda na pozostawione niechcący "po testach" tej właśnie sekcji. Dlatego "Workbook_Open_Error:" jest zupełnie poza...
W całości popieram zdanie kolegi jankolo (i żeby nie było, że ceruję się u moderatora) :D Toteż nie podeślę gotowca. Odpowiem tylko na zadane pytania. Czy muszę dla każdego z tych produktów tworzyć osobny warunek If Nie. czy mogę zastąpić to jakąś petlą Nie trzeba. w jaki sposób? Tworzysz formularz. Umieszczasz na nim Combobox -a i Label -a. Właściwość...
Nie. Wszystko odbywa się na jednym komputerze. Mam program, który zbiera dane i wykonuje część analiz, ale potrzebuję pewne wyniki przesłać do arkusza Excela do dalszych obliczeń i analiz. Czyli np. wartość z kontrolki textbox lub label przesłać do arkusza Excela. Mam program opracowany dla zespołu i każdy na swoim komputerze będzie wysyłał wybrane...
"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.
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 co w momencie kiedy chcę zrobić to samo tylko, że z Label ? Czyli co dokładnie chcesz zrobić?
Na dłuższą metę nie opłaca się stosować żadnych skomplikowanych dodatków w tym celu - nie masz żadnej gwarancji, że zadziała na 32 czy 64 bitowych systemach, na różnych wersjach Excela i najczęściej musisz coś dodatkowego instalować, żeby plik działał. Zwykła forma z odpowiednio sformatowanym Labelem (labelami) w zupełności powinna wystarczyć.
Witam Brakuje coś w nazwie drukarki powinno być jeszcze coś ala np. "na Ne01:" Ustaw tego lexmarka jako domyśla i uruchom te makro zobacz jaką nazwę pokaże (to samo zrób z tym dymo label) [syntax=vbscript]Sub test() MsgBox Application.ActivePrinter End Sub[/syntax]
Witam mam w wierszach poukładane parametry. Każdy parametr to cztery kolumny: "label name desc value" "label2 name2 desc2 value2" "label3 name3 desc3 value3" itd. W jednym wierszu znajduje się kilka takich par i muszę je posegregować tak, aby były w tych samych kolumnach z pustymi komórkami w przypadku braku parametru (tak jak w przykładzie i na screenie)....
Jeżeli dużo tych kontrolek, te które otrzymują fokus (wyłączając Label'e itp) można oprogramować "hurtem" wykorzystując klasę oraz kolekcję dla każdego typu. Ale nie wiem czy warto... Może po prostu wstaw kilka przycisków nazywając je Np [F4] czy jakoś inaczej. Wtedy zamiast naciskać klawisz, naciśniesz przycisk...
Zrobiłem wstążkę z tymi makrami co były w arkuszu. Nie mam twojego przycisku do otwarcia tej listy prac niestety bo nie mam pojęcia jak ja wywołać. Wstążka została napisana za pomocą programu. http://obrazki.elektroda.pl/6598892800_1... Dodałem chyba wszystkie zmienione twoje makra do mojego pliku. Mógłbyś zerknąć czy prawidłowo?
Przenieś do Change (zdaje się, że Click możesz wyrzucić) [syntax=vb]Private Sub lstFiltr_Change() Dim i As Long, a As Long, ark As Worksheet Set ark = Sheets("Lista pracowników") a = 0 For i = 0 To lstFiltr.ListCount - 1 If lstFiltr.Selected(i) = True Then a = a + 1 End If Next i Label14.Caption = a If Label14.Caption = 0 Then cmbEtat1.Enabled = True...
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ą...
Nie działa. Nie rozpoznaje xlWorkSheet Dodano po 4 If powinien taki działać: If String.IsNullOrEmpty(oSourceSheet.Cells(... 2).Value) Then Dodano po 24 W linijce Dim xlWorkSheet = objExcel.Worksheets("Arkusz1") wywala błąd: System.NullReferenceException: „Zmienna obiektu lub zmienna bloku With nie jest ustawiona.” Dodano po 1 Zrobiłem tak:...
Oto kod Sub Tabele_spis_ilustracji() 'MVP Oskar Shon www.VBATools.pl dodatki do Office Dim p As Paragraph, i%, t$ Dim head7 As Style: Set head7 = ActiveDocument.Styles("Podpis nad obiektem") For Each p In ActiveDocument.Paragraphs With p.Range t = Trim(.Text) If t Like "Tabela*" And Len(t) > 6 And Not t Like "Tabela #*" Then i = i + 1 .Text = "" .Select...
Rzecz w tym, że prawdopodobnie to nie ja będę pracował na tym arkuszu i nie wiem, czy ktoś będzie wiedział co i gdzie zmienić, a ze mną nie będzie miał kontaktu... Myślę, że dzięki Twojej podpowiedzi jestem w stanie to jakoś skleić, tylko podpowiedz proszę, jak "zapisywać datę ostatniego otwarcia formularza"? Jakie polecenie do tego użyć, lub skąd to...
Witajcie! Jeśli ktoś może pomóc to bardzo proszę o sugestie. Mam w Excelu menu użytkownika tworzone za pomocą procedury: [syntax=vbscript] Public Sub Workbook_Activate() Dim hFile As Long Dim path As String, fileName As String, ribbonXML As String, user As String hFile = FreeFile user = Environ("Username") path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\"...
Przeanalizuj ten fragment (2 arkusze) tekst = TextBox1.Value wynik = TekstEtykiety(tekst, "Magazyn") If wynik <> "" Then Label1.Caption = wynik Else wynik = TekstEtykiety(tekst, "Magazyn2") If wynik <> "" Then Label1.Caption = wynik Else Label1.Caption = "Nie znaleziono."...
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ń...
Ja to widzę tak: Przyciski w arkuszach 2 i 3 label="Start". Klikasz i makro kopiuje dane wg "idWewnetrzneWniosku": 1. Jeśli osoba ma status "Nie figuruje w ewidencji" do Arkusza 3 i następnie realizuje pkt.3-4 2. Jeśli <> od "Nie figuruje w ewidencji", do tabelki w Arkusz2. 3. W zależności od statusu aktywujemy arkusz 2 lub 3. Przycisk zmienia...
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...
Witam, Od jakiegoś czasu pracuje nad swoim pliczkiem który ma za zadanie zebrać kilkaset danych i je przeliczyć. Teraz postanowiłem dodac do pliku formularz wpisywania tych danych. Zorganizowałem go tak, że w kolumnach mam pola textowe do wpisywania danych a podsumy robię polami typu label do których ściagam dane z arkusza kodem [syntax=vb] Label1ControlSource...
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ę...
W Visual Basicu mało siedziałem ale na pierwszy rzut oka wydaje mi się, że ten kod BKDARTRC , bo wtedy nie ma podstaw do tego by wywołać Activate . Lepiej jest zrobić coś w tym stylu (nie pamiętam składni więc napiszę mniej-więcej): Next mówi, że ma zostać wykonana następna iteracja. Możesz użyć jakiejś nazwy, którą niżej w kodzie ustawisz jako tzw....
Pozwolicie, że z ciekawości wrócę do problemu który kiedyś, kiedyś próbowałem bezskutecznie rozwiązać a dotyczy podobnego przypadku. Jak mam app webową która wyrzuca finalnie wszystko w HTML'u i chciałbym zaczytać konkretne dane do EXCELa np. adres mailowy który w kodzie wygląda tak: <dd title="Adres e-mail"> <div class="rel100"...
Witam. Mam następujący problem. Poniżej wklejam kod Buttona w Form1 oraz kod z drugiego okienka WczytajFormatki. Chodzi mi o obsługę ProgressBar1, działa tak jak chcę ale jest jakiś błąd ponieważ jak ProgressBar1 dochodzi do 100% wywala mi błąd. Poniżej kody i screeny: Główne okienko: Form1 Try Dim arkusz = oExcel.Application.Sheets("Korp...
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)...
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....
O czym my w ogóle mówimy? Android? iOS? Win32? Excel? Access? HTML? Jak mają się mieć zaprogramowane przyciski do wyświetlania labeli?
Znalazłem "błąd". Ponieważ przykład z funduszem robiłem na liczbie całkowitej (555) zapomniałem/nie zwróciłem uwagi że liczba z przecinkiem dla VB jest z kropką. Później kod próbuje to dalej konwertować i występuje różnica typu. Wystarczy pobrać z funduszu remontowego tekst wartości Text .TextBox5.Visible = True .TextBox5.Enabled = False .Label6.Caption...
Witam Zwracam się z prośbą o pomoc. Na stronie WWW mam dynamiczny formularz który napisany jest chyba za pomocą JSON. Formularz zmienia wagę paczki o jakimś numerze. Wprowadzając dane ręcznie na stronie z formularzem i naciskając Tabulator, przechodzimy do kolejnego okna formularza a przycisk uaktywnia się i można zapisać dane. Problem polega na tym...
Witam wszystkich forumowiczow, z gory przepraszam za brak poslkich znakow (zycie zmusilo do emigracji). Widzialem ze skutecznie pomogliscie juz wielu osobom w stworzeniu praktycznych i przede wszystkim poprawnie dzialajacych makr. Ja, jak kazda z tych osob rowniez z powodu swoich ogranicen w tej dziedzinie nie potrafie poradzic sobie z ulepszeniem mojego...
Witam, mam takie zadanie aby zrobić formularz na którym jest textbox, command button, oraz label. Mam Ma to działać tak, że wpisuje hasło do textboxa on pobiera to hasło i sprawdza czy jest prawidłowe jak nie, to ma czekać aż wpisze znowu hasło do tego text boxa i znowu sprawdzić. Napisałem ten program ale nie działa prawidłowo, tj. jak się poda złe...
userform excel label volume label etykiety label
demontaż sterownik cewka zapłonowa felicja iskra piła
Hyundai LEDTVHY3221HH2-A Standby Issue Firmware Request Nadciśnienie i rdzawy płyn w układzie chłodzenia
