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 do scalenia są zawsze w pierwszym arkuszu i mają jednakowe...
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...
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. Można ją tu wykorzystać? [syntax=vbnet]Public Const WERSJA As...
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ś...
Ogólnie rzecz biorąc mój kod wygląda tak [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, LW As Long, LK As Long Dim ZakresDocel As Range, LW_Docel As Long Dim Folder...
Cześć, Posiadam kod, który z jednego folderu otwiera wszystkie pliki, które się w nim znajdują i kopiuje ich wartości do jednego pliku zbiorczego (oczywiście wszystkie pliki posiadają taką samą strukturę). Każdy plik posiada swoją własną unikalną nazwę np: 34_190_2023-05-19 Potrzebuję aby przy kopiowaniu danych z każdego arkusza dodatkowo wstawiał kolumnę...
Potrzebuje napisać w Bascomie program, który będzie zliczał i wyświetlał ilość wydrukowanych arkuszy oraz prędkość ark/h. Aby uprościć układ - wyświetlacz będzie sterowany po I2C (AVT5147 - MODUŁ WYŚWIETLACZA LED STEROWANY MAGISTRALĄ I2C) Pozostałe dane: ilość arkuszy/h oraz przewidywany koniec pracy druku przy zadanym nakładzie wyświetlany będzie na...
Najprościej wstawić licznik i dodawać. Coś a'la (nietestowane) [syntax=vbscript]licznik = 4 For Each fnameCurFile In fnameList Set wbkSrcBook = Workbooks.Open(Filename:=fnameCurFile) wbkSrcBook.Sheets(1).Range("B4:K37").Cop... ThisWorkbook.Sheets("Temporary").Range("... & licznik & ":K" & licznik + 34) wbkSrcBook.Close SaveChanges:=False licznik = licznik...
Witam Kolegów. Kolego kkas12 ( :D:D ) , - to jest czasami walka z wiatrakami. Już dr Musiał pisał o tym w swoim artykule "Połączenia wyrównawcze jako ochrona przeciwporażeniowa uzupełniajaca" : Cytuję - Tysiące polskich elektryków dało sobie wmówić nie tylko obowiązkowerozdzielenie przewodu PEN w złączu każdego budynku, ale również obowiązkowe uziemienie...
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.
1. W zmiennej MyPath brakuje kocowego slash'a. 2. Jeśli wszystkie arkusze, to pętla For Each arkusz w otwieranym pliku. 3. Dla zakresów docelowych musisz utworzyć licznik wierszy (inkrementacja wewnątrz pętli) Zamiast kopiować całe zakresy przez Select-Copy_Paste i wyrzucać puste w kolejnej pętli, czy nie lepiej kopiować tylko niepuste wiersze/kolumny...
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 wyjazd, stan licznika powrót. Teraz chodzi mi...
Zmień nazwę 1-go arkusza na "Brudnopis" A1 i B1 traktuję jako nagłówki, czyli dane zaczynają się do 2-go wiersza Otwórz Edytor VB i w kod arkusza 'Arkusz3' wklej Private Sub Worksheet_Activate() Range("A1") = "Kod" Range("B1") = "Nazwa" Application.ScreenUpdating = False IleWierszy = Worksheets(1).Range("A1...
Kolego, Sprawa nie jest taka oczywista. Mbus jest specyficzną szyną komunikacyjną dodatkowo przesyłającą zasilanie napięciem 36VDC. Aby podczepić się do PC trzeba mieć jeszcze konwerter Mbus na inny standad czytany przez PC. Oczywiście, potrzebny jest moduł Mbus Master, który będzie zarządzał siiecią odczytu liczników. Proponuję przyjrzeć się sterownikowi...
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 średnikami, np. Arkusz1!C1:C3;Arkusz2!B1:B3,...
Co do dokumentacji, to czy jest jeszcze jakiś ZE w Polsce, który stosuje papiery Energa, licznik wymieniany w styczniu. Otrzymałem dokument papierowy wypełniony ręcznie, co prawda nie zlecenie OT na arkuszu A4 jak dawniej, tylko świstek wielkości paragonu, ale zawierający najważniejsze dane, czyli wskazania liczników zdejmowanego i zakładanego. Zostałem...
Witam wszystkich forumowiczów, Mam następujący problem, zostałem poproszony o wymianę licznika impulsów Koyo KCV-6S-C w maszynie poligraficznej (sztancy). Nie znam się aż tak dobrze na automatyce przemysłowej, więc chciałbym poradę. Identyczny licznik, nowy, jest dostępny, ale największym problemem jest czas (dostawa na przełomie styczeń/luty), czy...
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...
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ś...
Witam wszystkich, Ostatnio zamontowałem instalację PV wraz z magazynem energii. Po kilku dniach działania zaobserwowałem że smart meter połączony z falownikiem pokazuje inne odczyty niż nowy licznik dwukierunkowy który zamontowała ostatnio Enea. Firma montująca instalację będzie szukać przyczyny w nadchodzących dniach, ale chciałem porozmawiać z ekspertami...
Aby kopiować dane z kolejnych arkuszy trzeba je policzyć i wskazać w kodzie, o który nam chodzi (odwołanie). Najprościej realizować to w pętli For, gdzie zmienna-licznik to indeks arkusza. Tu mała uwaga: po zakończeniu działania procedury CommandButton1_Click identyczna wartość przechowywana jest w zmiennej globalnej plik i polu TextBox1 , w przykładzie...
BOMBAA coś jest z zapisem nie tak 1 nie wiem jaki fragment to reguluje bo jak mam następne arkusze to mi przewala nie linie po linii ale w każdy następnym arkuszu mi przesuwa o wartość linii jakie były wcześniej gdzieś jakiś fragment zerujący licznik trzeba dać ale za bardzo nie wiem jak i gdzie??(dobrze kombinuje??) 2 nie kopiuje jak chciałem bo mi...
Ok. Rzeczywiscie jest to dobre rozwiązanie,. Postanowiłem jednak pogłowić się nad makrem, bo arkuszy jest sporo. Sub xxx() ' ' xxx Makro ' ' Range("I63").Select ActiveCell.FormulaR1C1 = "='[2012 rozliczenia.xls]Wrzesień'!R30C42&quo... Range("I70").Select ActiveCell.FormulaR1C1 = "='[2012...
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...
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 chciała usunąć coś ze środka listy, pozostawiając...
Z zamieszczonego fragmentu można wywnioskować, że chcesz kopiować z arkuszy o identycznym fragmencie nazwy (- 4 ostatnie znaki). Wnioski: 1. Gałąź 'Else' jest zbędna (dlaczego chciałeś w niej zerować licznik?) 2. Brakuje najważniejszego: co chcesz kopiować (jaki zakres mogą zajmować dane)? 3. Najprościej wydzielić arkusz i po wszystkim skopiować/przenieść...
Musiałbyś przesortować tabelkę wg 'data', malejąco. Wtedy można zrobić '<=' Witam Niestety sortowanie po dacie malejąco nie wchodzi w grę, arkusz z tą bazą ma taką specyfikę, że w kolejnych wierszach codziennie dodawane są nowe dane, a sortowanie jest tylko i wyłącznie na podstawie ID. Pozostałe dane wprowadzane w arkusz są często filtrowane za...
Witam. Znalazłem w sieci Marko które wykorzystuje do scalania danych z wielu skoroszytów do zbiorczego. działa wyśmienicie (scala dane z pierwszego arkusza skoroszytów) ale pojawiła się potrzeba scalenia arkuszy z rożnych plików po nazwie arkusza czyli mam 10 plików źródłowych z arkuszami "Arkusz1", "Arkusz2","Arkusz3","Arkusz4".............. chciałbym...
Witam mam problem jak w exelu skopiować arkusz x (podana ilość razy) w skoroszycie, tak aby w nazwie arkusza licznik zwiększała się o jeden. np arkusz1, akrkusz2, arkusz 3 (iteracja ) niestety otrzymuje taki wynik arkusz1,arkusz1(2),arkusz1(3) itd [syntax=vbscript][syntax=vbscript]Sub kopowanie() Dim x As Integer x = InputBox("Enter number of times...
Witaj Marku. Genialne, idealne i przeszło moje oczekiwania. Na początku trochę się gubiłem, zanim poznałem logikę tego. Odpowiem po kolei na każde Twoje wyjaśnienie: Skopiowałem do oddzielnego folderu i faktycznie noty po wysłaniu wchodzą do tego samego folderu. Faktycznie nie wszystko mogę zmieniać i to mnie wkurza, ale skoro tak będzie bezpieczniej,...
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")...
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, z kolejnych już nie, pojawia się tam 0. Jakieś wskazówki?...
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 października. Oprócz tego, że ewidentnie coś nie gra...
BK7231T/BK7231N to popularny SoC WiFi i Bluetooth, szeroko stosowany w produktach Tuya Smart. BK7231 można znaleźć w inteligentnych gniazdach, inteligentnych żarówkach LED, inteligentnych przełącznikach itp. BK7231 zwykle występuje w postaci modułów, które są pin-to-pin kompatybilne z modułami ESP (TYWE2S, TYWE3S, ESP12 itp.). Urządzenia BK7231 można...
Sprawa załatwiona. Dziękuje Zbych034 za pomoc! [syntax=vbscript]licznik = Cells(rows.count, "G").End(xlUp).Offset(14, 0).Row Range("A1:G" & licznik).Select[/syntax]
Witam. Mam dość banalny problem, ale zadał mi zgryz, a wielu ludziom na pewno się ręczne wprowadzanie formuł sprzykrzyło. Czy istnieje możliwość ustatycznienia jednej komórki w funkcjach działających na wielu komórkach? Czy da sięto zrobić bez makra. Standardowo kiedy napiszemy funkcję w jednej komórce i rozciągniemy ją na resztę - okazuje się że komórki...
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...
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"...
I co w zwiazku z tym? Myślisz że komuś się chce sprawdzać po 50 odpowiedzi kilkunastu albo kilkudziesięciu użytkowników? Poczekaj do jutra, wszystko powinno być jasne. Zostało 5 odp do ogarnięcia. Dlatego ja czekam do jutra. Dzisiaj sprawdziłem pobieżnie z nauczycielem w 15 minut i już widzę, że w pośpiechu zrobiliśmy 3-4 banalne pomyłki. Jutro rano...
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 ma inną nazwę. Przeczytałam na forum, że powinnam...
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ą można pobrać przez InputBox.
W porządku, więc skoro dopiero zaczynasz, to: 1. Utrzymuj porządek w kodzie - wcięcia, odstępy między blokami kodów, pozycjonowanie składni typu ' If ... End If ', ' Select Case ... End Select ', itd. Robisz to co prawda dla siebie, nie dla innych, ale im większy będziewsz mieć porządek, tym szybciej będziesz mógł coś zmienić, poprawić, przestawić,...
Stan Licznika to 284 tys kopii ( według licznika fizycznego przy przycisku) co do sprawdzenia błędów w trybie serwisowym to nie mam takiej możliwości gdyż nie znam hasła :/ a hasał jakie odnalazłem w internecie są błędne.
... 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 licznikach), wtedy jest o czym dyskutować bo "pomieszczenie,...
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 po prostu ilość czasów przepływu 4. Wykresy czasów pozyskane...
Cześć. Mam podobną maszynę, ale do transportu i cięcia tektury (zatem bezwładność dużo mniejsza). Nie wyobrażam sobie precyzyjnego zatrzymania silnika indukcyjnego. W mojej maszynie było tak, że sterownik w każdym skanie (ok 5 ms) porównywał wartość bieżącą licznika z wartością docelową i już mniej więcej w połowie odległości zaczynał sukcesywnie zwalniać...
(at)trolq29 jest to funkcja licznika zawartego w programie. Jak dobrze rozumiem to k odpowiada aktualnej liczbie zliczeń, a k+1 odnosi się do zwiększenia liczby o 1 za każdym razem gdy zostaje wezwana funkcja.
Trochę odejdę od tematu: Jakiego używacie programu do symulacji ?? ... przez jakiś czas 'jechałem' na EWB5, potem chciałem zobaczyć - tak jak napisałeś - jego następce Multisima i jak często się zdarza w nowszych wersjach starych programów stają się ociężałe, biorą sporo pamięci (przy symulacji) a ten jeszcze strasznie długo się zamyka (przynajmniej...
przyjzyj sie dokładnie a na srodku płytki u gory zauwazysz dwa małe przyciski ktorymi sie ustawia godziny. jeden ustawia godziny powoli czyli co sekunde a drugi ustawia je z większa częstotliwoscią. zdjęcia zegara robiłem zaraz po jego uruchomieniu stąd własnie sa na nim te same godziny:D:D:D ale zaraz dam swierze zdjęcia. dostałem tez dzis do rąk duzy...
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...
excel 2007 ale jak trzeba mogę na wyższym zrobić. wszystko dopuszczam nawet 2 arkusz pomocniczy byle tylko wynik osiągnąć
Kombinowałem, zeby zrobić w pamięci procka bufor i zapisywać np co 10-20 zdarzeń na kartę, teoretycznie powinno to wydłuzyć tylokrotnie jej zywotność. Jeśli bedzie problem ze zbyt szybko padającymi kartami, na pewno dorobię takie rozwiązanie. Tak swoją drogą - np tego typu karty w wideorejestratorach samochodowych - nie maja lekkiego życia. Może ktos...
Jakim przewodem zejść do nowej rozdzielni? Takim samym jak główny przewód zasilający do budynku? cholera...łatwo nie będzie... Dobór kabli (przewodów) i zabezpieczeń wykonuje się ze względu na następujące warunki: - obciążalność prądowa długotrwała, - przeciążalność, - warunki zwarciowe, - samoczynne wyłączenie zasilania, - spadek napięcia, - spadek...
Arkusz pierwszy kolumna "bez Can"
Chciałbym podzielić się swoją nową konstrukcją, jest to stół do cymbergaja o wymiarach 200x100 cm wykonany ze stali nierdzewnej. Blat wykonany z arkusza blachy nierdzewnej o grubości 2 mm. W arkuszu wywierciłem 4500 otworów o średnicy 1.5 mm. Powietrze dostarczają dwie ciche dmuchawy tunelowe o łącznej mocy 150W. Z powodu kłótni związanych z ilością...
Można też poprosic? 😀 Jakie liczniki masz? Do mnie leci jakiś sonoff, zobaczę co to warte jest. 2 Liczniki 1f Orno- najtansze(ok60-80zl) pokazujące tylko skumulowane zużycie - jeden pod bojler, drugi pod obie łazienki w których mam grzejniki elektryczne(niestety do statystyk łapie mi się oświetlenie łazienek). Licznik 1f Orno: jeden droższy(ponad...
...temat stosowania ochrony uzupełniającej w postaci RCD w obwodach oświetleniowych toczą się od dłuższego czasu spory i interpretacje norm, czy jest wymagane czy nie. Arkusz 4-41:2017 (bodajże) nie pozostawia żadnego miejsca na żadne spory czy interpretacje. W instalacjach obsługiwanych przez laików wyłącznik RCD w obwodach oświetleniowych jest wymagany.
To na pewno V9911. Znalazłem arkusz danych, jeśli to pomoże. Pin 15 i 16 (RX1 i TX1) CB3S są podłączone bezpośrednio do V9911 odpowiednio na TXD4 i RXD4.
Zaznaczyłeś obie strony E3, co jest niemożliwe w normalnych okolicznościach. Nadal musisz mieć shorta na tym stole. Mimo to, sądząc po dokumentacji, SEL powinien znajdować się na VDD na twoim urządzeniu: Podczas modyfikacji będziesz musiał odłączyć SEL od wszelkich sygnałów (przeciąć ślad), ponieważ jest rezystor obniżający w środku i jest na poziomie...
Zainwestowałem dużo czasu, aby zrozumieć kod i spróbować uruchomić SPI. Niestety bez powodzenia. Z spi_pub.h używam: spi_init(); bk_spi_master_init(100000, SPI_CPHA | SPI_MSB); // Returns no error bk_spi_master_xfer(&msg); // Does never return. I inserted some debug logs and I never get an interrupt (spi_isr is never called)....
Rowniez dobrze! Wpisz date np. 10.10.2023 i bedziesz mial wynik podzielony na ilosc dni. Tylko na dole pod arkuszem zle sumuje, ale chyba nie o tym piszesz?
Więcej części: Chipsea – chip do pomiaru energii elektrycznej CB2S: Na razie się tu zatrzymałem
Witam. Przymierzam się, aby w tym roku napisać maturę rozszerzoną, więc z arkuszy z dawnych lat wykonuje sobie programy. Tu jest treść zadania Zadanie 5. Ciekawe napisy (10 pkt) W pliku NAPIS.TXT, w oddzielnych wierszach, znajduje się 1 000 napisów o długościach od 2 do 25 znaków. Każdy napis składa się z wielkich liter alfabetu łacińskiego....
Przyznam się szczerze że zajrzałem do wszystkich miejsc na CA PENTACONTA, Do dróg sygnałowych także, znajdując kilka nieistotnych usterek. Teraz z perspektywy czasu dopiero się zastanowiłem w jaki sposób powinny być przebadane drogi sygnałowe. Zdarzyły się usterki, które były związane z wprowadzonym rejestrem połączeń Co do dróg sygnałowych to przypominam...
Rzecz w tym, że liczba <> tekst (bałagan w arkuszu) i dlatego wynik ucieka. Dla pewności lepiej sprowadzić wszystko do liczb. Np tak Prot , niektóre "zapytania" mieszczą się w dwóch "odpowiedziach". W każdym razie wychodzę z założenia, że lepiej nie ucinać za dużo ;) jeśli jest wybór. Czyli w zasadzie trzeci warunek jest nadmiarowy.
txn za gratulacje. I tak jest (losowo). Zrobiłbym film toru pełnego rozwidleń, ale skończyła mi się taśma izolacyjna czarna. Swoją drogą dodałem do robota licznik Lego : Jednak to nie moje konstrukcja więc nie oceniajcie robota z licznikiem. Licznik wskazuje obroty, prędkość, v-max, max rpm, odległość. Problemem Jest to że koła jeżdżą różnie, a trzeciego...
Po uwzględnieniu kodu adamas_nt w postaci: Dodano po 1 Cześć, po zastosowaniu kodu Dodano po 4 Panowie, bardzo dziękuję - udało się! kodem: [syntax=vb] Sub PODEST_STANY() licznik = 1 For k = 0 To 1 dzis = Date - k Data = dzis For g = 0 To 21 Step 3 If Sheets.Count > licznik Then Sheets.Add Sheets(licznik).Activate ActiveSheet.Name = Data & " 2A " &...
Hej, Mam oto sobie taką formułę na łączenie wielu plików z Excela (wiele plików i 2-3 arkusze): Kod: ' ========================================... ' 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...
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("A2... & Range("A2").End(xl...
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,...
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ąć oczekiwany cel. Niestety arkusze źródłowe zawierają formuły...
Witam, Jestem początkująca. Póki co potrafię rejestrować makra, czy staram się modyfikować znalezione kody makr. Mam 2 problemy. 1 to taki, że kod, który znalazłam działa, ale tylko na plikach, które nie są chronione. Nie wiem jak nie chronić pliku już na poziomie kodu VBA, gdy wybierane są pliki do scalania. W sensie- aby nie trzeba było ręcznie otwierać...
Witam, Znalazłam w Internecie kod makra, które jest podstawą do pomocy przy tworzeniu mojego. Jednak jest to moje pierwsze makro, które tworzę dla kolegów i koleżanek. W swoim makro chciała bym aby rozpoczęcie łączenia plików excela rozpoczynało się zawsze w wierszu 3 (nagłówek w pierwotnym skoroszycie jest zawsze w 3 wierszu, pierwsze dwa wiersze są...
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"),...
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 kwartalne 2016 chciałbym aby procentowo obliczyć...
Dzień Dobry Jestem bardzo początkującym użytkownikiem i nie mogę poradzić sobie z problemem, zrobiłem arkusz w którym rejestruję wjazdy samochodów do firmy, wszystko ładnie działa tylko jeszcze te samochody wyjeżdżają i chciałbym odnaleźć wcześniej dodany wpis o wjeździe auta na zakład i po np godzinie odnaleźć ten wpis i jak będzie wyjeżdżał to zrobić...
Jak ograniczyć zakres tworzonego przez makro zestawienia tylko do pierwszego w kolejności arkusza Jeśli w plikach z danymi występuje kilka arkuszy :?: to musisz skorygować kod makra wymieniając odpowiedni fragment na: [syntax=vbscript]Do Until Len(Plik) = 0 Licznik = Licznik + 1 Set Skor = Workbooks.Open(Folder & Plik) Set Ark = Skor.Worksheets(1)[/syntax]
Sam kod w VBA, w najprostszej postaci, nie jest skomplikowany. Z pewnych wzgledów jest to bardzo uproszczony sposób na uzyskanie zamierzonego zadania. Na poczatek należy jasno okreslic pewne warunki jak ma dzialac taka procedura. Po pierwsze to w zadnym przypadku nie powinno sie do tego celu korzystac z dodatkowego arkusza. Po drugie procedura powinna...
z tego co kojarze ... ale nie testowalem ObiektExcelApp.ActiveCell.Cells(1, 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.Cells(licznik, 1) = Text1.Text licznik=licznik+1 ale nie wiem jak z dostępem reszty programu i jak sie...
Przeanalizuj następujące makro: Sub problem_z_sortowaniem() 'żródło A5:A11 pierwszy_wiersz = 5 ostatni_wiersz = 11 kolumna = 1 'wynik kol.B od 5 wiersza nowa_kolumna = 2 'nr kolumny wynikowej licznik = 5 'nr pierwszego wiersza For wiersz = pierwszy_wiersz To ostatni_wiersz If Cells(wiersz, kolumna) > 0 Then Cells(wiersz, kolumna).Select...
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...
Mam plik, który składa się z określonej liczby rekordów. Kolumna B do nazwa jednostki. Mam za zadanie napisać programik, który dla każdej jednostki wylosuje po 5 rekordów (bez powtórzeń) i przepisze je do nowego arkusza. Udało mi się zrobić coś takiego: [syntax=vb] Private Sub funkcja_losująca() Dim ost As Long Dim ark1 As Worksheet Dim ark2 As Worksheet...
Tak jak w tym temacie, tylko rozwiązanie zdaje się u mnie nie działać :-? i nie wiem dlaczego DisplayAlerts = false, DisplayClipboardWindow = false Tego też nie udało mi się zaaplikować Sub Scal() Dim Plik As String Dim Skor As Workbook, Ark As Worksheet Dim Licznik As Long, i As Long Dim Folder As String ThisWorkbook.Worksheets(1).Range...
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) =...
Jako bardzo poczatkujacy mam pytanie odnosnie Visual Basic for Application. Przedstawie pokrótce swój problem - po ciezkich bojach z przenoszeniem, kopiowaniem, sortowaniem i wyciaganiem wartosci doszedlem do punktu, z którego nie moge sie ruszyc. Mam dwa arkusze: A1 - zawierajacy logi liczników. Logi sa zebrane z kilku dni co godzine. Kazdy licznik...
Witaj marek003 ! No chyba aż tak źle nie opisałem zagadnienia bo zrozumiałeś w 100% :D. To co zaproponowałeś, przerobiłem już wcześniej, spadek wydajności był kolosalny. Dlatego chciałem wszystko zrobić w kodzie VBA, bez operowania na komórkach arkusza. Osiągnąłem już swój cel inna metodą. Zrezygnowałem z tablicy na rzecz zmiennej. Przekazywana ona...
Istotne jest aby impuls trwał dłużej niż czas cyklu programu sterującego. Jeżeli będzie krótszy, licznik sterownika zacznie "gubić" impulsy. Można również sprawdzić max. częstotliwość dla wejść licznikowych. Link do programu, może komuś pomoże: [url=] W arkuszy należy podać max i min prędkość pracy silnika dla obsługiwanej aplikacji. Polecam również...
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 wiedza zatrzymała się na poziomie połowy lat 90-tych....
1. Jest sobie programik który zapisuje co jakis czas stany licznika do pliku w dziwnym formacie 2. W programie tym jest opcja podgladu tych danych w formacie arkusza . Ja potrzebuje dane te miec na dysku w formacie excela . Moj problem polega na tym ze nie wiem jak sa zapisywane w tym pliku te dane ( stan licznikow ) Gdybym wiedzial to bym sobie napisał...
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 przy zamknięciu pliku (po logowaniu jako Admin...
Sprawdzę, ale zasada jest taka, że nie ma bilansowania między strefami. Oznacza to, że jezeli w taryfie I wprowadzimy do sieci 3500 a pobierzemy 3200, arkusz pokaże, że w ramach net-met rozliczymy 3200, a nadwyzka 300 będzie rozliczona jako sprzedaż w obecnym net-met. W nowelizacji ta nadwyżka przepada. Analogicznie jesżeli w II wprowadzimy mniej niz...
Davide Gironi skonstruował automatyczną nawijarkę do przystawek gitarowych. Jeśli ktokolwiek z Was wykonywał kiedyś taki pick-up, to wie, jak trudne i jednocześnie, jak ważne jest dobre nawinięcie jego uzwojenia. Zaprezentowana nawijarka CNC pozwala istotnie uprościć ten proces. Układ sterowany jest z pomocą mikrokontrolera ATmega8, który kontroluje...
Dzik 6. masz rację. energetyka ma dokładne liczniki. nawet te w GPZach. po jakimś czasie domyślą się że coś jest nie tak i zaczną wertować rachunki za prąd które maja w bazie komputerowej. a jak znajdą odbiorcę, któremu "spadło" zużycie energii bo ma wiatrak nielegalnie podłączony to wiadomo co dalej. na sprzedaż trzeba mieć koncesję, warunki techniczne...
Znalazłem jeszcze jedną ''ściągę'', którą nieco przerobiłem na swoje potrzeby - spis poleceń i sfrów z komentarzem oraz inne przydatne rzeczy. Można sobie wydrukować i trzymać pod ręką, zwłaszcza gdy się w 51 zagląda okazjonalnie i/lub jest się w tym temacie początkującym. W załączniku pdf oraz pliki arkusza (ods i xls), te ostatnie zawierają dodatkowo...
Przestrzeganie definicji i pojęć używanych w elektroenergetyce jest nieodzownym warunkiem poprawnego rozumienia literatury technicznej, norm i przepisów, a urządzenia, aparaty i ich części oraz procedury postępowania muszą być nazywane precyzyjnie, w sposób niedopuszczający wątpliwości i pomyłek- dlatego powstał ten słownik. Słownik pojęć używanych...
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...
To jest najpierw kwestia częstotliwości zegara, a potem dopiero długości liczników. Policz sobie na kartce papieru lub w arkuszu kalkulacyjnym, bez uwzględniania ograniczeń sprzętu, jakie wartości można uzyskać przez dzielenie częstotliwości np. 16 MHz przez kolejne liczby całkowite. Arytmetyki nie przeskoczysz i AVR nie ma tu nic do rzeczy.
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.
Dzisiaj fragment książki ----------------------------------------... Rozdział 13. Zaawansowane sztuczki z PWM Cyfrowy syntezator dźwięków Aby generować dźwięki nieco bardziej interesujące od fal prostokątnych, musimy wykorzystać technikę PWM, żeby szybko zmieniać wartość średnią napięcia, które będzie wyznaczało...
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]