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.
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ń...
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...
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...
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 .
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,...
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...
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...
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...
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...
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....
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ł...
Witam If Left(Cells(w2, k).Value,6) = lista(licznik_petli) Then
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...
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
LICZ.JEŻELI
...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.
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")...
Arkusz zjadłeś[syntax=vb]Sheets(1).Range("B" & licznik & ":AR" & licznik).Copy bd.Rows(r)[/syntax]
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")....
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łą.
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()...
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...
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...
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.
Obawiam, że bez VBA nie da rady, bo będzie błąd odwołania cyklicznego. Ale możesz spróbować pobawić się rejestratorem makr.
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...
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]
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...
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...
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 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...
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,...
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....
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...
Marku, dopóki do formantów masz przypisane procedury, których nie ma lub są błędne, OpenOffice będzie "uważał", że cały czas jeszcze nad tym pracujesz ;) Nie mam pojęcia dlaczego Ci te makra działają (tak przynajmniej zrozumiałem), bo nie powinny... Np dla przycisku [Nowa Dostawa] działa takie coś: [syntax=vbscript]Sub Dostawa_Klikniecie() Dim x As...
Lepiej sobie zapisać wcześniej zanim uruchomisz makro. I w ogóle kopie zapasowe się przydają. Pokaż na jakich wartościach operujesz ("z 60000") Excel może się zawiesić np. jak dostanie zbyt dużo obliczeń do przerobienia i są jakieś błędy w makrze. Pokaż wartości i wyniki. Sprawdzałem teraz ten kod, ale działa mi i nie zwiesza. PS. nie musisz za każdym...
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 zadanie, ale problem pojawia się dalej. Dwa rekordy - w...
Nie zaglądałem tu na forum, stąd trochę spóźniona reakcja. Jeśli chcesz dodać lub usunąć kolumny z przodu, to trzeba zmienić w regule formatowania liczby zaznaczone na czerwono, albo wstawić tam licznik kolumn. Jeśli chodzi o zmianę zakresu formatowania, to standardowo: Formatowanie warunkowe/Zarządzaj regułami/Dotyczy A pytania: jak przerobić to formatowanie...
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") licznik = 1 Cells.ClearContents With Sheets("Raport") For i = 1 To .Range("A65536").End&#... For j = 1 To ark.Range("A65536").En...
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 danymi i układem arkusza wynikowego.
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łownik").Sele... i = 2 wynik = "" licznik = 0 Do While Worksheets("Słownik").... 2) <> "" pozycja...
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 termin to zadanie robi się czerwone i leci monit na...
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&... Application.ScreenUpdating = False Application.Calculation = xlCalculationManual On Error Resume...
No nie działa. Czemu? Bo ta pętla robi... no właśnie, trudno się połapać :) Może spróbuj w ten sposób (zakładam, że tekst jest w wierszach w kolumnie A) Edit 20:15 trochę uzupełniłem, żeby wszystko jasne było. Sub Makro1() a = ActiveCell.Row N = InputBox("wiersz koncowy") If N < a Then MsgBox "za mała wartość...":...
widzę na pewno, że w moim makrze muszę poprawić to, żeby mi excel nie dopisywał do kolejnych wierszy wcześniej zaznaczonych komórek Dodano po 41 Albo myślałam o tym, żeby użyć delete, czyli jak już mi skopiuje to może łatwiej by było usunąć te wiersze których nie potrzebuje (tylko jak to zrobić, żeby usunął dokładnie te, na których mi zależy bez określania...
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 Inne sposoby ostW=ActiveSheet.UsedRange.Rows.Count ostW=Columns(2).Find("*", SearchOrder:=xlByRows,...
Twoje Bym zmienił, z podobnym zastrzeżeniem, paczkowanie w tej idei "klucza logicznego" która dla mnie ważna, by było czymś w rodzaju ważne pole , co usiłuję na kol. hansklis wydębić, to symbol klienta, pesel dla jakiś historii o człowieku, numer faktury gdy wiersze są pozycjami (mowa o długich fakturach), numer telefonu jeśli to pozycje bilingu itd...
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 Sheets("Arkusz1").Rang...
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 nazwie i zmiennej nazwie pliku *.dat poradziłem...
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 wygląda tak: Sub POBIERZ_DANE() Dim MojPlik As String,...
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 mt(x) - 1 <= UBound(nt) Then Let licznik = licznik...
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=http://www.elektroda.pl/rtvforum/to... ostatni post.
Z w995 aktualnie pisze, nie narzekam na niego. Solidna konstrukcja, wytrzymały jak na slider, ten którego używam mimo że już ma 3 lata intensywnej pracy na karku nie wykazuje specjalnie dużych luzów. Posiada wszystko, wifi, gps, mam na nim normalnie worda, excel (trochę zubozone wersje) win rar, programy do edycji zdjęć, prostą nawigacje, licznik rowerowy,...
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, 2 i 25 marca 2015 w tabeli policzony jest za 2-ch)...
Zrobiłem gotowe makro wykazujący numery ewidencyjne i dla nich sumy kwot. Sub Sumy_kwot() Range("I1:k50000")... ' Czyszczenie kolumny z numerami ewidencyjnymi a = 0 ilewierszy = Sheets(1).Range("c1&quo... ' sprawdzenie ilosci wierszy w bazowej tabeli For Licznik = 1 To ilewierszy...
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 pytanie... Jak sprawdzić czy dany rekord w ogóle istnieje...
1. Zacznij jednak od lektury, książek - taniej wychodzi, a potem kursy jeśli już ... tutaj parę pozycji: https://www.elektroda.pl/rtvforum/topic3... 2. Makro kolegi JRV : r jest zmienna, ale dlaczego równa się 1 a) r = 1, wartość wyjściowa/startowa zmiennej wierszy - od czegoś trzeba rozpocząć ich odliczanie b) With Sheets("raport") ... End...
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 podfolderów, o czym pisałem wyżej. Jeśli nazwy...
Witam, No niestety twoje makro działa na pewno szybciej niż LICZ.JEŻELI, ale po kilku godzinach obliczyło dopiero 10.000 wierszy. Mam pomysł jak by to mogło działać dużo szybciej, ale nie znam VBA do mark i zaczynam go dopiero ogarniać. Chyba, że komuś chciałoby się to zaimplementować... Pomysł jest taki. Słowa są posortowane alfabetycznie. Program...
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, otrzymując w pierwszej kolumnie licznik z połączenia...
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 B166 i C166 nie ma żadnych liczb. Ale zostawmy...
clubs: tak na pewno jest to dobra ścieżka wysypało się na: plik_1 = Workbooks("glowny_plik.xls").Sheets("dan... pisze, ż eplik = empty lanzul: masz rację, może przybliże trochę działanie maka, myślałem, ze nie będzi eto konieczne, ale jednak. Trochę pewnie teraz namieszam, bo pokaże całe główne makro, wiem, że nie jest idealnie napisane...
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 jest w kolumnie B. Tu kończy się w wierszu...
cześć, czy do makra, które wywołuje wysłanie e-maila do klienta z excela istnieje możliwość podpięcia informacji ze stopki z outlooka ? ( zamiast tej, która bierze dane z zakładki Dane kontaktowe ) [syntax=vbscript] Private Sub CommandButton1_Click() Dim strMailto As String Dim sTo As String Dim sSubject As String Dim sBody As String Dim sCC As String...
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 pliku Excelowskim to kolejne pytanie jest takie, czy...
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 do komórek znajdujących się w lewej górnej komórce zakresu...
jestem początkujący z vb ale mam doświadczenie w basic pierwsze moja prace były na commodore :) stare dzieje później amiga... pracuje nad zrobieniem magazynu towarów na sklepie chodzi o proste funkcje żeby dodawać do magazynu a następnie odejmować co się sprzedało a przy odejmowaniu tworzył się dzienny raport sprzedaży. w raporcie tym automatycznie...
jako że chodzi o sam projekt z układów cyfrowych założyłem sobie dla uproszczenia jeden obwód dla koła 26' dajmy na to 2m. Dodatkowe założenie to to że licznik liczy od 2 km do 79,5 z dokładnością do 0,5 km/h. W takim przypadku na 8 bitach zaprogramuje w BCDwartości: 3bity na dziesiętne wartości prędkości, 4 bity na jedności i jeden bit informujący...
Super! Makro działa tak jak sobie założyłem, okazuje się jednak że mam problem z analizą tak zebranych danych. Ładuje do 100 plików na raz każdy ma nawet kilkaset linijek i analiza jest utrudniona przez to że każdy jest w osobnym arkuszu, wcześniej tego nie przewidziałem... Co trzeba by przerobić żeby pliki txt ładowało wszystkie do jednego arkusza...
- 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 Each Wyraz In TabWyrazow If Wyraz = "Event" Then j...
No to akurat rozwiązanie z kodem, ale skuteczne. :) Rozpakuj załącznik, otwórz Liczniki i naciśnij 'Importuj'.
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.
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) = "\"...
Dobrze, że się wyjaśniło ;) Literki w Excelu są piękne :!: (nie rozwijam wątku, żeby "nie nabijać licznika")
Zamieszczone
[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.
... 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...
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:...
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]
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...
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...
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...
excel licznik kopiować excel excel kopiowanie excel excel
wymiana toner software reset podłączyć monitor dekoderem
haier opinie skoda octavia kontrola akumulator
Horizon 50HL7590U/B Firmware: Official Update, Vestel Board, Panel Codes, OTA & USB Methods BASCOM AVR ATmega8 16MHz – HC-SR04 z korekcją temperatury TM_P
