target address

Znaleziono około 744 wyników dla: target address
  • Automatyczne uruchomienie makra w Excelu po zmianie wartości w kolumnie O

    A czy można i jak zapisać aby działało w całej kolumnie? W kolumnie, wierszu, zakresie, poza zakresem. Jak sobie życzysz. Po wpisaniu 'Target' i postawieniu kropki w edytowanym kodzie, otworzy się lista rozwijalna z własnościami i metodami. M.in. Address, Column, Range, Row, itp. W niemal każdym przypadku będzie nieco inna składnia zapisu. Można o...

    Programowanie Początkujący   06 Cze 2012 12:15 Odpowiedzi: 6    Wyświetleń: 8237
  • REKLAMA
  • Pola w ARP: ARP Request i ARP Reply - szczegóły i różnice

    Uruchomiłem tylko nie jestem pewien. Czy to chodzi o: hardware type protocol type hardware size protocol size opcode sender MAC address sender IP address target MAC address target IP address ??

    Sieci, Internet   30 Lis 2007 19:00 Odpowiedzi: 5    Wyświetleń: 864
  • Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

    Czekaj (1min)...
  • Excel VBA - Jak stworzyć schemat magazynowy z gradacją papierów?

    Ja bym zrobił tak, że po wpisaniu nazwy urządzenia wyskakuje okno gdzie podajsz ilość pobrania lub oddania. With Target If .Address(0, 0) = "E2" Then Application.EnableEvents = False ilosc = InputBox("Ile pobrano?") If .Value <> Empty Then On Error Resume Next wrs = Columns(1).Find(what:=.Value, lookat:=xlWhole).Row Err.Clear If wrs <> Empty...

    Obsługa oprogramowania   08 Gru 2018 09:13 Odpowiedzi: 19    Wyświetleń: 1953
  • Excel: Jak automatycznie dodawać/odejmować wartości z C2 do A2?

    [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$2" Then [A2] = [A2] + [C2] [C2] = Null End If End Sub [/syntax]

    Obsługa oprogramowania   09 Sty 2025 14:10 Odpowiedzi: 3    Wyświetleń: 84
  • 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ń: 540
  • REKLAMA
  • Exel - makro do odkrywania wierszy po wyborze z listy rozwijalnej

    Jest to zrobione makrem zdarzeniowym Worksheet_Change, reagującym na zmianę wartości w komórkach B9:D9. Makro jest w module arkusza, w którym jest formularz. Treść makra: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target(1).Address = Range("f_rodz_nieruchomosci").Address Then Rows("33:76").Hidden = True With Worksheets("Legenda")...

    Programowanie Początkujący   08 Gru 2020 17:08 Odpowiedzi: 3    Wyświetleń: 483
  • [VBA Excel] - Plik inwentaryzacyjny - operacje na polach tekstowych

    Jeżeli zliczasz dane po numerze w kolumnie 5 to zauważ, że masz tam spacje na końcu - najpierw musisz się ich pozbyć. Natomiast samo zliczanie można zrealizować w ten sposób (jak rozumiem w komórkę R2 chcesz wpisywać wartości ręcznie): [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Address = "$R$2" Then If .Value <>...

    Programowanie Początkujący   28 Lut 2013 08:31 Odpowiedzi: 3    Wyświetleń: 1779
  • Horizon Go UPC, ustawienie DDNS

    Rozumiem, że to przekierowanie włączam na Horizonie w zakładce Forwarding, tam trzeba podać Public Port Range, Target IP Address, Target Port Range, Protocol. Nie wiem zbytnio jak to poustawiać.

    Internet 3G, 4G, 5G, LTE   24 Maj 2018 18:03 Odpowiedzi: 14    Wyświetleń: 4617
  • Jak zautomatyzować pętlę VBA w Excelu i czy .Value jest konieczne?

    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ń: 2021
  • 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ń: 5847
  • Excel VBA - Jak zablokować i modyfikować wartość 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ń: 1659
  • Modyfikacja makra - ukrywanie kolumn z pustymi komórkami dla kolejnych wierszy

    Najprościej będzie z przekazaniem Nr wiersza: [syntax=vbscript]Sub Makro1(w As Long) Dim MyCell As Range For Each MyCell In Range("B" & w & ":Z" & w).Cells If MyCell = 0 Then MyCell.EntireColumn.Hidden = True Next MyCell End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'If Target.Address(0, 0) = "A2" Then If Target.Column...

    Programowanie Początkujący   08 Lis 2020 16:56 Odpowiedzi: 3    Wyświetleń: 492
  • REKLAMA
  • [Excel] - Makro podświetlające aktywny wiersz i kolumnę

    Myślałem, że Pan odkładanie z powrotem swój kod [syntax=vb] Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) 'Step 1: Declare Variables Dim strRange As String 'Step2: Build the range string strRange = Target.Cells.Address & "," & _ Target.Cells.EntireColumn.Address & "," & _ Target.Cells.EntireRow.Address...

    Software serwis   06 Lip 2014 21:30 Odpowiedzi: 4    Wyświetleń: 1518
  • 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ń: 4218
  • Private Sub Worksheet_Change(ByVal Target As Excel.Range) jak połączyć

    To wypróbuj najprostsze połączenie kodów :spoko: : [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 = "$A$5" Then Select Case Target.Value Case 1: Firma_1 Case 2: Firma_2 Case 3: Firma_3 Case 4: Firma_4 Case 5: Firma_5 Case 6: Firma_6 Case 7: Firma_7...

    Programowanie Początkujący   13 Cze 2019 07:55 Odpowiedzi: 5    Wyświetleń: 1275
  • Excel VBA: Jak wymusić wypełnienie komórki przed przejściem dalej?

    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ń: 3569
  • 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ń: 441
  • MS Excel 2010 - Obliczenie formuły zapisanej w sąsiedniej komórce

    Zobacz, czy teraz jest to o co Ci chodziło. Target odnosi się do tego arkusza, w którym występuje zdarzenie i jest to odwołanie, a Target.Address jest tekstem adresu bez kwalifikatora arkusza, więc można go użyć w dowolnym arkuszu.

    Obsługa oprogramowania   24 Paź 2021 15:33 Odpowiedzi: 20    Wyświetleń: 543
  • 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 Len(Target) Z = Mid(UCase(Target), y, 1) If InStr(1, l, Z) = 0 Then f = True Exit For End If Next If f Then MsgBox...

    Obsługa oprogramowania   19 Sie 2020 18:55 Odpowiedzi: 9    Wyświetleń: 861
  • Excel VBA - wywoływanie User Form aktywną komórką

    klikając na konkretną komórkę 2 x klik: [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$K$11" Then UserForm1.Show Cancel = True End If End Sub [/syntax]

    Programowanie   02 Gru 2021 14:35 Odpowiedzi: 10    Wyświetleń: 1203
  • 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ń: 780
  • VBA Excel 2003 - Jak wyświetlić MsgBox dla wartości w przedziale 0-10?

    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ń: 1908
  • 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ń: 780
  • Excel - VBA - Uruchamianie makra poprzez VBA na podstawie tekstu

    Private Sub Worksheet_Change(ByVal Target As Range) Dim Komorka As Range If Not Application.Intersect(Rows(5), Range(Target.Address)) Is Nothing Then For Each Komorka In Target.Cells Select Case Komorka.Value Case "TAK": . . . End Select Next End If End Sub

    Programowanie Początkujący   09 Paź 2018 12:26 Odpowiedzi: 19    Wyświetleń: 2622
  • 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ń: 2781
  • MAKRO - Jak zmodyfikowac proste makro tak by działało w nowych arkuszach?

    ThisWorkbook: [syntax=vb]Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$J$2" Then Sh.Name = [j2].Text End If End Sub[/syntax]

    Software serwis   12 Lip 2013 11:43 Odpowiedzi: 9    Wyświetleń: 1899
  • Excel - jak automatycznie przewinąć do komórki z literą w kolumnie F?

    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ń: 993
  • Excel - makro dodawanie kolejnego wiersza w puste miejsce

    [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$2" Then Application.ScreenUpdating = False nw = Sheets("Baza").Cells(Rows.Count, "A").End(xlUp).Row + 1 Range("A2:C2").Copy Sheets("Baza").Cells(nw, 1).PasteSpecial xlPasteValues Range("A2").Select Application.CutCopyMode = False Application.ScreenUpdating =...

    Obsługa oprogramowania   24 Wrz 2019 08:52 Odpowiedzi: 1    Wyświetleń: 711
  • Specyfikacja protokołu KWP2000 do Opla - kodowanie kluczy immo2

    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ń: 11589
  • 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ń: 6114
  • [at91sam9260]Komu działa OpenOCD+jtagkey+at91sam9260?

    Znowu muszę sobie odpowiedzieć sam:( było tak: #working area <target#> <address> <size> <backup|nobackup> working_area 0 0x20000000 0x20000 nobackup a ma być tak: #working area <target#> <address> <size> <backup|nobackup> #working_area 0 0x20000000 0x20000 nobackup ustawienia dla Zylin pod Eclipse dla...

    Mikrokontrolery ARM   05 Sie 2009 18:15 Odpowiedzi: 10    Wyświetleń: 4082
  • Keil - błąd *** ERROR L107: ADDRESS SPACE OVERFLOW

    Nie można ustawić samego XRAMEN bo rejestr CFG845 nie jest adresowalny bitowo i trzeba wpisać cały bajt CFG845=0x01; Żeby wszystkie zmienne były w xram trzeba ustawić w "Options Target" model Large: variables in XDATA.

    Mikrokontrolery   22 Sty 2007 22:53 Odpowiedzi: 5    Wyświetleń: 2090
  • [VBA Excel] Okienko do wprowadzania zakresu dat do komórek B8 i B9

    Jeśli ma to działać w jakimś jednym konkretnym arkuszu, to w module kodu tego arkusza umieść taką procedurę: [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$B$2" Then Sheets("1").Activate Cancel = True End If End Sub[/syntax] A to co dopisałeś, to nie bardzo rozumiem. "Do poniższego...

    Programowanie   30 Cze 2022 10:46 Odpowiedzi: 14    Wyświetleń: 660
  • [VBA] - Makro do sprawdzania i kolorowania wartości w komórce B5 na czerwono

    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ń: 756
  • Jak skonfigurować UPC Horizon z routerem Linksys WRT1900 i dostępem do dysku zdalnie?

    2. Co do opcji Forwarding to jest: Public Port Range - tu podaje 1194-1194 Target IP Address - 192.168.1.62 (IP Linksysa) Target Port Range - tu podaje 1194-1194. No i podaje UDP. tak

    Sieci Początkujący   11 Gru 2016 21:28 Odpowiedzi: 22    Wyświetleń: 5499
  • Excel 2007 - przepisanie zawartosci komorki do innej

    Poczytaj trochę o procedurach zdarzeniowych, a "załapiesz" w 10 minut: [url=http://www.elektroda.pl/rtvforum/to... [url=http://dzono4.w.interia.pl/index.ht... 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)...

    Software serwis   24 Sie 2012 20:29 Odpowiedzi: 21    Wyświetleń: 3540
  • 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ń: 1251
  • MikroTik - Skrypt wykonywany z opóźnieniem, jak zrobić?

    Najszybciej dodaj pustą kolejkę (tzn bez target-address), natomiast uzupełnij na drugiej zakładce dst-address adresem IP serwera. Jeśli natomiast chcesz ciąć tylko i wyłącznie protokół SMB, musisz zamarkować pakiety w IP->Firewall->Mangle dla tej usługi (porty 135-142) i dla danego IP docelowego osobno i źródła osobno i potem tworzysz kolejkę tak jak...

    Sieci WiFi   06 Mar 2013 11:05 Odpowiedzi: 18    Wyświetleń: 3582
  • Makro VBA do zwiększania wartości komórki na podstawie innej komórki w Excelu

    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ń: 1791
  • Excel - Jak przypisać odsyłacze do dat 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ń: 1826
  • Excel-VBA: Jak odwołać się do innego arkusza i pobrać dane?

    W takim razie w arkuszu z tą komórką wstaw taki fragment: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$9" Then Call myCopy End If End Sub[/syntax] Nazwa makra - copy() - nie jest zbyt fortunna, bo pokrywa się z poleceniem VBA o takim samym tytule. Lepiej zmień ją np. na myCopy

    Programowanie   07 Gru 2011 13:53 Odpowiedzi: 6    Wyświetleń: 13337
  • VBA - Jak ustawić zależności między dwiema listami rozwijanymi?

    Może coś w tym stylu, jedynie o poprawność danych na drugiej liście musisz zadbać samemu: /pierwsza lista w A2, druga w B2/ [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Select Case Target.Value Case "biały": Range("B2").Value = "czarny" Case "zielony": Range("B2").Value = "czerwony" Case "żółty":...

    Programowanie Początkujący   26 Kwi 2018 08:59 Odpowiedzi: 13    Wyświetleń: 1449
  • 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ń: 1266
  • Makro VBA - błąd przy aktualizacji tabeli przestawnej i wykresu

    [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$E$7" Then r = Year(Target) m = Month(Target) d = Day(Target) Data = CDate(r & "-" & m & "-" & d) ActiveSheet.PivotTables("wazenie").Pivot... = r & "/" & m & "/" & d End If d = Format(Data, "dd.mm") ActiveSheet.ChartObjects("Wykres 1").Activate...

    Programowanie Początkujący   25 Cze 2015 08:36 Odpowiedzi: 8    Wyświetleń: 1209
  • 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ń: 279
  • EXCEL - jak skopiować wynik formuły do innej komórki przy wpisaniu x?

    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ń: 2784
  • 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ń: 798
  • Blokowanie usuwania komentarzy excel VBA

    Blokowanie uzyskasz poprzez założenie hasła. Numerowanie komentarzy poniżej. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim a As String If Not Application.Intersect(Range("A1:C10"), Range(Target.Address)) Is Nothing Then i = Environ("USERNAME") & " <" & Now & ">" & vbNewLine & Target & vbNewLine...

    Obsługa oprogramowania   05 Cze 2020 18:52 Odpowiedzi: 2    Wyświetleń: 879
  • Excel Run-time error 13 podczas zaznaczania komórek

    Witam W pracy używam poniższego kodu do zapisywania w jednym skoroszycie wszystkich wprowadzonych przez użytkowników zmian w pliku. Mam z nim dwa problemy: Po pierwsze za każdym zaznaczeniem dwóch i więcej komórek wywala mi błąd jak na zdjęciu: https://obrazki.elektroda.pl/9582920700_... Druga sprawa to przy kopiowaniu kilku komórek...

    Obsługa oprogramowania   15 Cze 2023 06:34 Odpowiedzi: 10    Wyświetleń: 570
  • ARM7TDMI Skoki bezwarunkowe (BL) - jak to robi kompiler

    Podaję za Arm Architecture Manual: Tak wygląda kodowanie instrukcji (a konkretnie 24 bitów odpowiedzialnych za offset) To calculate the correct value of signed_immed_24, the assembler (or other toolkit component) needs to: 1. Form the base address for this branch instruction. This is the address of the instruction, plus 8. In other words, this base...

    Programowanie   13 Lut 2007 09:59 Odpowiedzi: 2    Wyświetleń: 945
  • Excel VBA: Makro do wypełnienia dat w komórkach A2 w 31 arkuszach

    No to na zgodę: Wklej w kod arkusza "1" lub arkusza z pierwszym indeksem. Makro uruchamia się poprzez podwójne kliknięcie w komórkę z datą. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If IsDate(Target) Then cel = Target.Address For i = 2 To Sheets.Count Sheets(i).Range(cel)...

    Software serwis   14 Lut 2011 19:42 Odpowiedzi: 26    Wyświetleń: 3300
  • ARM SAM7S256 + JTAG usbScarab2 - brak połączenia OCDcomander, błąd 0x03

    No przeglądnąłem manuala do openocd i znalazłem: load_binary <file> <address> Load binary file into target memory at address. więc analogicznie wpisuję: load_binary objs/01_pio_led_sw_JTAG_RAM.bin 0x200000 i odpowiedź: Runtime error, file "comand.c", line 650: invalid command name "load_binary"

    Mikrokontrolery ARM   20 Lis 2010 16:05 Odpowiedzi: 7    Wyświetleń: 2192
  • Jak stworzyć kod VBA zmieniający kolor komórki po kliknięciu?

    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ń: 3951
  • Konfiguracja MikroTik: 5 scenariuszy routingu dla Ether1, Ether2, Ether5 i 2xLAN

    /ip route add disabled=no distance=1 dst-address=0.0.0.0/0 gateway=10.168.0.1 \ routing-mark=GATE_TooWay scope=30 target-scope=10 add disabled=no distance=1 dst-address=0.0.0.0/0 gateway=192.168.8.1 \ routing-mark=GATE_LTE scope=30 target-scope=10 add disabled=no distance=1 dst-address=0.0.0.0/0 gateway=192.168.6.1 \ routing-mark=GATE_BagaznikWAN scope=30...

    Sieci WiFi   20 Sie 2021 21:04 Odpowiedzi: 30    Wyświetleń: 1782
  • Przykładowe projekty ARM dla NXP LPC2103 i ST STM32F103RB w Eclipse

    Hej Freddie! Może banalne pytanie ale co Cię skłoniło do zamiany w pliku startowym bl main na ldr r0, =main blx r0 Czy chodziło tylko o zakres adresów skoku czy o coś więcej? Jak zadbać o to, by adres main-a podawany do r0 był zawsze nieparzysty? Rm is a register that indicates an address to branch to. Bit

    Mikrokontrolery ARM   21 Maj 2013 09:25 Odpowiedzi: 341    Wyświetleń: 101280
  • Makro w Excelu - jak przekreślić część tekstu w komórce?

    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ń: 1905
  • Mikrotik queues - download 2M zamiast 4M dla IP 192.168.203.120, co robić?

    Witam Mam nietypowy problem z mikrotikiem, ustawiam w simple queues ograniczenie dla danego ip (przykładowo 192.168.203.120) i teraz po kolei zakładki w queues: GENERAL: target address: 192.168.203.120 target upload: 512k target download: 4M ADVANCED: interface: all target upload: 512k target download: 4M queue type: wireless default TOTAL: total queue...

    Hardware, Software, naprawa urządzeń sieciowych   22 Paź 2011 22:05 Odpowiedzi: 4    Wyświetleń: 2433
  • Excel - jak zsynchronizować dwie listy rozwijane?

    Ile jeszcze będzie tych wariantów? Jeśli adresy list są różne, to najrozsądniej, jak myślę nadać im takie same nazwy i te nazwy wykorzystać do identyfikacji. Przykładowy kod: [syntax=vb]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim wks As Worksheet, nazwa As String If Target.Count > 1 Then Exit Sub If Intersect(Target,...

    Software serwis   25 Wrz 2015 14:40 Odpowiedzi: 10    Wyświetleń: 924
  • Excel- automatyczne kopiowanie większej zawartości pól

    Podmień linijkę wklejania. Podaję cały blok copy-paste dla porównania kolRight = Range("d2").End(xl... Range(Cells(wrsLeftTop, 4), Cells(wrsLeftTop + 1, kolRight)).Copy Range(Target.Address).Offset(... 1).Select Selection.PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode...

    Software serwis   30 Cze 2011 21:48 Odpowiedzi: 64    Wyświetleń: 13865
  • Sparklan WRTR-141 - jak wgrać firmware przez RS232 i JTAG?

    Gdyby ktos mial ochote zrobic dumpa, to wystarczy po wejsciu na konsole szeregowa [....] przepisac oprogramowanie z FLash do RAM poleceniem FLR 80300000 0 200000 a nastepnie sciagnac je tftpd poleceniem get (tftpd musi byc w trybie binarnym polecenie binary) I pamietaj o podaniu wlasiwego IP - apek nie odpowiada na pingi. Target Address=192.168.1.6...

    Sieci, Internet   01 Lip 2009 14:13 Odpowiedzi: 9    Wyświetleń: 7471
  • Jak zastąpić kropki tekstem w Excel 2007 bez przesuwania?

    :arrow: fascynat Rzeczywiście, nieładnie się zachowałem, nie mój pomysł a się wtrąciłem. Przepraszam, spróbuje się w przyszłości poprawić. ;) Rozwinę więc swoją propozycję z wymuszeniem wciśnięcia insertu po podwójnym kliknięciu w komórkę z kropkami (np. w środek kropek). Nastąpi wtedy zastępowanie kropek tekstem. kod: Private Sub Worksheet_BeforeDoubleClick(ByVal...

    Software serwis   28 Mar 2011 16:46 Odpowiedzi: 11    Wyświetleń: 5035
  • Excel VBA – makro kopiujące arkusz „xyz” do nowego pliku o nazwie z B3 z formatowaniem

    Ad 1) Czy plik, który nazywasz "plik 1" jest tym, z którego uruchamiasz makro? Jeśli tak, to dopisz Aldrin . Makro powinno znajdować się (moim zdaniem) przy zdarzeniach: Thisworkbook_Open (aby sprawdzić przy starcie) oraz Worksheet_Change, gdzie Target.Address=B3). W tym przypadku ustawiasz właściwość Enabled przycisku (wartość True lub False). Przykład...

    Software serwis   05 Kwi 2011 16:01 Odpowiedzi: 17    Wyświetleń: 6335
  • Jak napisać warunkowe zatrzymania makra z pętlą?

    To nie było pytanie, czy nie ma błędu, a czy znaleziono szukany tekst: [syntax=vbscript]a = Application.Match(Target, w.Range("A1:A" & ow), 0) If Not IsError(a) Then w.Rows(a).Delete[/syntax] Stąd taka negowana logika.:) Powyższy kod to przerobiony kod: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then...

    Programowanie Początkujący   22 Mar 2020 09:24 Odpowiedzi: 11    Wyświetleń: 1374
  • [EXCEL] Jak poprawnie filtrować dane w trzech kolumnach w Excelu?

    Wzorowałem się na pliku z dwoma zmiennymi, który działa idealnie. Dodałem trzecią zmienną i wszystko się posypało Zwróć uwagę, że: 1. W pliku "wzorcowym" istniejące tam dwa warunki działają "na krzyż", tzn., że jeśli jeden z nich = "Wszystkie", to sprawdź wartość drugiego i jeśli ten jest inny jak "Wszystkie" to wykonaj kryteria przypisane do tego...

    Programowanie Początkujący   22 Sie 2017 23:10 Odpowiedzi: 10    Wyświetleń: 1392
  • Mikrotik DUAL WAN - RB2011iL-RM load balancing & failover

    Mam pytanie odnośnie Host1A i Host1B co tu wstawić (dla Host1 dałem www.google.pl dla Host2 dałem www.onet.pl). /ip route add dst-address=Host1A gateway=GW1 scope=10 add dst-address=Host1B gateway=GW1 scope=10 add dst-address=Host2A gateway=GW2 scope=10 add dst-address=Host2B gateway=GW2 scope=10 a jeszcze odnośnie tych bram 10.1.1.1 i 10.2.2.2 /ip...

    Sieci LAN   03 Maj 2018 11:44 Odpowiedzi: 12    Wyświetleń: 5568
  • Zegar systemowy cofa się pod obciążeniem na platformie X99 z Windows

    Od zlozenia nowego PC na "X99" zmagam sie z problemem. Cos sie (chyba w systemie?) rozjezdza (wylacznie) pod obciazeniem i zegar cofa sie/przestaje dzialac poprawnie - nie wiem konkretnie co sie dzieje ale godzina jest po prostu zla - zawsze do tylu. Zakladam ze problem wystepuje w systemie, bo pod Linuxem nie wystepuje - gram w te same gry, robie te...

    Software serwis   04 Wrz 2023 21:44 Odpowiedzi: 16    Wyświetleń: 1140
  • 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ń: 3426
  • Excel - makro czyszczące listy rozwijalne, błąd przy obróbce danych

    Żeby się pozbyć skutecznie tego problemu zastąp: Target - Target.Address i Range("x17") - Range("x17").Address Upierdliwość powinna ustąpić. Edit: adamas_nt jak zwykle szybszy :D Masz teraz dwie możliwości do wyboru. Żadna z nich jednak nie spowoduje wyczyszczenia y17 w przypadku wyboru z listy w x17. Do czyszczenia zmusi Del lub edycja rzeczonej komórki....

    Software serwis   19 Sty 2012 02:10 Odpowiedzi: 13    Wyświetleń: 2263
  • Konfiguracja Ethernet OAM na Alcatel-Lucent OmniSwitch 6850-P24 - jak połączyć?

    Podczas konfiguracji na takich samych switchach otrzymałem błąd: ERROR: Target-endpoint to Mac-address mapping does not exist. Czy wiecie może jak to naprawić?

    Hardware, Software, naprawa urządzeń sieciowych   27 Maj 2012 17:03 Odpowiedzi: 1    Wyświetleń: 1336
  • VBA - Excel 2007 Automatyczne czyszczenie zakresu komórek wg konkretnej daty.

    [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$E$7" Or Target.Address = "$P$7" Or Target.Address = "$AA$7" Or Target.Address = "$AL$7" Then MsgBox "Przypomnienie o wpisaniu uwag.", vbOKOnly + vbInformation, "Uwaga!" End If Call CB 'ma czyscic baze End Sub [/syntax] Dlaczego wywołanie 'CB' jest poza warunkiem?

    Software serwis   13 Kwi 2015 17:49 Odpowiedzi: 46    Wyświetleń: 4431
  • Excel: Jak automatycznie kolorować komórki na podstawie wyboru z listy?

    Można to zrobić na kilka sposobów, w zdarzeniu Change zeszytu 1 lub w zdarzeniu Activate zeszytu 2. Dla pierwszego przypadku użyłbym takiego makra: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$5" Then On Error GoTo myErr Set wsform = ThisWorkbook.Worksheets("Zeszyt 2") wsform.Range("C3:M3").Interior.Pattern.....

    Programowanie Początkujący   18 Maj 2013 07:11 Odpowiedzi: 3    Wyświetleń: 3858
  • 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ń: 1794
  • 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ń: 2775
  • EXCEL - Automatyczne wstawianie znaku równości do komórki

    [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Target = "=" & Target End Sub [/syntax]

    Obsługa oprogramowania   20 Lis 2021 15:01 Odpowiedzi: 38    Wyświetleń: 1401
  • Skrypt VBA - kopiowanie zakresu w Microsoft Office Excel

    Bo Target.Address będzie równy zakresowi komórek tylko wtedy, kiedy dokonają się zmiany w całym tym zakresie, np. przy jednoczesnym wklejeniu w wiele komórek lub usunięciu ich wartości. Wstaw sobie w zdarzeniu Change [syntax=vb]MsgBox Target.Address[/syntax]i popatrz, jakie przyjmuje on wartości przy różnych zmianach. O warunku OR coś słyszałeś?? Skoro...

    Programowanie Początkujący   11 Lip 2012 00:22 Odpowiedzi: 12    Wyświetleń: 4634
  • Excel - Blokowanie przycisków w zależności od daty i czsu

    Witam dla arkusza "Objednavka" [syntax=vb] Private Sub Worksheet_Change(ByVal Target As Range) ''Sheets("Objednavka") If Target.Address = "$J$4" Then idate = Date - DateValue(Me.Range("J4")) Select Case idate Case Is > 1 cmbStav.Visible = False: cmbObj.Visible = False: cmbDopr.Visible = False: cmbMenu.Visible = False Case 1 cmbStav.Visible = False:...

    Software serwis   08 Sty 2014 07:52 Odpowiedzi: 9    Wyświetleń: 1935
  • 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ń: 465
  • [VBA] Jak uruchomić makro ZAMÓW wpisując HOME w komórce A1 arkusza ZAP?

    Coś ala (w zdarzeniu arkusza) [syntax=vbscript]If Target.Address = "$A$1" And Target = "HOME" Then Call ZAMÓW[/syntax]

    Programowanie Początkujący   07 Wrz 2021 17:40 Odpowiedzi: 4    Wyświetleń: 897
  • EXCEL - Jak wymusić MsgBox przy błędnym wpisie w zakresie komórek?

    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ń: 1011
  • Excel 2010 - Jak dodać przycisk zapisu z obrazkiem?

    Nagraj sobie makro zapisywania. Poniżej zarejestrowane (bez korekty) dwa: "Zapisz jako" oraz Ctrl+s (zwykłe zapisz) http://obrazki.elektroda.pl/3841968300_1... i wybierasz z listy. Aby oprogramować komórkę/zakres potrzebujesz procedury zdarzeniowej [url=http://dzono4.w.interiowo.pl/kurs/d... Tu należy warunkowo wywołać...

    Programowanie Początkujący   25 Wrz 2016 21:15 Odpowiedzi: 4    Wyświetleń: 1455
  • 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ń: 234
  • 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ń: 1782
  • 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ń: 2598
  • Excel VBA: Jak kopiować dane co drugą linię do innego arkusza?

    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ń: 2110
  • Excel - jak ukryć dni miesiąca, które nie występują w danym miesiącu?

    Dopisz gałąź w instrukcji warunkowej procedury 'Worksheet_Change' [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$AN$41" Or Target.Address = "$AP$41" Then With Sheets("Kontrolki pracy Styczeń") 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   19 Sty 2016 21:05 Odpowiedzi: 4    Wyświetleń: 786
  • 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ń: 213
  • Jak zaprogramować Atmel AT91SAM7X128 przez JTAG? Początki z ARM i narzędzia

    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ń: 1287
  • Excel VBA: Jak odczytać i przetworzyć zmienioną komórkę w Worksheet_Change?

    Eee tam, wiesz, tylko pewnie myślisz już o Sylwestrze :) Select Case Target Case "A": Sheets("Arkusz5").Rang... 1) = "8" Case "B": Sheets("Arkusz5").Rang... 1) = "U" End Select

    Programowanie Początkujący   30 Gru 2010 21:15 Odpowiedzi: 5    Wyświetleń: 7932
  • 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ń: 705
  • Excel VBA - Makro do sprawdzania podzielności przez 59 w komórce A1

    Widzę, że nie jest to kwestia pojedynczego błędu. Nie wiem z czego to wynika, ale kompletnie nie akceptujesz zasad języka. Nie można być tak upartym. W przypadku tej procedury do zmiennej Target przypisywany jest obiekt typu Range (zakres) ze wszystkimi własnościami. Range.Address jest identyczny z Selection arkusza w momencie uruchomienia procedury...

    Programowanie Początkujący   10 Maj 2013 09:00 Odpowiedzi: 4    Wyświetleń: 5505
  • EXCEL makro - jak ustawić kursor w określone komórki po wprowadzeniu danych?

    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ń: 1032
  • 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ń: 1797
  • Router 3G (TPLINK TL-MR3420) a konfigurowanie dostępu do internetu indywidualnie

    Mode = IP Address nie jestem pewny jak z innymi polami IP address = 0.0.0.0 - 255.255.255.255 Target Port = 0 - 65535 protocol = all

    Sieci WiFi   03 Lip 2011 10:26 Odpowiedzi: 12    Wyświetleń: 9450
  • E330N - Extend Module Size Error przy fleshowaniu przez ns pro

    Witam mam taki problem gdy wciska Write przez ns pro wyskakuje mi cos takiego : Powering on mobile... Target detected! StubSize = 4541, Address : 51, BC Flash Type Detected [ SAMSUNG : KBB05A500 ] Phone speed successfully changed Speed successfully changed Speed synchronization done Extend Module Size Error Press BACK to continue...

    Smartfony Serwis   22 Maj 2008 12:11 Odpowiedzi: 4    Wyświetleń: 975
  • [VBA Excel] - Jak ograniczyć zakres sprawdzania formatu komórek w makrze?

    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ń: 2199
  • Excel- przepisywanie wartości (która się zmienia) do innego wiersza /kolumny

    Z VBA byłoby tak: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then Range("E" & Cells(Rows.Count, "E").End(xlUp).Row + 1) = [B2] End Sub [/syntax]

    Obsługa oprogramowania   24 Lut 2020 11:38 Odpowiedzi: 3    Wyświetleń: 423
  • Jak odnieść się do scalonej komórki w VBA? Problem z przypisaniem

    Scalone A1:B1. [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$A$1:$B$1" Then MsgBox "Działa" Cancel = True End Sub [/syntax]

    Programowanie Początkujący   07 Sie 2019 09:49 Odpowiedzi: 6    Wyświetleń: 1512
  • Excel: Jak zapisywać automatyczne zmiany w komórce A1 z datą i czasem?

    Podmień i zobacz [syntax=vbscript]Public Sub updateOldValue(ByVal Target As Range) With Target If .CountLarge = 1 Then If .Address = "$B$10" And oldVal <> .Value2 Then oldVal = .Value2 Application.EnableEvents = False Sheets(1).Range("C" & Application.Rows.Count).End(xlUp).Offset... 0) = oldVal Sheets(1).Range("D" & Application.Rows.Count).End(xlUp).Offset...

    Programowanie   15 Gru 2021 09:15 Odpowiedzi: 10    Wyświetleń: 786
  • Excel 2007 - Jak formatować kształty w zależności od wartości liczbowej?

    Co oznacza ze "zmieniają się same" Jeżeli zmiana innej komórki ma wpływ na zmiane w N5 i N6 To te które ulegają zmianie wprowadź do warunku jezeli, a do obliczeń pobierz N5 Np jeżeli zmiana w A1 wpływa na zmiane w N5 a B1 wpływa na N6 to zmień kod If Target.Address = "$A$1" Or Target.Address = "$B$1" Then Select Case Range("N5").Value...

    Software serwis   02 Paź 2012 13:27 Odpowiedzi: 18    Wyświetleń: 7038
  • Jak skonfigurować Teltonika FM2200 z GPS-Trace Orange?

    Dane serwera odbierającego - Target IP address 193.193.165.166 a Target Port: 20210 wg zaleceń serwera GPS-trace dla tego urządzenia. Dziwnie się zachowuje bo chciałem też zmienić w GSM Protocol TCP i zmienić wartość mogę ale już nie chce mi zapisać bo pokazuję błąd. Debugowaniem jeszcze się nie bawiłem. Pamięć 1 jest aktywna bo wprowadziłem mój numer...

    Samochody Zabezpieczenia   23 Maj 2014 09:43 Odpowiedzi: 10    Wyświetleń: 4158