Witajcie ponownie. Nie zdążyłam już wczoraj przetestować tego arkusza. Natomiast dzisiaj już wszystko wiem. Teraz mam kod w module: Sub CB() 'czysc baze If Worksheets("Formularz").Range("B1") > 1 Then Worksheets("Formularz").Cells(1, 29) = 0 If Worksheets("Formularz").Range("B1") = 1 And Worksheets("Formularz").Range("H12")...
tak powinno działać makro: 1. W zakresie wierszy '42:305' zaznaczenie dowolnej komórki ma wywoływać: a. wypełnienie całego wiersza, z zaznaczoną komórką, "jakimś kolorem" (na tę chwilę nieważne jakim) b. nałożenie obramowania wiersza (przynajmniej na dolną krawędź) c. usunięcie wypełnienia z...
jednak chyba będę musiał zostać przy dwóch kryteriach filtrowania Nie ... dlaczego (?) ... za szybko się poddajesz ... :) ... Sprawdź jak będzie działać, to co poniżej ... jak nie będzie, to będzie się główkować "dalij": [syntax=vba] Option Explicit Option Base 1 Private Sub Worksheet_Change(ByVal...
Proszę pomóżcie mi z VBA. Na podstawie informacji z neta udało mi się stworzyć tabelę którą mogę filtrować na podstawie 2 zmiennych (imię i/lub nazwisko). Chciałbym móc wyszukiwać po 5 zmiennych: - imię i/lub - nazwisko i/lub - stanowisko i\lub - Nazwa filmyi\lub - miejscowość mój obecny...
Nie bardzo umiem sobie poradzic z Pana poleceniem - wklejam całosc. Devices List [syntax=text] Created by using DevManView Device Name Manufacturer Service Device Type Code Device Type Name Device Instance ID Location Capabilities Config Flags Disabled Connected Device Registry Time...
troszkę to skomplikowałeś zatrudniony przez a i b to są rożne nazwy firm, jak teraz podmieniam pod a tą swoją nazwę to lipa:/ bo nie działa zaznaczanie:/. [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H$3" Then Sheets("Szablon").Range("B10") = Target.Value ElseIf...
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...
Witam. Od dawna korzystam z szychtownicy która bardzo ułatwia mi pracę. Jednak postanowiłem trochę ją przerobić i bardziej udoskonalić. Dlatego bardzo prosiłbym o pomoc bo nie ze wszystkim mogę sobie poradzić. Dołączony plik zawiera pięć różnych szychtownic (do tej pory wszystkie pięć było w jednym arkuszu)...
Witam. Oto log Flashing started Creating product data items list Product data items list created Backing up data items Backing up data items Getting Data Package Reading product state Initializing datafile DataItem "ProductProfile" version "1.1" set to defaults, skipping...
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...
Cześć Koledzy jak wiadomo nasz kolega Maciek ma kłopot i trzeba się skupić na kilku podanych przez niego faktach. Pierwszym z nich jest fakt że nie ma pojęcie o MT a co za tym idzie trzeba to przełożyć na łopatologie a nie wpisy w terminalu. Drugim faktem jest że ma on MT R433 a w nim 2 karty...
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 ...
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...
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...
Odświeżam; Mam taki kod i potrzebuje ograniczyć go do komorek np: A1:A4 Private Sub Worksheet_Change(ByVal Target As Range) Dim Cell As Range Dim Rng1 As Range On Error Resume Next Set Rng1 = ActiveSheet.Cells.SpecialCells(xlCel... 1) ...
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":...
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 ...
Witam. Bardzo proszę o pomoc w przerobieniu kodu. Poniższy kod działa bardzo dobrze jednak chcę do niego jeszcze coś dodać. Mianowicie kod działa tylko na jednym arkuszu "Arkusz1" i dodatkowo na arkuszu "Podsumowanie". Jak przerobić kod żeby działał dodatkowo na innych arkuszach które bym chciał wyszczególnić? Na...
A jak takie makro wykonać zależne ? Włącz nagrywanie makra, nagraj czynności które chcesz wykonać i prześlij na forum - poprawimy :) [url=]uruchomienie makra po zmianie zawartości komórki lub zakresu komórek [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range ...
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...
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...
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,...
Bardzo proszę o pomoc w napisaniu poprawnego makra, które będzie się uruchamiało przy każdorazowej zmianie wartości określonej komórki. Na tę chwilę mój problem polega na tym, że makro działa, kiedy ręcznie zmieniam wartości w komórce. Nie działa jednak, gdy w tę samą komórkę wstawiam prostą formułę,...
(at)Maciej Gonet jesteś wielki. Rewelacja. O to mi chodziło. Dałem tak jak w poniższym kodzie. W MsgBox dodałem informację jaką kwotę wpisałem. Jeszcze kombinuję czy można by dodać informację jakiemu pracownikowi dałem tą kwotę powyżej 20 000. Pracownik znajduje się w kolumnie B. [syntax=vb]Private...
Witam, Jestem w trakcie tworzenia komunikacji pomiędzy uC a czujnikiem MMC2120. korzystam w tym z opisu zamieszczonego w dokumentacji, jednak mam problem z prawidłową implementacją tego algorytmu. proszę o wskazówki, co robię nie tak, co można zrobić lepiej, gdyż przyznam że nie jestem mocny w...
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...
Na wstępie: Mam błąd na linijce "lCnt = Mid(sTemp, i, Len(sTemp))" - "type mismatch" Możliwe przyczyny to: a) brak deklaracji zmiennej " i ", typu np.: " Dim i% " b) wartość w danej komórce ma "skomplikowaną" strukturę, typu np. " AU01_CDF125 " - po znalezieniu pierwszego znaku, który może być...
mam pytanie, bo widzę, ze wpisałeś jakieś kody w Visual Basic i funkcje działają mi tylko w tym arkuszu który wysłąłeś, czy można zrobic tak aby działało to we wszystkich, czy musze do każdego te kody wpisywać. Arkusze chciałbym móc tworzyć w każdej chwili jak mi się skończą, lub dla różnych osób. Normalny...
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...
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 ...
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...
Przy kilku listach w kilku arkuszach proponowałbym jedno makro w module arkusza ThisWorkbook (Mój_skoroszyt), coś w tym stylu: [syntax=vb]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim wks As Worksheet If Target.Count > 1 Then Exit Sub If Intersect(Target, Union([A1],...
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]
[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]
Kliknij prawym przyciskiem myszy na odpowiedni arkusz w excelu, następnie wybierz "wyświetl kod", w oknie, które się pojawi wpisz: Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo BadChange Application.EnableEvents = False If Target.Address Like "$A$#*" Then ...
Wklej w kod arkusza Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "A1" Then ostW = WorksheetFunction.CountA(Range(&... + 1 Cells(ostW, 2) = Target.Value End If End Sub Jeśli dopuszczasz puste...
Umieść procedurę w kodzie arkusza Np przy zmianie, z ograniczeniem do B5 i B13. Tzn w przykładzie Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "B5" Or Target.Address(0, 0) = "B13" Then If Range("B19")...
Dlatego, że w wyszukiwanej kolumnie wartości nie są unikatowe. Funkcja zwróci pierwszy znaleziony, czyli w tym przypadku zawsze 27 wiersz. Należałoby znaleźć pozycję w tabeli i przesuwać górną granicę o WIERSZ()-n, zachowując dolną. Formuła miałaby z 20cm... Będzie prościej makrem. Wklej w kod arkusza...
W kodzie arkuszu [syntax=vb] Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub If Target <> 0 Then Range("C1") = Range("C1") + Target End Sub [/syntax] Usunięcie w A1 nie jest konieczne
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...
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...
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...
Wstaw taki kod do arkusza z komórką: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If (Target.Address = "$A$1") Then If (Target.Value = 1) Or (Target.Value = 3) Or (Target.Value = 5) Then MsgBox "Wybrałeś liczbę nieparzystą", vbInformation + vbOKOnly End If End...
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....
Tu zaczynają się cuda. To może podrzucę kanister z wodą? :) Poważnie: Umieść oba makra w module i precyzyjnie "wskaż" Excelowi, którego arkusza dotyczy kod. Przykład z kopiowaniem[syntax=vb]With Sheets("Arkusz3") .Activate .Range("F8:M8").Copy .Range("F86").PasteSpecial Paste:=xlPasteValues...
Poczytaj trochę o procedurach zdarzeniowych, a "załapiesz" w 10 minut: [url=]Link1 [url=]Link2 Tu kod dla obu przypadków (niepotrzebne skreślić):[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) 'wariant pierwszy Dim ostW As Long If Target.Address(0, 0) = "A1" Then ostW...
Czyli muszę uzyskać wpis z formuły, z listy lub z palca. W takim razie chyba faktycznie pozostaje makro. To na szczęście jest w miarę proste - obsługa zdarzenia Change arkusza Opis i wyszukanie wartości w arkuszu źródłowym plus sprawdzanie, czy przedtem użytkownik nie wprowadził czegoś do komórki z...
Witam, mam następujący problem. Z VBA jestem że tak powiem początkującym. Mam w arkuszu w którym zależałoby mi żeby zrobić formatowanie warunkowe. Jak już wiadomo excel 2003 ogranicza to do 3 warunków. A potrzeba ich zrobić dużo więcej. Mianowicie chciałbym żeby po sprawdzeniu komórki i sprawdzeniu...
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 ...
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")...
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]
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 ...
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]
Dzień dobry, mam podobny problem. Chciałabym, aby po wyborze Imienia z listy rozwijanej pojawiło się okienko do wpisania nazwy i hasła lub tylko hasła dla danego użytkownika. Jeśli użytkownik wpisze poprawna nazwę i hasło to pojawi się nowy wiersz nad wpisem (to już mam), ale jeśli nie wpisze poprawnie...
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...
Witam, ponownie napotkalam problem z ktorym nie moge sobie poradzic. Chcialabym tak zabezpieczyc komorki aby po skopiowaniu (komorki, tekstu itp) i wklejeniu jej do (w tym wypadku) tabelki, nie utracic formatowania. Rownoczesnie dana komorka ma przypisane ograniczenie wprowadzania znakow specjalnych: ...
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...
Zacznij od wprowadzenia takiej procedury do swojego arkusza. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub If Target.Address = "$A$5" Then Range("A6").Value = Range("A5").Value...
Może jeszcze jeden Select. Np Select Case Target.Row Case 1 To 4: k = 2 Case 5 To 8: k = 3 End Select Select Case Target Case "A": Sheets("Arkusz2").Rang... k) = "8" Case "B": Sheets("Arkusz2").Rang...
Jak już wspomniałem da rade to zrobić na formatach bo ja właśnie do tej pory korzystam z takiej opcji jednak za każdym razem na początku każdego miesiąca to żmudna praca żeby zrobić nowe wzory systemów no i tych formatów jest naprawdę sporo, a chciałem se to trochę ułatwić. Czy możesz mi pomóc w utworzeniu...
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...
Ż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...
Spróbuj z procedurą zdarzeniową arkusza. Np[syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$B$7:$C$13" Then MsgBox "Tu akcja. Np zaznaczenie" Range("a1:a20,b1:b6,b14:b20,c1:c6").Sele... If End Sub[/syntax]
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...
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...
Witam! posiadam taki kod: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$J$2" Then Name = [j2].Text End If End Sub[/syntax] Rzecz w tym, że chciałbym aby te makro wykonywało się w każdym nowym arkuszu który utworzę w ramach skoroszytu (dokumentu). Dla...
Witam można to zrobić za pomocą zdarzenia arkusza Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$B$3" Then Exit Sub Range("d3").Formula = "=" & Range("b3") Range("b3").Activate End Sub Napisać wyrażenie w komórce B3, rozwiązanie w komorce D3
Potrafisz zbudować "formuliska" długie na pół metra, a z "makierkiem" sobie nie poradzisz? Trochę wiary w siebie! W skrócie. Nagrywasz rejestratorem czynności, usuwasz nadmiar kodu, zaglądasz do pętli "konkurencji", tworzysz makro, cieszysz się działaniem. Prawym p.m. w zakładkę arkusza '2014'...
Witam mam takie makro : [syntax=text] Private Sub Worksheet_Change(ByVal Target As Range) Dim kol As Long If Target.Address = "$c$2" Then Application.ScreenUpdating = False For kol = 33 To 34 If Month(Cells(2, kol)) <> Month(Cells(3, 34)) Then Columns(kol).EntireColumn.Hidden...
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...
Witam napisałem Makro w Excleu ale teraz muszę go przenieś do Libry niestety cały czas wyrzuca mi błędy. [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Dim a, x, wiersz As Integer Dim varCzas, varData, varDataFor, varCzasFor 'Tworzymy zmienne' ...
Witam Mam taki problem, wykonałem makro które robi mi coś takiego że kiedy np: komórka A2 jest pusta to B2 też pozostaje pusta, jeśli coś wpiszemy w A2 to B2 wyświetla datę. Teraz chciałbym zrobić tak żeby zastosować to makro do całej kolumny a i b poczynając od drugiego wiersza i nie mogę sobie poradzić...
[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 & "/"...
zrobic jedna komorke w ktorej bede wpisywal litere Np komorka jest "G1" [syntax=vb] Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$1" Then If Not Application.CountIf(Range("F:F"), Target) = 0 Then ActiveWindow.ScrollRow = Application.Match(Target, Range("F:F"),...
Witam ponownie. Wrócę jeszcze do tematu grafiku. Zrobiłem opcję edytowania grafiku. Poniższym kodem robię dokładnie to co potrzebuję, jednak potrzebuję rozszerzyć działanie tego kodu, ale zanim to zrobię to muszę ograniczyć działanie poniższego kodu. Potrzebuję aby kod działał tylko na określonym zakresie...
Witajcie, Natknęłam na mały problem podczas łączenia dwóch makr. Chciałabym, żeby po zamknęciu listy rozwijanej uruchamiało się makro kopiujące wyniki i dzielące je w kolumny - makro 'Dzielenie'. Próbowałam kilkoma różnymi sposobami, lecz bez rezultatu. [syntax=vb]Private Sub ListBox1_Change() Dim...
Z użyciem VBA można to zrobić stosunkowo łatwo, tylko rozwiązanie wymaga adaptacji, gdy zmienią się zakresy danych. W Twoim pliku możesz zastosować taki kod obsługi zdarzenia Change: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$D$1" Then Exit...
Listę w A14 masz na tym samym arkuszu, co A16 i C16? Jeśli tak, możesz wszystkie pominąć Sheets("porównanie ceny produkcji"). Bez tych dodatkowych dwykropków bym wpisał: [syntax=vbscript]If Target.Address = "$A$14" Then Select Case Target.Value Case "A": Sheets("porównanie ceny...
Jeśli chodzi o drugą sprawę, to spróbuj tak: [syntax=vbscript]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$B$1" Then Exit Sub If Range("A1") = "-" Then MsgBox "pamiętaj o wypełnieniu A1" End If End Sub[/syntax] Co do pierwszego pytania: nie da się...
Dzień dobry, Chciałam zwrócić się do Państwa z prośbą o pomoc. Mam następujący kod: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim tmpRange As String tmpRange = ("$B$2") tmpRange = ("$B$3") tmpRange = ("$B$4") tmpRange = ("$B$5") tmpRange = ("$B$6") tmpRange = ("$B$7") tmpRange...
przy prawidłowym podłączeniu powinno ci wyskoczyć w oknie terminala coś podobnego (tu przykłada z apka w stand. b): Undefined Exception happen. UART1 output test ok Uart init Found 1 x 2M flash memory ---RealTek(RTL8181)at Fri Jul 18 11:55:07 2003 version 2.0 no sys signature at 00010000! no...
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 -...
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ść...
Witam serdecznie ! :D Szukam rozwiązania problemu i nie bardzo mi to idzie... Posiadam Nokie x6 8GB który po wciśnięciu przycisku "power" jedynie drygnie wibracją i nic się nie dzieje ... Postanowiłem więc wgrać mu softa phoenixem funkcją "dead phone". Instalacja dochodzi do 12 % i zapala się tylko...
Tak, przez Navifirm... Teraz mu nic nie można zrobić.. Dodano po 20 Flashing started Creating product data items list Product data items list created Backup not required Flashing phone Initializing Scanning image files... Waiting for USB device... Loading secondary boot code: 15232 bytes Secondary...
Strasznie to wszystko zakręcone, a na dodatek niepotrzebnie komplikujesz sobie życie... Tak naprawdę to by to wszystko można zrobić na funkcjach, bez użycia VBA. No, ale... Zacznijmy od tego że poprzednie makro się wywalało, bo w złym miejscu umieściłeś sprawdzanie warunku: jeżeli masz zdarzenie Change...
Witam wszystkich. Bardzo proszę o pomoc w sformułowaniu odpowiedniego kodu na podstawie poniższego. Poniższy kod ma za zadanie że jak kliknę na komórkę 'B1' to automatycznie przeniesie mnie do komórki 'C1' [syntax=vb]If Target.Address = "$B$1" Then Range("C1").Select[/syntax] Jak przerobić kod aby...
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...
Flashing started Creating product data items list Product data items list created Backup not required Flashing phone Initializing Scanning image files... Waiting for USB device... Loading secondary boot code: 15232 bytes Secondary boot loaded Loading update server code: 2500439 bytes Update...
Witam. Posiadam Nokie 5530 XM RM-504, PC 0591089, vr.40.0.003. Telefon się zacinał, resetował, nie działał poprawnie. A więc przystapiłem do wgrywania softu. Pobrałem soft vr.40.0.003 (bo nie ma nowszego) pod ten PC (5530 XM RM-504 Country Variant Poland PL (white blue)v2-MR(0591089)). Po uporaniu...
Zapis:[syntax=vb]Private Sub Worksheet_Change(ByVal Target.Address(0,0)="A1" As Range)[/syntax] jest oczywiście błędem (jest zresztą w edytorze VB wyświetlany czerwoną czcionką). Target jest zadeklarowana jako zmienna typu Range, i jest odwołaniem do aktualnie zmienianej komórki. W deklaracji zmiennej...
dopisz sobie do poprzedniego kodu to [syntax=vb]Shapes("Picture 2").Visible = Target.Address = "$F$35"[/syntax] czyli twój obrazek widoczny po kliknięciu w komórkę F35
Witam Serdecznie Mam mały problem. Stworzyłem programik w którym: w arkuszu klikając podwójnie komórkę od A1 do A4 wyskakuje formant z czterema textboxami. Po wpisaniu do nich wartości oblicza średnią. Chciałbym żeby jeśli wybiorę komórkę A1 wartości z textboxów zapełniały kolejne kolumny (B1,...
Dopisz gałąź w instrukcji warunkowej procedury 'Worksheet_Change' [syntax=vbscript]P... 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...
Witam, Chciałbym odratować stary router (bardziej dla własnej satysfakcji i w celach edukacyjnych, niż z realnej potrzeby). Początkowa zabawa zaczęła się od chęci zmiany firmware, ponieważ oryginalne nie oferowało podbijania TTL, co akurat było mi potrzebne. Najpierw wgrałem firmware z jakiegoś...
Tak, jest możliwe z wykorzystaniem VBA. Zarejestruj sobie makro zapisywania pliku i przypisz je do wstawionego obrazka lub procedury zdarzeniowej (w przypadku wykorzystania komórki) 'SelectionChange', gdzie warunkiem instrukcji warunkowej będzie Np Target.Address(0,0)= "A1"
Witam, Napisałem ćwiczebny program w C pod ATMega16. Składa się z pliku test.c oraz config.h . Wszystko w katalogu mfile. Środowisko WinAVR-20090313. Wszystko jest w porządku do czasu kompilacji. Wyskakuje mi błąd: make: *** No rule to make target `test.c.elf', needed by `elf'. Stop. >...
Cześć Mam projekcik na STM32, debuguje przy użyciu OpenOCD. Wszystko działa bez zarzutów do momentu wkompilowania w kod takiej oto funkcji znalezionej gdzieś w necie : Info : accepting 'gdb' connection from 3333 Info : device id = 0x10016420 Info : flash size = 32kbytes Warn : acknowledgment...
Właśnie, mam 2kB ale nie wiem jak się do nich dostać :| , nie jestem jeszcze bardzo zaawansowanym programistą . Project -> Options for target -> i zakładka Target - to mogę zmienić model pamięci , ale nie wiem jak ustawić aby wszystkie zmienne automatycznie umieszczał w Ram. Znalazłem w aplikacji...
Witam wszystkich. Zacznę od początku... Chcąc zacząć zabawę z ARM-ami zakupiłem uC Atmela AT91SAM7X256 do tego zaprojektowałem prostą płytke(ARM+stabilizator+porty wypuszczone na goldpinach)Bazowałem sie na schemacie płytki testowej OLIMEX-a. Programator to ARMJTAG USB(taki z allegro) Po sprawdzeniu...