Ad4.Wykorzystałbym to że można w pętli przekręcać akumulator na siebie i kopiować jego wartość na port P3.Wcześniej ustawić P3 w stan wysoki i wpisać odpowiednią wartość do A.
Sprawdź czy o to chodziło. Jeśli faktycznie druga procedura ma kopiować "wiersze powyżej", to oczywiście nie zawsze będzie ich 15, bo wyszukiwana wartość może zostać odnaleziona w wierszu, powyżej którego nie ma 15 wierszy. Załączona procedura w takich przypadkach kopiuje wartości począwszy od wiersza nr 3 do wiersza wyszukanego. [syntax=vbscript] Option...
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach A pod fz znajdują się głównie cyfry bądź puste pole więc może...
Co do daty, to rozumiem, bo tam elementem formuły jest DZIŚ(), które jutro będzie miało inną wartość, a Ty chcesz zachować zapis pierwotny. Natomiast w kolumnach A i C nie widzę takich elementów dynamicznych, więc nadal nie wiem po co te odwołania cykliczne. Zakładam, że nie są potrzebne. Działanie Excela nie zawsze jest przewidywalne. Dużo czasu zajęło...
Witam, Nagłówek nie jest kopiowany, jedynie dane. Najlepiej w kodzie po utworzeniu nowego arkusza przekopiuj go tak: wsSheet.Range("A1:C1"&... Destination:=wbBook.Sheets(CStr&... a żeby nie kopiować danych od pierwszego wiersza, zmień w kodzie wartość początkową zmiennej wiersz...
Na pewno uszkodzony dysk powinien być podpięty bezpośrednio. Ja kopiowałem oba dyski podpinając do stacjonarnego PC. Jeszcze nie miałem okazji kopiować na dysk podłączony przez eSATA, więc pewien nie jestem. Co do atrybutu 188 to masz wartość 19, a nie 100, co też świadczy o problemach z komunikacją i rozłączaniu się dysku w trakcie pracy, stąd może...
Dobrze by było jak te formuły miały charakter stały, uwzględniając np. zmianę dnia w tygodniu (ponieważ inaczej rozlicza się godziny w dzień roboczy, a inaczej w święto). Zrób dodatkową kolumnę, którą będziesz wyróżniał dzień wolny/sobota-niedziela/święto od normalnego dnia pracy. Wtedy wartość z tej kolumny ta może posłużyć za warunek do zmiany sposobu...
191 G-Sense_Error_Rate 0x0032 100 100 000 Old_age Always - 17916 Wartość 17k punktów oznacza, że dysk nie miał lekkiego życia (np upadek podczas pracy) 5 Reallocated_Sector_Ct 0x0033 100 100 050 Pre-fail Always - 1976 A to oznacza, że prawie 2000 sektorów na nim jest fizycznie uszkodzonych i że dysk kwalifikuje się do wymiany. Co prawda dziwią mnie...
Jeśli chodzi o klasyczne odwołanie, to nie jest to możliwe, gdyż odwołanie zwraca tylko wartość komórki, bez formatowania. Ponadto, nawet z użyciem VBA, komórka zawierająca formułę musi być sformatowana jednolicie (to znaczy można sformatować całą komórkę, ale nie poszczególne znaki). Szkoda, że nie dałaś pliku załącznika, bo wtedy łatwiej można by...
U mnie (Katowice) z DCF77 nie ma problemu, oczywiście zdarza się, że przez jakiś czas nie działa, ale przecież nie musi - wystarczy że złapie sygnał od czasu do czasu. Z tego co zauważyłem, to strasznie przeszkadza w odbiorze DCF77 komputer. Kiedy miałem zasilane układy przez USB to generalnie był problem, gdy je zasilałem osobno - z sieci lub z baterii...
jakieś sugestie dotyczące utrzymania go jak najdłużej przy życiu ? Nie da się, nienaprawialne uszkodzenia powierzchni. Krytyczny stan dysku zaczęło Ci wyświetlać bo liczba realokowanych sektorów - fizycznych uszkodzeń powierzchni , wzrosła na tyle, że wartość przeliczona spadła poniżej wartości progowej dopuszczalnej dla tego atrybutu krytycznego....
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"...
Ale nic się nie uczysz. :( i nie czytasz ze zrozumieniem. Jeszcze raz zaznaczę: musisz ustawić zmienną globalną która będzie pamiętana poza działającą procedurą. Zwróć uwagę gdzie jest deklaracja zmiennej "i" w moim kodzie a gdzie w twoim. (gdzie jest deklaracja a gdzie początek procedury) ... aby przy naciśnięciu skrótu Ctrl+Shift+A przenosiło wartość...
Usuwam dla danego guzika konkretną kolumnę, potem zmieniam wartość w nawiasie (1) dla pierwszego guzika, potem dla drugiego zmieniam (2) itd. Czyli jak mam na razie te dwa przyciski to tak, żeby następny już wiedział, że ma kopiować dane do datachart ale o jedną kolumnę dalej niż poprzedni - robiłem to zmieniając wartość counter - kolejno 1 2 3 itd....
Zobacz przykład z załącznika...
Zacznę od tyłu. c. Grafiki na arkuszu czwartym nie są w żadnej tabeli. Obrazki nie są zawartością żadnej komórki, więc nie znajdziesz formuły, którą przeniesiesz je na inny arkusz. Za pomocą VBA możesz je przenosić, kopiować w inne miejsca, usuwać. Ale to już wymaga trochę więcej zabawy. ponad a. Schowaj pole powiązane z Combo pod nim a w komórce w...
Plik jest jeden i w nim są oba opisane makra. Pierwsze makro opisałem na początku postu nr 7; nosi ono nazwę "LiczX", a drugie makro, które opisałem na końcu postu nr 7, nosi nazwę "Makro1". Czyli mam 1 plik o nazwie: Kalkulator - Koszty Allegro v10f.xls w którym są 2 arkusze, a ich nazwy to: Kalkulator oraz Tablica wyników Odnośnie wymienionych niejasności...
W załączniku.
Witaj [syntax=vbnet]Sub CellToComment() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection For Each Rng In WorkRng koment = koment & Rng.Value & vbLf Next WorkRng(1).Offset(WorkRng.Count).NoteTex... Text:=koment End Sub [/syntax]
Może mi ktoś wytłumaczyć dlaczego jest tak że mając: Na dekoderze C+ siła sygnały jest na maxa (zielony pasek do końca) A na oprogramowaniu załączonym do karty sygnał na poziomie 55-70% W większości przypadków jest to tylko pomiar napięcia ARW w głowicy. Różnice poza różnymi układami głowic wynikają często po prostu z jakości dopasowanie impedancji...
Kopiowanie komórek: [syntax=vb]Sub Kopiowanie() Linia = 2 Sheets("Sheet1").Select Range("C6:H45").Select Application.CutCopyMode = False Selection.Copy Sheets("PASS").Select While Range("A" & Linia).Value <> "" Linia = Linia + 1 Wend Range("A" & Linia).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False,...
Witaj Odpal to makro [syntax=vb] Sub popraw() Dim bs As Range, r As Long Set bs = Sheets(1).Range("A:C").Cells r = 2 While bs(r, 1) <> Empty If (bs(r, 1) = bs(r + 1, 1)) And (Month(bs(r + 1, 2)) - Month(bs(r, 2)) > 1) Then bs.Rows(r).Copy bs.Rows(r + 1).Insert Application.CutCopyMode = False bs(r + 1, 2) = DateSerial(Year(bs(r, 1)), Month(bs(r,...
Wstawiam plik z rozwiązaniem problemu, tak jak ja go zrozumiałem. W kodzie makra nie wstawiałem objaśnień, bo zmienne nazwałem aż naddto opisowo. Jeśli czegoś nie rozumiesz z procedury, korzystaj z F1 ustawiając kursor na nieznanym Ci "słowie". Aha, nie zapomnij włączyć makr w Excelu, najlepiej na stale. Dostęp do edytora VBA to chyba wiesz: Alt + F11...
ActiveSheet.Range("A2:E300").Copy Destination:=.Cells(LastRow + 1, 1) Podmień na [syntax=vbscript] ActiveSheet.Range("A2:E300").Copy .Cells(LastRow + 1, 1).PasteSpecial xlValues Application.CutCopyMode = False[/syntax]
Tylko już .xlsm
Zrobiłeś wg przykładu z pomocy? BLKMOV przyjmuje parametr typu ANY, a nie tylko numer bazy. Numer bazy podajesz jako jedno z pól struktury.
https://obrazki.elektroda.pl/9847851500_... Witajcie moi drodzy Przedstawię tutaj szczegółowy opis wykonania bezgłośnego, energooszczędnego serwera plików opartego na Banana PI M1+ i dysku SSD podłączonego poprzez SATA. Pokazany tutaj serwer w finalnej wersji (480GB+60GB na SD) zrobiłem kosztem około 500 zł (200 zł Banana Pi + 270...
W załączniku.
gdy ilość znaków wynosi 14 Proponuje np. [syntax=vbscript]Private Sub TextBox1_Change() Lr = Range("A" & Rows.Count).End(xlUp).Row + 1 If Len(TextBox1.Value) = 14 Then Cells(Lr, "A") = TextBox1.Value End If End Sub[/syntax] Jeśli chcesz 14 znaków lub więcej to oczywiście zmień zapis warunku na => 14 :D
Sheets("DATA ENTRY " & s)
Ciezko sie trochu domyslec o co dokladnie pytasz, ale jesli dobrze zrozumialem to w arkuszu rok2005 w dowolnej komorce wstaw: =JEŻELI(Rok2000!AI3=1;Rok2000!AP3;"") i bedzie kopiowalo zawartosc AP3 pod warunkiem wartosci "1" w AI3, Prawie to samo co wyzej tyle ze nawiasy gdze indziej.
Jak masz już zapamiętany w zmiennej numer kolumny, to możesz odwołać się do komórki w trzecim wierszu przez [syntax=text]Cells(3, numer_kolumny)[/syntax] Jeśli potrzebujesz się odwoływać za każdym razem do innej kolumny, to: [syntax=text]Cells(3, ActiveCell.Column)[/syntax]
Teraz wszystko jasne. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Application.ScreenUpdating = False Plik = "C:\PlikiSpraw\" & Range("A" & Target.Row) & ".xlsx" If Dir(Plik) <> "" Then Rows(Target.Row).Copy Set s = Workbooks.Open(Plik) nw = s.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row...
https://obrazki.elektroda.pl/9290552300_... Witajcie moi drodzy. Zapraszam na kolejną część mojego tutoriala PIC18F2550 i kompilatora SDCC . W tej części poznamy sterownik wyświetlacza LED MM5450, połączymy go z PIC18F2550 i napiszemy od 0 implementację ich komunikacji. Docelowo użyjemy MM5450 do wysterowania wyświetlacza LED 5 na...
Dzień dobry, Opis dość nieprecyzyjny, nie wiadomo czy listy są tej samej długości, gdzie miałyby być kopiowane po wpisaniu nazwy, i gdzie ta nazwa ma być. Spróbuję coś napisać ogólnie. To rozwiązanie dotyczy Excela w którym pracuję na co dzień, myślę że w OpenOffice można stosować podobne rozwiązania. Jeśli kolumny mają nagłówki dogodnie byłoby nadać...
W komórkach J3:L3 wpisujesz wartości alternatywne, które zastąpią te z WYSZUKAJ.PIONOWO. Jeśli te komórki zostawisz puste lub będzie tam wartość nieliczbowa, to pozostaje wynik pierwotny z WYSZUKAJ.PIONOWO.
Yogi (przypominasz mi dzieciństwo) ;). Nie pamiętam, czy był to 'Zwierzyniec', czy też 'Ekran z bratkiem'. Ale autor napisał: potrzebuję makro A do Autora. Może ten kod będzie wygodniejszy (jest bez obsługi błędów, sam się pobaw): [syntax=vb]Sub Przenies() Dim d As Date, p As Date, k As Date ow = Cells(Rows.Count, "B").End(xlUp).Row y = Sheets("Arkusz2").Cells(Rows.Count,...
Czekamy aż zrezygnujesz z prowizji...
W Polskim miksie jest znacznie więcej PV niż w Danii więc po co mamy walić tyle wiatraków co oni? Nie mamy ich kopiować 1:1 ale naśladować rozwiazania które sie sprawdzają, tylko tyle i jak widzę aż tyle bo brniemy coraz głębiej w drogie i nieelastyczne EJ. Duńczycy, jak rozumiem Twój wzorzec, korzystają z tego co mają. PV nie działa w nocy, kolejny...
Drogi kolego, nie atakuję cię osobiście. Merytorycznie krytykuję pogląd jakoby była to konstrukcja "prawie profesjonalna". Nie jest. Kontrola procesu ładowania jest uproszczona i niedokładna, chińskie ładowarki z Lidla i ich kuzyni robią to lepiej, nawet jeśli jakość produkcji pozostawia wiele do życzenia. Czasy kiedy "ciężka elektronika" oznaczała...
Witam, Czy jest sposób na kopiowanie tylko samych wartości komórek w excel-u (przez przeciąganie), tz. aby do komórki docelowej kopiowane była wartość z komórki kopiowanej ale formatowanie (kolor, obramowanie,itd.) pozostawało bez zmian w docelowej komórce ? pozdrawiam.
http://obrazki.elektroda.net/73_11934106... Chciałbym zaprezentować konstrukcję jednogodzinnej ładowarki przystosowanej do ładowania akumulatorków NiMH oraz NiCd 1,2V o rozmiarach HR6/AA i HR03/AAA. Ładowarka posiada dwa oddzielne kanały, dzięki którym możemy ładować jednocześnie dwa różne akumulatorki lub po niewielkich przeróbkach cztery...
W tym zdaniu to naprawdę nie wiem o co Ci chodzi. I jakoś się nie dzxiwię. Zamiast przeczytać uważnie fragment zawierający cytowane zdanie, wydzieliłeś je z kontekstu i w takiej formie faktycznie jest zgodne z tym co Piszesz. Natomiast (nie wiem czy muszę tłumaczyć, uważam, że mam do czynienia z osobą inteligentną) to zdanie jakie cytowałeś odnosi...
Analizowałeś to makro? Przyjrzyj się co przypisujesz do zmiennej "multi" i to przed otwarciem pliku źródłowego. Nie powinno być With DoSkop.Worksheets("AKKO"&#... Set reg1 = .Range("a2:a41000")... itd Jeśli filtrujesz, to ustal maskę: fileFilter:="Pliki Excel (*.xl*),*.*," Po mojemu: Albo zostaw to (poprawione) kopiowanie...
Gdybyś opisał całe zagadnienie, to pewnie znalazłoby się lepsze rozwiązanie całości, ale to o co konkretnie pytasz można zapisać tak: [syntax=vbscript]Range("A2").Value = Range("A1").Value[/syntax]
Z tym przeciąganiem to jest dość skomplikowane, bo w takim przypadku obszar selekcji jest większy niż obszar zmian. Trzeba to dopasować. Poza tym przy przeciąganiu najpierw jest kopiowanie, a potem selekcja, w związku z tym przy takiej metodzie rejestracji zmian, jaką tu przyjęto wynik wygląda tak, że wartość poprzednia jest taka sama jak bieżąca. Zatem...
Pytanie podstawowe: czy potrzebujesz kopiować tylko wartości, czy też formaty? Bo w tej chwili to, co robi to makro, to kopiuje wartości "aa" z kolumny A do C, co jest raczej średnio przydatne - równie dobrze można tą wartość tam wpisywać...
(at)mariomario chyba masz rację z tym, że nie ma sensu upakowywać bit co do bitu. Trochę z tym przesadzam z przyzwyczajenia, bo robiłem/robię systemy gdzie walczę o każdy bit itd. Jakby oferować binarne API pomiarów to można by po prostu kopiować z pamięci do odpowiedzi GET odczyty bez zamiany ich na tekst ASCII. W ten sposób uniknęlibyśmy wielu sprintf...
Witam serdecznie, Potrzebuje pomocy w napisaniu marka, poniewaz sam nie potrafię. Tabela: W kolumnie T w kolejnych wierszach są wpisane jako tekst ścieżki na dysku. Czasem jest to jedna ścieżka, a czasem dwie lub trzy oddzielone ";" (średnikiem). Czyli ścieżki to takie główne wartości oddzielone ";" średnikami. Makro: Makro ma przeszukiwać tekst (wartości)...
[syntax=vbscript]Sub Handlowcy() Sheets("Dane").Select ow = Cells(Rows.Count, "E").End(xlUp).Row For x = 2 To ow For y = 2 To Sheets.Count If Cells(x, "F") = Sheets(y).Name Then nw = Sheets(y).Cells(Rows.Count, "A").End(xlUp).Row + 1 Cells(x, "E").Copy Sheets(y).Cells(nw, "A") Cells(x, "G").Copy Sheets(y).Cells(nw, "B") End If Next Next End Sub [/syntax]...
kopiować wartość makro kopiować wartość ekran automatyczny kopiować wartość
lodówki naprawa liebherr schemat wyjścia liniowego minolta błąd skanera
hydraulika siłowa hydraulika siłowa
Brak głosu powitalnego w kamerze Mio MiVue 792 - przyczyny i rozwiązania Nie znaleziono pliku wykonywalnego w Arduino IDE
