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...

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 ??

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

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...

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]

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...

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")...

[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 <>...

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ć.

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...

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...

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)...

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...

[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...

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...

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...

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...

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]

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.

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...

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]

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]

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]

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]

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

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...

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]

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

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 =...

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ć...

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...

[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...

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.

[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...

[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]

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

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)...

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]

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...

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]

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,...

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

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":...

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...

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...

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...

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...

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,...

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...

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...

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...

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)...

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"

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...

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...

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

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]

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...

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,...

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...

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...

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...

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...

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...

[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...

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...

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...

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...

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....

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ć?

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?

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.....

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...

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...

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]

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...

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:...

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"...

[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]

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...

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ć...

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...

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...

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...

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,...

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...

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...

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...

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

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...

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...

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

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...

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

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...

[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") <>...

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]

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]

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...

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...

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...