REKLAMA

target address

Znaleziono około 639 wyników dla: target address
  • Private Sub Worksheet_Change(ByVal Target As Excel.Range) jak połączyć

    Witam. Mam prośbę próbuje połączyć dwie procedury ale mam problem moja wiedza jest zbyt mała, może ktoś z grupowiczów pomoże [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Cells.Count > 1 Then Exit Sub If IsNumeric(Target) And Target.Address = "$E$68" Then Select Case Target.Value Case 1: Kierowca_A Case 2: Kierowca_B...

    Programowanie Początkujący   13 Cze 2019 07:55 Odpowiedzi: 5    Wyświetleń: 1077
  • REKLAMA
  • [ATMega16]No rule to make target `test.c.elf', needed by `elf'. Stop.

    Witam, Napisałem ćwiczebny program w C pod ATMega16. Składa się z pliku test.c oraz config.h . Wszystko w katalogu mfile. Środowisko WinAVR-20090313. Wszystko jest w porządku do czasu kompilacji. Wyskakuje mi błąd: make: *** No rule to make target `test.c.elf', needed by `elf'. Stop. > Process Exit Code: 2 > Time Taken: 00:01 Podejrzewam,...

    Mikrokontrolery AVR   03 Cze 2011 20:01 Odpowiedzi: 12    Wyświetleń: 6090
  • [OpenOCD][STM32]Debugowanie address + size wrapped

    Cześć Mam projekcik na STM32, debuguje przy użyciu OpenOCD. Wszystko działa bez zarzutów do momentu wkompilowania w kod takiej oto funkcji znalezionej gdzieś w necie : Info : accepting 'gdb' connection from 3333 Info : device id = 0x10016420 Info : flash size = 32kbytes Warn : acknowledgment received, but no packet pending undefined...

    Mikrokontrolery ARM   08 Lut 2012 10:32 Odpowiedzi: 7    Wyświetleń: 2919
  • Keil - błąd *** ERROR L107: ADDRESS SPACE OVERFLOW

    Właśnie, mam 2kB ale nie wiem jak się do nich dostać :| , nie jestem jeszcze bardzo zaawansowanym programistą . Project -> Options for target -> i zakładka Target - to mogę zmienić model pamięci , ale nie wiem jak ustawić aby wszystkie zmienne automatycznie umieszczał w Ram. Znalazłem w aplikacji już rejestr CFG845 w SFR : 0xaf , dopisałem i ustawiłem...

    Mikrokontrolery   22 Sty 2007 22:53 Odpowiedzi: 5    Wyświetleń: 1919
  • REKLAMA
  • Pobieranie plików z serwera przez SIM868 do Optiboot na Atmega328PB

    W projekcie jest (razem z komentarzami) kilka tysięcy linii w plikach .c i .h, z czego samego bootloadera, który może się Tobie przydać, jest kilkanaście linijek . Próbowałeś z takim prostym kodem, programującym np. z RAM? Analizuję, niektóre rzeczy od razu wywalam bo rozmywają mi obraz całości (kod jest bardzo uniwersalny a mi na tą chwilę niezbędna...

    Mikrokontrolery AVR   02 Sie 2022 12:28 Odpowiedzi: 20    Wyświetleń: 1029
  • [STM32] - kompas elektroniczny na MMC2120 - komunikacja po I2C

    Witam, Jestem w trakcie tworzenia komunikacji pomiędzy uC a czujnikiem MMC2120. korzystam w tym z opisu zamieszczonego w dokumentacji, jednak mam problem z prawidłową implementacją tego algorytmu. proszę o wskazówki, co robię nie tak, co można zrobić lepiej, gdyż przyznam że nie jestem mocny w pisaniu tego tego typu "sterowników". poniżej zamieszczam...

    Mikrokontrolery   16 Maj 2011 18:08 Odpowiedzi: 0    Wyświetleń: 1736
  • Przesuwanie zawartości komórki np X z C2 do C5 do C10 itd po naciśnięciu enter

    coś na zasadzie przesunięć tego samego towaru z magazynu do magazynu Dziwie się, że moderatorzy nie wyrzucili takiego posta do kosza :cry: Nie wiadomo w jakim programie chcesz robić te swoje przekształcenia :?: Nie załączyłeś żadnej ilustracji, ani żadnego pliku, z którym masz problemy :cunning: Gdyby to był Excel :?: to zbliżony efekt działania można...

    Obsługa oprogramowania   24 Maj 2022 08:33 Odpowiedzi: 3    Wyświetleń: 171
  • REKLAMA
  • Excel- Szychtownica: nowy projekt

    Witam. Od dawna korzystam z szychtownicy która bardzo ułatwia mi pracę. Jednak postanowiłem trochę ją przerobić i bardziej udoskonalić. Dlatego bardzo prosiłbym o pomoc bo nie ze wszystkim mogę sobie poradzić. Dołączony plik zawiera pięć różnych szychtownic (do tej pory wszystkie pięć było w jednym arkuszu) teraz je rozdzieliłem i nie wiem jak przerobić...

    Software serwis   20 Paź 2016 18:11 Odpowiedzi: 52    Wyświetleń: 11602
  • formula (VBA) skanowanie artukulow, dodawanie ilosci, unikanie duplikacji

    No tak, w kodzie dodawałem 1. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) k = Target.Column w = Target.Row Select Case Target.Address Case "$A$" & w Application.EnableEvents = False Range("A" & w) = Mid(Range("A" & w), 2) Application.EnableEvents = True Range("B" & w).Select Case "$B$" & w Application.EnableEvents = False Range("B"...

    Obsługa oprogramowania   05 Lis 2021 12:38 Odpowiedzi: 29    Wyświetleń: 381
  • VBA - Znalezienie wartości w tablicy i zwrot tablicy

    Proponuję zmienić koncepcję. Wklej w kod arkusza następująca procedurę[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim wrs As Long, wrsDst As Long, i As Long If Target.Count = 1 Then If Target.Address(0, 0) = "D2" Then Application.EnableEvents = False wrs = 2 wrsDst = 2 Range("E2:E" & UsedRange.Rows.Count).ClearContents Do While...

    Programowanie Początkujący   25 Sty 2014 10:06 Odpowiedzi: 5    Wyświetleń: 2592
  • Excel - nazwa arkusza odwołująca się do komórki

    Wklej w Thisworkbook [syntax=vb]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Index > 7 Then If Target.Address(0, 0) = "A1" And Target.Value <> "" Then Sh.Name = Target.Value End If End If End Sub[/syntax] Lub takie, z zabezpieczeniem przed powtórzeniem nazwy[syntax=vb]Private Sub Workbook_SheetChange(ByVal...

    Programowanie   25 Mar 2014 22:42 Odpowiedzi: 7    Wyświetleń: 5883
  • [VBA Excel] dodanie wartości +1 do istniejącej komórki z tekstem

    Na wstępie: Mam błąd na linijce "lCnt = Mid(sTemp, i, Len(sTemp))" - "type mismatch" Możliwe przyczyny to: a) brak deklaracji zmiennej " i ", typu np.: " Dim i% " b) wartość w danej komórce ma "skomplikowaną" strukturę, typu np. " AU01_CDF125 " - po znalezieniu pierwszego znaku, który może być zamieniony na liczbę nie można na tęże liczbę zamienić reszty...

    Programowanie   21 Gru 2017 17:41 Odpowiedzi: 6    Wyświetleń: 4407
  • [excel][vba] co tu dopisać ' drukowanie '

    troszkę to skomplikowałeś zatrudniony przez a i b to są rożne nazwy firm, jak teraz podmieniam pod a tą swoją nazwę to lipa:/ bo nie działa zaznaczanie:/. [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H$3" Then Sheets("Szablon").Range("B10") = Target.Value ElseIf Target.Address = "$K$3" Then Application.EnableEvents...

    Programowanie Początkujący   27 Lip 2012 15:17 Odpowiedzi: 31    Wyświetleń: 5676
  • REKLAMA
  • Zaznaczanie wierszy VBA Excel -

    tak powinno działać makro: 1. W zakresie wierszy '42:305' zaznaczenie dowolnej komórki ma wywoływać: a. wypełnienie całego wiersza, z zaznaczoną komórką, "jakimś kolorem" (na tę chwilę nieważne jakim) b. nałożenie obramowania wiersza (przynajmniej na dolną krawędź) c. usunięcie wypełnienia z wcześniej zaznaczonego wiersza z zakresu '42:305' d. usunięcie...

    Obsługa oprogramowania   21 Sie 2017 09:27 Odpowiedzi: 15    Wyświetleń: 6477
  • Pytanie o formułe. Zliczanie komórek. Trzy warunki.

    mam pytanie, bo widzę, ze wpisałeś jakieś kody w Visual Basic i funkcje działają mi tylko w tym arkuszu który wysłąłeś, czy można zrobic tak aby działało to we wszystkich, czy musze do każdego te kody wpisywać. Arkusze chciałbym móc tworzyć w każdej chwili jak mi się skończą, lub dla różnych osób. Normalny kod mam np. taki: Private Sub Worksheet_Change(ByVal...

    Software serwis   03 Cze 2011 22:49 Odpowiedzi: 14    Wyświetleń: 2691
  • VBA - zmiana koloru kształtu w zależności od wartości określonej komórki

    Bardzo proszę o pomoc w napisaniu poprawnego makra, które będzie się uruchamiało przy każdorazowej zmianie wartości określonej komórki. Na tę chwilę mój problem polega na tym, że makro działa, kiedy ręcznie zmieniam wartości w komórce. Nie działa jednak, gdy w tę samą komórkę wstawiam prostą formułę, której wynikiem są określone wartości (formuła to:...

    Programowanie   04 Sie 2018 19:53 Odpowiedzi: 4    Wyświetleń: 1887
  • VBA Excel, ukrywanie/odkrywanie wierszy w niekatywnym arukuszu

    Zrobiłem ukrywanie wierszy na arkuszu, w którym wprowadzam dane. If Target.Address = "$D$41" Then If Target.Value = 1 Then Rows("42:62").EntireRow.Hidden = False End If If Target.Address = "$D$41" Then If Target.Value = 1 Then Rows("63:355").EntireRow.Hidden = True ... i tak łącznie pojawia mi się piętnaście formatek do wpisywania danych. Po kliknięciu...

    Programowanie Początkujący   13 Paź 2022 12:50 Odpowiedzi: 4    Wyświetleń: 315
  • Czy można wyłączyć (ominąć jednorazowo) zdarzenie Change w arkuszu

    Witam, mam w skoroszycie zestawienia moich godzin pracy. Co pewien czas (miesiąc) eksportuję jeden skoroszyt danego miesiąca do pliku *.xls, który jest pozbawiony kodów VBA oraz funkcji i formatów komórek, czyli jest w postaci "strawnej" dla Androida. W związku z tym mam pytanie: Czy można jednorazowo wyłączyć (lub ominąć jednorazowo) w momencie wykonywania...

    Programowanie Początkujący   07 Sty 2024 16:30 Odpowiedzi: 7    Wyświetleń: 156
  • Mikrotik: Wzmacnianie bezpieczeństwa sieci WiFi - włamania, metody, konfiguracja, WPA2 AES

    Kod # dec/21/2021 23:23:03 by RouterOS 6.49.2 # software id = 8L2G-5ZQP # # model = RBD52G-5HacD2HnD # serial number = B4A00A643903 /interface bridge add admin-mac=W4:1D:78:E5:63... arp=reply-only auto-mac=no comment=defconf dhcp-snooping=yes name=bridge add admin-mac=7A:8A:68:12:2B... arp=reply-only auto-mac=no...

    Sieci Początkujący   29 Gru 2021 21:52 Odpowiedzi: 18    Wyświetleń: 1197
  • Excel VBA - Blokowanie wartości w komórce

    Myślę, że sprawdzanie czy [syntax=vbscript]If Range("C1") = "" Then Range("C1") = Range("A1") Else ...[/syntax] jest tu niepotrzebne - pusta wartość C1 będzie potraktowana jako 0. Ja bym to widział nieco krócej: wersja "jednokomórkowa"[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And IsNumeric(Target.Value)...

    Programowanie Początkujący   12 Sie 2015 20:44 Odpowiedzi: 10    Wyświetleń: 1575
  • EXCEL - warunkowy duplikat wartości komórek w inne miejsce

    [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("V15:V16")) Is Nothing Then If Target.Address = "$V$16" Then r = 1 Target.Offset(-10 - r, 3).Resize(2, 2).Copy Target.Offset(r * 2, 2) End If End Sub [/syntax]

    Software serwis   14 Paź 2015 10:25 Odpowiedzi: 2    Wyświetleń: 732
  • Automatyczne ukrywanie wierszy w EXCEL za pomocą kodu VBA

    Cześć, mam problem którego nie potrafię rozwiązać, może jest mi ktoś w stanie pomóc. Mianowicie potrzebuje wykonać w swoim Arkuszu w Excelu automatyczne ukrywanie pustych wierszy, gdzie wartość w danej komórce jest mniejsza niż 1. Korzystam z takiego kodu VBA: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "E23" Then If...

    Obsługa oprogramowania   07 Gru 2020 11:28 Odpowiedzi: 5    Wyświetleń: 1086
  • Ukrywanie wierszy 7 i 8 w Excelu przy wartości >85 w komórkach B4 i B5 - Makro VBA

    Hej, potrzebuje makro w excelu, które ukryje mi wiersze 7 i 8 gdy w komórkach B4 i B5 pojawi się wartość większą niż 85. Próbowałem przerobić kilka makr które tu znalazłem jednak nie są to zadowalające efekty. [syntax=vbnet]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "B4:B5" Then If Target.Value > 85 Then Rows("7:8").EntireRow.Hidden...

    Obsługa oprogramowania   14 Wrz 2022 12:32 Odpowiedzi: 1    Wyświetleń: 162
  • Excel - makro do kopiowania

    Wklej w kod arkusza Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "A1" Then ostW = WorksheetFunction.CountA(Range(&... + 1 Cells(ostW, 2) = Target.Value End If End Sub Jeśli dopuszczasz puste wiersze to zamiast tych dwóch linijek wewnątrz, wstaw If Cells(1,...

    Software serwis   12 Lis 2010 22:36 Odpowiedzi: 5    Wyświetleń: 2195
  • EXEL - Problem z przenoszeniem wybranych danych z jednego arkusza do drugiego

    Dlatego, że w wyszukiwanej kolumnie wartości nie są unikatowe. Funkcja zwróci pierwszy znaleziony, czyli w tym przypadku zawsze 27 wiersz. Należałoby znaleźć pozycję w tabeli i przesuwać górną granicę o WIERSZ()-n, zachowując dolną. Formuła miałaby z 20cm... Będzie prościej makrem. Wklej w kod arkusza "arkusz 2", przetestuj (zmiana w A2), dostosuj do...

    Software serwis   12 Lip 2011 20:35 Odpowiedzi: 3    Wyświetleń: 3431
  • Automatyczne ukrywanie wierszy w Excelu - poszukiwane makro

    Wklej w kod arkusza :[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "C47" Then If LCase(Target.Text) = "przelew" Then 'Przelew, PRZELEW, przelew Rows("48:49").EntireRow.Hidden = False Else Rows("48:49").EntireRow.Hidden = True End If ElseIf Target.Address(0, 0) = "C47:E47" Then 'jeśli pusta też ma odkrywać to...

    Software serwis   08 Cze 2013 12:26 Odpowiedzi: 2    Wyświetleń: 5727
  • Blokowanie usuwania komentarzy excel VBA

    Napisałem krótki kod w VBA, który tworzy mi historię edytowania każdej komórki z danego zakresu w komentarzu. Pokazuje też, kto wprowadził zmiany wraz z datą. Wszystko ładnie działa, tylko musi to być bardziej - że tak powiem - idiotoodporne :) ...i z tym mam problem, tzn.: 1. Jak już komentarz automatycznie się stworzy, to nie może być możliwości usunięcia...

    Obsługa oprogramowania   05 Cze 2020 18:52 Odpowiedzi: 2    Wyświetleń: 666
  • makro - przekreślenie tekstu

    Dodano po 5 w A1 zmieni się pod wpływem formuły [syntax=vb]Private Sub Worksheet_Calculate() zk = Range("A1") = 1 With Range("A2") n = Len(.Text) k = n \ 2 .Characters(Start:=1, Length:=k).Font.Strikethrough = zk .Characters(Start:=k + 1, Length:=n - k).Font.Strikethrough = Not zk End With End Sub [/syntax]

    Programowanie Początkujący   22 Cze 2017 09:25 Odpowiedzi: 12    Wyświetleń: 1788
  • Excel - Odwołanie do innego arkusza z nazwą z wybranej komórki

    Jednak uwielbiam proste rozwiązania :) Wklej w kod arkusza wynikowego takie makro [syntax=vbscript]Option Explicit Option Compare Text Private Sub Worksheet_Change(ByVal Target As Range) Dim myPath As String, myFile As String Dim ark As String, rn As String, arg As String If Target.Address(0, 0) = "A3" Then myPath = "G:\TP\01. Administration\1.1 Work...

    Obsługa oprogramowania   24 Wrz 2018 17:07 Odpowiedzi: 8    Wyświetleń: 2298
  • STM32, J-LINK, Atolic TrueStudio debugowanie zawiesza się na samym początku

    Witam serdecznie. Proszę o poradę. Programuje STM32L051 w Atolicu. Wstępna konfiguracja została wykonana poprzez Cube. Kod to tylko i wyłącznie ustawianie w pętli: naprzemiennie stanu wysokiego i niskiego na dwóch pinach z opóźnieniem i wygląda tak: SEGGER J-Link GDB Server V6.44i Command Line Version JLinkARM.dll V6.44i (DLL compiled May 17 2019 17:34:22)...

    Mikrokontrolery Początkujący   10 Cze 2021 13:25 Odpowiedzi: 3    Wyświetleń: 465
  • EXCEL- wymuszanie informacji o błędnym wpisie

    Jeśli nie ma górnego ograniczenia dla wprowadzanych liczb procedurę Walidacji można zapisać też tak: [syntax=vb]With ark.Range("E6:F" & dstW).Validation .Delete .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _ Operator:=xlGreater, Formula1:="0" .IgnoreBlank = True .InCellDropdown = True .InputMessage = "Wprowadź liczbę całkowitą" .ShowInput...

    Software serwis   21 Wrz 2015 20:16 Odpowiedzi: 13    Wyświetleń: 903
  • Excel tableka sumowanie pól

    Ja to zrozumiałem trochę inaczej, ale rzeczywiście opis nie należy do klarownych. Makro zdarzeniowe reaguje na zmiany w komórkach B5:B7 wprowadzone ręcznie, nie makrem. Tekst makra jest w module arkusza. Zakres trzeba dopasować. Jeśli w B8 wpiszę "14", to w C8 ma być formuła "=400+B8" chyba jednak źle zrozumiałem, ale może to sobie przerobisz.

    Obsługa oprogramowania   26 Paź 2018 15:33 Odpowiedzi: 12    Wyświetleń: 480
  • Excel - Wyszukiwanie kolumn zawierających określony tekst

    [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$10" Then Application.EnableEvents = False Range("A11:A" & Cells(Rows.Count, "A").End(xlUp).Row).ClearContents ow = 5 ok = Cells(1, Columns.Count).End(xlToLeft).Column x = Target.Row + 1 For k = 1 To ok Set a = Range(Cells(1, k), Cells(ow, k)).Find(Target, LookIn:=xlValues,...

    Obsługa oprogramowania   11 Cze 2020 03:08 Odpowiedzi: 10    Wyświetleń: 516
  • Excel - Odsyłacze w liście rozwijalnej

    Jeśli jest to lista przez poprawność danych to najlepiej wykorzystać zdarzenie arkusza. Np (w kodzie arkusza) Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "E1" Then Columns(1).Find(what:=Ta... Lookat:=xlWhole).Select End If End Sub W przypadku obiektu (pole kombi,...

    Software serwis   29 Wrz 2010 17:59 Odpowiedzi: 2    Wyświetleń: 1778
  • msgbox jako okno przypomnienia - ecxel

    Wstaw taki kod do arkusza z komórką: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If (Target.Address = "$A$1") Then If (Target.Value = 1) Or (Target.Value = 3) Or (Target.Value = 5) Then MsgBox "Wybrałeś liczbę nieparzystą", vbInformation + vbOKOnly End If End If End Sub [/syntax]

    Programowanie   13 Kwi 2011 10:01 Odpowiedzi: 10    Wyświetleń: 1435
  • Excel- automatyczne kopiowanie większej zawartości pól

    Jak już wspomniałem da rade to zrobić na formatach bo ja właśnie do tej pory korzystam z takiej opcji jednak za każdym razem na początku każdego miesiąca to żmudna praca żeby zrobić nowe wzory systemów no i tych formatów jest naprawdę sporo, a chciałem se to trochę ułatwić. Czy możesz mi pomóc w utworzeniu odpowiedniego makra? Dodano po 41 no i znalazłem...

    Software serwis   30 Cze 2011 21:48 Odpowiedzi: 64    Wyświetleń: 13493
  • Excel kopiowanie przy użyciu makra

    Tu zaczynają się cuda. To może podrzucę kanister z wodą? :) Poważnie: Umieść oba makra w module i precyzyjnie "wskaż" Excelowi, którego arkusza dotyczy kod. Przykład z kopiowaniem[syntax=vb]With Sheets("Arkusz3") .Activate .Range("F8:M8").Copy .Range("F86").PasteSpecial Paste:=xlPasteValues 'pozostałe mają ustawienia domyślne Application.CutCopyMode...

    Programowanie Początkujący   30 Maj 2012 12:31 Odpowiedzi: 2    Wyświetleń: 2363
  • Excel 2007 - przepisanie zawartosci komorki do innej

    Poczytaj trochę o procedurach zdarzeniowych, a "załapiesz" w 10 minut: [url=]Link1 [url=]Link2 Tu kod dla obu przypadków (niepotrzebne skreślić):[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) 'wariant pierwszy Dim ostW As Long If Target.Address(0, 0) = "A1" Then ostW = Range("B" & Rows.Count).End(xlUp).Row + 1 If ostW < 2 Then...

    Software serwis   24 Sie 2012 20:29 Odpowiedzi: 21    Wyświetleń: 3474
  • makro uruchamiane przy zmianie zawartości komórki z listy

    Czyli muszę uzyskać wpis z formuły, z listy lub z palca. W takim razie chyba faktycznie pozostaje makro. To na szczęście jest w miarę proste - obsługa zdarzenia Change arkusza Opis i wyszukanie wartości w arkuszu źródłowym plus sprawdzanie, czy przedtem użytkownik nie wprowadził czegoś do komórki z palca lub z listy: [syntax=vb]Private Sub Worksheet_Change(ByVal...

    Programowanie   26 Lis 2012 22:25 Odpowiedzi: 9    Wyświetleń: 5853
  • Excel modyfikacja - Makra, kolorowanie danej komórki

    Witam, mam następujący problem. Z VBA jestem że tak powiem początkującym. Mam w arkuszu w którym zależałoby mi żeby zrobić formatowanie warunkowe. Jak już wiadomo excel 2003 ogranicza to do 3 warunków. A potrzeba ich zrobić dużo więcej. Mianowicie chciałbym żeby po sprawdzeniu komórki i sprawdzeniu jej wartości i powiedzmy jeżeli w danej komórce będzie...

    Programowanie Początkujący   15 Sty 2013 16:33 Odpowiedzi: 7    Wyświetleń: 5703
  • EXCEL - kopiowanie komórki do pustej komórki

    Poniżej rozwiązanie z wykorzystaniem VBA Kliknij prawym przyciskiem na nazwie arkusza, z menu kontekstowego wybierz "wyświetl kod". W edytorze VBA wpisz: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Target.Value = "x" Then Range("C1") = Range("B1") Else Range("C1") = "" End If End If End Sub Zapisz plik w formacie...

    Software serwis   17 Cze 2013 11:14 Odpowiedzi: 7    Wyświetleń: 2691
  • VBA Excel 2003 - MsgBox dla przedziału wartości

    A w taki sposób próbowałeś? [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" And Target.Value <= 10 Then MsgBox "Wartość poniżej 10!", 64, "Wesołych Świąt" End If End Sub[/syntax]

    Programowanie Początkujący   24 Gru 2013 07:48 Odpowiedzi: 6    Wyświetleń: 1866
  • Proste makro do zwiększania wartości komórki

    O coś takiego chodzi? [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Select Case Target.Value Case "a" Range("B3").Value = Range("B3").Value + 1 Case "b" Range("B4").Value = Range("B4").Value + 1 Case "c" Range("B5").Value = Range("B5").Value + 1 End Select End If End Sub[/syntax]

    Programowanie Początkujący   04 Lip 2016 07:49 Odpowiedzi: 6    Wyświetleń: 1665
  • Wstawienie wiersza nad komórką, w której właśnie została wpisana zawartość

    Wklej w kod arkusza (nie w moduł) [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "N7" Then If Target.Value <> Empty Then Rows(7).Insert Shift:=xlDown End If End Sub[/syntax]

    Programowanie Początkujący   14 Lip 2017 07:12 Odpowiedzi: 2    Wyświetleń: 741
  • Excel - wpis do komórki zabezpieczony hasłem

    Dzień dobry, mam podobny problem. Chciałabym, aby po wyborze Imienia z listy rozwijanej pojawiło się okienko do wpisania nazwy i hasła lub tylko hasła dla danego użytkownika. Jeśli użytkownik wpisze poprawna nazwę i hasło to pojawi się nowy wiersz nad wpisem (to już mam), ale jeśli nie wpisze poprawnie danych to zawartość wiersza się wyczyści z danych...

    Obsługa oprogramowania   17 Gru 2017 12:55 Odpowiedzi: 2    Wyświetleń: 420
  • VBA - listy rozwijane z warunkiem.

    Listę w A14 masz na tym samym arkuszu, co A16 i C16? Jeśli tak, możesz wszystkie pominąć Sheets("porównanie ceny produkcji"). Bez tych dodatkowych dwykropków bym wpisał: [syntax=vbscript]If Target.Address = "$A$14" Then Select Case Target.Value Case "A": Sheets("porównanie ceny produkcji").Range("A16").Value = "niebieski" Sheets("porównanie ceny produkcji").Range("C16").Value...

    Programowanie Początkujący   26 Kwi 2018 08:59 Odpowiedzi: 13    Wyświetleń: 1290
  • Excel - jak przenieść formatowanie w formule jeżeli?

    W kod arkusza wklej takie coś: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "K5" Then If Target.Value = 1 Then Range("N5").Copy Else Range("N6").Copy End If Range("K6").Select ActiveSheet.Paste Application.CutCopyMode = False End If End Sub[/syntax]

    Programowanie Początkujący   27 Mar 2020 17:54 Odpowiedzi: 12    Wyświetleń: 1512
  • Jak usunąć makro z arkusza skopiowanego do nowego pliku Excel?

    Witam ponownie. Wracam do tematu bo potrzebuję pomocy. Temat dotyczy kontynuacji usuwania makra przez inne makro. Powyższy kod do usuwania makra wykorzystuje do tej pory. Jednak mam potrzebę aby w nowym pliku po usunięciu makra zostało wklejone nowe, inne makro. Dokładnie chodzi mi o wklejenie poniższego makra. Jak to mogę zrobić? [syntax=vb]Private...

    Obsługa oprogramowania   03 Maj 2020 13:46 Odpowiedzi: 22    Wyświetleń: 1365
  • Excel VBA: Makro odświeżające zapytanie Power Query z listy rozwijanej

    Rewelacja Bardzo dziękuje, ale jest problem. Bardzo zależy mi aby wartości z tabeli były pobierane przez zapytanie z power query. Więc dodałem w kodzie wiersz odświerzania zapytania. Teraz po zmianie wyboru z listy rozwijanej wartości się "podbierają" ale nagłówek już nie. Czy mozna z tym coś zrobić ? Private Sub Worksheet_Change(ByVal Target As...

    Obsługa oprogramowania   08 Kwi 2021 08:41 Odpowiedzi: 2    Wyświetleń: 363
  • VBA EXCEL - dodawanie nowego wiersza poniżej, po zmianie wartości w komórce

    Cześć, nie znam języka Visual Basic, ale w związku z moją pracą na arkuszach exelowskich potrzebuję stworzyć makro, które automatycznie dodaje mi wiersz ze skopiowanymi niektórymi danymi z wiersza powyżej. Makro ma działać na tej zasadzie, aby po zmianie wartości na 1 w każdej komórce w kolumnie AG (na chwilę obecną ma zakres od 11 do 14, ale docelowo...

    Programowanie Początkujący   10 Sie 2022 15:36 Odpowiedzi: 8    Wyświetleń: 591
  • Generowanie kombinacji 3 liczb z zakresu 1-9 dających sumę 18 w Excelu

    Czy to ma być w "czystym" Excelu, czy może być VBA? I potwierdź, czy chodzi o kombinacje różnowartościowe, czyli ciągi rosnące (lub malejące, ale w każdym razie monotoniczne). Jeśli może być VBA i rzeczywiście o to chodzi, to proponuję makro zdarzeniowe, reagujące na zmianę sumy w komórce C1. W module arkusza: [syntax=vbnet]Private Sub Worksheet_Change(ByVal...

    Programowanie Początkujący   09 Gru 2022 22:37 Odpowiedzi: 4    Wyświetleń: 357
  • [VBA] - Pilnowanie zakresu danych

    Albo:[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$5" Then If Application.CountIf(Range("A1:A4"), Target) = 0 Then Target.Interior.Color = vbRed Else Target.Interior.ColorIndex = xlNone End If End If End Sub [/syntax]

    Programowanie Początkujący   26 Wrz 2015 19:43 Odpowiedzi: 4    Wyświetleń: 741
  • VBA - Excel 2007 Automatyczne czyszczenie zakresu komórek wg konkretnej daty.

    Witajcie ponownie. Nie zdążyłam już wczoraj przetestować tego arkusza. Natomiast dzisiaj już wszystko wiem. Teraz mam kod w module: Sub CB() 'czysc baze If Worksheets("Formularz").Range("B1") > 1 Then Worksheets("Formularz").Cells(1, 29) = 0 If Worksheets("Formularz").Range("B1") = 1 And Worksheets("Formularz").Range("H12") = "" And Worksheets("Formularz").Cells(1,...

    Software serwis   13 Kwi 2015 17:49 Odpowiedzi: 46    Wyświetleń: 4188
  • Excel - zsynchronizowane listy rozwijane

    Przy kilku listach w kilku arkuszach proponowałbym jedno makro w module arkusza ThisWorkbook (Mój_skoroszyt), coś w tym stylu: [syntax=vb]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim wks As Worksheet If Target.Count > 1 Then Exit Sub If Intersect(Target, Union([A1], [C1], [E1])) Is Nothing Then Exit Sub Application.EnableEvents...

    Software serwis   25 Wrz 2015 14:40 Odpowiedzi: 10    Wyświetleń: 885
  • zmiana koloru komórki po kliknięciu w nią

    Tak się zastanawiam... A dlaczego pętla? Target, to target. Po drugie: żebym sobie mógł klikać w tę samą komórkę/zakres, trzeba odejść z focusem na z góry upatrzoną "komórkę neutralną". Po trzecie: pożyteczny byłby też jakiś wyłącznik. Tu z wykorzystaniem komórki neutralnej. Jeśli =1, kolorowanie wyłączone. [syntax=vba]Private Sub Worksheet_SelectionChange(ByVal...

    Obsługa oprogramowania   10 Lip 2018 16:49 Odpowiedzi: 22    Wyświetleń: 3504
  • Excel - VBA - Uruchamianie makra poprzez VBA na podstawie tekstu

    Podmień Jak zwyklę w punkt :) dziękuję . Działa Jeszcze ostatnia rzecz i stawiam kratę dobrego piwa ! A czy można (pewnie można) dołożyć warunkowanie które będzie uruchamiało różne makra na podstawie zawartości kolumny A w aktywnym wierszu. Wpisując w kolumnę D=AWARIA lub SPRAWNY lub WARUNKOWO , VBA sprawdza co widnieje w kolumnie A i na podstawie...

    Programowanie Początkujący   09 Paź 2018 12:26 Odpowiedzi: 19    Wyświetleń: 2244
  • [EXCEL] - Kryteria filtrowania X3

    jednak chyba będę musiał zostać przy dwóch kryteriach filtrowania Nie ... dlaczego (?) ... za szybko się poddajesz ... :) ... Sprawdź jak będzie działać, to co poniżej ... jak nie będzie, to będzie się główkować "dalij": [syntax=vba] Option Explicit Option Base 1 Private Sub Worksheet_Change(ByVal Target As Range) Dim krt As Integer Dim warunki As...

    Programowanie Początkujący   22 Sie 2017 23:10 Odpowiedzi: 10    Wyświetleń: 1314
  • Excel VBA blokowanie komórek

    Proszę[syntax=vb]Dim komTmp As String Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1:B4")) Is Nothing Then Application.EnableEvents = False If komTmp = "" Then komTmp = Target.Address If Range(komTmp) = Empty Then Range(komTmp).Select Else komTmp = Target.Address End If Application.EnableEvents = True...

    Software serwis   29 Mar 2012 10:28 Odpowiedzi: 4    Wyświetleń: 3518
  • [VBA] Pomoc przy filtrowaniu tabeli (5 zmiennych)

    Proszę pomóżcie mi z VBA. Na podstawie informacji z neta udało mi się stworzyć tabelę którą mogę filtrować na podstawie 2 zmiennych (imię i/lub nazwisko). Chciałbym móc wyszukiwać po 5 zmiennych: - imię i/lub - nazwisko i/lub - stanowisko i\lub - Nazwa filmyi\lub - miejscowość mój obecny kody wygląda tak: [syntax=vbscript]Option Explicit Private Sub...

    Programowanie   27 Sie 2018 12:20 Odpowiedzi: 4    Wyświetleń: 651
  • VBA, excel, pojawiające się wiersze, w zależności od zawartości komórki

    To się baw. Sprawdzanie PESELa znajdziesz w sieci. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$12" Then If Target = "Tak" Then Range(Rows(13), Rows(14)).Hidden = True Else Range(Rows(13), Rows(14)).Hidden = False End If End If If Target.Address = "$C$15" Then If Target = "Tak" Then Range(Rows(16), Rows(17)).Hidden...

    Programowanie Początkujący   13 Paź 2022 21:41 Odpowiedzi: 7    Wyświetleń: 471
  • Makro VBA w Excelu ograniczające wpisywanie znaków do z,w,r,p

    [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) l = "ZWPR" k = "I10,D12,I13,12,J13,N13,P12,I22,I25" a = Split(k, ",") i = UBound(a) For x = 0 To i If Replace(Target.Address, "$", "") = a(x) Then f = False For y = 1 To 4 If UCase(Target) = Mid(l, y, 1) Then f = True Next If Not f Then MsgBox "Niedozwolony znak!", vbCritical, "UWAGA"...

    Obsługa oprogramowania   19 Sie 2020 18:55 Odpowiedzi: 9    Wyświetleń: 744
  • Protokół diagnostyczny do opla

    Witam Odgrzewam stary wątek. Nie wiem czy udało ci się zdobyć informacje i czy możesz sie nimi podzielić. Mam podobne potrzeby, tzn chcę zrobić prosty program do logowania kliku parametrów aby wyznaczyć charakterystyki pracy dla różnych zewnętrznych sytuacji. Korzystając z dokumentacji ISO protokołu KWP2000 oraz z podglądu transmisji udało mi się zlokalizować...

    Samochody Elektryka i elektronika   18 Kwi 2020 09:34 Odpowiedzi: 9    Wyświetleń: 11130
  • EXCEL makro - mała skromna prośba

    Wykorzystaj zdarzenie arkusza "przy zmianie" (Worksheet_Change) gdzie zakresy (Target) możesz określać warunkowo. Np If Target.Address(0, 0) = "A1" Then 'tu sie dzieje jesli zmiana w A1 ElseIf Target.Address(0, 0) = "C8" Then 'tu sie dzieje jesli zmiana w C8 'itd End If

    Programowanie   30 Lis 2009 11:34 Odpowiedzi: 1    Wyświetleń: 975
  • VBA; formatowanie warunkowe

    Odświeżam; Mam taki kod i potrzebuje ograniczyć go do komorek np: A1:A4 Private Sub Worksheet_Change(ByVal Target As Range) Dim Cell As Range Dim Rng1 As Range On Error Resume Next Set Rng1 = ActiveSheet.Cells.SpecialCells(xlCel... 1) On Error GoTo 0 If Rng1 Is Nothing Then Set Rng1 = Range(Target.Address) Else Set...

    Programowanie Początkujący   22 Cze 2015 10:25 Odpowiedzi: 11    Wyświetleń: 10553
  • Excel VBA kopiowanie co drugą linię

    OK. Złe określenie z tym kopiowanie i przenoszeniem, chodziło mi bardziej o to, że na podstawie jakichś tam znaków zmienia na jakieś tam znaki i pod odpowiednim przesunięciu zapisuje jakieś znaki. Wszystko działa mi pięknie, ale mam problem gdyż: Sub procedurka() Select Case Target Case "A": Sheets("Arkusz2").Range(Target.Address).... + Target.Row,...

    Programowanie Początkujący   08 Sty 2011 13:20 Odpowiedzi: 6    Wyświetleń: 2023
  • Excel - automatyczne ukrywanie niewykorzystanych kolumn

    Najlepiej wykorzystać zmianę w kalendarzu. Wklej w kod arkusza "Kalendarz" [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H$18" Or Target.Address = "$I$18" Then With Sheets("Szychtownica") For i = 34 To 32 Step -1 If .Cells(2, i).Value = "" Then .Columns(i).EntireColumn.Hidden = True Else .Columns(i).EntireColumn.Hidden...

    Software serwis   06 Lip 2011 14:18 Odpowiedzi: 10    Wyświetleń: 4137
  • Excel- działanie kodu w wielu arkuszach

    Witam. Bardzo proszę o pomoc w przerobieniu kodu. Poniższy kod działa bardzo dobrze jednak chcę do niego jeszcze coś dodać. Mianowicie kod działa tylko na jednym arkuszu "Arkusz1" i dodatkowo na arkuszu "Podsumowanie". Jak przerobić kod żeby działał dodatkowo na innych arkuszach które bym chciał wyszczególnić? Na chwilę obecną działa na "Arkusz1" a...

    Software serwis   13 Sty 2012 10:51 Odpowiedzi: 5    Wyświetleń: 1311
  • Excel - zdalny rozmiar tabeli.

    A jak takie makro wykonać zależne ? Włącz nagrywanie makra, nagraj czynności które chcesz wykonać i prześlij na forum - poprawimy :) [url=]uruchomienie makra po zmianie zawartości komórki lub zakresu komórek [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range ' jezeli makro maja aktywować zmiany w innym zakresie, podmień...

    Software serwis   18 Gru 2013 02:05 Odpowiedzi: 8    Wyświetleń: 2391
  • [VBA Excel] - Sprawdzanie formatu z komórkach

    Czyli powinno wystarczyć: [syntax=vbscript]Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address(0, 0) = "AI8" Or Target.Address(0, 0) = "AK8" Then If CalendarFrm.HelpLabel.Caption <> "" Then CalendarFrm.Height = 191 + CalendarFrm.HelpLabel.Height Else: CalendarFrm.Height = 191 CalendarFrm.Show End If End If If Range("AI8") <>...

    Programowanie Początkujący   04 Maj 2016 19:29 Odpowiedzi: 4    Wyświetleń: 2040
  • Arkusz kalkulacyjny - jak zrobić automatyczne sortowanie lub uruchomienie makra

    Mi jednak chodzi o to by makro się samo uruchamiało. Tu masz makro, które monitoruje określony zakres pod kątem zmiany. Dodaj do tego kod swojego makra sortującego. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range ' The variable KeyCells contains the cells that will ' cause an alert when they are changed. Set...

    Software serwis   07 Paź 2017 09:25 Odpowiedzi: 3    Wyświetleń: 2463
  • Excel VBA - oddziałujące na siebie listy

    Cześć, w Excelu mam dwie listy, przykładowo: 1: nazwa artykułu w języku polskim 2: nazwa artykułu w języku angielskim Chciałbym utworzyć makro "Worksheet_Change" aby działało w taki sposób: podczas zmiany w liście z językiem polskim zmienia mi się lista z językiem angielskim i na odwrót. Problem w tym, że tworzy się pętla bowiem makro odpala się przynajmniej...

    Programowanie   09 Lis 2018 10:43 Odpowiedzi: 3    Wyświetleń: 426
  • OpenOCD+JTAG+AT91SAM7S, Error unknown EmbeddedICE version

    czesc, Nie moge zmusic JTAGa do pracy. Uzywam a) Yagarto Toolchain do kompilacji b) OpenOCD do programowanie Probuje zaprogramowac AT91SAM7S256 (text on chip AU without number). Uzywam plyty ewaluacyjnej ZL11ARM modulu ZL12ARM. Posiadam KrisTech USB JTAG (UsbScarab2). Moge zaprogramowac flash programem SAM-BA v1.1 (ale juz nie wersja pozniejsza) po...

    Mikrokontrolery   08 Lip 2009 07:30 Odpowiedzi: 8    Wyświetleń: 4208
  • Jak dodać użytkownika i zabezpieczyć połączenie - mikrotik

    Cześć Koledzy jak wiadomo nasz kolega Maciek ma kłopot i trzeba się skupić na kilku podanych przez niego faktach. Pierwszym z nich jest fakt że nie ma pojęcie o MT a co za tym idzie trzeba to przełożyć na łopatologie a nie wpisy w terminalu. Drugim faktem jest że ma on MT R433 a w nim 2 karty wlan za pomocą których chce odbierać i nadawać Internet....

    Sieci Początkujący   23 Sty 2012 13:57 Odpowiedzi: 12    Wyświetleń: 7280
  • Bascom Atmega 1284P - Moduł internetowy na ENC28J60

    Witam Korzystając kodu Tuxgraphics zmodyfikowanego przez Kolegę Mundi1970 , chciałem również postawić prosty serwer pokazujący temperatury z kilku czujników oraz wilgotność i ciśnienie. Po zmianach regfile i pinu CS nie mogę go jednak skompilować. Występują trzy błędy: Error 46 Line: 363 Assignment Error Enc28j60_linkup Erroe 229 Line: 450 End Sub or...

    Mikrokontrolery   29 Paź 2013 11:48 Odpowiedzi: 5    Wyświetleń: 3258
  • [Atmega 32][Bascom avr] Rozbudowa modułu internetowego ENC28J60

    Proszę oto kod. Chodziło mi o to ze moze podpowiecie mi w którym miejscu i jakie modyfikacje musze dać a w linku który podałem jest opis i cały kod. [syntax=basic4gl]'----------------------... ' Atmega168 and ENC28J60 '---------------------------------------... ' Version 1.0 - june 2007 by Ben Zijlstra...

    Mikrokontrolery AVR   14 Kwi 2013 10:48 Odpowiedzi: 21    Wyświetleń: 8946
  • [EN28J60] [BASCOM] Jak wyświetlić stan diody led na stronie html?

    Witam Mam moduł sieciowy na układzie ENC28J60 podłączony do mikroprocesora ATMEGA644 20PU taktowany kwarcem 16Mhz.Program piszę w Bascomie bo innego języka nie zmam. Przykładowy program znalazłem w internecie z sterowaniem diody led przez stronę internetową. Dopisałem kawałek programu żeby na tej stronie internetowej był pokazywany stan tej diody led....

    Mikrokontrolery AVR   06 Maj 2012 12:48 Odpowiedzi: 0    Wyświetleń: 2775
  • Atmega32 i ENC28j60 Bascom

    Witam wszystkich serdecznie. Czy ktos moglby sprawdzic kod bo juz kilka tygodni siedze i nie wiem co moze byc nie tak, kod sciagniety z netu i ponoc dziala na 100% no ale nie u mnie. Na tym samym urzadzeniu bez problemu odpalam inne oprogramowania tylko pisane w C i smigaja bez problemu. [syntax=vbnet]$regfile = "m32def.dat" $crystal = 16000000 $baud...

    Mikrokontrolery AVR   26 Lip 2015 17:46 Odpowiedzi: 1    Wyświetleń: 3351
  • [Excel] - Makro podświetlające aktywny wiersz i kolumnę

    Witam serdecznie. Zależy mi na makro, które jak w temacie - będzie podświetlało aktywny wiersz i aktywną kolumnę zarazem. W zasadzie mam już je gotowe, ale niestety nie za bardzo wiem jak sprawić by działało w całym skoroszycie. [syntax=vb]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Step 1: Declare Variables Dim...

    Software serwis   06 Lip 2014 21:30 Odpowiedzi: 4    Wyświetleń: 1434
  • ENC28J60/Bascom - Automatyczne odświeżanie danych o stanie portów wejściowych

    Witam serdecznie Bazuję na dostępnym w sieci kodzie Pana Piotra Rzeszuta, służącym do obsługi modułu ENC28J60 w Bascomie. Wszystko działa jak należy, jednak chciałbym zmodyfikować kod tak, aby po włączeniu diody wyświetlał się aktualny stan jej działania ("stanled1")... Czyli po kliknięciu w przeglądarce przycisku ON przy diodzie, obok wyświetli się...

    Programowanie Początkujący   22 Sty 2017 19:36 Odpowiedzi: 0    Wyświetleń: 789
  • Komunikacja Atmega32 z czujnikiem DS18B20 przy taktowaniu 25MHz - Bascom

    Po całym dniu walki słabo opisałem mój problem bo już po prostu nie miałem siły :D Wyjaśniam... Zrobiłem sobie mikro serwerek LANowy na Atmedze32 i układzie ENC28J60. Z doświadczenia z tym układem i Atmegą wiem że znacznie stabilniej wszystko pracuje gdy mikroporocesor (Atmega) jest taktowana zegarem 25MHz z gotowego modułu ENC a nie własnym kwarcem....

    Mikrokontrolery AVR   17 Kwi 2021 11:43 Odpowiedzi: 8    Wyświetleń: 576
  • [Bascom] [Atmega32] [ENC28J60] Termometr LAN

    Po kilku dniach pracy urządzania stwierdziłem że jednak przydało by się żeby serwerek dodatkowo wysyłał dane do "" chociaż z termometru domowego. Próbowałem na rożne sposoby ale nie mam pojęcia jak to zrobić. Może ktoś z Was jest w stanie zmodyfikować kod ? Może kolega (at)bart-projects czyta ten temat? ;) (to ten sam kod co w załączniku) [syntax=vbnet]...

    DIY Konstrukcje   29 Sie 2021 09:54 Odpowiedzi: 28    Wyświetleń: 5052
  • exel wyszukiwanie wartości

    Kliknij prawym przyciskiem myszy na odpowiedni arkusz w excelu, następnie wybierz "wyświetl kod", w oknie, które się pojawi wpisz: Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo BadChange Application.EnableEvents = False If Target.Address Like "$A$#*" Then If (Target And Range("a2").Value =...

    Software serwis   27 Lis 2009 21:57 Odpowiedzi: 5    Wyświetleń: 1041
  • [VBA] [EXCEL] Pętlą "Do Until...Loop"-jak to zrobi

    Umieść procedurę w kodzie arkusza Np przy zmianie, z ograniczeniem do B5 i B13. Tzn w przykładzie Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "B5" Or Target.Address(0, 0) = "B13" Then If Range("B19") < Range("B20") Then knyps = 1 If Range("B19")...

    Programowanie   21 Lis 2010 21:23 Odpowiedzi: 31    Wyświetleń: 10788
  • Excel, zautomatyzowanie pętli [VBA]

    Możesz też użyć takiego zapisu, chyba częściej spotykany, tylko należy pomiętać o dolarach w adresie komórki: Overflow . Możesz użyć typu Long, co znacznie rozszerzy ten zakres, lub nie deklarować ich w ogóle / zadeklarować je jak Variant, pozwalając kompilatorowi (?) samemu dobrać odpowiedni typ. Teoretycznie będzie to mniej wydajne niż bezpośrednia...

    Programowanie   15 Gru 2011 12:49 Odpowiedzi: 3    Wyświetleń: 1952
  • Excel - Przenoszenie danych po naciśnięciu guzika zapisz

    Wstaw w kod arkusza "Wydatki" i kliknij w "Zapisz" [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim ostWrs As Long 'warunkiem działania makra jest adres scalonej komórki (tej z tekstem "Zapisz") 'zwrócony przez zmienną Target If Target.Address(0, 0) = "E18:E19" Then 'sprawdzamy, czy wymagane pola są wypełnione /przy okazji...

    Software serwis   03 Lut 2013 15:14 Odpowiedzi: 10    Wyświetleń: 1710
  • Excel-Dodawanie z tej samej komórki

    W kodzie arkuszu [syntax=vb] Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub If Target <> 0 Then Range("C1") = Range("C1") + Target End Sub [/syntax] Usunięcie w A1 nie jest konieczne

    Software serwis   13 Maj 2016 21:48 Odpowiedzi: 13    Wyświetleń: 1563
  • excel - znajdz i przenies mnie

    Jak cala kolumna G jest wolna, to zamiast If Target.Address = "$G$1" Then wpisz If Target.Column = 7 Then wtedy wpisywalby litery w dowolnej komorce w kolumnie G

    Software serwis   15 Lip 2015 13:32 Odpowiedzi: 6    Wyświetleń: 918
  • Jak automatycznie uruchomić makro zmieniające kolor karty w Excel 2010 po zmianie wartości?

    Należy oprogramować zdarzenie SheetChange skoroszytu. Wykrywa ono równocześnie, w którym arkuszu i w której komórce nastąpiła zmiana. Kod: [syntax=text]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address <> "$F$6" Then Exit Sub If IsNumeric(Target) And Target > 0 Then Sh.Tab.Color = vbRed Else Sh.Tab.Color...

    Software serwis   04 Sty 2019 14:46 Odpowiedzi: 2    Wyświetleń: 1149
  • MS Excel listy rozwijalne z linkami do skoroszytów

    Witam próbuję napisać kod do kilku list rozwijalnych na umieszczonych w jednym arkuszu . Wrzuciłem również w tym arkuszu w kilu kolumnach nazwy skoroszytów z podłączonymi do nich linkami. Potrzebuję taki kod w którym odpowiedna kolumna np. A (x wierszy) będzie zawarta w liście rozwijalnej plus uruchamiane linków po kliknięciu na dowolna pozycję. Dopiero...

    Obsługa oprogramowania   22 Maj 2019 20:57 Odpowiedzi: 1    Wyświetleń: 243
  • ukrywanie ilości kolumn po wpisanie wartości w komórkę

    [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Range(Cells(1, Target), Cells(1, 120)).EntireColumn.Hidden = True End Sub [/syntax]

    Obsługa oprogramowania   10 Lip 2019 12:24 Odpowiedzi: 9    Wyświetleń: 246
  • Jak zablokować komórki B1 i C1 w Excel VBA przy wartości A1 > 30000?

    [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then ActiveSheet.Unprotect Password:="a" [B1].Locked = False [C1].Locked = False If Target > 30000 Then [B1].Locked = True If Target > 50000 Then [B1].Locked = True [C1].Locked = True End If ActiveSheet.Protect Password:="a" End If End Sub [/syntax]

    Obsługa oprogramowania   26 Sie 2020 21:16 Odpowiedzi: 13    Wyświetleń: 1371
  • Jak napisać warunkowe zatrzymania makra z pętlą?

    Użyłem komendy do zatrzymania skryptu jeśli warunek nie zostanie spełniony If IsError(a) Then Exit Sub problem polega na tym że wyłącza mi to całkowicie skrypt a potrzebuje by po wypełnieniu tego warunku po prostu zatrzymał się i wrócił do początku nasłuchując z powrotem informacji z 1A Z góry dziękuję za okazaną pomoc [syntax=vbscript]Private Sub Worksheet_Change(ByVal...

    Programowanie Początkujący   22 Mar 2020 09:24 Odpowiedzi: 11    Wyświetleń: 1206
  • Jak stworzyć makro VBA w Excelu do skanowania kodów kreskowych?

    To był przykład. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then w = Application.Match(Target, Range("C1:C" & Cells(Rows.Count, "C").End(xlUp).Row), 0) If Not IsError(w) Then For x = 5 To 9 If Cells(w, x) = "" Then Cells(w, x).Select Exit For End If Next End If End If End Sub [/syntax]

    Programowanie Początkujący   29 Kwi 2020 11:46 Odpowiedzi: 17    Wyświetleń: 1059
  • EXCEL - Automatyczne wstawianie znaku równości do komórki

    A chciałem pytać, czy jest możliwość zrobić tak aby można było jeszcze wpisać ujemne liczny, a tu widzę gotowe rozwiązanie :) Jednak to rozwiązanie poprawnie działa w powyższym pliku, ale jak przerzucę go do pliku docelowego to wywala mi błąd w moim dotychczasowym kodzie. Teraz u mnie wygląda to tak: Zauważyłem, że ten błąd wyskakuje jak u góry jest...

    Obsługa oprogramowania   20 Lis 2021 15:01 Odpowiedzi: 38    Wyświetleń: 876
  • Makra Excell - wywołanie makra do przeskoku do innej komórki

    Proponuję makro zdarzeniowe przy założeniu, że adresy komórek z listami wyboru będą stałe. Można byłoby też wyszukiwać listy rozwijane gdyby ich adresy miały być ruchome. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target = "TAK" Then Select Case Target.Address Case "$G$2": Range("G8").Select Case "$G$8": Range("G12").Select...

    Obsługa oprogramowania   02 Gru 2021 17:30 Odpowiedzi: 7    Wyświetleń: 201
  • ARM - pomozcie zaprogramowac

    Ok, powoli dochodze co i jak, ale mam dwa pytanka. Po pierwsze czemu w eclipse + ocd wywala mi blad: gcc -O0 -g3 -Wall -c -fmessage-length=0 -MMD -MP -MF"blinker.d" -MT"blinker.d" -o"blinker.o" "../blinker.c" "C:/Program Files/openocd-2007re204/bin/sh.exe": gcc: command not found make: *** #define our ports telnet_port 4444 gdb_port 3333 #commands specific...

    Mikrokontrolery   05 Paź 2007 23:27 Odpowiedzi: 1    Wyświetleń: 1173
  • excel - wklejanie skopiowanych komorek bez utraty formatowan

    Witam, ponownie napotkalam problem z ktorym nie moge sobie poradzic. Chcialabym tak zabezpieczyc komorki aby po skopiowaniu (komorki, tekstu itp) i wklejeniu jej do (w tym wypadku) tabelki, nie utracic formatowania. Rownoczesnie dana komorka ma przypisane ograniczenie wprowadzania znakow specjalnych: Sub ValidateProjectName(Target As Range)...

    Software serwis   10 Lip 2009 18:43 Odpowiedzi: 5    Wyświetleń: 9012
  • EXCEL- problem z przetwarzaniem danych w czasie rzeczywistym

    A Excel w ogóle poradzi sobie z rysowaniem wykresu / obliczaniem makra w tak krótkim okresie czasu? Masz 333 próbki na sekundę, ok. 20000 na minutę. Zrobiłem z ciekawości wykres na 20000 wartości i rysuje się ok. 0,1s bez wykonywania makra. Ja nie widzę żeby on mógł się odrysować w ciągu 0,003s. Ale jak chcesz spróbuj w arkuszu z danymi podpiąć makron...

    Programowanie   29 Gru 2009 20:17 Odpowiedzi: 6    Wyświetleń: 3354
  • [stm32][openOCD+Triton] Problem z plikiem konfiguracyjnym

    Witam, Zakupiłem sobie stm32butterfly, do tego programator z Allegro, przeczuwam, że był to błąd, o nazwie Triton. No i mam problem. Plik do open ocd dostarczony z programatorem jest skonfigurowany do pracy z atsam7 i w sumie nie bardzo wiem jak go zmienić, szczególnie że napisany jest dla starszej wersji openOCD. Probowałem zrobić swój własny plik...

    Mikrokontrolery ARM   02 Maj 2010 13:06 Odpowiedzi: 9    Wyświetleń: 2173
  • [VBA] Automatyczne sumowanie i wstawianie do komórki

    Zacznij od wprowadzenia takiej procedury do swojego arkusza. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub If Target.Address = "$A$5" Then Range("A6").Value = Range("A5").Value + Range("A3").Value + Range("A1").Value...

    Programowanie Początkujący   07 Paź 2010 14:13 Odpowiedzi: 1    Wyświetleń: 10118