Jeżeli zliczasz dane po numerze w kolumnie 5 to zauważ, że masz tam spacje na końcu - najpierw musisz się ich pozbyć. Natomiast samo zliczanie można zrealizować w ten sposób (jak rozumiem w komórkę R2 chcesz wpisywać wartości ręcznie): [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Address = "$R$2" Then If .Value <>...
W VBA tworzysz tabelę tymczasową z 1 polem, w której umieszczsz posklejane (rozdzielone przecinkiem) rekordy z Recordseta (tabeli źródłowej). I raport zawiera to pole z tymczasowej. Teraz wszystko jasne, prawda?:)
Dla Twojego przykladu Czy napisanie dodatkowej instrukcji, i.e. skopiowanie zaznaczonych 4 pol tekstowych do otwartej prezentacji Powerpoint, jako nowy slide jest proste czy skomplikowane? Jesli proste, to bylbym wdzieczny o wskazowki lub napisanie paru linijek kodu. pozdrawiam
Dzień dobry, Z formalnego punktu widzenia treść formuły przypisanej do pola tekstowego jest tekstem i jest kopiowana bez zmiany. Można sobie napisać w VBA własną procedurę kopiowania według własnych potrzeb. Trudno wyobrazić sobie jakąś ogólną zasadę modyfikacji formuł przypisanych do pól tekstowych przy kopiowaniu. Z komórkami jest prościej, bo tworzą...
Najpierw musisz zadeklarować zmienną typu 'object' Np przy załadowaniu formularza. W VBA wygląda to mniej więcej tak: Private Sub UserForm_Initialize() Dim objExcel As Object Set objExcel = GetObject("c:\katalog1\prob... End Sub W linku, który Ci podałem pisze jak to zrobić w VB. W nawiasie podajesz ścieżkę i nazwę...
Spróbuj ze zmianą nazw pól tekstowych. Usunąłem też pole "Suma" z tabeli, jest nadmiarowe.
Ale co dokładnie masz? Jeżeli to są pola rozdzielone separatorem (tu przecinek) to potraktuj to funkcją split. Warunek jest jednak taki, że nigdzie nie ma "fałszywych separatorów. Jeżeli są to poziom trudności wzrasta wielokrotnie, a być może nigdy nie uzyskasz 100% dokładności. Czy masz więc pewność, że nigdzie nie ma (i nie będzie) dodatkowych przecinków...
Instrukcje warunkowe, typu: PRL wydziel z makra i przekształć w funkcję, do której będziesz się odwoływać, być może nie tylko z tego miejsca.
próbuję kombinować na oślep Dlaczego :?: :D Nie jasno wyjaśniałem :?: Jeśli jako kryterium wprowadzisz tekstowe wartości "Identyfikator"-a Jeśli w tym polu masz autonumer :?: To możesz wprowadzić nowe pole wartości tekstowych do tabeli lub najprościej do kwerendy Query1 wprowadzasz skonwertowane pole [syntax=vbscript]Wyr1: CStr([Tabela]![Identyfikator])[/syntax]....
W formularzu pracownicy update, w zdarzeniu load pi wczytaniu danych to pol tekstowych, zdefiniowalbym string dla każdego pola z wartością, po kliknięciu update, porównaj zdefiniowane stringi z aktualnymi wartościami textboxow, Sub Pracownicy update load Dim wartośćoryginalnatx1 as string = tx1. Text np Kasia End sub Sub Update. Click If wartośćoryginalnatx1...
Może tak :?: Dla polskich wersji Excela zamiast obiektu "Textbox" należy użyć "Pole tekstowe" :D czyli raczej kod [syntax=vbscript]Sub kopiujto() Dim wartosc As String Dim TextBox As String Dim i As Integer Dim j As Integer j = 4 For i = 1 To 3 wartosc = Sheets("Arkusz1").Cells(j, 1) j = j + 1 TextBox = "Pole tekstowe " & i Worksheets("Arkusz2").Shapes.Range(Array...
Witam, W jaki sposób poradzić sobie z automatycznym tworzeniem krótkiego zestawienia ze zbiorczej tabeli, która posiada checkboxy i pola textowe z VBA Weźmy 2 kolumny w tabeli w excelu 1_Typ pakowania;pudełko 24 szt. checkbox + pole textowe; pudełko 48 szt. checkbox + pole textowe 2_Rodzaj wyposażenia;Wyposażenie A checkbox;Wyposażenie B checkbox;Wyposażenie...
Ogólnie jest czy będzie 10 do 15 zmiennych przesyłanych np. coś takiego [syntax=basic4gl] Print Chr(2) ; Str11 ; Chr(32) ; Str10 ; Chr(32) ; Lngstep_a ; Chr(32) ; Modulacja ; Chr(3); [/syntax] też wpadłem na pomysł by w VBA je rozpoznawać i przekierowywać w odrębne pola , i chciałbym to zrobić na jednym większym polu tekstowym tylko nie wiem jak napisać...
Takie coś? Czy to jest jakieś zadanie domowe? Jeżeli tak, to polecam Walkenbacha Excel 2003 PL. Programowanie w VBA - Vademecum profesjonalisty. Książka rewelacyjna, czyta się z przyjemnością.
Po stronie kompa i VBA tak: Do DoEvents Loop Until MSComm5.Input <> CR TextBox1.Value = MSComm5.Input I do pola tekstowego wpisuje mi tylko pierwszą cyfrę 9 zamiast 999 :/ Gdybyś wysłał ciąg 123 to otrzymał byś w polu tekstowym nie pierwszą, a ostatnią liczbę, gdyż tylko ona jest tam wpisywana. Dlaczego? Bo nie dopisujesz do TextBoxa odebranych...
Nie chodzi mi o napisanie konkretnego programu, ale o sam sposób pisania. Może być na przykladzie przetwarzania plików tekstowych. Plik wejściowy ma zostać przekształcony w plik wyjściowy. Oba są tekstowe z polami rozdzielanymi separatorem (jakis znak), bez problemu można wczytać do Excela. Czy to dobry pomysł? Sposób przekształcenia nie jest prostym...
Zupełnie nie zgadzam się z przedmówcą. Nawet gdy myslisz jak programista a nie znasz jakiegoś języka to nie ma siły byś cokolwiek w nim napisał. Dokładnie TAK - niezależnie od tego, żeby zacząć myśleć jak programista NAJPIERW musisz wybrać język w którym będziesz to wszystko zapisywał. Zastanawia mnie inna rzecz - dlaczego niektórzy twierdzą że taka...
Przepraszam że tak późno odpisuję. Może się komuś przyda: Poradziłem sobie w taki sposób że dane (indeks) z pola wielokrotnego wyboru zapisuję na tabeli pomocniczej a potem dane z tabeli idą do kwerendy w VBA jako warunek [syntax=vbscript] ' czyszczenie danych CurrentDb.Execute "DELETE * FROM tabd_filtr_LE" 'zapis z listy For Each ID In Me.list_LE.ItemsSelected...
Całkiem fajnie Ci to wychodzi. Trochę poprawiłem (na ile zdążyłem dzisiejszego ranka) UserForm6 uwzględniając warunkowanie, o które prosiłeś. Natomiast procedura wpisywania do magazynu (teraz wysypana) jest do przerobienia. Moim zdaniem wszystko należy policzyć w polach tekstowych formularza i dopiero przypisać do komórek arkusza. I na końcu JEDNA procedura...
Nie... nie żartuję. Rozwiązałem to w Excell'u, fukcją fragment.tekstu.
Witam. Bardzo potrzebuję rozwiązania mojego problemu dotyczącego stworzenia arkusza w Excelu 2003. Próbowałem już różnych funkcji użyć lecz bez większego rezultatu. Mój problem dotyczy: Posiadam bazę danych w programie Excel składającą sie z kodu kreskowego, imienia, nazwiska, ilości(zebrany towar), danych osobowych. Problem polega na tym, że potrzebuję...
Witam A może zamiast VB/VBA zainteresuj się AutoIt ? Skryptowy język "basicopodobny", całkowicie darmowy. Znajdziesz w nim wszystkie niezbędne funkcje do wykonywania operacji na łańcuchach i plikach. Ponadto skrypty można kompilować do wykonywalnych plików .exe i potem odpalać na maszynach całkowicie nieskażonych instalacjami VB/VBA tudzież AutoIt ;-)...
... pewien problem z pętlą w UserForm. W formularzu mam m.in. dwa pola tekstowe, które muszę ze sobą połączyć. Kiedy do TextBox1 skanuje kod kreskowy to chciałabym żeby w TextBox2 pokazywała się nazwa tego produktu pobierana z listy w excelu właśnie po tym kodzie. ... albo vlookupem, albo szukać po liście w jakiejś pętli .... ... eee ... ni ... ni...
Witam, na formularzu mam 10 niezwiązanych pól tekstowych TXT1 - TXT10 + listę wartości która zaciąga dane z kwerendy -przez VBA Me.Lista.RowSource = SQL Te 10 pól oddaje kolumny z kwerendy. Chciałbym na ich podstawie zawężać wynik kwerendy. Nie wiem jak napisać SELECTa tak aby parametr był brany pod uwagę o ile pole nie jest puste. [syntax=vbscript]SQL...
czy ktoś byłby w stanie mi pomóc wykonać to zadanie? Utwórz formularz zawierający trzy przyciski pokrętła (SpinButton) oraz trzy pola tekstowe. Przyciski pokrętła będą wykorzystywane do określenia nasycenia koloru w barwy, odpowiednio: czerwoną, zieloną i niebieską, a więc będą mogły przyjmować wartości od 0 do 255. W polach tekstowych ma się pojawiać...
Może pomyśl o tym jak o prawdziwej aplikacji, w VBA też tak można zrobić (swoją drogą robiłem trochę obliczeń w VBA i nie zauważyłem tej niskiej wydajności). Są dane (tabela, wiele tabel?) i formularz do wypełnienia. Przycisk Start: pokazuje się formatka. Algorytm jest prosty: skanujesz, wynik zapisuje się w (aktywnym) polu tekstowym formularza, w drugim...
Witam, Mam bazę danych w Excelu : powiedzmy 40 kolumn i 500 wierszy 1. W arkuszu o nazwie "formularz" Potrzebuje 2 pola kombi (jedno które wybiera przedstawiciela (np. kolumna A) z tej bazy), drugie które zawęża listę podmiotów do których jeździ przedstawiciel -> jeżeli wybierzemy przedstawiciela z jednego pola to w drugim zawęża się lista podmiotów...
Tak kwerenda działa dobrze To teraz zrób tak, aby przy wybraniu tych wartości w polu combo i tekstowym uzyskać identyczną kwerendę "w msgbox'ie". To jedyna rada.
Cześć. Próbuje zrobić formularz w Open Writer. Chciałbym, aby na podstawie wyboru z listy z Pola Combi, reszta pól tekstowych uzupełniła się automatycznie danymi z tabeli. Lista jest połączona z tabelą w Open Base. Ktoś próbował?
Żeby już nie kombinować i nie używać kwerend, skoro nie możesz. Jeżeli na formularzu masz już dane, to wystarczy na raporcie w niezwiązanym polu tekstowym użyć: =Forms!Pracownik!PESEL =Forms!Prazownik!Nazwisko i tak dalej. W załączniku jest wykonanie bez użycia kwerendy.
Witam, W jaki sposób mogę uzupełnić formularz z 2 tabel? Na formularzu mam listę rozwijaną z której wybieram pewne wartości oraz kilkadziesiąt pól tekstowych. W jaki sposób mogę uzupełnić te pola ? Za pomocą jednego źródło potrafię to zrobić. Kwerendy nie mogę zrobić bo wywala błąd "Zbyt wiele zdefiniowanych pól". Pomyślałem że za pomocą VBA coś się...
W moim formularzu "Pobieranie" mam pole do wypełnienia przez użytkownika "partnr". Jak się odwołać do tego co wprowadził użytkownik, jeśli chcę to przypisać do jakiejś zmiennej? szukam = Pobieranie.partnr.Value? Skoro formularz ma właściwość Name="Pobieranie" a pole jest polem tekstowym (textboxem) i jego właściwość Name="partnr", to odwołanie nie...
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...
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...
Poniżej procedura VBA, która sprawdza pliki z poziomu Accessa. Jest zrobiona na szybko, więc nie jest optymalna, ale pokazuje pewne mechanizmy, które można na różne sposoby wykorzystać. W tym przykładzie w Accessie stworzyłem tabelę: "Tabela_Pliki_PDF ", gdzie w polu " Pliki_PDF" jest lista plików pdf "101.pdf, 102.pdf" itd. Tworzymy też do testów formularz...
:arrow: clubc Przycisk w polu tekstowym z jego ukrywaniem - super. Wcześniej próbowałem kształtem (prostokątem) zasłaniać przycisk ale coś mi nie wychodziło. Wersja z ukrywaniem czcionki coś mi nie wychodzi. (Mam więcej pól tekstowych) a poprzez odwołanie zamiast 1 do "Text Box 12" wyskakuje błąd że nie ma takiego obiektu :arrow: lanzul Tą wersję już...
... zawiera odwołanei cykliczne, przy wprowadzeniu daty, aby sie nei zmeiniała co uruchomienie pliku. Linię z kodem: C5 ' i ' C6 ' nie będzie wprowadzana funkcja, tylko wynik formatowania tekstowego funkcji ' Dziś() ' Dalej: ... 1. Mam komórke C5 w której wpisuje numer zamówienia klienta, wykorzystując do tego inputbox. 2. Wszystko działa świetnei...
Utwórz formularz. Na nim tyle pól tekstowych, ile chcesz zapisać danych do tabeli. Na końcu dodaj przycisk, który będzie te pola formularza zapisywał do tabeli. [url=https://www.w3schools.com/sql/sql_i... P.S. Dlaczego dni tygodnia, miesiące deklarujesz, jako 'Double'?
Witam, potrzebuję kodu VBA do MS Access aktualizującego pole typu Date [DataPłatności] w tabeli [Fak_nag], na podstawie danych wyliczanych w formularzu [Fak_nag] w polu tekstowym [TerminPłatności] := [Fak_nag].[DataFak] + [Terminy].[IlośćDni] dla odpowiedniego rekordu tabeli [Fak_nag].[Fak_nagID] czyli mam bazę do fakturowania, chciałbym aby wartośc...
1. ... projekt (kilkanaście tyś. zdjęć) ... 2. ... miałoby wyglądać tak, że w katalogu w którym są zdjęcia (głównie *.JPG chodź mogą być inne formaty) wrzucam plik: prezentacja_tuJejNazwa.ppt . I otwieram go i prezentacja się uzupełnia np. po na ciśnięciu przycisku o zdjęcia z katalogu. 3a. ... Zdjęcia idą po dacie wykonania zdjęcia od najmłodszego...
Witajcie. Jestem tutaj nowy, więc na początku chcę wszystkich powitać i prosić o przyjecie do szacownego grona :-) VBA w Accesie zacząłem się bawić stosunkowo niedawno (więc nie mam dostatecznej wiedzy) i już pojawił się problem. Otóż mam formularz z polami tekstowymi, które stanowią argumenty do zapytania SQL (argument where oraz nazwa tabeli - dotyczy...
1. Do czego są właściwie potrzebne zakładki "28dni/21dni/14dni ..." itd., czy tylko i wyłącznie do pobierania z nich danych dla pola listy 'ListBox1' ? Jeśli tak, to są niepotrzebne, można to zrobić inaczej. 2. Nieporządek w formatkach - a przynajmniej w 'UserForm1' - nałożone na siebie dwa przyciski opisane jako "28 dni", jeden o nazwie 'CommandButton1',...
[syntax=vb]Dim zmienna As String zmienna = "blablabla" ActiveSheet.Shapes("pole tekstowe 1").TextFrame.Characters.Text = zmienna[/syntax]
Witam. Jestem zielony co do VBA, więc proszę o pomoc w rozwiązaniu problemu. Otóż potrzebuję zrobić taki formularz filtrujący, jak na załączonym zdjęciu, gdzie wyniki ukazywałyby się w liście pól a dane potrzebne do wyszukania wpisywałoby się w polach tekstowych, do tego jedne wybierałoby się z pola kombi, które czerpiw dane z innej tabeli. Podobny...
Witam Możesz np w właściwościach pola ustawić Multiline i EnterKeyBehaviour na True
Witam. Nie wiem dlaczego tam jest Klasa i tekstowe pole, aby wykonać tyle listy
Witam! Zacząłem swoją przygodę z VBA i na początek postanowiłem napisać (nagrać) prostą aplikację w Excelu. Po krótce można opisać jej działanie tak: Uruchomić makro, które otworzy, wyczyści schowek i załaduje do niego kilka ciągów znaków tekstowych, a następnie zamknie ten arkusz. Arkusz wraz z makrem w załączniku. Nie wszystko się udało tak jak bym...
Jeżeli to jest fragment o stałej długości to możesz użyć kilku sąsiadujących pól tekstowych z różnym formatem czcionki. Jeżeli ma to być coś bardziej ambitnego pozostaje kontrolka ActiveX o nazwie: "Microsoft Rich Textbox Control 6.0" (znajdziesz ją przez kliknięcie w prawą dolną ikonkę na przyborniku) i składanie tekstu ze stringów kopiowanych Np z...
Wiem, że błąd. Napisałem wyżej, że źle Ci podałem (nie doczytałem pytania). Możesz zrobić to tak: - umieść na formularzu pole tekstowe 'Marka', - w zdarzeniu dwukliku listy daj kod: [syntax=vb] Me.Marka = Me.Lista0.Column(0) 'jeżeli na liście pole marka jest w kolumnie 1[/syntax] - DoCmd.OpenQuery 'TwojaKwerenda" A 'TwojaKwerenda' w kryterium dla pola...
Witam. Mój problem polega na tym, że chce wprowadzić uwagi do określonego wiersza poprzez przycisk VBA. Najpierw. Szukanie liczby porządkowej w kolumnie A. Następnie wprowadzenie do kolumny E danych tekstowych. Wiem że da się to zrobić klikając myszką w odpowiednią komórkę. Jednak ma to być zrobione przez VBA z wyskakującym MsgBox. Utknąłem niestety...
Cześć, chcę stworzyć makro (przycisk w arkuszu), które będzie zapisywało plik jako wartość z komórki i dzisiejsza data. Lokalizacja pliku jest inna niż plik oryginalny. Napisałem następujący kod: Sub Zapis_Bizcase() Application.DisplayAlerts = False Dim Nazwa As String, Sciezka As String Nazwa = Range("T2").Value & " " & Date & ".xlsm" Sciezka = "C:\Users\was\Desktop\"...
No niestety też nie dla tekstowych dostaję TRUE jako wartość komórki, ale to zaraz coś pomyślimy ale jest inny problem w części komórek jest np. 1234,5x678,9 val(1234,5x678,9) =>1234,5 a to też nie jest dobrze (potrzebuję zmienić tylko 1234.5x678.9 =>1234,5x678,9) i chyba muszę wrzucić wszystko do tablicy, robić operację na tablicy i z powrotem do arkusza,...
Witam, Stworzyłem małą bazę danych w Accessie i niestety napotkałem mały problem. Dodając rekord do tabeli głównej (tblRadia) uzupełniam formularz, który składa się z kilku pól kombi oraz kilku pól tekstowych. Pola w tabeli (Obszar i Wydział) są od siebie zależne, dlatego dodając w polu kombi wyświetlało mi się ID zamiast nazwy. W odnośniku wybrałem...
Ramka jest kontenerem dla kontrolek. Zdarzenia pól tekstowych będą działać wewnątrz, ale wyjście poza ramkę to zdarzenie ramki (Frame_Exit), które należałoby w tym przypadku oprogramować. Do kontrolek wewnątrz przy takim zdarzeniu odwołujesz się z poziomu parent: Frame1.Controls(indeks/nazwa). Coś jak z podformularzami w Access'ie. Zastanów się czy...
Dobra chyba wiem gdzie się mijamy, ja nazywam pierwszą komórkę każdej kolumny nagłówkiem. Komórka z wartością /Delivery-Header/Delivery-Number (F1) i wszystkie komórki pod nią które mają wartość inną niż pusta komórka mają trafiać do kolumny A w pliku B. Jeśli w pliku Order, /Delivery-Header/Delivery-Number zmieni położenie do np XZ1 także ma trafić...
Witam! Mam prośbę o pomoc przy kolejnym kodzie. Niestety Excel u mnie w firmie napotyka błąd z zapisywaniem skoroszytów, które zawierają obrazy pobrane z innego skoroszytu. Nie są w stanie tego naprawić i muszę ominąć błąd. Mam zamiar zrobić to w ten sposób: *mam do dyspozycji prezentację z opisanymi obiektami na rynku i chciałbym z niej pobrać slajdy...
Witajcie. Mam w excelu na formatce combobox który przez RowSource zaciąga jakiś zakres danych np (A2:C40). Na rozwijanej liście combo wyświetlam dane z kolumny "A" wspomnianego zakresu. Jak w polu tekstowym comboboxa zaczynam coś wpisywać pojawiają się sugestie/podpowiedzi zaczerpnięte z listy rozwijanej combobox. Jak zrobić aby podczas wpisywania w...
">>" pomogło dzięki. Teraz została jeszcze kwestia importu danych z pliku txt do excela. W pliku tekstowym polskie znaki są wyświetlone prawidłowo. Gdy chcę zaimportować dane z pliku zamiast polskich znaków wyświetla jakieś "krzaki". Do zaimportowania danych z pliku użyłem poleceń Open plik For Input As #1 Do Until EOF(1) Line Input #1, LineFromFile...
Nauka MySql jeszcze przedemną, na razie niewiele na ten temat wiem. Klient A nie widzi danych klienta B. Wspólny jest tylko kod vba, bazy w Accessie są absolutnie oddzielne, choć mają identyczną strukturę, ja po swojej stronie nie mam potrzeby łączyć jakichkolwiek danych klienta A z klientem B Co do konfliktów takiej synchronizacji to też dostrzegłem...
Niestety nadal nie działa, nie wiem czy dobrze to robie bo dopiero ucze sie vba, ale po zmianie kod wyglada tak: Private Sub Arkusz1_Change() TextBox1.Text = Range("G" & Rows.Count).End(xlUp).Value & newtext End Sub Wartosc w polu tekstowym odswieza sie tylko jak uruchamiam ponownie kod vba a nie jak zmieniam filtry w tabeli przestawnej.
Witam. Wszystko dzieje się w formularzu ciągłym. Kod do którego będę się odnosił pojawił się już w temacie http://www.elektroda.pl/rtvforum/topic28... Mam listę ludzi i niekótrzy jako wyróżnienie chciałbym żeby dostali mały obrazek. Jednak mam następujący problem. Gdy układam warunek dla którego będzie się wyświetlał obrazek to już nie działa....
Wpisz do kodu "kliknięcia" jednej i drugiej opcji dodatkową linię kodu: [syntax=vbnet]Me.ComboBox1.ListIndex = 0 'jak ma się pojawiać od razu litera lub cyfra[/syntax] lub [syntax=vbnet]Me.ComboBox1.Text = "" ' gdy ma być po zmianie okienko puste [/syntax] Aha Zaznaczę, że pomimo tego że widzisz w okienku cyfry są to jednak dla VB wartości tekstowe.
Warto odnotować, że identyfikacja slajdów powinna być po tytułowym polu tekstowym. Przynajmniej ja tak próbuję zrobić. :)
Widzę, że się nie rozumiemy. Jeśli dopisuję nową wartość to dopisuję ją na końcu ale nie w tym problem. Może nie potrafię tego jednoznacznie opisać, spróbuje jeszcze raz wytłumaczyć. Zakładając, że na liście mamy następujące wpisy: Abecadło Abolicja Gusiec Sp.z o.o. Próbuje dopisać "GUS". W momencie wpisania "G" w polu tekstowym pojawia się "Gusiec...
Witam. Proszę o pomoc w stworzeniu programu w języku VBA. Będzie to makro Excela. Program ten będzie częścią mojej pracy licencjackiej. Program będzie analizował zapisy partii szachowych w formacie pgn. Na początku musi zaimportować z pliku/plików tekstowych zapisy partii. Następnie będzie analizował dane pod różnymi aspektami, to znaczy: policzy liczbę...
Pozwolę sobie dopytać w tym wątku - bo pytanie moje dotyczy funkcji własnej. Mam napisana funkcje typu boolean. Czy jest w VBA jakas instrukcja / coś, co pozwoliłoby mi wywołując taka funkcję na poziomie Excela, ale zamiast wyniku "True" "false" uzyskać np "ta wartość istnieje" "ta wartość nie istnieje" czy jakikolwiek inny ciąg tekstowy. Gdzieś obiło...
Pole tekstowe, jak sama nazwa wskazuje, zwraca w wyniku tekst. Jeśli taki tekst wpisujemy do komórki arkusza, czasem Excel na podstawie formatowania potrafi rozpoznać właściwy typ danych (np. rozpoznaje czas), ale nie zawsze tak będzie. Jeśli Excel nie potrafi samodzielnie dokonać konwersji, trzeba mu dopomóc i zastosować w kodzie VBA jedną z funkcji...
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")
Witam serdecznie! Niedawno rozpocząłem swoją przygodę z vba i potrzebuję pomocy. Chcę wyświetlić w textboxie w moim programie wartość sczytywaną z komórki z excela, czyli na przykład jeśli w komórce "C1" mam wartość 15, to w moim programie wyświetli się w polu tekstowym 15. Oczywiście jeśli wartość komórki się zmieni wartość w textboxie również musi...
Znaczy na jakiej zasadzie? Bo jak dowiążesz konkretną komórkę do TB to w nim będziesz miał tekst widoczny w komórce. A to zależne jest od formaty komórki a nie TB. TB jak sama nazwa mówi z założenia jest polem tekstowym i jakoś nie znalazłem w nim możliwości formatowania liczb. Edit: Po głębokim przemyśleniu i zastanowieniu oraz pochyleniu się nad problemem...
Sprawa jest zapewne prosta, ale siedzę już kilka godzin nad tym i nic nie mogę znaleźć w tym temacie. Ogólnie mam jakiś tam plik w którym otwiera się okno TextBox ze zwykłym butonem który ma potwierdzić wprowadzone zmiany w oknie TextBox. Napisałem taki kod do tego UserForm: Private Sub CommandButton1_Click() Arkusz2.Range("A3")...
Ktoś kiedyś na tym forum polecał tą stronę: [url=http://www.e-kanban.pl/index.php?op... Spróbuj zastosować to rozwiązanie, wymaga jedynie drobnej przeróbki aby importować dane do jednego arkusza...
Witam, Tak worksheet to to samo co ws - dzięki za zwrócenie uwagi, po prostu po czasie dopisywałem ten fragment i jakoś pominąłem, że ws został juz określony przez DIM. W załączniku wrzucam plik, po ściągnięciu trzeba zmienić rozszerzenie z *.jpg na *.xlsm - wyskakiwał błąd poczas dodawania pliku z roszerzeniem excela, że nie można załączać plików z...
Proszę o pomoc w tworzeniu arkusza kalkulacyjnego. Przenoszone są dane cyfrowe wpisywane w polu tekstowym dialogu (ActiveCell.Offset(0, 4).Value = txA ) i to jest dobrze, lecz przeniesiona wartość cyfrowa jest nadal tekstem i przy późniejszym przeliczaniu przez formułę R1C1, np.: ("=IF(RC[-6]>900,RC[-1]*RC[-13],0)" wyświetla błędny wynik, dopiero, gdy...
Tak zaawansowany nie jestem :/ Ostatnia linijka Dodano po 7 Ogólnie z tym plikiem tekstowym jest taki problem, że generuje się raz 50.000 stron raz 60.000, innym razem 42.000 itp. i około 90% z nich jest mi nie potrzebnych. I teraz tak: 1. Mam makro, które częściowo obrabia ten plik - i chodzi, jak trzeba 2. Makro do wyszukiwania potrzebnego mi zakresu...
jak to zrobić aby w przypadku braku danych po naciśnięciu Button'a wyskoczył msgbox "Wprowadź dane" i program czekał na te dane nie "idąc" dalej i dało sie te dane wprowadzić w tym czasie do textbox'a Zastosuj dla tego pola tekstowego procedurę zdarzeniową TextBox1_Exit z instrukcją "If", jak masz to zrobione, oraz z "Cancel = 1", np.: [syntax=vbscript]Private...
Skoro wpisujesz przez formularz, to musisz dla pola daty i pola numeru magazynu ustawić we właściwościach: "Przechodzenie tabulatorami" na "NIE" Rozumiem, że zeskanowany kod nie posiada znaku "Enter" lub "TAB" na końcu, więc Access musiałby się domyślić, że jakaś sekundowa przerwa po zeskanowaniu kodu oznacza, że to koniec danego kodu i następny zeskanowany...
Ja coś takiego kiedyś zrobiłem tak, że w osobnym module VBA zadeklarowałem wszystkie zmienne globalne, formularz logowania odpowiadał za zweryfikowanie danych i wypełnienia globalnej zmiennej zawierającej użytkownika, a dalej w formularzach na podstawie tej zmiennej wyciągane były z bazy dane do formularzy. Możesz zrobić bezpośrednio swoją zmienną jako...
Witam wszystkich poddałem się z uruchomieniem obróbki XMLa w moim sofcie. Obecnie plik XML wygląda następująco <DATA_ARRAYS BRIDGE_TITLE="Aleks" FST_XML_VERSION="1.00" MAX_INDEX="9"> <DATA_ARRAY FORMAT="Float" INDEX="1" LENGTH="1" NAME="6234180Energia"> <DATA DATA_AGE="0:00:19:03.000s" OFFSET="0" STATUS="0">42894.0000000000</DATA&...
Jestem totalnym laikiem. Nie uważasz, że czas najwyższy z tym skończyć? Może to przez ten nick :) Przeanalizuj następujący kod:[syntax=vb]Private Sub ComboBox1_Change() If ComboBox1.ListIndex <> -1 Then TextBox1.Text = ComboBox1.Value Else TextBox1 = Empty End If End Sub Private Sub CommandButton1_Click() If TextBox1.Text <> "" Then usfOPE.txtjobcode.Value...
Pierwszy problem rozwiążesz za pomocą prostego sprawdzania bieżącej godziny przed wywołaniem formularza: [syntax=vb]If Time > #4:30:00 PM# Then '...kod otwierający formularz... Else MsgBox "Dziś już nie możesz wprowadzić danych, spróbuj następnego dnia roboczego." End If[/syntax] Drugi, po podpięciu w zdarzeniu które jest np. wywoływane po aktualizacji...
docelowo dotyczące maski dla kontrolki formularza Pole tekstowe w formularzu daje więcej możliwości. Np zdarzenie Enter ... p.s. Ten fragment dl_maska = Len(maska) dl_tekst = Len(tekst) If dl_maska < dl_tekst Then ilosc = dl_maska Else ilosc = dl_tekst End If zmieścisz w jednej linijce ilosc = IIf(Len(maska) < Len(tekst),...
Znajdź sobie jakiś kurs... Bardzo uniwersalna odpowiedź. Pasuje do każdego tematu we wszystkich działach. :arrow:tang0 przeanalizuj następujący Sub wstawianie_iksow() ile = 3 'liczba iksów, pobierana z komórki lub pola tekstowego formularza kolumna = 1 'Nr kolumny 1 dla A, 2 dla B itd wiersz = 1 'Nr wiersza For wstaw = 1 To ile Step 1 wynik...
Witam, Uprzejma prośba o pomoc / podpowiedź / wyjaśnienie (na wstępie nie jestem programistą …. niestety!). 1. Formatowanie kilku zakresów jednocześnie. Chce nadać (za pomocą makra w VBA Excel) kilku zakresom danych ten sam format. Zakresy tu np: (B15:B38) (B51:C62) (B98:D112) Format to: ###,00;[Czerwony] - ###,00;- Bez tła (przeźroczyste tło)...
Chciałbym, aby wyświetlały się czarne kropki/gwiazdki tak, aby podczas wpisywania hasła nie było ono widoczne. Może ma ktoś pomysł jak tego dokonać Nie wiem czy jest sens robienia tego bo, żeby zamaskować hasło przez 'inputbox' trzeba dołożyć masę kodu, bo trzeba skorzystać z API, szybciej można to zrobić przez 'userforma' korzystając z pola tekstowego.(ale...
Witam was serdecznie, Jest to mój pierwszy post oraz pierwsza styczność z VBA. Potrzebuje zrobić w swoim skoroszycie okno, które wyskoczy zaraz po otwarciu pliku. Chciałbym by po wpisaniu liczby do danego pola tekstowego i wciśnięciu przycisku zostały one przepisane dajmy na to do komórki A1. Pozdrawiam oraz liczę na wyrozumiałość :)
Nie, pole tekstowe jest w UserFormie, ale próbowałam już dodawać jego nazwę przed nazwą pola tekstowego i to nic nie zmienia
Cześć, próbuję przenieść dane z formularza w jednym arkuszu do raportu w drugiej. Udało mi się przenieść dane z ListBoxów, ale nie mogę przenieść tekstu wpisywanego do TextBoxów. Próbowałam zrobić coś takiego: [syntax=vbscript]Sub textbox() Dim Ark As Worksheet Dim Sciezka As textbox Dim Raport As Worksheet Set Ark = ThisWorkbook.Sheets("Formularz")...
Witam, pracuję nad makrem które sukcesywnie będzie zczytywać odpowiednie dane z sieci WEB i wszystkie je zapisywać. Udało mi się już zmusić excel do automatycznego zczytywania danych co minutę. Problem polega na tym, iż taki plik coraz bardziej zużywa RAM. W związku z czym mam pytanie jak poradzić sobie z tym problemem? 1)Czy można włączyć excel który...
vViktor - próbowałem skorzystać z systemowego polecenia ftp, ale za każdym razem pobiera mi pusty plik tekstowy (chociaż posiada kilka linijek tekstu) , oraz trochę mi przeszkadza pojawiające się na środku ekranu okienko niepasujące do reszty programu ;/ . A miało by się pojawiać co kilka sekund ;/ . Jeśli chodzi o program w innym języku to tak nie...
Najpierw popraw pętelki, jak kolega JRV zauważył, bo po wielokroć ukrywasz już raz ukryte pola tekstowe. Czy kod można skrócić ? Pewnie odrobinę tak, ale po co, zyskasz raptem parę linijek. Może tylko odrobinę zyska na czytelnnści, np.: 1. Utwórz jedną dodatkową procedurę, w której utworzysz dwie pętle 'For...Next', jeden warunek 'If' i jeden 'Select...
Mam tabelę z danymi i muszę na ich podstawie wygenerować statystykę (tak około 50-100 komórek). Przykład SQL: SELECT Count(dbCOVID.Identyfikator) AS PoliczOfIdentyfikator FROM dbCOVID [syntax=sql][/syntax] Zapytanie zwraca dokładnie 1 daną i musi ona wejść do pola tekstowego. Zwykle są to sumy wypłat albo ich ilości wg różnych kryteriów. Mogę...
Witam czy mógłbyś mi powiedzieć jak zmienić w własciwości pola tekstowego tak aby nie można było ich zmienić z pozycji użytkownika lecz aby modół VBA mókł wpisać je. tzn widziałem coś takiego mianowicie pole tekstowe byo koloru szarego i nie można było wpisać nie cokolwiek. pozdrawiam
Dzień dobry, chce stworzyć formularz danych w których to będą zapisywanie różne wartości, nawet na 1000 wierszach. Problem polega na tym, że nie potrafię napisać prostego kodu, tak aby wydrukowało mi tylko wypełnione wiersze z Arkusza A + wiersze/pole tekstowe z Arkusza B. Przykład; Arkusz: Formularz wartości wypełnione od A1 - G31 G32 - G500 puste...
Nie pomogło mi to, nie znam VBA. Łopatologicznie to wygląda w ten sposób, że jest szukajka w pierwszym formularzu i pole wyboru, chce żeby w drugim formularzu po zaznaczeniu pola wyboru pojawiały się pewne pola tekstowe, a przy braku zaznaczenia już nie.
Plików z rozszerzeniem xlsm nie można załączać? Paczka RAR lub zip.
'textbox1' jest to pole tekstowe którego zawartość jest zapisywana do zmiennej.
Należałoby przeszukać sąsiadów w wierszu "wierszkontrahenta"... Taki efekt: http://obrazki.elektroda.pl/8119171000_1... uzyskałem przy pomocy [syntax=vb]Sub Szukaj() ilekontrahentow = 20000 ListaFirm = "nazwisko" 'symulacja wartości pola tekstowego wiersz = Worksheets("KONTRAHENT").Range("B3", "B" & ilekontrahentow) _ .Find(what:=ListaFirm,...
Super jest tak jak chciałem ale teraz nie kopiuje mi formatowanie tzn. szerokości wysokości kolumn oraz dodatkowych pól tekstowych.
Mam problem, stworzyłem tabelę do porównywania aktualnych przelewów czekających na akceptację z historycznie wykonanymi przelewami. Używam funkcji suma.warunków, gdzie parametrem wyszukiwania jest numer rachunku (26 znaków, zdefiniowanych jako ciąg tekstowy) oraz numer miesiąca. Funkcja odwołuje się do tabeli, gdzie zapisane są historyczne przelewy...
panel tekstowy funkcja tekstowy wyświetlacz tekstowy
zwiekszenie napięcia openvpn windows server vectra szarpie
hyundai oświetlenie licznik rowerowy bezprzewodowy
DEF CON 31, TSMC 2nm, Samsung Galaxy Z Fold 5: Key Electronics Events on 12 Aug 2023 Kod błędu B201000 w Audi A4 B9 2.0 TDI - brak podstawowych ustawień