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...
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 ??
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...
[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]
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...
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")...
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 <>...
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ć.
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...
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...
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)...
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...
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...
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...
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...
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...
[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]
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.
[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...
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]
[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]
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]
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]
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
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...
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]
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
[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 =...
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ć...
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...
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...
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.
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...
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]
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
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)...
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]
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...
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]
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,...
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
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":...
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...
[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...
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...
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...
[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 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...
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...
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...
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)...
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"
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...
/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...
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
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]
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...
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,...
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...
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...
: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...
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...
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...
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...
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...
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...
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...
Ż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....
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ć?
[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?
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.....
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...
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...
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Target = "=" & Target End Sub [/syntax]
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...
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:...
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"...
Coś ala (w zdarzeniu arkusza) [syntax=vbscript]If Target.Address = "$A$1" And Target = "HOME" Then Call ZAMÓW[/syntax]
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...
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ć...
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...
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...
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...
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,...
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...
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...
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...
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
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...
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...
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
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...
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
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...
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") <>...
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]
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]
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...
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...
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...
komenda target address device address selection address
falownik silnik podłączyć schemat połączeń integra okres rozliczeniowy energa
Awaryjne otwieranie drzwiczek pralki Beko HTV 8733XSO Sharp Aquos 50BL3EA - brak obrazu po aktualizacji