LICZ.JEŻELI
Jak sprawić aby excel sam po wpisaniu odczytu licznika z datą nowego miesiąca liczył sumę Całą prostą zabawę można zrealizować w jednym arkuszu (oczywiście można to rozpisać na kilka arkuszy z odpowiednimi odwołaniami ;-) ) np. tak jak na zrzucie 1232639 Musisz jednak wprowadzić odpowiednie formatowanie wszystkich danych i wykorzystać kilka formuł...
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] w momencie pobrania zerowej wartości, nie nastąpi...
Obawiam, że bez VBA nie da rady, bo będzie błąd odwołania cyklicznego. Ale możesz spróbować pobawić się rejestratorem makr.
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]
Można wysyłać przez TCP/IP (nawet lokalnie) - baza danych to zbędna komplikacja. A do obróbki Tcl (ja kiedyś robiłem takie rzeczy w Tcl-u), albo Python.
Dobrze, że się wyjaśniło ;) Literki w Excelu są piękne :!: (nie rozwijam wątku, żeby "nie nabijać licznika")
No to akurat rozwiązanie z kodem, ale skuteczne. :) Rozpakuj załącznik, otwórz Liczniki i naciśnij 'Importuj'.
Witam i seredecznie pozdrawiam :) Jestem nowym użytkowinkiem forum, przeczytałem archiwalne posty i nie znalazłem w nich odpowiedzi na mój "problem". Proszę o wyrozumiałość, jeżeli wyda się on komuś z Szczownego grona użytkowników tego forum za błahą sprawę, jednak dla mnie to bardzo poważna sprawa. Nie mam zbyt dużego doświadczenia, dlatego zwracam...
Witaj, Spróbuj, czy tak zadziała: [syntax=vb]Dim MyPath As String Dim MyFileName As String MyPath = "C:\Users\xxx\Desktop\Test" MyFileName = "M" While Len(MyFileName) < 7 - Len(Sheets("Arkusz1").Range("A1").Value) MyFileName = MyFileName & "0" Wend MyFileName = MyFileName & Sheets("Arkusz1").Range("A1").Value If Not Right(MyPath, 1) = "\"...
Można to najprościej zrobić korzystając ze standardowego "rozciągania" komórek w Excelu. Zakładając że w A2 wpiszesz =$A$1+1, w A3 wpiszesz =A2+1 to rozciągając komórki w dół (począwszy od A3) otrzymasz w następnych komówrkach =A3+1, =A4+1 itd. co w sumie daje efekt zwiększania licznika. Sposobu tego używałem, kiedy w Excelu nie było jeszcze możliwości...
Zamieszczone
... w jaki sposób odczytać z poziomu Excel'a dane z utworzonych wirtualnych portów COM? Wyniki krótkiej kwerendy po forum i okolicach ... trochę do przejrzenia będzie. W podsumowaniu zarysowuje się kwestia sporządzenia jakiejś, w miarę funkcjonalnej, formatki z odpowiednią kontrolką, np. MSCOMM32: https://www.elektroda.pl/rtvforum/viewto...
Zamiast [syntax=vb] .Sheets(4).Range("a3:a3").Copy ThisWorkbook.Sheets("Arkusz2").Range("c" & n2 + licznik & ":c" & n2 + licznik)[/syntax] zapisz [syntax=vb] .Sheets(4).Range("a3:a3").Copy ThisWorkbook.Sheets("Arkusz2").Range("c" & n2 + licznik & ":c" & n2 + licznik).PasteSpecial xlValues Application.CutCopyMode = False [/syntax] itd.
...albo zrobić tabelę przestawną z indeksem w wierszu + licznik z indeksu?? :)
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 bez warunków) i w 3 sekundy w 2007 (przycisk usuń...
Panowie, czy w tym liczniku Czyli gama 350 można odczytać ilość kWh oddanych do sieci każdego dnia. W PGE (możliwe, że od innych też) można zamówić i otrzymać wykaz wraz z bilansowaniem godzinowym energii oddanej i pobranej za dowolny okres po 01.04.2022 w każdej godzinie (godzina po godzinie) z możliwością obrabiania statystycznego (Excel). Z licznika...
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.
Witam If Left(Cells(w2, k).Value,6) = lista(licznik_petli) Then
Osobiście przetestowałem kilka różnych liczników dostępnych w polskich sklepach internetowych. Te najtańsze ulegają awarii. U mnie sprawdziło się ORNO, był to model bez WiFi. Proponuję coś sprawdzonego: Zamel Supla MEW-01, Tobie zależy na: Typ: Trójfazowy, z możliwością pomiaru jednofazowego. Zakres pomiarowy: Przekładniki prądowe do 100 A. Funkcje:...
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 wpisana = wylosowana, zwiększasz jakiś licznik...
Nie płaci własciciel cewki W taryfie G nie, ale w innych tak, płaci właściciel cewki, za obciążenie sieci przesyłem tej energii w te i we wte. Z tego powodu większość zakładów przemysłowych wprowadza kompensację energii biernej. proponujesz błedny algorytm. Właśnie analiza wstępna wskazuje, że może być ok. Przynajmniej analiza dwóch warunków brzegowych...
Witaj, zadanie proste do zrobienia, poniżej masz podpowiedź, skoro zaczynasz z VBA to idea wystarczy żebyś sam napisał działające makro, [syntax=vbnet] Dim licznikstatus1 as integer =0 For i =0 to liczba wierszy If wiersz(i). Komorka(a) ="status1" then Licznik status1=licznikstatus1+1 Next Arkusz(x). Komórka(6:a)=licznikstatus1 [/syntax]
To chyba nie jest wiedza tajemna. Wystarczy przed podpisaniem umowy poprosić całą jej treść z załącznikami i ogólne warunki umowy. Przeczytać, wyliczyć. Taryfę dobrać na podstawie profilu obciążenia. Najlepiej monitorować zużycie energii. W domu jest przecież licznik. Excel i do dzieła. Umowy są pisane językiem prawniczym często ale na to nie ma rady...
w komórkach B7:AR20 Ustaw licznik=7 w takim razie
A może wystarczy podstawić separator i sprawdzić czy data? [syntax=vbscript]licznik = 1 For i = 1 To Sheets.Count 'zamieniamy separator daty /jeśli jeszcze jakieś możliwe - dopisać nazwa = Replace(Sheets(i).Name, " ", "-") nazwa = Replace(Replace(Replace(nazwa, ".", "-"), ",", "-"), "_", "-") miejsce = InStr(nazwa, "2016") 'miejsce "2016" w ciągu If...
Makro uruchamia się, gdy przechodzisz do "Arkusz2" (Np po zmianach w "Arkusz1") Po linii licznik=2 przydałoby się Range("J" & Rows.Count).ClearContents Ew. szukanie pierwszej niepustej w kolumnie. To już Tobie zostawiam. Oczywiście dość łatwo przerobić to na funkcję.
Dzieki za podpowiedzi pozdrawiam
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 pomysłu kolegi JRV ). Wariant nr 1 - drukuje...
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łą.
Jak nie wiadomo co zrobić, to najlepiej sprawdza się zasada RTFM. A więc: wstaw bloczek "Logowanie danych", kliknij PPM na niego, wybierz opcję "Pomoc" i przeczytaj, że "Rejestr danych rozpoczyna rejestrację po narastającym zboczu (zmiana z 0 na 1) na wejściu En (Enable)". Dalej przeczytaj, że "Możesz przenosić rejestr danych do komputera PC lub na...
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") If kom.Offset(-licznik, 0) = "" Then Exit For If Cells(i,...
Poniżej kod, który działa i wyszukuje mi wiadomości Najpierw pytasz o excela teraz wstawiasz kod (vba) pod outlocka, po co ten sort w pętli? wystaw go poza pętle i sortuj np. 'senton' i zmieniaj prawda/fałsz. Dzięki licznikowi zwraca on tylko jednego maila Ten licznik jest tam zbędny
Bilansowanie godzinowe odbywa się w systemie ZE a nie w liczniku. Dotyczy pełnych godzin zegarowych t.j. 00.00-0.59, 1.00-1.59 ... 23.00-23.59 PGE na życzenie udostępnia w Excel taki bilans za dowolny okres od 1.04.2022 bez ostatnich tygodni. Odczyt z licznika jest bez bilansowania godzinowego ale z bilansowaniem fazowym.
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 nazwa = Dir(sciezka & "*.xls*") Application.EnableEvents = False Application.DisplayAlerts...
Podałem Ci tylko przykład na liczbach. Chodzi o to, że jeśli najpierw pogrupujesz wiersze a w następnej kolejności posortujesz, to grupowanie wierszy się nie zmieni bez względu na wynik sortowania. W trakcie wybierania nazwisk do grupy licz wiersze do pogrupowania i po umieszczeniu nazwisk grupy w arkuszu, uruchom grupowanie wg. licznika wierszy. Ad....
w trzeciej sama trasa wypisana w formacie: sklep_xxx-sklep_yyy-sklep_zzz 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 For, gdzie licznikiem będzie rozmiar tablicy. Wynik można...
Jednak w tym rozwiązaniu nie możesz się pozbyć innych modeli bo błędnie będzie wyliczał % Bo z założenia ma liczyć % w wierszach więc jeżeli się pozbędziesz innych grup stracisz procenty (będzie 100%). Nie można ich usunąć, ale można je ukryć lub zgrupować - zaznacz kolumny D:K i prawy klawisz myszki -> Ukryj lub Dane -> Grupuj. Licznik z kategoria...
Google: 'excel read from serial port'. [url=https://www.google.com/search?q=exc...
Licznik, jak nazwa wskazuje, ZLICZA ilość wystąpień, ale nie unikalnych tylko łącznie. Ty robisz tabelę przestawną która grupuje dane według kodu, i dla każdego kodu (w tym wypadku tylko dla jednego) zlicza ilość wystąpień NR STOPU - więc liczba 72 jest prawidłowa. Żeby policzyć ile jest różnych wartości, należy zrobić tabelę która ma NR STOPU w wierszu...
CommandButton z napisem GRAJ!, Poszedłbym raczej w kierunku formatki użytkownika (UserForm), niż bawiłbym się w z przyciskami w arkuszu. Łatwiej zapanować nad aspektem wizualnym "zabawki", no i miejsca więcej w arkuszu na inne rzeczy. czy „CommandButton_SPRWDZ1” może weryfikować wszystkie 39 odpowiedzi Prosto odpowiadając - można - np....
Chyba złapałem. Moim zdaniem nie powinna to być procedura zdarzeniowa, a zwykłe makro. Jeśli chodzi o coś takiego: http://obrazki.elektroda.pl/4353087600_1... Spróbuj w ten sposób For Each kom in zakres .
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ł licznik całkowitoliczbowy, a ułamki wprowadzać do...
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.
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 arkusza Sheets(1).Copy after:=Sheets(1) OstWiersz = Sheets(2).Cells(Cells.Rows.Count,...
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 = True .NumberFormat = "#,##0.00 $" End With 'wpisanie marży...
Jeśli już makro... Przedstawiam nieco inne podejście (może komuś się przyda). Pozwoliłem sobie zmodyfikować powyższe makro, wykorzystując właściwość MergeArea.Rows.Count. Dodatkowo ostW, coby nie wpisywać zakresu "na sztywno" (podobnie można z tabelką źródłową). [syntax=vbscript]Sub FillRangeWithMergedCells() Dim ostW As Long, w As Long, kol As Long...
Lzep :arrow: Z fotki wynika wszystko jasno, chyba że ktoś nie miał do czynienia z Excelem i dartem ... tomi1972 :arrow: Excel działa domyślnie w trybie natychmiastowego przeliczania formuł. Bez odpowiedniego makra nie da się zrobić tego co oczekujesz. Usuwając sumy pośrednie (F2 i J2) wartość zawsze będzie "wracać" do 501. Napisałem proste makro sumujące...
Szkoda że do tego licznika nie można zamontować one meter. Trzeba fizycznie do licznika i sprawdzić ? Online się nie da ? Tak mi się wydawało, że autokonsumpcji nie da się rozbić na T1 i T2. Mówisz że przy PV nie ma co pilnować aby zmywarka czy pralka była w taniej taryfie ? W takim razie nie będziesz zmieniał na G11 ? Masz może jakiś fajny Excel do...
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.
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 danych na strefy i zsumowaniu wszystkiego...
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 komórki, która jest aktualnie zaznaczona i wypełnia ileś...
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ć jest możliwe wywalczenie zliczania wektorowegood...
Myślę, że zwykłe czytanie (xml potraktowane jako pliki sekwencyjne) powinno poradzić. Wklej do modułu standardowego i wypróbuj [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 Boolean katalog = "c:\" 'podstaw katalog z xml'ami. Slash...
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'.
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, 0, 0) Then licznik = licznik + 1 End If Next kom...
Skoro tak jest to nie kombinuję tylko pójdę w 3 fazy i mikrofalowniki. Rozumiem, że jak to bilansowanie działa w praktyce to można podejrzeć na liczniku energii oglądając na bieżąco rejestry licznika 1.8.0 i 2.8.0 ? Rejestr 1.8.0 wykazuje zużytą (pobraną) a 2.8.0 oddaną energię bez bilansowania fazowego czy to godzinowego. Bilansowanie fazowe i godzinowe...
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, jeżeli OK wtedy zwiększa licznik, posiedzę nad...
Dużo do wyjaśniania, więc przeanalizuj sobie taki przykład makra z pętlą[syntax=vb]Sub Ukash() Dim myPath As String, fName As String, newWkb As Workbook Dim wrs As Long, wrsDst As Long myPath = "U:\Lukasz\Raporty\" 'składasz string z zamianą daty na tekst fName = "Raport " & Str(Date) & " adamas" 'lub dowolna data pobrana z komórki Set newWkb...
Ad.1 i 2 Najprościej: nazwij je przy tworzeniu Np dla pierwszego wykresy dodaj na końcu Wykres_01.Name = "Wykres1" wtedy: Sheets(Zak).Shapes("Wykres1").delete Ad.3 Przy Workbook.Open wywołaj makra usuwania i tworzenia. Jeśli będą nazwane (pkt.1), nie będzie trzeba nawet pętli, instrukcji warunkowej, itp. Ad.4 Array z nazwami i pętla. Zakresy masz po...
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 http://obrazki.elektroda.pl/1008993400_1... Ostatecznie możesz sobie napisać proste makro z wykorzystaniem...
Witam jak automatycznie wstawić cyfrę w odpowiedniej komórce? Chciałbym stawić odpowiednie licznik do arkusza właściwie arkuszy ok 200 w skoroszycie, jak wygenerować iteracje tak aby np A5 wstawiona została liczba (numer arkusza). Tak wiem jest funkcja która czyta licznik w arkuszu ale ja chce wstawić na stałe licznik , 200 arkuszach funkcja która coś...
Witam, proszę o pomoc w sprawie różnicy zużycia między licznikiem a fakturą. O co chodzi: co miesiąc spisuję pobór i wprowadze energii z licznika z pozycji 1.8.0.x i 2.8.0.x (taryfa G11) - porównując je w miesiąc w miesiąc mogę z różnicy wyliczyć pobór/wprowadzenie w każdym miesiącu. Jednak wyliczone wartości nie pokrywają się z tymi z faktur od PGE....
Evellina: 124kWh z ok. 3 kWp -> 41,3kWh/1kWp -> PV to 35% całego zużycia prądu (off-grid eco solar boost) Przeglądam forum od paru godzin zaledwie, bo zacząłem szukać info na temat magazynów stąd też może opisywaliście już gdzieś jak robicie pomiary? Może bym u siebie też z ciekawości podłączył coś do mierzenia ilości odebranej energii? Przetwornice...
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 ten czas zatrzaśnięty np. 1,2 sekundy i tą wartość chciałbym...
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ć procedury. Zmiana uruchomi makro, które dokona...
Podmień całe makro Sub wyszukaj() wrk = "Arkusz2" 'TU WPISZ NAZWE ARKUSZA w cudzysłowiu Application.ScreenUpdating = False 'wyczysc zakres Sheets(wrk).Select zakrOd = Range("F6").End(xl... zakrDo = Range("G5").End(xl... Range(Cells(5, "F"),...
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 sht = 1 To Sheets.Count If Sheets(sht).Name <> "Podsumowanie"...
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 = .Range("B65536").End... For...
Wypróbuj takie coś: [syntax=vbscript]' ========================================... ' 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 do scalenia są zawsze w pierwszym arkuszu i mają jednakowe kolumny ' 4. Dane do scalenia mają nagłówki...
Prostym makrem można tak (wklej w kod arkusza i uruchom; zapisze w kol.A) [syntax=vbscript]Sub numerowanie() Dim w As Integer, test As String Dim licznik1 As Integer, licznik2 As Integer, licznik3 As Integer w = 3 Do While Cells(w, 5) <> "" If Cells(w, 4) = "__Element" Then licznik1 = licznik1 + 1 licznik2 = 0 licznik3 = 0 ElseIf Cells(w, 4) =...
Kolumny A i L służą do przeszukiwania, są ponumerowane Range("L2").Offset(i - 1, 0).Value = licznik Range("A2").Offset(j - 1, 0).Value = licznik będzie błędne numerowanie jeden warunek wstawiający znaczniki w wierszach może w inne kolumny? Dodano po 17 Dodano po 1 i nie trzeba " -1"
1. W impedancji zespolonej zastępczej to co jest w mianowniku powinno byś w liczniku. 2. W obliczeniu modułu, funkcja IMABS (moduł liczby zespolonej - excel). 3. Znamionowa moc silnika Pn to nie pierwiastek 3 stopnia z iloczynu. Powinno być 3*Un*In*cosfiN.
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ą drogą: że też Ci się chciało...) zrób: [syntax=vb]wscel.Range("B"...
Może wstawić licznik w wewnętrznej pętli i jeśli równy 0 to błąd... licznik=0 For Each kom In Range("A2:A" & Range("A65536").End... If UCase(kom) = UCase(tekst) Then kom.Value = Cells(i, 2) licznik=licznik+1 Else kom = StrConv(kom, vbProperCase) End If Next If licznik=0...
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 = 37258 Then Range("A" & i + 1).EntireRow.Insert...
Moja propozycja: dwie zagnieżdżone pętle... Sub kopiowanie() licznik = 1 IleWierszy = Sheets("dane").Range... For Etykieta = 2 To IleWierszy IleEtykiet = Sheets("dane").Cells... 1) For i = 1 To IleEtykiet Application.Range(Sheets("d...
Zrobiłem to tak że program wybiera z tabelki po prawej inicjały (4 pierwsze znaki) czyli jak w tabelce jest J.K. to wybiera te inicjały. I przeszukuje kolumnę K w poszukiwaniu zgodnych inicjałów, (też 4 pierwsze znaki) czyli jak jest( J.K. data) to wybierze tylko "J.K." i dodaje do licznika pozycji zleconych. Dodatkowo jak kolor czcionki jest czerwony...
Witam Może któryś z kolegów się pochyli i poprawi lub sprawi żeby działało sortowanie w tym pliku który dołączyłem w załączeniu. Jestem kompletnym laikiem . W arkuszu nr 3 jest baza losowań a w komórce P2 jest licznik wystąpień. Z arkusza nr 2. Kopiowane są trzy liczby i wstawiane do arkusza nr 3 po wciśnięciu klawisza "sprawdź numery"a w komórce P2...
[syntax=vb]Sub Licznik() Private Sub Licznik_1_Initialize() AlwaysOnTop Me.caption End Sub 'Application.WindowState = xlMinimized 'Licznik_1.Show modeless End Sub [/syntax] Sub w Sub? Podawaj błedy jakie są komunikowane.
Sub copy() Dim r1 As Long, r2 As Long, r3 As Long, c1 As Long, licznik As Integer Nie należy wywoływać swoich procedur (funkcje) słów zastrzeżonych.
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
Jeśli czyta i zapisuje, to już połowa sukcesu ;) Tajemnicą jest, dlaczego przypisanie jest poza pętlą. Nie rozumiem też dlaczego łączysz linie 'text=text & textline' Kolejność w pętli powinna być następująca: 1. czytam linię 2. zapisuję do komórek i.. tak w kółko, aż do EOF (end of file) Po mojemu powinno zadziałać coś takiego:[syntax=vb]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 = 0 With Sheets("Arkusz2") For Each kom In .Range("D30:D200") If kom.Text...
Ten program tak ma działać i tak działa. Po prostu po skopiowaniu makra do nowego pliku i ponownym jego otwarciu makro szuka pliku "licznik.txt" i jeżeli go znajdzie dodaje kolejny numer. Aby tego uniknąć należałoby np. połączyć nazwę pliku licznika z nazwa pliku excela i wtedy dla każdego nowego pliku xls będzie nowy plik txt. I tu będzie jeszcze jedno...
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ą...
Może trochę więcej kodu pokażesz? Pokazuję. :-) [syntax=vbscript]Sub plikDoImportu() Application.ScreenUpdating = 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 As Worksheet Dim wiersz As Long, licznik As Long Set arkImport = Sheets("Import")...
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) licznik = licznik + 1 End If Next Sheets(2).Protect Password:="elektroda"[/syntax]
1. Ustawiasz w arkuszu układ danych, tak aby jak najlepiej pasował ci do wyliczeń 2. Określasz i deklarujesz typy zmiennych - jeśli będziesz je wykorzystywać 3. Zliczasz ilość komórek z danymi (liczby) 4. Dla średniej arytmetycznej wykonujesz dodawanie liczb, a następnie podział sumy przez ilość komórek z danymi (liczby) 5. Dla średniej kwadratowej...
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ą.
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 na licznik nie zdefiniowany w makrze(np ".........8")....
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 od jego stanu wypełniasz, lub nie komórki w kolumnie....
W cytowanym wątku jest załączony plik Excel do wygenerowania danych, a w pierwszym poście jest kod (nie sprawdzałem go) na Atmegę 328. Potrzebujesz skonfigurować timer+licznik. Przy każdym wyzwoleniu timera pobierasz z tablicy kolejną próbkę i wstawiasz ją do triggera licznika. Istotne: - timer powinien wyzwalać się z częstotliwością ponadakustyczną...
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) dodanie arkusza: Sheets.Add Nadanie nazwy arkuszowi: ActiveSheet.Name...
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 101-201/07-2 w "cennik"
To by było to ale jest już za późno ... :( TO JEST TO ... :D ... i nie sądzę, aby było na cokolwiek 'za późno' ... :D ... np.: na browarka ... :D ... no chyba, że chodzi o cytaty ze Stachury ... :) ... a już na pewno nie za późno na podziękowanie koledze adamasowi_nt ... w ktorym miejscu wstawić pętlę która stworzy Nie trzeba ... pętle już są ... jedna...
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 dodaje do wylosowanych i zwiększa licznik. Jak wygenerujesz...
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 to z licznikiem pętli. Pozostaje przeliczenie (wymnożenie)...
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 = False: .Calculation = xlManual End With [/syntax] Na końcu makra włączysz je...
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 pełna, co 2-3 dni. Z poprzedniego miesiąca ostatni stan licznika...
excel licznik kopiować excel excel kopiowanie excel excel
podłączyć telewizor philips router adapter kasety schemat alpine wyłącza
Napęd na koła w traktorku kosiarce 12 KM: mechaniczny vs hydrostatyczny Niedziałający dotyk na tablicy MyBoard - co zrobić?