Pierwsze pobranie powinno nastąpić w pętli Numerować powinieneś na podstawie licznika pętli w , jest to bardziej logiczne. Jeśli ustaliłeś w=3 (wiersz 3), to wartość komórki A w tym wierszu powinna być ustawiona z warunkowym wykonaniem jako [syntax=vb]If a<>0 Then Cells(w, 1).Value = w-2 [/syntax]...
Dobrze, że się wyjaśniło ;) Literki w Excelu są piękne :!: (nie rozwijam wątku, żeby "nie nabijać licznika")
Witam Przejrzałem wiele postów w temacie odczytu danych z portu COM bezpośrednio w programie Excel. Niestety, nadal nie potrafię z tego wyciągnąć właściwych wniosków, aby zastosować je w rozwiązaniu mojego problemu. Chyba brakuje mi po prostu wiedzy w tym temacie. Jestem elektronikiem hobbystą, którego...
Witam, Mam problem z makrem które zaimportuje mi dane z wielu dokumentów .xlsx. Importować chcę wybrane komórki z wybranych Arkuszy wielu plików o dokładnie takim samym formacie. Wszystkie te zródłowe znajdują się w tym samym folderze . W trakcie studiowania formum prawie udało mi sie osiagnąć...
Witam, Bardzo dziękuje za pomoc !!! Ale chyba za „cienki jestem” aby zrozumieć zastosowane funkcje i ich składnię – prośba o wyjaśnienie … jak te makra mają działać – i które kolejno: A. - które makro ma być wywołane jako pierwsze … i w jaki sposób ? B....
Witam na Elektrodzie znalazłem bardzo fajne makro które tworzy dokumenty "wordowskie" na podstawie danych z tabeli excela. Jestem w stanie przerobić je do swoich potrzeb ale nie umiem "działać" makrami na plikach wordowskich z poziomu excela. Czy jest ktoś w stanie tak poprawić kod aby po utworzeniu...
Witajcie mam za zadanie stworzenie interfejsu graficznego który miałby w powyższy sposób przekazywać informacje wczytane z excela przekazać na ekran. i tak: 1. Tutaj będzie licznik który będzie zliczał czas od wejścia materiału do wyjścia 2. Aktualna data i godzina 3. Prosty licznik sztuk czyli...
Witam, jakiś czas temu napisalem takie makro, które zlicza ilość plików w folderze a nastepnie z każdego pliku zacięga jeden wiersz z wynikami ankiety i tworzy bazę. Na excelu 2003 to działało a na wersji 2007 wyrzuca błąd: Run-time error '1004' Application-defined or object-defined error Makro...
A zmieniłeś poziom bezpieczeństwa makr? Makra inne normalnie działają tylko te co Założenie jest proste kopiuje wybrane pola z arkuszu1 i przerzuca do arkusza2 oraz dopisuje odpowiednie dane jesli warunki są spełnione Działa on tylko w przypadkach dla pól z "Global Marketing Fee", "Trademark...
Mam 20 maszyn. Chce abym w komputerze otwierał odpowiedni plik Excela i w tym pliku aktualizowały się liczniki czasu pracy poszczególnej maszyny. Widze to tak: Najprostszy sterownik PLC. Do niego podłączona każda maszyna. PLC zlicza czas pracy maszyny (styk na stycznik pompy). Otwieram plik Excela...
Musiałoby być cos takiego, sprawdź Sub CopyCount() Const wrt01 As Single = 72 Const wrt02 As Single = 15 Const wrt03 As Single = 13 Dim i As Integer, licznik As Integer, ark As String ark = "Arkusz2" ' nazwa arkusza docelowego licznik = 2 'pierwszy wiersz ark docelowego Sheets(ark).Range&...
Witam Otóż mam maszynę która mierzy czas pewnego procesu i teraz wyświetla na liczniku i trzeba to wklepać do excela.. Myślę nad czymś w rodzaju programiku w VB powiązanego z RS232 i Excelem.. Przy danym sygnale z maszyny po RS232 licznik czasu programiku się włącza,a przy innym sygnale zostaje...
Mam taki problem. Jest plik w nim dwa arkusze Arkusz1 i data. Arkusz data jest arkuszem jaki mogę wyciągnąć sobie z programu do obsługi stacji paliw. Każdego dnia zamierzam usunąć obecny i wstawić z aktualnymi danymi. Teraz mam karte drogowa i kolejno wprowadzam z niej dane. Kierowcę, daty, stan licznika...
Zrobiłem gotowe makro wykazujący numery ewidencyjne i dla nich sumy kwot. Sub Sumy_kwot() Range("I... ' Czyszczenie kolumny z numerami ewidencyjnymi a = 0 ilewierszy = Sheets(1).Range("c1&quo... ' sprawdzenie...
Proponuję: W arkuszu "ewidencja" w G2 wpisać formułę: =(F2-E2)*24 format liczbowy i mamy godziny pracy. Trochę więcej zachodu będzie jeśli zakończenie pracy jest następnego dnia Np 23:30 do 6:15 (chociaż z arkusza wynika, że nie). Kod formularza UserForm4 przy inicjowaniu moim zdaniem powinien wyglądać...
Witam, dostałem nie lada zadanie od prowadzącego zajęcia z Excela, aby wykonać narzędzie zajmujące się ewidencją czasu pracy maszyny. Działanie narzędzia ma być następujące: Wpisujemy czas pracy urządzenia w danym dniu, w ciągu danej zmiany. Czas z zakresu 0-8, dzień wybierany z listy - proste...
Dziwne. Testuję to cały czas. Na innym portalu znalazłem takie coś i działa to super, ale wkleja mi tylko do jednego arkusza. Generalnie sprawa się troszkę uprościła, bo potrzebuję tylko zawsze pierwszego arkusza z danego pliku w folderze. Ta opcja z zaznaczeniem tego folderu jest świetna....
Pierwszy warunek powinien być przed drugą pętlą (wchodzimy w nią tylko wtedy, gdy znajdziemy "początek"). Druga pętla powinna być 'Do While', ale jeśli działasz na "For'ach"... Innym sposobem byłoby "jechanie" po 'End(xlDown)' - wtedy, jak napisał rufek90 , rzeczywiście wystarczyłaby jedna. Przeanalizuj...
Witam w związku z tym że nie jestem orłem z Excela zwracam się z prośbą o pomoc w wyliczeniu zużycia Energi w procentach przez dom.Dołączam arkusz w którym zacząłem wpisywać stany liczników Energi pobranej wyprodukowanej i licznik poboru Energi w domu. Od początku roku notowałem stany liczników w arkuszu...
Znalazłem taki kod, który chciałbym dostosować do własnych potrzeb. ' ========================================... ZAŁOŻENIA: ' 1. Wszystkie skoroszyty do scalenia znajdują się w jednym folderze ' 2. Nie ma tam żadnych skoroszytów przypadkowych (w tym docelowego) ' 3. Dane...
Może trochę więcej kodu pokażesz? Pokazuję. :-) [syntax=vbscript]Sub plikDoImportu() Application.ScreenUpd... = False On Error Resume Next Dim zakres As Range Dim kierowca As String, akronim As String, sciezka As String, nazwaPliku As String Dim arkImport As Worksheet, arkNowy...
Witam Mam następujący problem do rozwiązania, którego mimo wielu prób nie jestem w stanie wymyślić. Mianowicie w projekcie na studia mającym na celu zaprojektowanie arkusza zliczającego różnego rodzaju przestoje maszyn oraz odliczający czas do realizacji następnego zadania (naprawa, wymiana itd.)...
z tego co kojarze ... ale nie testowalem ObiektExcelApp.ActiveCell.... 1) = Text1.Text wpisze nam do komórki 1,1 - czyli A1 text z edita text1 1,1 - wiersz, kolumna żeby wpisał dalej trzeba by licznik czyli np licznik=1 ObiektExcelApp.ActiveCell... 1) = Text1.Text licznik=licznik+1 ale...
Moja propozycja: dwie zagnieżdżone pętle... Sub kopiowanie() licznik = 1 IleWierszy = Sheets("dane").Range... Etykieta = 2 To IleWierszy IleEtykiet = Sheets("dane").Cells... 1) ...
Wstaw w kod arkusza wynikowego (trzeciego) Private Sub Worksheet_Activate() Dim ark As Worksheet Dim i As Long, j As Long, licznik As Long Set ark = Sheets("Arkusz2") lic... = 1 Cells.ClearContents With Sheets("Raport") For i = 1 To .Range("A65536").End...
Ok doszedłem do ładu z tematem i po kilku dniach pierwszego kontaktu z VBA wypłodziłem z pomocą elektrody kilka skryptów, może się komuś przyda więc wkleję. kolumna B - zakres ulic poprawnych C - ulice poprawne G - ulice do poprawienia H - błędy sprawdzania Kolejność C koniecznie Z->A Obliczenie...
Jeżeli nie ma dużo wierszy (problemy z wydajnością), to sprawdzi się to prościutkie rozwiązanie, podpięte np. do procedury Workbook_open: Private Sub Workbook_Open() On Error GoTo myErr Set wslista = ThisWorkbook.Worksheets("LISTA&... = False Application.Calculation...
Swoją zabawę z vba i excelem rozpoczęłam od wczoraj... Napisałam makro, które robi aktualizacje cen. W excelu podawany jest kod towaru, cena, która jest aktualizowana dla tego towaru oraz dla którego cennika cena ta ma być aktualizowana. Wszystko w tym dodatku jest teoretycznie okej i teraz tu moje...
Pomyśl ile to kombinacji. Żeby znaleźć maksymalną liczbę składników trzeba zaczynać od porównania sum. Pobawiłem się trochę i oto wyniki: W kolumnie M umieściłem funkcje, kolejno: =SUMA.JEŻELI(A:A;"<0") daje liczbę -112561291,98 =SUMA.JEŻELI(A:A;">0") daje liczbę 112685563,27 różnica to...
Witam, Nie mogę poradzić sobie z funkcją działania w tabeli. Mam tabelę w której w poszczególne dni dopisuję liczniki maszyn. W osobnej kolumnie zliczam różnicę liczników maszyn z dniem poprzednim, w kolejnej obliczam zarobek działaniem = zsumowane różnice wyników * stawka. Mam problem z dniem bez...
Dzień dobry, Dziękuję za wyjaśnienie w kwestii sumy liczb nieujemnych. Tak jak myślałem, chodzi o to, żeby co najmniej jedna wartość była niezerowa, więc jeśli liczby są nieujemne, właściwym kryterium jest suma. Formuły z ostatniego postu znowu nie rozumiem, bo w tej wersji, którą Pan załączył w komórkach...
Można na makrach. Nawet nie będzie to skomplikowane za bardzo :) [syntax=vb]Public Function Sumuj(miejsca As String, nagrody As String) As Variant Dim mt, nt As Variant mt = Split(miejsca, ";") nt = Split(nagrody, ";") Dim x As Integer Dim licznik As Variant licznik = 0 For x = 0 To UBound(mt) If...
dzięki adamas_nt :-) poprawiłam co nie co i teraz działa. Tak wygląda poprawne makro [syntax=vb]Option Explicit Sub information_import() Dim my_file As String, text As String, postUx As Integer, postUy As Integer, licznik As Byte licznik = 1 my_file = "C:\Analysis_File\Projekty_monika\Cylind...
Jeśli masz już we wszystkich plikach tabele z jednowierszowym nagłówkiem :!: to najlepiej wróć do oryginalnego kodu :D [syntax=vbscript]Sub Scalaj() Dim Skonsolidowany As Worksheet Dim Plik As String Dim Skor As Workbook, Ark As Worksheet Dim Pocz As Range, Kon As Range ...
Podmień całe makro Sub wyszukaj() wrk = "Arkusz2" 'TU WPISZ NAZWE ARKUSZA w cudzysłowiu Application.ScreenUpdating = False 'wyczysc zakres Sheets(wrk).Select zakr... = Range("F6").End(xl... = Range("G5").End(xl...
Jeśli ma być odwrotnie, to pozamieniaj w kodzie "A" z "B" Też zadziała, ale... Edit: Jeśli powtarza sie wiele razy lepiej Sub UsunPowt() licz = 0 For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row licznik = 0 For Each kom In Range("A:A") ...
Masz tutaj kod do funkcji (bo chyba chodziło Ci o funkcję, nie formułę), która zlicza komórki czerwone: Resztę sobie przerób w ramach rozwoju w tematyce VBA:) Function licz_czerw(zakres As Range) Dim kom As Range Dim licznik As Single For Each kom In zakres If kom.Font.Color = RGB(255,...
Udało mi się uporać z problemem dopiero po napisaniu makra. Jakby ktoś potrzebował to przesyłam załącznik ;) Function lista(ciag_wejsciowy) ark = ActiveSheet.Name Sheets("Słown... = 2 wynik = "" licznik = 0 Do While Worksheets("Słownik")....
Podstaw do pętli (w pliku 'turandot.xls'), jeśli to te same pliki.[syntax=vb]Sub AddProcToFiles() Dim nazwa As String Dim sciezka As String Dim licznik As Integer Dim start As Single, meta As Single start = Timer sciezka = "c:\vbide\" 'podstaw scieżkę do folderu z plikami ...
Po przefiltrowaniu, wiersze mają właściwość Hidden = false lub true. Wtedy, Np [syntax=vbscript]ostW = Range("A" & Rows.Count).End(xlUp).Row licznik = 2 Sheets(2).Unprotect Password:="elektroda" For i = 2 To ostW If Not Rows(i).Hidden Then Sheets(2).Cells(licznik, 1) = Cells(i, 1) ...
Problem rozwiązany dodałam do kodu 3 Application.ScreenUpdating = True Set Skonsolidowany = Worksheets.Add() Plik = Dir(Folder & "*.xls") Do Until Len(Plik) = 0 Licznik = Licznik + 1 Application.StatusBar = "Konsolidacja pliku nr " & Licznik ...
Zwracam się z prośbą do osób którym napisanie kodu nie sprawia problemów a wręcz odwrotnie -przyjemność. Znalazłem w sieci kod (nie znam autora) dodatku do Excela i formułę dzięki którym można obliczać odsetki za dany okres. Mój problem polega na tym, że nie mam zielonego pojęcia jak zrobić (zmienić...
Witajcie, Z Excela jestem zupełna noga :) Dlatego zwracam się z prośbą do fachowców. Muszę mieć takie rozliczenie pracy jak w załączniku. Problem pojawia się przy tankowaniu. Chcę aby arkusz obliczał średnie spalanie po tankowaniu oraz średnie spalanie w skali miesiąca. Tankowanie zawsze do...
Aby nie rozbijać wątku na PW - postanowiłem wkleić moją porażkę: Witam, wiesz powiem wprost zagadnienie mnie przerosło i czas mnie sporo goni o tyle o ile rozumiem lub prawie rozumiem to co pisze to jednak nie rozumie tego co makro robi. Doskonale zdaję obie sprawę z moich braków w językach programowania...
Witajcie, Chciałem zapytać, czy jest możliwe stworzenie w Excelu funkcjonalności, polegającej na wprowadzaniu terminowych zadań przyporządkowanych do użytkownika. Chodzi mi głównie o to, że w pliku tym wpisuję cykliczne zadania dla pracowników i określam termin na ich wykonanie. Gdy minie określony...
Czy da się coś zmienić w kodzie żeby to wykonywało się szybciej ?? 1. Na początek wyłącz wszystkie opóźniacze, które mogą rzutować na szybkość kodu: [syntax=vbscript] With Application .ScreenUpdating = False: .DisplayAlerts = False: .DisplayStatusBar = False .EnableEvents =...
Poniżej kod, który działa i wyszukuje mi wiadomości, które w temacie mają wprowadzone przez użytkownika frazy. Dzięki licznikowi zwraca on tylko jednego maila, jeśli znajdzie już o owym temacie w skrzynce (a nie wszystkie, które znajdzie), aczkolwiek chciałbym, aby makro zwracało mi ostatni wysłany,...
Nie no .... jak się powiedziało A ... "A u nas to działało" jak to mówią serwisanci :) W czym problem ? ..........aaaaaaaaaaaaaaaaaaaaa......... ściągnąłem twój arkusz ... a myślałem, że dobrze tłumaczysz :) zaraz postaram się poprawić już Sub Makro1() kolumna...
Dzięki za wszystkie wskazówki (bardzo pomogły). Pętla działa już jak powinna: For i = pierwszyWiersz To ostatniWiersz If Sheets("Arkusz2").Rang... = Sheets("Arkusz1").Rang... & i) Then licznik = licznik + 1 ...
Hmm, pojawia się pytanie: jak odróżnić '0 od zera? Spróbuj [syntax=vb]'min jedno With Sheets("Arkusz2") For Each kom In .Range("D30:D200") If kom.Text = "0" Then licznik = licznik + 1 End If Next End With If licznik > 0 Then MsgBox "Znalazłem " & licznik & " zer" 'wszystkie licznik...
Skoro już rozpisałeś, to użyj jej jako tabelki pomocniczej. Np: wpisz rozpiskę w L1:O15 w H1 wpisz =PRZESUNIĘCIE($A$1;0;L1-1) i skopiuj 4 w prawo i 15 w dół w h16 =PRZESUNIĘCIE($A$2;0;L1-1) i skopiuj 4 w prawo i 15 w dół etc, etc Ostatecznie możesz sobie napisać proste makro z wykorzystaniem...
które w nazwie mają co najmniej 6 cyfr i wśród nich jest ciąg cyfr „2016” Jeżeli Kolega nie potrzebuje sprawdzać czy to data czy nie, to można uprościć ten warunek jako: [syntax=vbscript]For i = 1 To Sheets.Count nazwa = Sheets(i).Name If InStr(nazwa, "2016") > 0 And Len(nazwa)...
Czyli wstawianie arkusza opanowane. Teraz mamy wpisywać *jakieś* dane w jakiś sposób. Można założyć, że linia po linii (ale to założenie wynikające tylko z kontekstu wcześniejszych postów). W jaki sposób działa teraz wpisywanie do jednej linii? Makro, które już Kolega posiada zaczyna wpisywać od...
Sprawdź poniższe dwa warianty ... tak coś niby działa, ale sceptycznie podchodzę do takiego drukowania. W mojej ocenie, na teraz, drukarka będzie się przytykać - wstawiłem "opozniacz" (Const opozniacz), przy pomocy którego możesz sterować opóźnieniem nowego wydruku, gdzie: 0.5 = 0.5 s 1 =1 s itd. (opóźniacz...
Z wypracowań na języku polskim miałeś pewnie piątkę.;) Możesz powyższe napisać w 3 zdaniach? Za czasów szkolnych umiałam wszystko napisać w 3 zdaniach – zarówno charakterystykę Boryny jak i rozprawkę o tym czy warto chodzić do szkoły – więc piątki z polskiego zawsze mnie omijały, ale...
Przepraszam, faktycznie podałem mało informacji, ale pisząc post zakładałem, że problem jest już rozwiązany, nie szukałem pomocy, chciałem osobom, którym Excel sprawi podobne kłopoty zasugerować, co może pomóc. A to ma sens na dużym poziomie ogólności, wątpię, żeby kod tu wiele pomógł, zwłaszcza mało...
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...
witam dane sa generowane przez urządzenie na serwer w takiej postaci jak napisałem wyżej.Niestety nie mam możliwości ingerencji w sposób rejestracji tych danych. Nie ma problemu impotem wszystkich lub jednego pliku *.dat do excela - robię to identycznie jak z importem *.txt Import z folderu o zmiennej...
Piszesz dość chaotycznie, a wygląda że dość słabo znasz Excela, więc precyzja jest ważna, żebyś nie musiał dużo dopasowywać. Czy te liczby pięć razy 1, pięć razy 2 itd. mają być generowane na podstawie licznika z kolumny A, w którym będą kolejne liczby naturalne, czy niezależnie np. na podstawie numeru...
Czy ma ktoś pomysły jak to wykonać Mam jeden: Pętla For dla wierszy od pierwszego do ostatniego, wewnątrz której umieść instrukcję If testującą obydwa łańcuchy, w ciele której umieść licznik. Na końcu wystarczy wymnożyć licznik przez stałą.
Wartość ujemna w ostatniej linii spowodowana jest tym, że zużycie wody w danym miesiącu jest liczone jako: stan końcowy licznika - stan początkowy licznika = zużycie wody Stąd więc pusta komórka ze stanem końcowym jest traktowana jako zero. Zero minus wartość od niego większa zawsze da liczbę ujemną.
Ad1) Zastosuj warunkowe zapisywanie (gałąź If-Else). Sprawdź stan/wartości kontrolek (w pętli wg nazwy typu, jeśli dużo) i jeśli spełniają warunki - zapisujesz, jeśli nie, wyświetlasz stosowny komunikat. Ad2) Wstaw licznik do pętli i wymuś wyjście, jeśli licznik=suma.
A jak zrobić, aby wyszukało kolejne słowo "MAGMA" w tej samej kolumnie i wykonało ponownie tę samą operację tak, aby w wierszu ze słowem "SUMA" w kolumnie "MAGMA" nie pojawiła się żadna wartość Odpowiedniejsza była pętla For dla obszaru UsedRange i warunkowo zmienny znacznik typu Boolean. W zależności...
Dalej nie do końca jasne. Z tego, co Pani napisała rozumiem, że lista będzie tworzona każdego dnia od początku, czyli nie chodzi o usuwanie pojedynczych pozycji z listy, tylko całej listy. Wydaje mi się, że ta lista zachowuje się prawidłowo po usunięciu wszystkich pozycji, kłopoty są tylko gdy Pani będzie...
Dodano po 6 Wiem, że w Excelu jest funkcja porównująca wartości dwóch odrębnych kolumn. Zapomniałem jednak, jak się nazywa i pamiętam, że miałem z nią kiedyś duże kłopoty z prawidłowym jej uruchomieniem.
Nie arkusz nie jest drukowany na jednej stronie. Jest zrobiony podział właśnie po to mi licznik. Potrzebuje licznik stron, który nie jest umieszczony w stopce, tylko w danej komórce, może tak pędzie prościej.
To tylko kwestia dopasowania, metoda "prawie" identyczna dla obu przypadków. [syntax=vbscript]Option Compare Text Option Explicit Sub Proba() Dim katalog As String, plik As String, linia As String Dim licznik As Long, ko As Integer, startuj As Integer Dim tabela As Variant, i As Long katalog...
Rzeczywiście dane w kolumnie B nie były takie jak w makro, nie wiem dlaczego excel zmienia po wpisaniu więcej niż trzech kropek na jakąś większość ilość znaków... Poprawiłam dane w kolumnie B. Teraz śmiga. W załączeniu plik poprawiony. Dodałam jeszcze komendę do wyjświetlania okna gdy makro napotka...
Makro robi zestawienie wszystkich wierszy z różnych plików z jednego folderu ale odrzuca te w których szósta komórka we wierszu wynosi zero. Problem jest taki że makro w Excelu nie zaciąga danych z komórek odnoszących się do innego arkusza. Z pierwszego pliku jednak takie dane pobiera bez problemu,...
Zakładam, że chodzi o zajęcia w liceum albo na studiach? Należy zastosować narzędzia programowania języka VBA w Excelu. Dokładny kod skryptu zależy od tego jak procedura ma działać. Czy ma działać na wyeksportowanym pliku czy też ma działać w czasie eksportu. Jeżeli procedura ma działać na gotowym...
- Ja bym jeszcze dodał polecenie Close (1) Open Plik For Input As #1 Jeżeli wystąpi błąd w trakcie wczytywania, excel lubi zostawić zablokowany plik tekstowy, skutkiem czego kolejna próba wczytania się nie powiedzie. Próba zamknięcia przed otwarciem zapobiegnie temu. - W pętli For...
Tak jak kolega Aldrin zauważył błędnie były nazwy kolumn w stosunku do zwracanych danych. Ja powiększyłem iolość kolumn tak by i "uwagi" były widoczne. Dodatkowo zmieniłem opis (i wyliczenia) do drugiej kolumny by pokazywało liczbę porządkowa danego arkusza a nie wiersz. Wg mnie jest to logiczniejsze...
Taka dodatkowa informacja - twoje dane nie są spójne. Masz powtarzające się produkty (wiersze) w cennikach "cennik" i "pcb". Zmieniając w tabeli przestawnej ustawienia pola wartości z "suma z Cena" na "licznik z Cena" bez problemu odkryjesz w których przypadkach masz duplikaty. Przykładowo - wyrób...
Chciałbym zaprezentować prosty licznik Geigera, jaki ostatnio wykonałem. Urządzenie oparte jest o powszechnie znaną radziecką tubę STS-5. Lampa ta jest ciekawa, ponieważ jest stosunkowo czuła. Jako element sterujący zastosowałem mój ulubiony mikrokontroler rodziny 8051 typu AT89C2051 z typowym...
Dzięki chłopaki za pomoc :D Politechnikę się skończyło to wypada coś umieć z Excela, w sumie to mieliśmy podstawy (ogarnialiśmy głownie bazy danych, np: odczyty z wodomierzy powiedzmy 10tys rekordów (ciś, przepływ itd) i obrabialiśmy dane na wykresach, tabelach przestawnych, czy uczyliśmy się używania...
Liczba 0,01 ma nieskończone rozwinięcie binarne, więc przy wielokrotnym dodawaniu błędy zaokrągleń w pewnym momencie się ujawniają. Należy unikać takich działań. Bezpiecznie jest dodawać liczby całkowite, a wynik ewentualnie dzielić przez 100. A najlepiej tak zorganizować obliczenia, żeby wystarczał...
Piszę program sterujący zapłonem silnika 3 cylindrowego, Ma on na celu "emulację" mechanicznego regulatora odśrodkowego kąta wyprzedzenia zapłonu. Wymyśliłem sobie że tabelę zmiennych zapiszę w PROGMEM, poniżej program testujący rozwiązanie z tabelą. No i teraz: Niech mi ktoś proszę powie...
Temat rozrósł się w zasadzie nie na temat. Szukam gotowego urządzenia mierzącego czas między impulsami diody licznika i wykonującą obliczenie: P Za dwieście coś złotych jest na allegro kompletny fabryczny bezprzewodowy monitor poboru energii, wpina się czujnik za licznik, zdalnie można analizować...
Witam wszystkich, potrzebuje pomocy co do odczytu stanu licznika. W skrócie, podlicznik nie był ustawiony na wskazywanie 3 stref (taryfa b23) i teraz jest problem z rozliczeniem. Udało mi się ściągnąć dane z licznika tzw. profil mocy, wszystko przerzuciłem na excel ale tu zaczynają się schody. Po podzieleniu...
Witam Wszystkich ! Sytuacja klasyczna PGE, licznik dwukierunkowy dwutaryfowy GAMA350 bez modułu GSM, fotowoltaika 5,5kWp. Chcąc mieć "jako taką " kontrolę nad energią elektryczną z i do PGE założyłem konto ebok w PGE i po paru mailach z PGE uzyskałem w grudniu raport z licznika za okres do połowy...
Bardzo proszę o pomoc i wyjaśnienie na czym polega komunikacja między urządzeniem a Exelem. Mam spięte za pomocą Modbus pare urządzeń (sterownik, falowniki, liczniki itd) i wizualizacja zrobioną na InTouch. Potrafię czytać parametry w excelu za pomocą formuły. Wiem, że jest też możliwe komunikowanie...
Witam Posiadam urządzenie sterowanie sterownikiem S7-200. Niestety wymagane jest częste zmienianie nastaw niektórych parametrów tego urządzenia (a konkretnie liczników w sterowniku). Wydaje mi się, iż najlepszym rozwiązaniem będzie podłączenie na stałe (za pośrednictwem PPI) PCta i za jego pośrednictwem...
Uznałem, że podstawowy problem został rozwiązany, trochę zbyt pochopnie... Pojawił sie nowy.. zrobiłem rozliczenie roczne w arkuszu o którym mowa wyżej w taki sposób, że w filtrze widniało po prostu po 12 miesiącach jako jedna z opcji filtru. Rozliczenie to po prostu suma wypłat miesięcznych...
Łańcuch jaki zwraca funkcja Mid reguluje zmienna i podstawiona jako argument "Start", będąca zarazem licznikiem pętli For . W przykładzie (For i = 3 To 9 Step 3 ) zmienna przyjmuje wartości 3,6,9. W dalszych liniach kod sprawdza wartość liczby. Dla Excela 001+1=2 i dlatego w zależności od tego...
po poprawkach wygląda to tak: Sub Macro1() 'deklaracje tablic grup POTS,DSL,inne dopisać Dim POTS(1 To 2) As Variant POTS(1) = "0.2" POTS(2) = "0.3" Dim DSL(1 To 2) As Variant DSL(1) = "0.4" DSL(2) =...
W excelu nie da się "wrzucić" danych do rysunku. Poniżej masz dwa rozwiązania: zapis "w ciągu" (nawiasy niepotrzebne ale określają licznik) i efekt pseudograficzny. Ja przynajmniej innego wyjścia nie widzę. Jeżeli ma być tylko jedna liczba po przecinku zmień w formule zaokrąglenia z 2 na 1 ...
Jeśli chodzi o procedurę zdarzeniową, to istnieje pewien haczyk. Instrukcja UCase powoduje zmianę. Należałoby najpierw sprawdzić kod znaku i jeśli jest to litera mała, wyłączyć zdarzenia i dokonać zmiany, zastosować licznik lub jeszcze inne rozwiązanie. W innym przypadku Excel zawiesi się nie mogąc skończyć...
No da sie Powiedzmy ze zapisujesz je sobie w excelu w jednym arkuszu i teraz w komórce a1 pytanie a2 odpowedz1 a3.... I teraz robisz sobie skrypt który najpierw wylosuje Ci pytanie (w praktyce wiersz od 1-50) i sprawdzi czy nie był już wylosowany jak był to losuje następny jak nie to był to...
Suma jeżeli jest ok gdy mamy do czynienia tylko z kilkoma numerami. Problem pojawia się gdy tych numerów mamy dziesiątki Suma.jeżeli jest dobra i dla paru i dla dziesiątek numerów. Nie wiedzę tu problemu. jak już to stworzenie listy bez dubli ale to się robi w 5 sekund w excelu 2003 (filtr zaawansowany...
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"...
Witam, Mam kod, który eksportuje arkusz excel do .csv i pobiera nazwę dla pliku z komórki A1, która pobiera nazwę z licznika pliku .txt. Potrzebuję, żeby nazwa pliku .csv składała się z sześciu miejsc, czyli 000001 ; 000125 itd. [syntax=vb]Dim MyPath As String Dim MyFileName As String MyPath...
Dzięki NAXIN, ale gdyby to było takie proste to nie wchodziłbym na forum. Nie da się tego zrobić w tabeli funkcją licznik bo policzy wszystkie powtórzenia w danym okresie (duble) jako odrębnych pracowników, podczas gdy faktycznie to będzie tylko 1 pracownik (w Twoim przykładzie: Wrocław, Pracownik1,...
Cześć, mam na warsztacie ostatnio temat związany z transpozycją tabeli. W tabeli w załączniku potrzebuję przepisać wartości kolumn od 0-9 (stałe - w sensie ilość się nie zmieni, bo po osiągnięciu każdej 9 licznik przeskakuje o kolejny wiersz) przyporządkowane do serii wierszy, do układu dwóch kolumn,...
Witam serdecznie :) Jest to mój pierwszy post na tym forum. Piszę w sprawie zadania na studia (informatyka, inżynierskie) z przedmiotu Techniki Cyfrowe. Moim zadaniem jest zaprojektować licznik generujący w kółko sekwencję 7>4>3>2>1 . W tym celu rozpisałem tabele przejść i stanów przerzutnika, zminimalizowałem...
1. #N/D! - da się wyeliminować przez dodanie na zewnątrz formuły JEŻELI.ND albo JEŻELI.BŁĄD. Obie działają podobnie do funkcji JEŻELI, więc nie powinieneś mieć z nimi kłopotów 2. Da radę przeszukać kilka arkuszy jednocześnie - wystarczy w zakresie podać adresy zakresów w poszczególnych arkuszach rozdzielone...
a ja nie mam pojęcia gdzie jest błąd Jeśli podane wzory są prawidłowe :?: :D to wyliczając osobno licznik i mianownik (zgodnie z zasadami Excela :idea: ) rzeczywiście wynik jest odmienny od Twojego wyliczenia :D - tak jak na zrzucie 1086276
Witam wszystkich serdecznie! Na podstawie załączonego schematu układu 3-bitowego liczącego po kolei 0 -> 7, chciałbym stworzyć licznik synchroniczny na przerzutnikach typu D, o zadanej sekwencji: 1->5->4->6->3. Dzięki materiałom z forum i Internetu udało mi się dojść do etapu (ekran Excel), w którym...
Witam. Mam taki problem mam na zadanie z postaw informatyki na I roku przedstawić na bramkach sumator (albo symulator sam juz nie wiem) 8-bitowego licznika Czy mialby ktos cos takiego w Excelu? Z góry Dzięki za pomoc Pozdrawiam
Zlecę wykonanie 25-cio kanałowego programowalnego licznika impulsów na bazie komputera PC. Wymagania: 1. Równoczesne zliczanie impulsów o częstotliwości do 15Hz z 25 czujników - możliwy dowolny sygnał z czujnika szczelinowego lub kontaktronowego. 2. Wyjście przekaźnikowe dla każdego kanału jako sygnał...
Monitorować i analizować zdalnie dane z liczników można za pomocą oprogramowania Meternet. System działa na wspomnianym porcie RS485 i transmisji JBus/ModBus. Możesz spokojnie dane wrzucić do sieci wewnętrznej Ethernet, a dane analizować w Excelu. System monitoruje pobór energii, i tak jak wspomniał...
... To jest tylko przykład Z tego przykładu niewiele wynika. Trzeba wziąć ołówek, kartkę i policzyć (może być arkusz excela). Po jednej stronie postawić aktywa, po drugiej pasywa, wielkość inwestycji, źródło inwestycji (kredyt / gotówka), czas zwrotu.... zużycie energii za ostatni rok (na obydwu...
I ja od ok. tygodnia mam już eLicznik i dane. Trwało to ok. 1.5 miesiąca, pomimo cyklicznego bombardowania ich mailami i telefonami -już mi brakowało cierpliwości :) Analizując sytuację mam 2 spostrzeżenia: 1. Mam brak bilansowania międzyfazowego. W wielu godzinach o dużym oddawaniu mam jednak pobory. Ponoć...
:) Zakręcone to :) więc od komórki licznika - czyli 57 (F17) ma mi odjąć sumę wystąpień komórek z zakresu od B2 do B59, przyjęte kryterium to żeby wyświetlił w komórce H26 ilośc komórek spełniające warunek: >H20 i <H19 czyli na łebski rozum (policzone na kartce) powinien wyjść wynik 38 :D wstawiając...
Chcesz żeby ktoś odrobił zadanie domowe za ciebie? Przecież to nie jest takie trudne. W czym masz kłopot? Napisz to pomogę ale nie oczekuj gotowego rozwiązania bo naprawdę nie jest to ciężkie. Nie za bardzo rozumiem że wynik ma być w 3 kolumnie. Czyli w jednej kolumnie są nazwy (ADSL ...) ...
A rzeczywiście, mój błąd. Powinno być 'wpisanie do arkusz ceny sprzedazy Range(Cells(licznik + 1, 5), Cells(licznik + 1, 6)).Select cenasprz = TextBox3 Cells(licznik + 1, 5).Value = cenasprz With Selection .HorizontalAlignment = xlCenter .MergeCells...
Dodaj do pętli wyrażenie sprawdzające czy dana liczba się nie powtórzyła. Nie mam niestety teraz czasu żeby taki kod napisać ale jak robisz pętlę to zrób sobie tablicę liczb czyli w pętli: tablica(i) = komorka_value I wtedy kolejne liczby będą zapisywane w tablicy w pamięci komputera. Jak to już będziesz...
Napisałeś pętlę nieskończoną. Nie do końca łapię co chcesz zrobić. Może wystarczy licznik pętli przesunąć poza gałąź If Do Until ActiveSheet.Range("A" & i) = "" Or ActiveSheet.Range("A" & i + 1) = "" If Range("A" & i).Value...
da sie coś takiego zrobić? Da się, Np przy użyciu pętli (For lub Do). Wewnątrz wstaw instrukcję wyboru (If) porównującą wartości komórek w kolumnach obu arkuszy i jeśli są równe, to licznik pętli będzie interesującym nas numerem wiersza, dalej już z górki. Podobny temat: [url=]Link, ostatni post.
W tym wypadku wygodniejsza będzie pętla For . Jeśli docelowo dane mają być kopiowane do wielu kolumn należy zagnieździć jedną wewnątrz drugiej. Licznik pierwszej określałby wiersz, drugiej kolumnę. Twój opis nie jest oczywisty i można różnie go interpretować. Najlepiej wrzuć plik z przykładowymi...
Jeśli ma się coś wydarzyć we wszystkich arkuszach, to spróbuj w pętli. For i = 1 To Sheets.Count MsgBox Sheets(i).Name Next Zmienna licznik podstawiana jast jako indeks arkusza.
Usuń duplikaty ani tabela przestawna tu się nie przyda bo dochodzi warunek że usuń gdy puste ale nie gdy puste w Re_3 Stworzyłem w sumie proste makro (ono tylko tak wygląda) Pierwsza część kodu przepisuje wszystkie linie mające to samo zlecenie. Później następuje sortowanie. Następnie warunek...
I tu czegoś nie rozumiem (trzymam się cały czas obrazka jak pijany płota). Jeżeli te dane to stany licznika, to ów licznik chodzi raz do przodu a raz do tyłu.
...albo zrobić tabelę przestawną z indeksem w wierszu + licznik z indeksu?? :)
Potrzebuje jedynie 0:A Grade czyli klasy A. Mam ja w kolumnie E, a chcialbym, zeby wyrzucalo mi ja w C - ogolnie zeby byla zachowana kolejnosc. Po drugie - filtruje tutaj po filtrze DANE i chcialbym zostawic sobie tylko np.procenty czyli LICZNIK KATEGORIA2 (rozumiem ze LICZNIK KATEGORIA to ilosci liczbowe...
Sub test() Dim plik As Workbook, baza As Workbook, wrs As Long Dim ostWrs As Long, kol As Integer kol = Month(Date) + 11 Set plik = ThisWorkbook Set baza = Workbooks.Open(plik.Path & "\base.xls") With plik.Sheets("OVERVIEW")... ostWrs =...
na jednym pliku wiem jak, ale jak zrobic zeby dane z kazdego pliku rozpoczynaly sie co 15 wierszy?? Proponuję tak: 1. zrób licznik, np. i=5 2. przed skopiowaniem zakresu wartości ustaw w pliku szef pozycję na komórce "początkowej" dla zakresu, np. Range("A" & i).Select 3. po wstawieniu wartości...
1. Makro odpada ponieważ po każdej dodanej wartości wchodzącej w wynik komórek w kolumnach BW i BX musiałbym uruchamiać makro. 2. Podane przez Ciebie makro dalej uzależnione jest od kolumny bz, co mi przeszkadzało, więc wywaliłem pierwsze if, a kolumne w while wstawiłem BV (jeśli nie ma wartośći w...
Przepisałem tylko, bez sprawdzenia. Zmiennej "kol" przypisz Nr kolumny, w której wyliczasz dni miesiąca. [syntax=vb]kol = 2 'kolumna, odpowiadająca wierszowi Nr.2 w "Szychtownicy" 'zawierająca dni miesiąca 'Jeśli "Kalendarz" ma indeks 1 to licznik od 2 i wtedy zbędny drugi argument If'a For...
Tak, procedurą typu "nalewanie do szklanki" :) będzie tutaj pętla, w której jako zmienna-licznik należy przypisać indeksy arkuszy. No właśnie, wszystkich? Można wcześniej sprawdzić czy taki obiekt znajduję się w arkuszu i dopiero ustawić Enable na True, lub wyłączyć obsługę błędów. Dezaktywować najlepiej...
Musiałbyś zmienić licznik pętli zmiennej wiersza: For k = 1 To ostatnia komórka Range(wiele_kolumn).End przeszukuje tylko skrajną, lewą kolumnę. Wyszukuj od pojedynczej i najlepiej od dołu (jeśli zdarzają się "okienka"). Np ostWrs=Range("B65536")>End(xlup).row ... sposoby ostW=ActiveSheet.UsedRange.Rows...
Otwierasz kolejne pliki w pętli, w której należy umieścić licznik numeru kolumny arkusza docelowego. Jeśli znasz nazwę lub indeks arkusza źródłowego (idealnie byłoby, żeby był identyczny w każdym pliku), to przepisujesz zakres, zamykasz plik i... to wszystko. Ewentualnie powtarzasz tę samą operację dla...
Dwie rzeczy: 1. [syntax=vb]Application.ScreenUpdating = False[/syntax]na początku makra i[syntax=vb]Application.ScreenUpdating = True[/syntax]na końcu. 2. Zamiast 100 razy pisać: [syntax=vb]wscel.Cells(wstaw, 2) = wsbaza.Range("B" & c.Row) wscel.Cells(wstaw, 3) = wsbaza.Range("C" & c.Row) ...[/syntax](swoją...
Pomogę w ten sposób: Tak przypisujesz nazwę z danej komórki Nazwa_z_komorki = Worksheets("KON").Cell... 1).Value i podobnie ilość Ilosc_z_komorki = Worksheets("KON").Cell... 2).Value Do powyższego cells(nr wiersza,nr kolumny)...
Zauważcie, że autor pisał o znalezieniu wartości, które występują na liście tylko jeden raz . Zakręcił tytuł, ale o to chodzi. Tabela przestawna (z licznikiem wartości) i LICZ.JEŻELI po odfiltrowaniu 1 dadzą ten efekt. Filtr zaawansowany i polecenie usuwania duplikatów - już nie.
Moim zdaniem, całkowicie subiektywnym, najlepiej byłoby stworzyć gotowy plik raportu i tylko edytować dane (kasować stare i zapisywać aktualne). Pomyśl, że przecież trzeba ten plik "ładnie" opakować: jakieś nagłówki, opisy, wielkość czcionki czy inne kolory... Dlatego zrobiłbym to raz. Na ten pomysł...
Trochę ma co robić ta pętla. Nieco przyśpieszy zmiana licznika. Wyszukiwanie odbywa się od drugiego wiersza, więc 'For i = 2 To n' Można też zamiast sprawdzać wszystkie warunki na raz (wolniej), wydzielić jeden na zewnątrz. Np [syntax=vb] For i = 2 To n If kraj(i) = country Then ...
Program masz "prawie" gotowy. Pomyśl, potrzebujesz odwołać się do Nr wiersza komórki spełniającej kryteria (tutaj zmienna "abc", zadeklarowana jako 'Range'). Będzie to wartość właściwości 'Row'. Następnie należy znaleźć lub określić Nr ostatniej w wierszu. Zadziałaj podobnie (metoda End), jak masz...
przymierzyłem się do tego pomysłu, ale formuła robi się skomplikowana, ponieważ w przykładowym pliku (dla uproszczenia wyrzuciłem), wybiera się jeszcze z listy rozwijalnej temat szkolenia. Ponieważ szkolenia są krótkie, trzebaby formułę, która sprawdza łącznie, czy jest ta sama data AND miejsce AND temat,...
Zastosuj pętlę For. Sprawa jest dość prosta: 1. Znajdź Nr wiersza ostatniej niepustej w kolumnie A 2. Podziel (zaokrąglając w górę) liczbę z pkt.1 przez ilość kolumn wynikowych, a otrzymasz liczbę wierszy do skopiowania na jeden przebieg. Lub przez liczbę wierszy, żeby otrzymać ilość kolumn (dla...
Odpowiedniki literek można przypisać zamieniając je na kody ASCII, potem odejmując 65 (dla A będzie więc wartość 1, dla B wartość 2 itd.). Potem przemnożyć taką liczbę przez 1000, aby można bez problemu dodać pozostałą wartość liczbową. Co >=2 głowy to nie jedna :) I to jest chyba najlepsze rozwiązanie... "lub...
Witam, w arkuszu mam ramkę, którą za pomocą klawisza Dodaj kopiuję poniżej. Dodatkowo stworzyłam klawisz Usuń gdyby ktoś wstawił go pomyłkowo. Problem polega na tym, że w tabeli mam checkboxy i przy usunięciu nie wiem jak wpisać makro, żeby je usuwał. Próbowałam makro nagrać, ale niestety każdy checkbox...
Są jeszcze funkcje INDEKS, PODAJ POZYCJĘ i kilka innych, które dałoby się wykorzystać. Oczywiście wiąże się to z liczeniem wystąpień, kolumną pomocniczą i dodatkowym arkuszem wynikowym. Jeśli kolega ma na myśli zautomatyzowanie czynności, to zagnieżdżone pętle z licznikiem wstawianych wierszy, porównywaniem,...
w trzeciej sama trasa wypisana w formacie: sklep_xxx-sklep_yyy-sklep_z... Jeśli dobrze zrozumiałem, to myślnik jest znakiem rozdzielającym nazwy sklepów, których trzeba wyszukać? Jeśli tak, to najprościej rozbić ciąg funkcją Split i zapisać w tablicy. Następnie wyszukać kolejne wartości w pętli...
W takim przypadku potrzebne są dwie pętle. Pierwsza For dla wszystkich arkuszy, których nazwa <>"RAPORT", wewnętrzna Do While...Loop z licznikiem dla Nr wiersza i instrukcją porównująca zawartość komórki, Np: If Instr(Cells(wiersz, 5).text, szukany_fragment)>0 Then i tu kopiowanie. Szukaną...
Rzecz w tym, że schowek office to inny obiekt niż schowek windows. Poniżej przykład umieszczenia danych w schowku systemowym oraz odczyt i wyświetlenie w msgbox. Uwaga: wymagane referencje, Edytor VB>Tools>References, zaznacz "Microsoft Forms 2.0 Object Library" Przyjąłem, że dane są w kolumnie "A",...
Tak z pierwszego linka z google: masz licznik, masz od ilu (1) i do ilu (32000) oraz co ile (liczymy co 1). To wszystko, pod pętlą umieszczasz swój kod.
Chyba się nie zrozumieliśmy, w licznikach na górze kolumn liczę osoby dostępne na zmianie a chodzi mi o obliczenie sumy faktycznego czasu pracy przy każdym pracowniku na końcu ich grafiku, w przykładzie komórki J23 do J31. Jeżeli pracownik AA 1-go w poniedziałek pracował od 5 do 14, a 2-go od 5:30 do...
Dzień dobry, W przypadku gdy komórki źródłowe są w różnych kolumnach, a wyniki mają być w tej samej trzeba jeszcze użyć dodatkowego licznika inkrementowanego co 1. Jedno z możliwych rozwiązań w załączonym arkuszu. Jeśli chodzi o funkcję ADR.POŚR, to jej argumentem jest tekst adresu w stylu A1, czyli...
Mały przykład [syntax=vb]Sub Petla() Dim licznik As Integer, ile As Integer ile = 500 'ile = Range("E1") Do While licznik < ile licznik = licznik + 1 test = Cells(licznik, 1) Loop MsgBox licznik End Sub[/syntax]
Chyba trzeba wstawić licznik do pętli. Sprawdź [syntax=vb]Sub Dostawy() Dim OstWiersz As Long Dim j As Integer, l As Integer Dim LArkuszy As Integer, LArkuszy2 As Integer, LWierszy As Integer Dim zakres As Range, zakres2 As Range, licznik As Integer 'kopiuję dane do nowego...
A czy dane z wierszy w sekcji "Zakup paliwa" są powiązane jakoś z danymi w wierszach "Zużycie paliwa"? Masz tam kolumny stan pocz./kon. licznika, których brak w zakładce "Razem dział", co z nimi?? Last but not least : czemu po prostu nie dodawać wierszy z datą tylko wtedy, kiedy rzeczywiście jest...
Arkusz zjadłeś[syntax=vb]Sheets(1).Range("B" & licznik & ":AR" & licznik).Copy bd.Rows(r)[/syntax]
Dobry wieczór, Ponieważ nie było załącznika, to trudno odtworzyć dokładnie układ danych w arkuszu. Przesyłam propozycję analogiczną funkcjonalnie, zaadaptowaną z rozwiązania innego problemu. Proszę sobie to dostosować do swojego układu danych. Tu wszystko jest w jednym arkuszu. Lista wszystkich pracowników...
Dzień dobry, Scalanie komórek utrudnia lub uniemożliwia wykonanie różnych operacji m.in. sortowania. Dlatego lepiej nie scalać komórek dopóki nie wykona się wszystkich operacji i dopiero na końcu scalać, jeśli to niezbędne. Należy pamiętać, że w przypadku komórek scalonych dane są przypisane tylko...
Dodałem to w taki sposób i niestety nie działa :/ może ktoś widzi błąd? [syntax=vb]Sub Licznik() Private Sub Licznik_1_Initialize() AlwaysOnTop Me.caption End Sub 'Application.WindowState = xlMinimized 'Licznik_1.Show modeless End Sub Private Const SWP_NOSIZE = &H1 Private Const...
Przeanalizowałem problem i okazuje się, że jest możliwość takiego uśredniania próbek, aby zmniejszyć ich liczbę zawsze do 160 (gdy ich liczba jest większa od 160) - przeprowadzić odpowiednie "skalowanie", kompresję danych. Czyli dla 320 próbek można łatwo uśrednić sąsiednie próbki, aby otrzymać dokładnie...
Witam! Mam problem z programem, którego zadaniem jest zliczenie wartości z kilku komórek jednego z arkusza i wpisanie jej do wybranej komórki innego arkusza. Problemem jest to, że nie zawsze jest to taka sama ilość komórek. Program ten musi najpierw sprawdzić czy w danej komórce jest liczba, jeśli...
Dzień dobry, Namiastką sortowania liczb jest użycie funkcji MAX.K albo MIN.K, w zależności czy chce się sortować od największej do najmniejszej czy odwrotnie. Zakresy proszę sobie dostosować do potrzeb, licznik też musi liczyć od 1, więc w razie przesunięcia danych w pionie formuły trzeba poprawić. Pozdrowienia
No to samemu chcesz się nauczyć, czy czekasz na gotowe rozwiązanie?? Jeżeli to pierwsze, to z czym masz teraz problem? Możesz teraz użyć dwóch zagnieżdżonych pętli for - jedną po wszystkich wpisanych liczbach, i dla każdej z nich drugiej, po wszystkich wylosowanych (jeżeli to w ogóle o to chodzi...). Jeżeli...
Zmiennej 'lastRow' oraz 'lastColumn' przypisujesz wartość z ActiveSheet i wykorzystujesz jako liczniki pętli przeszukującej sht... Przypisanie powinno być wewnątrz pętli 'For Each sht In ThisWorkbook.Worksheets'.