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]
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.
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...
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...
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...
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ń...
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,...
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...
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...
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....
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...
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 .
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...
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,...
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"
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"...
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...
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"),...
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...
Przy odwołaniach, po kropce, powinna wyświetlić się lista właściwości i metod. Nie bardzo... Jeśli masz dodane referencje to obiektu to dla niektórych obiektów wyświetlane są właściwości i metody, ale nie dla "createobject(COS.Appliaction)" (pod warunkiem, że przekazujemy obiekt do zmiennej typu "Object" o czym później) gdzie COS to nazwa programu....
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 sprawdza czy (w moim przypadku coś1) się powtarza jeżeli...
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ł...
Będę żądał od nich także wykazu rozliczenia godzinowego bo mam zapisane stany licznika od 12 stycznia do dzisiaj Nie ma co żądać tylko na swoim koncie w PGE tutaj https://obrazki.elektroda.pl/3872217400_... zamówić raport za wskazany przez siebie czas i do godziny będziesz mógł ściągnąć raport w Microsoft Office Excel za ten okres...
Eksperymenty związane z EKG Od dawna uważałem za interesujące rozważania o własnych systemach EKG. Szczególnie interesują mnie rozwiązania niedrogie i łatwe w konfiguracji. W tym artykule przedstawiono kilka sposobów wykorzystania tej techniki. Ale najpierw coś podstawowego: Ze względu na bezpośredni kontakt elektrod EKG z ciałem, wszystkie elementy...
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. Dziekuję, o to mi chodziło....
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...
Obawiam, że bez VBA nie da rady, bo będzie błąd odwołania cyklicznego. Ale możesz spróbować pobawić się rejestratorem makr.
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
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")...
...albo zrobić tabelę przestawną z indeksem w wierszu + licznik z indeksu?? :)
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.
Arkusz zjadłeś[syntax=vb]Sheets(1).Range("B" & licznik & ":AR" & licznik).Copy bd.Rows(r)[/syntax]
owszem w komórce może być 32 767 znaków. Ale to jest inny problem. Chodzi mianowicie o to, że jeśli w komórce "H2" w "Arkuszu2" znajduje się powyżej 40 numerów PESEL przedzielonych przecinkiem i spacją. W momencie próby wykonania kodu pojawia się komunikat: "parametr typu string jest za długi". Poniżej cały kod: [syntax=vbscript]Private Sub CommandButton1_Click()...
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")....
Witam. Ja może dokładnie po kolei odpowiem na pytania, które mnie zaskakują, bo nie wiedziałem i nie wiem, że można takie rzeczy robić. Teraz już jestem pewny, że biorę udział w "koncercie życzeń" - to niesamowite. Nie będę się dziwił, że informatyk napisał program po swojemu, bo jak widzę, to będzie to lepsze, a ja nie miałem nawet odwagi o czymś takim...
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łą.
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.
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 funkcje metodą Karnaugha oraz zaprojektowałem...
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 Royalty Fee" czyli dla pól gdzie nie ma francuskich akcentów...
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.
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]
Witam, przepraszam od razu za post pod postem, ale doszło jeszcze jedno pytanie . Czy istnieje możliwość utworzenia licznika cyfr w funkcji - to znaczy, tworząc jakąś funkcję dajmy na to " $A$1 + 1". Wymusić aby przy rozciąganiu jej na kolejne komórki, licznik "+1" został zwiększony o jeden. Czy isteniej taka sposobnosć?
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...
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...
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...
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...
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 Dim Naglowki As Range, Podzakres As Range, KomDocel As Range Dim Licznik As Long,...
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...
Sposób1. Przed zapisaniem usunąć procedurę dodawania i zapisywania licznika. Sposób2. w procedurze ustawić warunek np: If ActiveWorkbook.Name = "BOOK1.xls" Then (...) End If Przy sposobie 2 makro zawsze będzie kopiowane i przy uruchamianiu pojawiać się będzie monit o makrach. Chociaż nie będzie działać z nieodpowiednią nazwą pliku. Ale jeżeli to nie...
licznik excel excel licznik prądu kopiować excel excel
vestel 17ips72 wyświetlacz sterownika pieca defro podłączyć kamera okablować
zasilacz tomanek przetwornica prądu stałego
Renault Ceres – nie odpala mimo wciśniętego sprzęgła, czujnik sprzęgła, rozrusznik, diagnostyka Nissan Pathfinder R51 – kolorowe kreski na wyświetlaczu, przyczyny usterki AV/NAVI
