Witam. Mam prośbę próbuje połączyć dwie procedury ale mam problem moja wiedza jest zbyt mała, może ktoś z grupowiczów pomoże [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Cells.Count > 1 Then Exit Sub If IsNumeric(Target) And Target.Address = "$E$68" Then Select Case Target.Value Case 1: Kierowca_A Case 2: Kierowca_B...
Witam, Napisałem ćwiczebny program w C pod ATMega16. Składa się z pliku test.c oraz config.h . Wszystko w katalogu mfile. Środowisko WinAVR-20090313. Wszystko jest w porządku do czasu kompilacji. Wyskakuje mi błąd: make: *** No rule to make target `test.c.elf', needed by `elf'. Stop. > Process Exit Code: 2 > Time Taken: 00:01 Podejrzewam,...
Cześć Mam projekcik na STM32, debuguje przy użyciu OpenOCD. Wszystko działa bez zarzutów do momentu wkompilowania w kod takiej oto funkcji znalezionej gdzieś w necie : Info : accepting 'gdb' connection from 3333 Info : device id = 0x10016420 Info : flash size = 32kbytes Warn : acknowledgment received, but no packet pending undefined...
Właśnie, mam 2kB ale nie wiem jak się do nich dostać :| , nie jestem jeszcze bardzo zaawansowanym programistą . Project -> Options for target -> i zakładka Target - to mogę zmienić model pamięci , ale nie wiem jak ustawić aby wszystkie zmienne automatycznie umieszczał w Ram. Znalazłem w aplikacji już rejestr CFG845 w SFR : 0xaf , dopisałem i ustawiłem...
W projekcie jest (razem z komentarzami) kilka tysięcy linii w plikach .c i .h, z czego samego bootloadera, który może się Tobie przydać, jest kilkanaście linijek . Próbowałeś z takim prostym kodem, programującym np. z RAM? Analizuję, niektóre rzeczy od razu wywalam bo rozmywają mi obraz całości (kod jest bardzo uniwersalny a mi na tą chwilę niezbędna...
Witam, Jestem w trakcie tworzenia komunikacji pomiędzy uC a czujnikiem MMC2120. korzystam w tym z opisu zamieszczonego w dokumentacji, jednak mam problem z prawidłową implementacją tego algorytmu. proszę o wskazówki, co robię nie tak, co można zrobić lepiej, gdyż przyznam że nie jestem mocny w pisaniu tego tego typu "sterowników". poniżej zamieszczam...
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...
Witam. Od dawna korzystam z szychtownicy która bardzo ułatwia mi pracę. Jednak postanowiłem trochę ją przerobić i bardziej udoskonalić. Dlatego bardzo prosiłbym o pomoc bo nie ze wszystkim mogę sobie poradzić. Dołączony plik zawiera pięć różnych szychtownic (do tej pory wszystkie pięć było w jednym arkuszu) teraz je rozdzieliłem i nie wiem jak przerobić...
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"...
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...
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...
Na wstępie: Mam błąd na linijce "lCnt = Mid(sTemp, i, Len(sTemp))" - "type mismatch" Możliwe przyczyny to: a) brak deklaracji zmiennej " i ", typu np.: " Dim i% " b) wartość w danej komórce ma "skomplikowaną" strukturę, typu np. " AU01_CDF125 " - po znalezieniu pierwszego znaku, który może być zamieniony na liczbę nie można na tęże liczbę zamienić reszty...
troszkę to skomplikowałeś zatrudniony przez a i b to są rożne nazwy firm, jak teraz podmieniam pod a tą swoją nazwę to lipa:/ bo nie działa zaznaczanie:/. [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H$3" Then Sheets("Szablon").Range("B10") = Target.Value ElseIf Target.Address = "$K$3" Then Application.EnableEvents...
tak powinno działać makro: 1. W zakresie wierszy '42:305' zaznaczenie dowolnej komórki ma wywoływać: a. wypełnienie całego wiersza, z zaznaczoną komórką, "jakimś kolorem" (na tę chwilę nieważne jakim) b. nałożenie obramowania wiersza (przynajmniej na dolną krawędź) c. usunięcie wypełnienia z wcześniej zaznaczonego wiersza z zakresu '42:305' d. usunięcie...
mam pytanie, bo widzę, ze wpisałeś jakieś kody w Visual Basic i funkcje działają mi tylko w tym arkuszu który wysłąłeś, czy można zrobic tak aby działało to we wszystkich, czy musze do każdego te kody wpisywać. Arkusze chciałbym móc tworzyć w każdej chwili jak mi się skończą, lub dla różnych osób. Normalny kod mam np. taki: Private Sub Worksheet_Change(ByVal...
Bardzo proszę o pomoc w napisaniu poprawnego makra, które będzie się uruchamiało przy każdorazowej zmianie wartości określonej komórki. Na tę chwilę mój problem polega na tym, że makro działa, kiedy ręcznie zmieniam wartości w komórce. Nie działa jednak, gdy w tę samą komórkę wstawiam prostą formułę, której wynikiem są określone wartości (formuła to:...
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...
Witam, mam w skoroszycie zestawienia moich godzin pracy. Co pewien czas (miesiąc) eksportuję jeden skoroszyt danego miesiąca do pliku *.xls, który jest pozbawiony kodów VBA oraz funkcji i formatów komórek, czyli jest w postaci "strawnej" dla Androida. W związku z tym mam pytanie: Czy można jednorazowo wyłączyć (lub ominąć jednorazowo) w momencie wykonywania...
Kod # dec/21/2021 23:23:03 by RouterOS 6.49.2 # software id = 8L2G-5ZQP # # model = RBD52G-5HacD2HnD # serial number = B4A00A643903 /interface bridge add admin-mac=W4:1D:78:E5:63... arp=reply-only auto-mac=no comment=defconf dhcp-snooping=yes name=bridge add admin-mac=7A:8A:68:12:2B... arp=reply-only auto-mac=no...
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)...
[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]
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...
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...
Wklej w kod arkusza Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "A1" Then ostW = WorksheetFunction.CountA(Range(&... + 1 Cells(ostW, 2) = Target.Value End If End Sub Jeśli dopuszczasz puste wiersze to zamiast tych dwóch linijek wewnątrz, wstaw If Cells(1,...
Dlatego, że w wyszukiwanej kolumnie wartości nie są unikatowe. Funkcja zwróci pierwszy znaleziony, czyli w tym przypadku zawsze 27 wiersz. Należałoby znaleźć pozycję w tabeli i przesuwać górną granicę o WIERSZ()-n, zachowując dolną. Formuła miałaby z 20cm... Będzie prościej makrem. Wklej w kod arkusza "arkusz 2", przetestuj (zmiana w A2), dostosuj do...
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...
Napisałem krótki kod w VBA, który tworzy mi historię edytowania każdej komórki z danego zakresu w komentarzu. Pokazuje też, kto wprowadził zmiany wraz z datą. Wszystko ładnie działa, tylko musi to być bardziej - że tak powiem - idiotoodporne :) ...i z tym mam problem, tzn.: 1. Jak już komentarz automatycznie się stworzy, to nie może być możliwości usunięcia...
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]
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...
Witam serdecznie. Proszę o poradę. Programuje STM32L051 w Atolicu. Wstępna konfiguracja została wykonana poprzez Cube. Kod to tylko i wyłącznie ustawianie w pętli: naprzemiennie stanu wysokiego i niskiego na dwóch pinach z opóźnieniem i wygląda tak: SEGGER J-Link GDB Server V6.44i Command Line Version JLinkARM.dll V6.44i (DLL compiled May 17 2019 17:34:22)...
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...
Ja to zrozumiałem trochę inaczej, ale rzeczywiście opis nie należy do klarownych. Makro zdarzeniowe reaguje na zmiany w komórkach B5:B7 wprowadzone ręcznie, nie makrem. Tekst makra jest w module arkusza. Zakres trzeba dopasować. Jeśli w B8 wpiszę "14", to w C8 ma być formuła "=400+B8" chyba jednak źle zrozumiałem, ale może to sobie przerobisz.
[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,...
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,...
Wstaw taki kod do arkusza z komórką: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If (Target.Address = "$A$1") Then If (Target.Value = 1) Or (Target.Value = 3) Or (Target.Value = 5) Then MsgBox "Wybrałeś liczbę nieparzystą", vbInformation + vbOKOnly End If End If End Sub [/syntax]
Jak już wspomniałem da rade to zrobić na formatach bo ja właśnie do tej pory korzystam z takiej opcji jednak za każdym razem na początku każdego miesiąca to żmudna praca żeby zrobić nowe wzory systemów no i tych formatów jest naprawdę sporo, a chciałem se to trochę ułatwić. Czy możesz mi pomóc w utworzeniu odpowiedniego makra? Dodano po 41 no i znalazłem...
Tu zaczynają się cuda. To może podrzucę kanister z wodą? :) Poważnie: Umieść oba makra w module i precyzyjnie "wskaż" Excelowi, którego arkusza dotyczy kod. Przykład z kopiowaniem[syntax=vb]With Sheets("Arkusz3") .Activate .Range("F8:M8").Copy .Range("F86").PasteSpecial Paste:=xlPasteValues 'pozostałe mają ustawienia domyślne Application.CutCopyMode...
Poczytaj trochę o procedurach zdarzeniowych, a "załapiesz" w 10 minut: [url=]Link1 [url=]Link2 Tu kod dla obu przypadków (niepotrzebne skreślić):[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) 'wariant pierwszy Dim ostW As Long If Target.Address(0, 0) = "A1" Then ostW = Range("B" & Rows.Count).End(xlUp).Row + 1 If ostW < 2 Then...
Czyli muszę uzyskać wpis z formuły, z listy lub z palca. W takim razie chyba faktycznie pozostaje makro. To na szczęście jest w miarę proste - obsługa zdarzenia Change arkusza Opis i wyszukanie wartości w arkuszu źródłowym plus sprawdzanie, czy przedtem użytkownik nie wprowadził czegoś do komórki z palca lub z listy: [syntax=vb]Private Sub Worksheet_Change(ByVal...
Witam, mam następujący problem. Z VBA jestem że tak powiem początkującym. Mam w arkuszu w którym zależałoby mi żeby zrobić formatowanie warunkowe. Jak już wiadomo excel 2003 ogranicza to do 3 warunków. A potrzeba ich zrobić dużo więcej. Mianowicie chciałbym żeby po sprawdzeniu komórki i sprawdzeniu jej wartości i powiedzmy jeżeli w danej komórce będzie...
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...
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 Case "c" Range("B5").Value = Range("B5").Value + 1 End Select 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]
Dzień dobry, mam podobny problem. Chciałabym, aby po wyborze Imienia z listy rozwijanej pojawiło się okienko do wpisania nazwy i hasła lub tylko hasła dla danego użytkownika. Jeśli użytkownik wpisze poprawna nazwę i hasło to pojawi się nowy wiersz nad wpisem (to już mam), ale jeśli nie wpisze poprawnie danych to zawartość wiersza się wyczyści z danych...
Listę w A14 masz na tym samym arkuszu, co A16 i C16? Jeśli tak, możesz wszystkie pominąć Sheets("porównanie ceny produkcji"). Bez tych dodatkowych dwykropków bym wpisał: [syntax=vbscript]If Target.Address = "$A$14" Then Select Case Target.Value Case "A": Sheets("porównanie ceny produkcji").Range("A16").Value = "niebieski" Sheets("porównanie ceny produkcji").Range("C16").Value...
W kod arkusza wklej takie coś: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "K5" Then If Target.Value = 1 Then Range("N5").Copy Else Range("N6").Copy End If Range("K6").Select ActiveSheet.Paste Application.CutCopyMode = False End If End Sub[/syntax]
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...
Rewelacja Bardzo dziękuje, ale jest problem. Bardzo zależy mi aby wartości z tabeli były pobierane przez zapytanie z power query. Więc dodałem w kodzie wiersz odświerzania zapytania. Teraz po zmianie wyboru z listy rozwijanej wartości się "podbierają" ale nagłówek już nie. Czy mozna z tym coś zrobić ? Private Sub Worksheet_Change(ByVal Target As...
Cześć, nie znam języka Visual Basic, ale w związku z moją pracą na arkuszach exelowskich potrzebuję stworzyć makro, które automatycznie dodaje mi wiersz ze skopiowanymi niektórymi danymi z wiersza powyżej. Makro ma działać na tej zasadzie, aby po zmianie wartości na 1 w każdej komórce w kolumnie AG (na chwilę obecną ma zakres od 11 do 14, ale docelowo...
Czy to ma być w "czystym" Excelu, czy może być VBA? I potwierdź, czy chodzi o kombinacje różnowartościowe, czyli ciągi rosnące (lub malejące, ale w każdym razie monotoniczne). Jeśli może być VBA i rzeczywiście o to chodzi, to proponuję makro zdarzeniowe, reagujące na zmianę sumy w komórce C1. W module arkusza: [syntax=vbnet]Private Sub Worksheet_Change(ByVal...
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]
Witajcie ponownie. Nie zdążyłam już wczoraj przetestować tego arkusza. Natomiast dzisiaj już wszystko wiem. Teraz mam kod w module: Sub CB() 'czysc baze If Worksheets("Formularz").Range("B1") > 1 Then Worksheets("Formularz").Cells(1, 29) = 0 If Worksheets("Formularz").Range("B1") = 1 And Worksheets("Formularz").Range("H12") = "" And Worksheets("Formularz").Cells(1,...
Przy kilku listach w kilku arkuszach proponowałbym jedno makro w module arkusza ThisWorkbook (Mój_skoroszyt), coś w tym stylu: [syntax=vb]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim wks As Worksheet If Target.Count > 1 Then Exit Sub If Intersect(Target, Union([A1], [C1], [E1])) Is Nothing Then Exit Sub Application.EnableEvents...
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...
Podmień Jak zwyklę w punkt :) dziękuję . Działa Jeszcze ostatnia rzecz i stawiam kratę dobrego piwa ! A czy można (pewnie można) dołożyć warunkowanie które będzie uruchamiało różne makra na podstawie zawartości kolumny A w aktywnym wierszu. Wpisując w kolumnę D=AWARIA lub SPRAWNY lub WARUNKOWO , VBA sprawdza co widnieje w kolumnie A i na podstawie...
jednak chyba będę musiał zostać przy dwóch kryteriach filtrowania Nie ... dlaczego (?) ... za szybko się poddajesz ... :) ... Sprawdź jak będzie działać, to co poniżej ... jak nie będzie, to będzie się główkować "dalij": [syntax=vba] Option Explicit Option Base 1 Private Sub Worksheet_Change(ByVal Target As Range) Dim krt As Integer Dim warunki As...
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...
Proszę pomóżcie mi z VBA. Na podstawie informacji z neta udało mi się stworzyć tabelę którą mogę filtrować na podstawie 2 zmiennych (imię i/lub nazwisko). Chciałbym móc wyszukiwać po 5 zmiennych: - imię i/lub - nazwisko i/lub - stanowisko i\lub - Nazwa filmyi\lub - miejscowość mój obecny kody wygląda tak: [syntax=vbscript]Option Explicit Private Sub...
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...
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) l = "ZWPR" k = "I10,D12,I13,12,J13,N13,P12,I22,I25" a = Split(k, ",") i = UBound(a) For x = 0 To i If Replace(Target.Address, "$", "") = a(x) Then f = False For y = 1 To 4 If UCase(Target) = Mid(l, y, 1) Then f = True Next If Not f Then MsgBox "Niedozwolony znak!", vbCritical, "UWAGA"...
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ć...
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
Odświeżam; Mam taki kod i potrzebuje ograniczyć go do komorek np: A1:A4 Private Sub Worksheet_Change(ByVal Target As Range) Dim Cell As Range Dim Rng1 As Range On Error Resume Next Set Rng1 = ActiveSheet.Cells.SpecialCells(xlCel... 1) On Error GoTo 0 If Rng1 Is Nothing Then Set Rng1 = Range(Target.Address) Else Set...
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,...
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...
Witam. Bardzo proszę o pomoc w przerobieniu kodu. Poniższy kod działa bardzo dobrze jednak chcę do niego jeszcze coś dodać. Mianowicie kod działa tylko na jednym arkuszu "Arkusz1" i dodatkowo na arkuszu "Podsumowanie". Jak przerobić kod żeby działał dodatkowo na innych arkuszach które bym chciał wyszczególnić? Na chwilę obecną działa na "Arkusz1" a...
A jak takie makro wykonać zależne ? Włącz nagrywanie makra, nagraj czynności które chcesz wykonać i prześlij na forum - poprawimy :) [url=]uruchomienie makra po zmianie zawartości komórki lub zakresu komórek [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range ' jezeli makro maja aktywować zmiany w innym zakresie, podmień...
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") <>...
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...
Cześć, w Excelu mam dwie listy, przykładowo: 1: nazwa artykułu w języku polskim 2: nazwa artykułu w języku angielskim Chciałbym utworzyć makro "Worksheet_Change" aby działało w taki sposób: podczas zmiany w liście z językiem polskim zmienia mi się lista z językiem angielskim i na odwrót. Problem w tym, że tworzy się pętla bowiem makro odpala się przynajmniej...
czesc, Nie moge zmusic JTAGa do pracy. Uzywam a) Yagarto Toolchain do kompilacji b) OpenOCD do programowanie Probuje zaprogramowac AT91SAM7S256 (text on chip AU without number). Uzywam plyty ewaluacyjnej ZL11ARM modulu ZL12ARM. Posiadam KrisTech USB JTAG (UsbScarab2). Moge zaprogramowac flash programem SAM-BA v1.1 (ale juz nie wersja pozniejsza) po...
Cześć Koledzy jak wiadomo nasz kolega Maciek ma kłopot i trzeba się skupić na kilku podanych przez niego faktach. Pierwszym z nich jest fakt że nie ma pojęcie o MT a co za tym idzie trzeba to przełożyć na łopatologie a nie wpisy w terminalu. Drugim faktem jest że ma on MT R433 a w nim 2 karty wlan za pomocą których chce odbierać i nadawać Internet....
Witam Korzystając kodu Tuxgraphics zmodyfikowanego przez Kolegę Mundi1970 , chciałem również postawić prosty serwer pokazujący temperatury z kilku czujników oraz wilgotność i ciśnienie. Po zmianach regfile i pinu CS nie mogę go jednak skompilować. Występują trzy błędy: Error 46 Line: 363 Assignment Error Enc28j60_linkup Erroe 229 Line: 450 End Sub or...
Proszę oto kod. Chodziło mi o to ze moze podpowiecie mi w którym miejscu i jakie modyfikacje musze dać a w linku który podałem jest opis i cały kod. [syntax=basic4gl]'----------------------... ' Atmega168 and ENC28J60 '---------------------------------------... ' Version 1.0 - june 2007 by Ben Zijlstra...
Witam Mam moduł sieciowy na układzie ENC28J60 podłączony do mikroprocesora ATMEGA644 20PU taktowany kwarcem 16Mhz.Program piszę w Bascomie bo innego języka nie zmam. Przykładowy program znalazłem w internecie z sterowaniem diody led przez stronę internetową. Dopisałem kawałek programu żeby na tej stronie internetowej był pokazywany stan tej diody led....
Witam wszystkich serdecznie. Czy ktos moglby sprawdzic kod bo juz kilka tygodni siedze i nie wiem co moze byc nie tak, kod sciagniety z netu i ponoc dziala na 100% no ale nie u mnie. Na tym samym urzadzeniu bez problemu odpalam inne oprogramowania tylko pisane w C i smigaja bez problemu. [syntax=vbnet]$regfile = "m32def.dat" $crystal = 16000000 $baud...
Witam serdecznie. Zależy mi na makro, które jak w temacie - będzie podświetlało aktywny wiersz i aktywną kolumnę zarazem. W zasadzie mam już je gotowe, ale niestety nie za bardzo wiem jak sprawić by działało w całym skoroszycie. [syntax=vb]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Step 1: Declare Variables Dim...
Witam serdecznie Bazuję na dostępnym w sieci kodzie Pana Piotra Rzeszuta, służącym do obsługi modułu ENC28J60 w Bascomie. Wszystko działa jak należy, jednak chciałbym zmodyfikować kod tak, aby po włączeniu diody wyświetlał się aktualny stan jej działania ("stanled1")... Czyli po kliknięciu w przeglądarce przycisku ON przy diodzie, obok wyświetli się...
Po całym dniu walki słabo opisałem mój problem bo już po prostu nie miałem siły :D Wyjaśniam... Zrobiłem sobie mikro serwerek LANowy na Atmedze32 i układzie ENC28J60. Z doświadczenia z tym układem i Atmegą wiem że znacznie stabilniej wszystko pracuje gdy mikroporocesor (Atmega) jest taktowana zegarem 25MHz z gotowego modułu ENC a nie własnym kwarcem....
Po kilku dniach pracy urządzania stwierdziłem że jednak przydało by się żeby serwerek dodatkowo wysyłał dane do "" chociaż z termometru domowego. Próbowałem na rożne sposoby ale nie mam pojęcia jak to zrobić. Może ktoś z Was jest w stanie zmodyfikować kod ? Może kolega (at)bart-projects czyta ten temat? ;) (to ten sam kod co w załączniku) [syntax=vbnet]...
Kliknij prawym przyciskiem myszy na odpowiedni arkusz w excelu, następnie wybierz "wyświetl kod", w oknie, które się pojawi wpisz: Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo BadChange Application.EnableEvents = False If Target.Address Like "$A$#*" Then If (Target And Range("a2").Value =...
Umieść procedurę w kodzie arkusza Np przy zmianie, z ograniczeniem do B5 i B13. Tzn w przykładzie Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "B5" Or Target.Address(0, 0) = "B13" Then If Range("B19") < Range("B20") Then knyps = 1 If Range("B19")...
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...
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...
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
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
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...
Witam próbuję napisać kod do kilku list rozwijalnych na umieszczonych w jednym arkuszu . Wrzuciłem również w tym arkuszu w kilu kolumnach nazwy skoroszytów z podłączonymi do nich linkami. Potrzebuję taki kod w którym odpowiedna kolumna np. A (x wierszy) będzie zawarta w liście rozwijalnej plus uruchamiane linków po kliknięciu na dowolna pozycję. Dopiero...
[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]
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then ActiveSheet.Unprotect Password:="a" [B1].Locked = False [C1].Locked = False If Target > 30000 Then [B1].Locked = True If Target > 50000 Then [B1].Locked = True [C1].Locked = True End If ActiveSheet.Protect Password:="a" End If End Sub [/syntax]
Użyłem komendy do zatrzymania skryptu jeśli warunek nie zostanie spełniony If IsError(a) Then Exit Sub problem polega na tym że wyłącza mi to całkowicie skrypt a potrzebuje by po wypełnieniu tego warunku po prostu zatrzymał się i wrócił do początku nasłuchując z powrotem informacji z 1A Z góry dziękuję za okazaną pomoc [syntax=vbscript]Private Sub Worksheet_Change(ByVal...
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]
A chciałem pytać, czy jest możliwość zrobić tak aby można było jeszcze wpisać ujemne liczny, a tu widzę gotowe rozwiązanie :) Jednak to rozwiązanie poprawnie działa w powyższym pliku, ale jak przerzucę go do pliku docelowego to wywala mi błąd w moim dotychczasowym kodzie. Teraz u mnie wygląda to tak: Zauważyłem, że ten błąd wyskakuje jak u góry jest...
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...
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...
Witam, ponownie napotkalam problem z ktorym nie moge sobie poradzic. Chcialabym tak zabezpieczyc komorki aby po skopiowaniu (komorki, tekstu itp) i wklejeniu jej do (w tym wypadku) tabelki, nie utracic formatowania. Rownoczesnie dana komorka ma przypisane ograniczenie wprowadzania znakow specjalnych: Sub ValidateProjectName(Target As Range)...
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...
Witam, Zakupiłem sobie stm32butterfly, do tego programator z Allegro, przeczuwam, że był to błąd, o nazwie Triton. No i mam problem. Plik do open ocd dostarczony z programatorem jest skonfigurowany do pracy z atsam7 i w sumie nie bardzo wiem jak go zmienić, szczególnie że napisany jest dla starszej wersji openOCD. Probowałem zrobić swój własny plik...
Zacznij od wprowadzenia takiej procedury do swojego arkusza. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub If Target.Address = "$A$5" Then Range("A6").Value = Range("A5").Value + Range("A3").Value + Range("A1").Value...