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...
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...
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:...
Witam. Potrzebuję wykonać następującą rzecz: Mam plik, załóżmy plik.txt, który potrzebuję odpalić u różnych komputerach, za pomocą przycisku w excelu. Założenie jest takie, że plik jest dostępny na każdym komputerze, w takiej samej lokalizacji. Na komputerach mogą być różne wersje excela. Oraz uruchomienie pliku z poziomu excela ma być najprostsze jak...
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)....
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...
White Labeling has become a popular term in the fleet management industry. It refers to a process where a product of one company is rebranded by another company to make it look like their own. The rebranded product is sold to the clients by resellers. It is a win-win situation for the manufacturer and the resellers as both derive profit from it. Nowadays,...
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ę...
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...
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...
Private Sub TextBox1_Change() Dim tekst As String, wynik As String, i As Integer tekst = TextBox1.Value For i = 1 To ThisWorkbook.Worksheets.Count ' "i" w tej pętli to indeks arkusza If Left(LCase(Sheets(i).Nam... 2) = "m-" Then 'przypisanie wyniku zwróconego przez funkcję. Drugi parametr funkcji...
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
Co do cmbTemat to wszystko działa tak jak trzeba. Jak dasz od 5 to jest od 5. Oczywiście zadziała dopiero jak wciśniesz dodaj. Przy aktywacji okna tego nie widać bo nie ta procedura za to odpowiada. Ale jak uruchomisz procedurę cmdDodaj2_Click (w w oknie temat) wszystko działą tak jak powinno. Co do numerowania tyle powinno wystarczyć (wykasowałem dubel...
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...
Podobnie jak w moim przypadku, otworzyło nowy plik jednak bez wygenerowanej listy. Na screenie pokazuje mi gdzie jest błąd: ...jednak muszę jeszcze dodać że generowanie listy nie kończy się tylko na tym kodzie który dałem w temacie. Jest tam jeszcze linijka: ...a to jeszcze kod samego filtra: [syntax=vb]Private Sub filtruj(knyps As Boolean) Dim ark...
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")
Wszystko jest w oknie UserForms: A1-A31, B1-B31 to są TextBox-y, a C1-C31, D1-D31 i G1-G31 to są Label
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...
Witam! mam następujący problem: za zadanie mam stworzyć tabelę(formularz wyboru w vba) z ciepłem właściwym różnych produktów. Wszystkie dane mam wypisane w komórkach excela. Tabela ta ma być w formie formularza vba gdzie wybierając odpowiedni produkt z comboboxa będą się wyświetlać odpowiednie dla niego dane. Moje pytanie jest następujące: Czy muszę...
Obserwuję ten wątek od pewnego czasu i utwierdza mnie on w przekonaniu, że moim skromnym zdaniem, najlepszej jak do tej pory rady udzielił adams_nt w poście #6. W tematach Excelowych nie ma sobie równych ;), nie na darmo został też moderatorem (ależ słodzę, aż głupio... ;P). Moja opinia o tej kontrolce,oparta na złych z nią doświadczeniach, jest taka...
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...
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\"...
witam nie radze sobie z argumentami. chciałbym: - nadać dodanemu arkuszowi nazwę która będzie w textbox. - "veryHiden". proszę o pomoc, oto co dotychczas udało mnie sie.... : [syntax=vb]Private Sub okBtn1_click() Dim strName As String, Response As Action strName = TextBox1.Value If Name <> "" Then ActiveWorkbook.Sheets.Add After:=Sheets() ' ?????...
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ą...
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....
Excel 2010 i plik z Przykład.rar: A. W narzędziach Głównych nie widać grupy Elektroda z pliku. Jest Schowek - Czcionka - Wyrównanie - Liczba - Style - Komórki - Edytowanie. B. Jeśli z poziomu tego okna wstawimy nową grupę (tutaj Elektro 2), to jest ona widoczna na karcie Narzędzia Główne. Widać ją również po zamknięciu pliku Przykład. C. Nasze modyfikacje...
"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.
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...
Witam wszystkich napotkałem na problem z którym nie mogę sobie poradzić. Stworzyłem UserForm i dołożyłem do niego przycisk. Przycisk uruchamia makro, które tworzy etykietę i umieszcza ją w ramce "il1". Kod makra wygląda tak: Dim lbl6 As Control Set lbl6 = il1.Controls.Add("Forms.Label.1") With lbl6 .Top = 85 .Left = 220 .Height = 10 .Width = 40 .TextAlign...
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. Dodałem chyba wszystkie zmienione twoje makra do mojego pliku. Mógłbyś zerknąć czy prawidłowo?
Siemens'owe niedobre? [url=]How do you print the labeling strips of ET 200SP?
O czym my w ogóle mówimy? Android? iOS? Win32? Excel? Access? HTML? Jak mają się mieć zaprogramowane przyciski do wyświetlania labeli?
No i to cały kod: Private Sub ComboBox1_Change() End Sub Private Sub UserForm_Initialize() lista1 = Array("Oferta", "Zamówienie", "Specyfikacja", "Pismo", "Protokół", "Reklamacja") ComboBox1.List = lista1 lista2 = Array("mail", "osobiście", "faks", "DHL") ComboBox2.List = lista2 lista3 = Array("Daniel", "Łukasz C.", "Łukasz M.", "Sławek", "Wiesiek")...
Temat można zamknąć.
Splitem go i policz. Np [syntax=vb]Private Sub CommandButton1_Click() Dim a As Double Dim b As Double Dim dr As Integer a = TextBox1.Value b = TextBox2.Value liczba = Split(UserForm1.ComboBox1.Value, ",") dr = Len(liczba(1)) Me.Label5.Caption = Round(a + b, dr) End Sub[/syntax]
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ń...
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...
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...
Popracowałem trochę nad programem. Działa już znacznie szybciej. Mam problem chcę aby program wypisywał do TextBox'a komunikaty, za każdym razem do nowej linii. Część komunikatów będzie jednak odświeżana np komunikat o postępie. Kod obecnie wygląda następująco: Option Explicit Private Sub CommandButtonImportujPlik_Click()... On Error GoTo myErr...
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...
Witam Poszukuje generatora kodow kreskowych ITF lub CODE-128 Oczywiscie takie generatory sa wszedzie dostepne, na przyklad w corelu, problem jest jedynie taki ze mam liste okolo 300 unikalnych numerow seryjnych i musze wygenerowac z nich oddzielny kod kreskowy. Poszukiwany program z ponizsza specyfikacja: Mozliwosc importu generowanych numerow z excela...
Nie o tym pisałem chodzi mi tu o kolejne okienko żeby z sobą współpracowały. (chcę do każdego z utworzonych okienek w miejscu np. Label1 wpisać coś innego, tak aby móc wykorzystać to do różnych innych zapisów) w tym wypadku FORMS niesamowicie się sprawdza jednak z tego co chcę osiągnąć muszę tworzyć nowe okienka. Na razie próbowałem zrobić coś takiego...
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,...
Jeśli chodzi o foto. Źle jest pobierana nazwa pliku. Zakładając, że nazwy obrazków=nazwisko pracownika (a tak z Twojego kodu wychodzi), to [syntax=vb]Private Sub lstFiltr_Change() Dim i As Long, a As Long, ark As Worksheet Dim sciezka As String, nazwa As String Set ark = Sheets("Lista pracowników") a = 0 For i = 0 To lstFiltr.ListCount - 1 If lstFiltr.Selected(i)...
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...
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)...
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"...
Niekoniecznie Access, w Excelu możesz robić nazwijmy to "funkcje użytkownika". Po prostu będziesz musiała się nauczyć czegoś nowego ;) Ja bym to widział tak: masz powiedzmy 5 arkuszy: - strona główna, - baza indeksów, - przyjęcia - wydania - stany magazynowe Na stronie głównej umieścisz przyciski PRZYJĘCIE, WYDANIE i STANY MAGAZYNOWE (czy jak je tam...
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 :)...
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...
Jeśli chodzi o nagłówki. VBA jest "ślepy" jeśli przypisujesz listę inaczej niż przez RowSource... Po mojemu rozwiązanie z labelem jest wystarczające (i pewniejsze). Wyłącz nagłówki, dla labela ustaw Height=10 i Top=62 i będzie ładnie. Czyli pierwszy pomysł najlepszy. Ok Rozbudowałam formularz dodając ikonę z kalendarzem i Checkbox-y z dniami tygodnia....
Witam Chciałbym ukryć całą wstążkę. Do tego dołożyć 2 butony które włączałyby i wyłączały by wstążkę oraz trzeci buton do włączenia jednej zakładki na wstążce. ukrywanie udało mi się za pomocą kodu getvisable tylko że jak tworzę swoje zakładki np: <tab id="MyCustomDeveloperTab" label="Developer" insertAfterMso="TabDeveloper" getVisible="GetVisible"...
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.
Ok, zamyka formularz, a jak zrobić żeby to co zostało wklejone przez program do excela otworzylo sie po zamknieciu formularza ? (wklejony znaczy dodane np. Range("Arkusz1!A7") = Label2.Caption) Edit: owszem arkusz zostaje, ale znika mi z paska i musze ponownie go otwierac poprzez tzw. double click z pulpitu .. Nie bardzo rozumiem. Nic tu nie znika...
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...
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.
To jest "shapes" To jest ActiveX Dodano po 2 Ponadto etykiety Pole1...3 to samo ActiveX, czyli Forms.Label
Ależ "zakręcony" ten kalendarz. 1. zmieniłem warunki w procedurze zdarzeniowej 2. dołożyłem zmienną globalną "WybranaData" 3. zmodyfikowałem kod klawisza [OK] oraz procedury zdarzeniowej 4. dołożyłem procedurę Activate w 'CalendarForm' - zerowanie wartości W międzyczasie zmieniłem załącznik (data w Label'u). Powinno być OK
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...
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
Prot, znowu proszę o pomoc :please: Formatowanie nagłówków działa doskonale :idea: Zabrałem się do numerowania i formatowania tych tabel i wykresów. W zakresie formatowania stylów pozwoliłem sobie skorzystać z Twoich doświadczeń i to mi działa ok. Ale ma problem z kolejnym numerowaniem tabel. Napisałem taki kod: [syntax=vbscript]Sub Change_Tabel() Dim...
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)...
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...
Nie rozumiem dlaczego VBA, ale skoro ma być... Po pierwsze: do wyszukiwania osoby nie możesz oddzielać imienia i nazwiska. Zrobiłbym sobie kolumnę pomocniczą łączącą teksty z kolumny C i D, z niej pobierał dane do listy. Masz "załatwione" dwie rzeczy: jasną identyfikację osobnika oraz precyzyjne wyszukiwanie /indeksowanie. Po drugie: w formularzu wyszukiwania...
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?
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, 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()...
WItam. Musiałem makro trochę zmodyfikować ale działa. Mam teraz dwa działające makra uruchamiane jedno po drugim i wydruk wygląda jak chciałem. Jedyny problem to to że cała procedura trwa długo. Wszystko ponad 10 sekund. Poniżej wkleję oba makra może uda się coś skrócić żeby makro działało szybciej. Sub drukuj_etykiete_nowe() Application.DisplayAlerts...
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...
Dzięki. Częsciowo działa. Wartość w Label10 się pokazuje, ale po wpisywaniu wartości w TextBoxach1-9 nic się nie zmienia w Label10 chociaż w komórka A10 dokonuje obliczeń. Dodano po 1 Dobra, dzięki wielkie już sobie sam poradziłem. Temat zamknięty.
Cześć wszystkim, Po ponad 2 miesięcznej przerwie wróciłem do swojego projekciku i niestety o ile wtedy wszystko szło w dobrym kierunku, to teraz pozapominałem niektórych kwestii i na dodatek przekombinowałem teraz z kodem co w efekcie przysporzyło mi kilku problemów. Program pisany jest w C# i ma współpracować z Arduino, do którego podpięte są dwa włączniki...
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...
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=]tutaj, powklejałem kod, uzupełniłem i... działa. W kodzie UserForm [syntax=vb]Public Class Form1 Dim i As...
Excellent!! teraz wyświetla w TextBox mi właściwą wartość zmiennej. Później robię tak [syntax=text] dim i as Integer i = cint(val(x)) textBox2.Text = i If i > 0 Then Select Case i Case 1 label1.Text = "1" Case 2 label1.Text = "2" Case 3 label1.Text = "3" Case 4 label1.Text = "4" End Select End If [/syntax] i w zmienna i mam jako integer i mogę dalej...
Witam wszystkich. Mam problem ze skryptem quizu. Ściągnąłem go ze strony:[url=]Link Zacząłem go modyfikować i udało mi się jak na razie, że podaje poprawne odpowiedzi dopiero po kliknięciu w pokaż wynik i kliknięciu "ok". Chciałbym zrobić coś takiego, że mam do wyboru (w pliku z pytaniami) możliwość wyboru typu przycisku (radio i checkbox), gdzie przy...
1. WindowsXP Proffesional i nie instalowałem żadnych poprawek, ponieważ kiedy ostatni raz zainstalowałem SP2 to z komputerem działy się dziwne rzeczy. 2. Logfile of HijackThis v1.99.1 Scan saved at 20:32:00, on 2007-05-08 Platform: Windows XP Dodatek SP. 1 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP1 (6.00.2800.1106)...
Logfile of HijackThis v1.99.1 Scan saved at 08:19:04, on 2006-12-18 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v7.00 (7.00.5730.0011) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\winlogon.exe C:\WINDOWS\system32\services.exe C:\WINDOWS\system32\lsass.exe C:\WINDOWS\system32\Ati2evxx.exe C:\WINDOWS\system32\svchost.exe...
To jest Vista.Karta ma zmienione chłodzenie na zalmana vf-1000 temp 33-42 stopnie.Przed graniem włanczałem AMD Fusion profil zaawansowany i ekspert ale to samo.Z tego co pamiętam to przed formatem stalker ale pes 09 chodził dobrze.W stalkerze to mi nie przeszkadza bo są minimalne-prawie niewidoczne ale pes 10 są one wkurzające.Log z hijackthis Logfile...
Logfile of Trend Micro HijackThis v2.0.4 Scan saved at 10:41:48, on 2010-05-08 Platform: Windows XP Dodatek SP3 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP3 (6.00.2900.5512) Boot mode: Normal Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\SYSTEM32\winlogon.exe C:\WINDOWS\system32\services.exe...
Problem jest powszechnie znany ponieważ po otwarciu "mój komputer" i próbie otwarcia którejkolwiek partycji wyskakiwało mi okno Otwórz za pomocą. Wyczytałem gdzieś, że trzeba zainstalować kaspersky anti virus i to załatwi sprawę. Oczywiście nie załatwiło. Znalazłem informację żeby sprawdzić kompa HiJackThis. Tylko jak zaznaczyłem wszystko i zrobiłem...
Witam !!! Bardzo prosze o pomoc . Na codzień korzystam z M.Firefoxa ale nie mogę sie zalogować na forum Excela , więc spróbowałam poprzez IE.6.0 i udało sie . A teraz problemy : Po kilkunastu minutach mój antywirus Kasperky 6.0 podczas aktualizacji pokazał mi taki komunikat "Wystapił problem z aplikacją Kaspersky A..V.. i zostanie ona zamknięta...."...
Ja po prostu myślałem (już wspominałem), że jest jakiś standard i uzyskam odpowiedź adekwatną do pytania w stylu: 1. Tworzysz plik ini z sekcjami językowymi 2. w każdejsekcji wpisujesz np. label1.caption=Tekst Plski itp. 3. w zależności od wybranego języka przeładowujesz..... poprzez (FindComponnent) itp..... lub jakiś przykład. Wystarcza mi odpowiedź...
Cześć :D Mam problem. Mam do napisania program który będzie odczytywał dane exif z wybranego zdjęcia a następnie zapisywał je do bazy danych w excelu, i nie bardzo wiem co dalej. Używam Visual Studio 2012. Przygotowałem już interface graficzny ale nie umiem zaprogramować programu tak by pobierał i pokazywał dane. Nie działa również pobieranie danych...
logi sprawdzałem na hijackthis.de są czyste defragmentacja to jeszcze trwa - hdd generator naprawił mi zwalony sektor na dysku ale dalej zacina Dodano po 5 log hijackthis: Logfile of HijackThis v1.99.1 Scan saved at 10:34:02, on 2006-04-19 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP2 (6.00.2900.2180) Running processes:...
Logfile of HijackThis v1.99.1 Scan saved at 19:15:33, on 2006-04-22 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP2 (6.00.2900.2180) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\SYSTEM32\winlogon.exe C:\WINDOWS\system32\services.exe C:\WINDOWS\system32\lsass.exe C:\WINDOWS\system32\svchost.exe G:\Panda\TPSrv.exe...
Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\winlogon.exe C:\WINDOWS\system32\services.exe C:\WINDOWS\system32\lsass.exe C:\WINDOWS\system32\svchost.exe C:\WINDOWS\System32\svchost.exe C:\WINDOWS\Explorer.EXE C:\Program Files\Mouse\MouseDrv.exe C:\PROGRA~1\ALWILS~1\Avast4\ashDisp.exe C:\Program Files\CyberLink\PowerDVD\PDVDServ.exe...
Więc, co do Panda, to jest dla mnie sprawdzona. Nigdby mi nie obciążała systemy, i jako antywir i jako firewall sprawdzala się doskonale. A jeśli chodzi log z HijackThis, to bardzo prosze: Logfile of HijackThis v1.99.1 Scan saved at 13:10:29, on 2006-06-22 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v7.00 SP2 (7.00.5346.0005)...
Przy uruchamianiu Windowsa XP, komputer sie zacina i nie reaguje klawiatura, ani myszka. Najpóźniej zacięcie następuje przy pojawieniu sie pulpitu. Może to mieć coś wspólnego z trojanem downloader'em które usunąłem w trybie awaryjny z wyłączonym przywracaniem systemu. Jeden z jego plików nazywał się bszip.dll ale nie mogłem znaleźć jego konkretnej nazwy...
Narazie jakis czas chodzi...moze to cos z software'u...zobaczymy. Dodano po 2 Jestem na takim etapie: -piszczy nie z speakera, tylko z glosnikow -jak sie zatnie, to nic a nic - zadnych odznak zycia -radiator ok, wentylatory ok. Narazie odinstalowalem foobara, i przerzucilem sie chwilowo na IE (:/). Moze opera...nie wiem. A-ha, i jak sie zwiesi, to reset...
Oto mój log. WYSKAKUJE MI NA PULPICIE NAPIS NA CZARNYM TLE YOUR COMPUTER IS IN DANGER>>>> PROSZĘ O SPRAWDZENIE MOJEGO LOGA. Logfile of HijackThis v1.99.1 Scan saved at 22:07:32, on 2006-09-28 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP2 (6.00.2900.2180) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\winlogon.exe...
Kurteczka, trochę naotwierane. Niec mi to jednak nie mówi. No, niewiele mówi. Czekam łaskowości i jakiś uwag. Logfile of HijackThis v1.99.1 Scan saved at 18:57:10, on 2006-10-29 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP2 (6.00.2900.2180) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\winlogon.exe...
Witam prosze o sprawdzenie loga. Komp się przycina a poza tym nie dziala cd-rom tzn nie chce nawet wysunąc kieszeni a zanim załaduje się windows to wtedy wysówa. Moj log Logfile of HijackThis v1.99.1 Scan saved at 17:49:46, on 2006-11-19 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP2 (6.00.2900.2180) Running processes:...
Witam mam prośbę ... czy ktoś móglby mi sprawdzić log???? oto on: Logfile of HijackThis v1.99.1 Scan saved at 19:45:57, on 2006-12-26 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP2 (6.00.2900.2180) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\winlogon.exe C:\WINDOWS\system32\services.exe C:\WINDOWS\system32\lsass.exe...
Witam Mam mega problem. Po wpisaniu komendy netstat -a widzę, że mój komputer łączy się na bieżąco z wieloma adresami przez co zwykłe google ładują się koło minuty. Jak usunąć to dziadostwo? Poniżej log z HijackThis. Aha scanowałem komputer pod względem wirusów - nie znaleziono. Też nie znalało żadnego spyware. Logfile of HijackThis v1.99.1 Scan saved...
Ostatnio mam problemy z komputerem- często zawiesza się a ilość procesów rośnie nawet do 90, nawet odrazu po starcie systemu. Usunęłam wszystkie niepotrzebne programy, jednak i z tym mam problem- podczas odinstalowywania np. programu iTunes (korzystając z panelu sterownia/ dodaj lub usuń programy) komputer się zawiesza. Bardzo proszę Was więc o sprawdzenie...
sorki postaram sie lepiej Dodano po 47 Jeżeli coś jeszcze jest nie tak proszę o wybaczenie jestem laikiem w tych sprawach Logfile of HijackThis v1.99.1 Scan saved at 17:46:20, on 07-01-07 Platform: Windows XP (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 (6.00.2600.0000) Running processes: C:\WINNT\System32\smss.exe C:\WINNT\system32\winlogon.exe...
temu co znajdziecie. poniżej jest log: Logfile of HijackThis v1.99.1 Scan saved at 21:26:41, on 2007-01-08 Platform: Windows XP (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 (6.00.2600.0000) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\csrss.exe C:\WINDOWS\system32\winlogon.exe C:\WINDOWS\system32\services.exe C:\WINDOWS\system32\lsass.exe...
1. Z pamięcią jest wszystko w porządku. Kiedyś były drobne problemy ale zostały zlikwidowane. 2. Oto log z hijackthis : Logfile of HijackThis v1.99.1 Scan saved at 12:04:01, on 2007-01-26 Platform: Windows XP Dodatek SP. 1 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP1 (6.00.2800.1106) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\winlogon.exe...
Zablokował mi antywirusa i spybota. Nie mogę ich ponownie zainstalować - system po instalacji nie znajduje plików _exe_ tych programów i się nie uruchamiają. Usunąłem killboxem wszystkie nowo utworzone pliki. (bez efektu) Po podłaczeniu do internetu pobiera mi do _tempa pliki wykonywalne w rodzaju ~4, ~6 itd i je uruchamia. Usuwam w Hijackthis, ale...
Logfile of HijackThis v1.99.1 Scan saved at 21:26:27, on 2007-02-19 Platform: Windows XP Dodatek SP2 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP2 (6.00.2900.2180) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\winlogon.exe C:\WINDOWS\system32\services.exe C:\WINDOWS\system32\lsass.exe C:\WINDOWS\system32\svchost.exe C:\WINDOWS\System32\svchost.exe...