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 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ś...
na oke sa odpowiedzi i se sami sprawdzamy co pamietamy .... to przetwornik taki słabo pamiętliwy jest :D jak to przetwornik nie ma to jak licznik
Na stronie eBOK PGE pojawiła się zakładka pobierania raportów dobowo-godzinowych. Krok w dobrą stronę ale kilku dni mi brakuje po pobraniu obecnego półrocza. https://obrazki.elektroda.pl/1210268400_... Różnice w bilansowaniu między wskazaniami licznika a arkuszem bilansowania dobowo-godzinowego są poniżej 1% (na moją korzyść) więc to...
zobacz w sterowniku drukarki jest zakładka właściwości i jest przycisk Status Sheet (arkusz stanu) może tam jest
A mogl bys powiedziec jak zmienic ten kod zeby zapislywal licznik w arkuszu a nie w pliku
https://www.dropbox.com/s/rqxm68gedlcnfs... Arkusz pierwszy kolumna "bez Can"
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]
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...
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...
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ć...
Jeszcze kwestia tego czy licznik ma liczyć arkusze z których się wycina czy gotowe detale?A co z zacięciem blachy i wyrzuceniem pogiętej(arkusza lub detalu)?Mam takie nożyce w pracy(choroba zawodowa);-) Pozdrawiam
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,...
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]
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...
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....
Możesz zastosować takie makro: [syntax=vbscript]Sub Kopiowanie2() ' ' Kopiowanie2 Makro ' Dim lw As Long, i As Long, j As Long Sheets("Arkusz1").Activate '1 lw = Cells(Rows.Count, "A").End(xlUp).Row '2 j = 1 '3 For i = 2 To lw '4 Range("A" & i & ",B" & i & ",D" & i & ",F" & i).Copy _ Destination:=Sheets("Arkusz2").Range("A" & j).Resize(Range("G" & i))...
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ę...
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...
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.
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]
W załączeniu propozycja. Po pierwsze skopiuj ją do oddzielnego folderu wtedy pliki załączników (not) będą tworzone również w tym folderze. Wprowadziłem ochronę arkuszy (bez hasła) byś nie namieszał ale mógł ewentualnie coś zmienić - jak wzrośnie ci świadomość execla :) W pierwszym arkuszu właściwie wybierasz tylko działkowca i możesz dopisać uwagi ALE...
Tak string był przyczyną, dziękuje za pomoc, działa. A jeszcze jedno pytanie ja, pobrać licznik od nazwy arkusza np akruksz1 (1) i wstawić w komórkę np B2 w danym arkuszu1? Dodano po 11 Ha ha niepomyśleniem że to może być tak proste funkcja wyświetla nazwę arkusza i nie tylko KOMÓRKA("filename")
Kolego, wymiana części na oryginalne czy zamienniki ? Wklej obraz drukowanej strony, np: -wydruk licznika urządzenia -kopia z arkusza testowego
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ć...
Nie do końca. Rejstracja danych przebiega w czterech niezależnych miejscach. 1 PVmonitor- najbardziej szczegółowy (najlepszy aby dokonywać obserwacji pracy instalacji) 2 Pendriwe w inwerterze -Wszystkie dane do wrzucenia w arkusz 3 E-licznik w Tauronie- oficjalne dane o zużyciu i produkcji. 4 Fronius solar web. - konto u producenta inwertera. dane o...
Witam szanownych kolegów i koleżanki, potrzebuję pomocy w Excel z dość łatwym zadaniem, ale ciężki mi znaleźć konkretne rozwiązanie w śmietniku internetowym. Sprawa ma się następująco: Mam 1 plik excela z trzema Arkuszami z danymi (dojdą jeszcze 2 arkusze z danymi, więc prosiłbym o uwzględnienie tego) i Arkusze rozliczeniowe tj. maj, czerwiec, lipiec...
Próbuję zrobić schemat, ale z arkusza danych HLW8112, PIN SPIEN jest wysoki, więc zakładam, że to SPI
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...
Siemka. mam prosbe może mi ktoś powiedzieć jak wyglada arkusz bardzo potrzebuje i jest to dosc pilne jakos sie wynagrodze .... wiem tylko tyle że ma byc licznik ;c prosze o informacje ... : )
Wydaje mi sie ze najprostszym rozwiazaniem jest kupno modulu typu remote I/O ADAM firmy Advantech i napisanie kawalka programu zczytujacego liczniki i zrzucajace je do bazy danych lub pliku tekstowego (np csv) a nastepnie zaimportowanie go do arkusza kalkulacyjnego. Duzym plusem tego sa darmowe bilioteki i przykladowe programy udostepniane na stronach...
Noo, jestem też pod wrażeniem tego arkusza.
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...
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...
tak jest to licznik do maszyny offsetowej - ma to zastąpić fabryczny mechaniczny licznik, który często zawodzi :(
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...
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...
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?...
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...
Na dole masz masz dwa liczniki pozycji, podstawowy który punkt '0' ma poza arkuszem 10mm, i drugi lokalny który zerujesz spacją. Jak w okienku współrzędnych klikniesz 'użyj punktu bazowego ..." to Ci przesunie względem tego zera lokalnego a jak ' bazowego początku siatki' to względem tego absolutnego zera poza arkuszem. Lini poleceń IMHO nie ma. Dodano...
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...
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?
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ś...
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....
Blachę szlifowałeś? Po oderwaniu foli nie była gładka? Wykonanie otworów można zlecić na wykrawarkę, chociaż może przy takiej gęstości mogło by dojść do zdeformowania arkusza blachy.
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...
Aby nie rozbijać wątku na PW - postanowiłem wkleić moją porażkę: Witam, wiesz powiem wprost zagadnienie mnie przerosło i czas mnie sporo goni o tyle o ile rozumiem lub prawie rozumiem to co pisze to jednak nie rozumie tego co makro robi. Doskonale zdaję obie sprawę z moich braków w językach programowania i dlatego zwracam się do ciebie poprzez PW. Makro...
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...
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...
Arkusz zjadłeś[syntax=vb]Sheets(1).Range("B" & licznik & ":AR" & licznik).Copy bd.Rows(r)[/syntax]
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...
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,...
Znam procedurę ze sprintera może jest to samo: Włączamy zapłon, wciskamy i trzymamy przycisk "O" na liczniku, po 30 sekundach usłyszymy krótki sygnał dźwiękowy- wtedy wciskamy krótko przycisk "M" i jesteśmy w menu serwisowym. Teraz kilkakrotnie wciskając przycisk "M" należy odnaleść ekran w arkuszem dostępności olejów( w sprinterze są dwie klasy olejów),...
To zdecydowanie V9911. Znalazłem arkusz danych, jeśli to pomoże. Piny 15 i 16 (RX1 i TX1) CB3S są podłączone bezpośrednio do V9911 odpowiednio na TXD4 i RXD4.
Masz rację, nie odświeżyłem arkusza gdzie wpisywałem dane.
Cześć Przydałaby się informacja jaki to licznik, gdzie zamontowany, jakie urządzenia są podpięte do linii. No i pytanie - te wskazania oznacza, że w ciągu danej godziny zużyto np 10.23kwh, czy jest to wartość szczytowa zużycia prądu (tj. 10.23kW)? Przepraszam, te piki był to mój błąd przy ściąganiu danych do arkusza. Po poprawie wygląda to normalnie....
Mógłbym spróbować, ale przydałoby się, gdybyś dokładnie sprawdził, czy wszystkie moje kroki są poprawne (porównaj mój przewodnik z arkuszem danych), ponieważ wiesz, ciężko jest zrobić coś takiego całkowicie zdalnie. Przynajmniej mamy zdjęcie HD planszy, może się to przydać.
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...
ile masz na liczniku, zamień bębny miejscami - to samo?
Poniżej korespondencja nt. dwustrefowców: Ja mam dwustrefową taryfę weekendową i licznik Landisa z Tauronu. Tauron od zawsze przesyła mi arkusze podsumowujące miesiące i ilość wprowadzonej energii do sieci w rozbiciu na 2 taryfy, więc nie ma żadnych problemów, żeby to policzyć/uwzględnić w rozliczeniu. Mam wrażenie że w MG po prostu mają mgliste pojęcie...
Dla plików z nagłówkami w 27 wierszu, ale tylko dla nich oraz odbezpieczenie arkusza. [syntax=vba] Option Explicit Sub Scalaj_v2() Dim Licznik As Long, LW As Long, LK As Long, LW_Docel As Long Dim TenZeszyt As String, Folder As String, Plik As String Dim WERSJA As Variant Dim StatBarPocz As Boolean Dim Skor As Workbook Dim Skonsolidowany As Worksheet,...
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...
Problem rozwiązany dodałam do kodu 3 Application.ScreenUpdating = True Set Skonsolidowany = Worksheets.Add() Plik = Dir(Folder & "*.xls") Do Until Len(Plik) = 0 Licznik = Licznik + 1 Application.StatusBar = "Konsolidacja pliku nr " & Licznik Set Skor = Workbooks.Open(Folder & Plik) Set Ark = Skor.Sheets(1) iRows = Sheets(1).UsedRange.Rows.Count...
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'.
Wg. mnie pętla powinna wyglądać w następujący sposób: [syntax=vb]Set rngSzuk = Range(Mies.Range("E2"), Mies.Cells(Mies.Rows.Count, 5).End(xlUp)) i = 3 ' ustawiam licznik na 3, 'żeby w arkuszu docelowym wpisywanie rozpoczęło się 'od 3 wiersza For Each kom In rngSzuk ' przeszukuję zakres w poszukiwaniu "?" If kom.Value = Sheets("Raport").Cells(1, 3).Value...
Mamy tu kilka ukrytych arkuszy, które trzeba pominąć. Można próbować zautomatyzować listę arkuszy (pole opcji, lista nazw), ale czy warto? Zawsze można dopisać kolejne And . Chyba, że liczba wykluczonych arkuszy urośnie do >10... Wklej w kod arkusza "Kalendarz" i przetestuj [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address...
... Tak na poważnie jakbym miał taki problem to za pomocą jakiegoś licznika kontrolowałbym obciążenie i tak sterował grzałkami aby maksymalnie podnieść autokonsumpcje. Sterowanie grupowe, przęłaczanie pomiędzy fazami... Zgadzam się z przedmówcą w 100%, ale... ... z Twojej wypowiedzi odnoszę wrażenie, że albo nie czytałeś albo nie pamiętasz co pisałem...
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.
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ść...
Witam, mam pytanie czy schemat tego ukladu rowniez byl do sporządzenia na druku samokopiujacym?Licznik jaki? I czy na schemacie trzeba dorysowac jakies elementy
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...
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.
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...
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...
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...
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...
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...
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.
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...
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...
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...
Uzupełniłem o wynik zadania z licznikiem, sam dałem modulo 6. Oscyloskop w 36 nie przejdzie, bo taka technika pomiaru nie jest na poziomie technikum.
Dzień dobry. Za pomocą Logo AcessToll pobieram wartość licznika do Excela. Udało mi się stworzyć arkusz, który generuje trend z ostatnich 100 próbek pobieranych co 60sec, czyli mam informację z ostatnich 100 minut. Aby mieć dane z całego dnia, potrzebuje makra lub formuły, która będzie przepisywała wartość komórki A3 w arkuszu do kolejnych wierszy w...
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"...
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.
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...
https://obrazki.elektroda.pl/5909424700_... 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...
Temat ogólnie rozwiązany, przepraszam wszystkich uczestników dyskusji o tym że temat powstał po fakcie. W skrócie to tak: -Założone zostały 3 ograniczniki mocy 20A przed licznikiem zgodnie z mocą umowną -Rozdzielnica została przeze mnie "ogarnięta", wyciąłem z jakiś resztek tablicy suchościeralnej arkusz blachy który zrobił jako tylna ścianka całej...
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...
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...
...natknął mnie trochę bbolek , który pisał o rozliczeniu małej wspólnoty Bardzo dziękuję, że ktoś sobie przypomniał o mnie, a raczej o rozliczaniu ciepła z licznika głównego na m kw. Robię to sam na jednym arkuszu Excela z rocznym wyprzedzeniem kosztów do zaliczek. Nie daję zarobić żadnym pośrednikom (czytaj podzielnikom) bo jesteśmy za mali aby nas...
mniej wiecej. Chodzi o to, że jeżeli komórka z arkusza 1 do Arkusza 2 jest kopiowana po raz piewrszy to w kolumnie obok zostaje przypisana jej np wartość 10. przy kolejnej próbie kopiowania to licznik zostaje zmniejszony o 1.
Cześć, potrzebuję stworzyć makro które będzie usuwało kolumny po nazwie nagłówka. Liczba kolumn w arkuszu może się zmieniać ale nazwy kolumn będą te same. Dodaję przykładowy plik w którym chciałbym usunąć kolumny o nazwie "warunek" i "licznik". Myślałem o takim kodzie ale może można zrobić coś prostszego? Nie za bardzo też wiem jak poprawnie tym sposobem...
Kolego. Aby wykorzystać jako uziom metalowe rurociągi ułożone w ziemi należy uzyskać zgodę ich właścicieli. To po pierwsze. A po drugie to nie martw sie o gazownika, bo on przed demontażem licznika powinien spiąć, czyli metalicznie połączyć rury przed i za licznikiem. Zaś po trzecie to zarówno autor jak i owi zaproszeni elektrycy powinni dokładnie zapoznać...
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....
rzecz w tym ze ten podany tez jest błędny , są złe dane timerów i liczników No to masz wgrany lub masz wgrać zły program. Ale w arkuszu masz podany poprawny więc tylko analizujesz co jest źle i notujesz do błędów. Nie możemy pisać sami programu bo teoretycznie nie umiemy.
... 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,...
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"),...
"'to powstawiać do Arkusz3 wiersz=licznik" nic tu nie jest zaznaczone na zielono więc nie wiem co powstawiać? Zresztą bardzo proszę, a bardziej szczegółowe wyjaśnienie, bo makro to wkleję do modułu, a nie do Arkusza?
Cześć cdtdsilva, dzięki za to. Hej, czy chciałbyś ze mną współpracować przy zbudowaniu ładnego dwukierunkowego modułu miernika mocy z chipa BL0942? Arkusz danych: https://obrazki.elektroda.pl/4227572400_...
kopiowanie arkuszy kolejno arkuszy zapisywanie arkuszy
alarmu zgaszeniu silnika blokada mastercook pendrive write protect
proxima integra elpigaz stella program
Czy można zmieszać 1 litr oleju 5W30 i 1 litr oleju 10W40? Błąd E21 w suszarce Hoover - przyczyny i rozwiązania