Spróbuj odczytać błędy z komputera. Może coś się wysypało w konfiguracji. Kiedyś miałem podobny przypadek tyle że w skrzyni cvx problemem był czujnik skręcania wom (przy kalibracji pt).
Ponowię pytanie - Jakie kody błędów wystąpiły w ostatnich godzinach pracy? Skoro nie przechodzi kalibracji , to pokazuje jakieś błędy - jakie konkretnie ? Jeśli ma uszkodzony CAN - pokazuje błędy - jakie?. Jeśli ma inną usterkę - pokazuje błędy... Wyrwanie i przejrzenie wiązki chwilę zajmie i być może nie zaszkodzi, chociaż przewody będą już miejscami...
Hydraulika działa,wspomaganie?Skrzynia 16 z dwoma dzwigniami czy range command?
Chłopie,debilne tłumaczenie googla i zła interpretacja błędów. U 82-komp. nie wykrył ruchu synchronizatora biegów niskich -wysokich. F1H-selenoid zakresu biegów wysokich przerwa (cewka,kable)lub zwarcie do masy. F1L-selenoid zakresu biegów niskich przerwa lub zwarcie do masy. F 41-potencjometr biegów średnie-rewers za niskie napięcie. F1U-selenoid biegów...
witam, mam pytanie co oznaczaja kody nh skrzynia abc range command u 36. p32 . f42
Witam chciałbym podpiąć się pod temat ponieważ mam podobny problem z moim M100 skrzynia RANGE COMMAND grupy A,B,C przestał jezdzić do tyłu a do przodu w trybie awaryjnym tylko C1 ,na wyświetlaczu skrzyni miga błąd F 3 nie można wykonać kalibracji bo wyskakuje błąd U-86 proszę o pomoc
Nie, tamten był z inną skrzynią biegów Range Command i jest Ok. A teraz potrzebuję pomocy do drugiego?
Potrzebna mi jest serwisówka do tego ciagnika, odkupię jak ktos posiada. Jak poprawnie przeprowadzic kalibrację skrzyni range command w new Holland 8560? Dodano po 6 Dziękuję za podpowiedz wal-ker jeszcze potrzebuję instrukcję jak poprawnie skalibrowac skrzynię range command.
Power command tej skrzyni range command ?? Zrób kalibracje i podaj błędy jakie wyświetla
Masz skrzynie RANGE COMMAND czy POWER COMMAND ?? F27 - ERPM signal not present brak sygnału ERPM Podałem to z serwisówki w ktorej nie ma Twojego modelu. Jest TM 155 a potem 175. Nie wiem czy kody bledow beda te same. Pozdr.
Witam Potrzebuje opis kodów błędów do powyższego ciągnika. więcej danych: rok prod. 2006, range command a na początek błąd P34 i P40 (coś nie tak z WOM) coś czuje że poznamy się bliżej z tym traktorem bo kierowca przesiadł się na niego z zetora i "bawi się" zmianą biegów :/ pozdrawiam
Witam. Od niedawna posiadam new hollanda tm 155 z skrzynia range command i od poczatku elegancko ladnie biegi szybko wchodzily mozna bylo elegancko przyspieszsc. Ale dzisiaj zauwazylem, zebg wskoczyl wyzszy bieg musze kilkukrotnie klikac guzik od biegow wzwyz co jest strasznis uciazle sprawia to wrazenie jakby cos niekontaktowalo, lecz wykluczam ten...
Może i Makrem byłoby łatwiej ale.....poległem. No to masz z instrukcją "if" :) (dodane do twojego kodu) [syntax=vbscript]Private Sub CommandButton4_Click() On Error Resume Next 'po błędzie kontynuuje dalej Application.ScreenUpdating = False DatExample = Date Dim s As String s = "C:\Users\jasuc\OneDrive\Tamex Żwirkop\Kopia Dane Tamex\PDF\" y = 2 With...
[syntax=vbscript]Private Sub CommandButton1_Click() Range("B5") = Range("B5") * 1.23 End Sub [/syntax]
[syntax=vb]Private Sub CommandButton1_Click() Zeszyt = ActiveWorkbook.Name Workbooks.Open Filename:="C:\Users\mm\Desktop\Nowy_fold... Range("A:A").Copy ThisWorkbook.Activate Sheets("Arkusz2").Activate Range("B1").Select ActiveSheet.Paste Workbooks("wsad.xlsx").Close Windows(Zeszyt).Activate End Sub[/syntax]
W kodzie formularza zostawiłbym tylko: [syntax=vbscript]Option Explicit Private Sub CommandButton1_Click() ActiveCell = ComboBox1.Value UserForm.Hide End Sub Private Sub UserForm_Activate() Dim r As Range Dim strr As Range With ComboBox1 .Clear On Error Resume Next Set strr = Range("ListaFiltrowana") For Each r In strr .AddItem r.Value Next r .DropDown...
A ile jest wszystkich tekstboxów w oknie? Poniżej kod do dodawania info do kolejnych tekstboxów. Uwaga - nie ma zabezpieczeniajeżeli wyników będzie więcej niż okienek - wtedy pojawi się błąd. [syntax=vb]Private Sub CommandButton1_Click() Dim a As Range Dim k As Integer, i As Integer Dim obiekt As Control i = 1 k = 0 For Each a In Intersect(ActiveSheet.UsedRange,...
Muszę go jeszcze dostroić, gdy próbuję zrzucić z 0x0, to nie flash jest zrzucany. Flash zaczyna się od 0x080000, a kiedy próbuję ustawić go na tę wartość, gdb drukuje to: Using memory regions provided by the target. There are no memory regions defined. dump_bw16.txt:5: Error in sourced command file: Invalid memory address range (start...
Nie wystarczy zwykłe przypisanie w kodzie przycisku? Zdaje się, że chodzi też o wypełnienie kolejnych pozycji. Spróbuj: [syntax=vb]Private Sub CommandButton1_Click() ostW = Range("B5").End(xlDown).Row If ostW > 19 Then ostW = 5 Cells(ostW + 1, 2)= ComboBox5.Text Cells(ostW + 1, 3)= val(Wartosc) End Sub[/syntax]
Witam, koledzy posiadam ciągnik jak w tytule. Uszczelniłem przeciek na bloku zaworowym tym co jest montowany z prawej strony za zbiornikiem paliwa, od niego wchodzą do skrzyni biegów rurki, a na nich oringi, wymieniłem oringi na oryginalne i wszystko dobrze złożyłem, po odpaleniu ciągnik nie rusza, szarpie z biegów, jest tylko co drugi bieg, np. A 2,...
Z góry uprzedzam że jestem kompletnym laikiem w VBA – brakuje mi podstaw. W pracy miałam do czynienie z arkuszem obliczeniowym napisanym x lat temu w VBA w excelu który musiałam przystosować do zmieniających się przepisów i norm. Sprawiło mi to wiele frajdy, ale było to – najpierw delikatne grzebanie w cudzym kodzie, później pisanie na tej...
Chyba jakoś tak: Private Sub CommandButton1_Click() x = 3 While Worksheets("Przyrządy pomiarowe").Cells(x, 1).Value <> "" If Worksheets("Przyrządy pomiarowe").Cells(x, 1).Value = Worksheets("Kalibracja-Naprawy&... Then Worksheets("Przyrządy...
A zatem tak spróbuj: [syntax=vbscript]Private Sub CommandButton1_Click() Dim ws As Worksheet Dim fso As Object Dim oFile As Object Set fso = CreateObject("Scripting.FileSystemObject... Set oFile = fso.CreateTextFile("c:\wynik.txt") For Each ws In ThisWorkbook.Worksheets Call PrintRange(oFile, ws, ws.Range("A2:E4"), 3) Call PrintRange(oFile, ws, ws.Range("J6:M8"),...
Powyższy kod wykorzystuję dla różnych dokumentów i w obecnej chwili używam go w taki sposób, aby po odczytaniu jaki numer ma ramka kończył USUWANIE: [syntax=vb]Sub Usun2() Dim knyps As Boolean knyps = False For i = 1 To Shapes.Count Range("A27").Select ' określa komórkę gdzie ma sprawdzać wartość If Selection.Cells = 1 Then 'określa jaką ma mieć wartość...
wyskakuje ten sam błąd w piątej linijce kodu: Range("E2").Select Jest to właśnie wynikiem wtłoczenia wszystkich poleceń do podprocedury "CommandButton1_Click". Chodzi o to, że wszystkie wywołania obiektów, bez jawnej deklaracji przynależności, odnoszą się do obiektu bieżącego, z którego są wywoływane, to swego rodzaju "dziedziczenie". Jeśli np. wywołujemy...
Nie zapomnij załączyć dokumentów korekcji Gamme: https://github.com/openshwprojects/OpenB... led_gamma_control () - led_gammaCtrl command handler, usage: led_gammaCtrl [parameter(s)] sub-commands: cal [f f f] - set RGB calibration values from color-picker or parameters...
No dobra ;) Generalnie każdą formułę można wstawić makrem, wystarczy ją nagrać macro recorderem i troszkę zmodyfikować. Dla WYSZUKAJ.PIONOWO jest to coś takiego: [syntax=vb]Private Sub CommandButton1_Click() On Error GoTo myErr Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Sheets("Arkusz1") ost_wiersz = .Range("A"...
Lista niedozwolonych znaków dla nazwy pliku w Windowsie jest krótsza, w dodatku domyślnie nie można niektórych z nich wstawić jako nazwy arkusza, więc finalnie można ją skrócić jeszcze bardziej. Możesz sobie sprawdzić listę i wstawić własne znaki. Pełen przykład poniżej: [syntax=vbscript]Private Sub CommandButton1_Click() ' sendAll Makro ' Makro zarejestrowane...
Cool Edit Pro to zdaje się teraz Adobe Audition? Calculate the tempo of a selected range To calculate the tempo of a selected range, use the Edit Tempo command. This command lets you quickly determine loop tempo in Edit View or change session tempo in Multitrack View. It also lets you change the beats-per-minute (bpm) value for horizontal rulers in...
[syntax=vbscript]Private Sub CommandButton3_Click() Application.PrintCommunication = False With ActiveSheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With Application.PrintCommunication = True Dim s As Long For s = 0 To ListBox2.ListCount - 1 Range("B5").Value = ListBox2.List(s) ActiveSheet.PrintOut Next End Sub Private Sub [/syntax]
No fak trochę masz racje ale i tak coś trzeba zrobić. co do tego problemu z ip to masz 2 okienka żeby wpisać zakres. jeżeli chcesz wpisać ip tego gościa to wpisujesz np:192.168.2. 7 ~ 7 a jeżeli blokujesz wszystki kożystającym z sieci to 192.168.2. 1 ~ 255 tyle że tobie też utnie;P na dole masz port range i też wpisujesz zakresy: 1-20, 23-79, 81-8079,...
Kod dostosowany, przerobiony, działa. Cud miód. Jeden mały acz irytujący szkopuł. Przy przeglądaniu kolumny z nazwiskiem liczącej 5000 rekordów czas jest szalenie długi głównie przy wpisywaniu nazwiska. Wpisując np Kowalska potrzebujemy ok 4sec żeby nazwisko pojawiło się w textboxie. Jakiś kolejny genialny pomysł? To już kwestia do optymalizacji -...
czy ma ktoś jakąś instrukcję jak krok po kroku zrobić taki kalendarz??? nie proszę o gotowca (no chyba że ktoś jest bardzo życzliwy i pozwoli zaoszczędzić mi kilka dni a raczej nocy pracy) chodzi mi o instrukcje miło by było z jakimś screenem albo coś. A proszę, kilkadziesiąt minut pracy i cierpliwości ;) - może żadna francja-elegancja, ale coś podobnego...
Przetestuj poniższe makro: [syntax=vb]Private Sub CommandButton1_Click() Dim DataPodana As Date Dim lCol& DataPodana = InputBox("Wprowadź datę dniówki w roku rozliczeniowym " & Date, , Date) On Error Resume Next lCol = Application.Match(CLng(DataPodana), Range("3:3"), 0) On Error GoTo 0 If lCol = 0 Then lCol = Application.Match(CLng(DataPodana), Range("3:3"),...
OK, z jakiegoś powodu, po twardym restarcie, konfiguracja nie trzymała się. Teraz to działa. Trzy naciśnięcia przycisku GUI, przełączanie stanu zgodnie z opisem. Zauważ, że jest 6 przejść MQTT w formacie Info:MQTT:Channel has changed! Publikacja X na kanale 1 : ExtraDebug:TuyaMCU:TuyaMCU heartbeat_valid = 1, product_information_valid=1, self_processing_mode...
Witam!!! Mam problem z tą płytką i żeby nie zakładać nowego wątku się podepnę. Nie mogę z poziomu AVRStudio zmieniać fusebitów mam taki błąd [ERROR] ispProgram: Error status received: Got 0xc0, expected 0x00, ModuleName: TCF (TCF command: Memory:set failed.) oraz [WARNING] Read voltage 0.0V is outside selected device's operating range: 2.7 V to 5.5...
Próbuje pobrać dane do HA z EKCO.MN3 Do kotła podłączyłem płytkę (A+ z A+ ; B- z B-), zasilana z usb https://kamami.pl/esp32/1191671-kamod-es... próbuje na różne sposoby zmieniać yaml ale nie ma efektów uart: id: mod_bus tx_pin: GPIO27 rx_pin:...
Daj zrzut Administration/Router Managment Dodano po 1 Using Telnet 1. Open the command prompt and type "telnet" (On Windows vista/7 you will need to install it from "programs and features"). 2. connect to <Router_LAN_IP> e.g. 192.168.1.1 so in the command prompt, this would look like: telnet 192.168.1.1 1. When asked for the username, enter root...
Najprościej (nie najwydajniej) wykorzystać tablicę i zapisywać w niej numery "podmienionych" wierszy i jeśli się pokrywają to zmienić zakres wyszukiwania... Sprawdź taki Private Sub CommandButton1_Click() Dim x As String, y As String Dim i As Integer, j As Integer Dim tablica() As Variant For i = 0 To 10000 x = Range("J2").Offset(...
To skopiuj sobie całą procedurę np. do jakiejś komórki albo do pliku tekstowego w formie: [syntax=vb]Private Sub Worksheet_Activate() MsgBox "To jest test" Cells(1, 1).Value = "OK" Cells(1, 1).Interior.Color = vbGreen End Sub[/syntax]a z kodu zrób: [syntax=vb]'Dodać referancję: Tools->References->Microsoft Visual Basic for Applications Extensibility...
Spróbuj [syntax=vb]Private Sub CommandButton4_Click() On Error GoTo myErr Application.ScreenUpdating = False nazwa_arkusza1 = Range("L1") wiersz_naglowka = 11 ost_wiersz = Range("A65536").End(xlUp).Row ost_kolumna = Cells(wiersz_naglowka + 1, 255).End(xlToLeft).Column Set ws = Worksheets(Worksheets.Count) pozycja = ws.Range("A65536").End(xlUp).Row +...
Cześć Próbuję stworzyć kod który po zaznaczeniu całego wiersza, kopiowałby go (tylko wartości) do szablonu (nazwa szablonu z komórki AF zaznaczonego wiersza) do komórki A100 w zakładce Integracja. Później zapis szablonu pod nazwą z komórki AG zaznaczonego wiersza. Na razie stworzyłem taki kod, ale nie działa. [syntax=text] Private Sub CommandButton1_Click()...
[syntax=vbscript] Private Sub CommandButton5_Click() On Error Resume Next 'po błędzie kontynuuje dalej Dim DatExample As Date DatExample = Date Dim x As String Dim s As String Dim y As String Application.ScreenUpdating = False Dim answer As Integer answer = MsgBox("Wybrałeś DPF/Drukuj,Czy chcesz kontynuować?", vbYesNo + vbQuestion, "UWAGA!!!DPF/DRUKUJ....")...
Nazwa urządzenia : Mirabella Genio Wi-Fi LED USB Desk Lamp With Wireless Charger - I003867 Typ urządzenia : Lampa biurkowa z ładowarką Qi Czip urządzenia : WB3S - BK7231T with TuyaMCU Urządzenie zakupione https://obrazki.elektroda.pl/5636550300_... https://obrazki.elektroda.pl/1433987400_... https://obrazki.elektroda.pl/1216453600_...
Z poziomu VBA masz np. taki kod: [syntax=vbscript]Private Sub CommandButton1_Click() On Error GoTo myErr Dim conn As ADODB.Connection Dim rst As ADODB.Recordset Dim sql As String Set conn = New ADODB.Connection Set rst = New ADODB.Recordset conn.ConnectionString = "Provider=SQLOLEDB;Data Source=server_name; Initial Catalog=database_name; Integrated...
Podłączyłem JTAGICE mkII do Atmega 32 w komercyjnym urządzeniu żeby ocenić czy procesor nie jest uszkodzony i jakiś cudem po moich eksperymentach procesor okazał się wyczyszczony. Przy pierwszych odczytach lock bity miały wartość 0xC0 (wszystko zablokowane), przy kolejnych zrobiło się 0xFF. Praktycznie urządzenie jest już stracone, procesor wyczyszczony...
źle się wyraziłem. mam taki kod: [syntax=vbscript]Private Sub CommandButton1_Click() Dim kom As Range For Each kom In Range("A28:A53") If Rows(kom.Row).Hidden = True Then Rows(kom.Row).Hidden = False Exit Sub End If Next End Sub[/syntax] potrzebuje do tego samego przycisku wrzucic jeszcze cos takiego : [syntax=vbscript]Dim kom As Range For Each kom...
1. Dostałem na warsztat switch światłowodowy AT-9000/28SP, pod jeden port podpiąłem transceiver(AN-UM100-1 10/100Base-TX to 100Base-FX). T. widzi sygnał światłowodowy gdy podłączam patchcord, ale na switchu nie ma żadnej sygnalizacji. Porty na tym switchu są niby 1000mb'towe, ale niby włączona jest autonegocjacja. W port mam podłączony GBIC Fibrain...
Sprawa jest zapewne prosta, ale siedzę już kilka godzin nad tym i nic nie mogę znaleźć w tym temacie. Ogólnie mam jakiś tam plik w którym otwiera się okno TextBox ze zwykłym butonem który ma potwierdzić wprowadzone zmiany w oknie TextBox. Napisałem taki kod do tego UserForm: Private Sub CommandButton1_Click() Arkusz2.Range("A3")...
Dziękuję jeszcze raz za pomoc:) Chciałam przerobić sql by pobierał mi dane z jeszcze jednej tabeli ale pojawia się "błąd składniowy" . [syntax=vbscript]Private Sub CommandButton1_Click() On Error GoTo myErr With Sheets("wynik") If .FilterMode Then .ShowAllData .Range("A2:o" & Rows.Count).ClearContents End With Dim conn As Object Dim rst As Object Set...
Tak, mam wszystko, czego potrzebujesz. LSC Smart Connect 3200719 Zewnętrzny reflektor RGB+WW. JSON [syntax=json]{ "manufacturer": "LSC", "name": "3200719 Outdoor Flood Light", "key": "key9at4j5jt39aaf", "ap_ssid": "SmartLife", "github_issues": [ 525 ], "image_urls": [ "lsc-3200719-outdoor-flood-light.jpg" ], "profiles": [ "oem-bk7231n-light-ty-1.3.22-sdk-2.3.3-4...
Ja go chyba trochę zrozumiałem. Troszeczkę inaczej bym to napisał (mniej tekstu - po co tak gmatwać) Stwórz okienko UserForm1 z jednym textbox'em przyciskiem Pod przyciskiem (kodem do przycisku) wklej coś takiego. Przejrzyj wcześniej komentarze i dostosuj do twoich warunków. Private Sub CommandButton1_Click() GetObject ("c:\Zlecenia...
[syntax=vb]Private Sub CommandButton1_Click() Dim wb As Workbook Dim wbOtwarty As Boolean Dim wbNazwa As String wbOtwarty = False wbNazwa = "excel.xls" For Each wb In Application.Workbooks If wb.Name = wbNazwa Then wbOtwarty = True End If Next If wbOtwarty = False Then MsgBox "Otwórz plik (..\excel.xls)!", vbOKOnly Exit Sub End If If TextBox1.Text =...
Przykładowy kod generujacy log w domoticzu + jakieś sztuczne dane czujnika: (musisz wpisac jako url adres swojego serwera) [syntax=python]import requests import time import random def setup_request(url, cmd, param): # Do the HTTP get request response = requests.get(url + cmd + param) print response.url # Check for HTTP codes other than 200 if response.status_code...
Thank you for help! Really, i am very thankful. So, seems that I understood that spectrum part more or less correct. Will try to experiment with that a little. Also I am going to try to make local button that does the same as remote "on/off/mode" command. Maybe other buttons too (later). I wonder, that clock prescaler (128), can it be, say, 256? Then...
Dziękuję za pomoc noobowi. Urządzenie nie śpi po podłączeniu do USB lub wewnętrznej baterii (która przy pełnym naładowaniu wytrzymuje około pół godziny) Oto dane wyjściowe z startDriver TuyaMCU i tuyaMcu_sendQueryState na poziomie dziennika debugowania w aplikacji internetowej: (Zastąpiłem moje aktualne informacje o Wi-Fi na „MYWIFI”) Info:MAIN:Time...
Sam arkusz w sumie nie posiada żadnego kodu, jest tam tylko coś takiego: [syntax=vb]Private Sub CommandButton1_Click() With Sheets("Menu") ActiveWorkbook.Unprotect Password:=Haslo .Visible = True .Activate ActiveSheet.Protect Password:=Haslo ActiveWorkbook.Protect Password:=Haslo End With End Sub Private Sub Worksheet_Activate() Range("A1").Select End...
https://www.otomoto.pl/oferta/bmw-i3-i3-... to po 2latach 80%zywotności baterii? :D "How long do BMW i3 batteries last? How long do BMW i3 batteries last? The i3 battery comes with a 8-year, 100,000 miles warranty which is par for the course for electric cars of this size. Beyond that there have been...
Witam, Mam problem z makrem do wczytu pliku (skoroszytu excel). Plik co prawda jest wczytywany ale tylko pierwszy arkusz. Jak zedytowac to makro tak żeby wczytane zostały wszystkie arkusze? Procedury które mam dalej dotyczą pierwszego arkusza. [syntax=vb] Dim plik As Variant Private Sub CommandButton1_Click() Dim Filtr As String Dim Tytul As String...
Zacząłem walkę z dwoma modułami RFM12b. Oba moduły podłączone do ATMega16 w sposób opisany w PDF: nIRQ -> INT0 (PD2) nSEL <- SS (PB4) SDI <- MOSI (PB5) SDO -> MISO (PB6) SCK -> SCK (PB7) Moduły są 868MHz, uP taktowany kwarcem 16MHz. Nie bardzo rozumiem konfigurację modułów a różne (niby działające) przykłady są przeważnie albo w C (nie...
Firma http://www.elektroda.pl/info/usb2wire.gi... Pozostałe parametry: Communicates at regular and overdrive 1-WireR speeds Supports 12V EPROM programming and stiff 5V pullup for EEPROM, sensors, and crypto iButtonR Slew rate controlled 1-Wire timing and active pullup to accommodate long 1-Wire network lines and reduce radiation Programmable 1-Wire timing...
P16XX - Computer and Auxiliary Outputs P1600 Loss of Keep alive memory(KAM) power Open circuit P1601 ECM/TCM Serial communication error P1602 Immobiliser/ECM communication error P1603 EEPROM malfunction P1604 Code word Unregistered P1605 Keep alive memory (KAM) test failure P1606 ECM control relay O/P circuit malfunction P1607 MIL O/P circuit malfunction...
Wgrywam fastboot przez HiTool: "Platform Version: 4.0.4 HiBurn Version: 5.0.6 HiSilicon Technologies Co., Ltd. All rights reserved. (C) 2011-2014 Mod: Hi3798MV200 Platform Version: 4.0.4 HiBurn Version: 5.0.6 HiSilicon Technologies Co., Ltd. All rights reserved. (C) 2011-2014 Mod: Hi3798MV200 SerialPort has been connented, Please power off, then power...
Czemu wywołuje się metoda getInput pomimo tego, że przycisk który wywołuje te metodę na obiekcie nie został wciśnięty? I chciałem się też spytać was, mądrzejszych odemnie, czy ten kod jest poprawny jeśli chodzi o zasady OOP? Jeśli nie, to co zmienić żeby był zgodny z OOP? do parametru "command" przekazujemy funkcję zwrotną (callback), więc trzeba tam...
Teardown and OpenBeken drop in for https://obrazki.elektroda.pl/2073381600_... https://obrazki.elektroda.pl/6296432100_... https://obrazki.elektroda.pl/3197909200_... . Moim celem było umożliwienie regulacji amperów/mocy z MQTT lub asystenta domowego podczas ładowania EV. Można to zrobić za pomocą OpenBeken....
skopiowalam twoj kod i dostosowalam do kolumn i teraz mam w formularzu w odpowiednich listach odpowiednie kolumny ale jak mam zrobic zeby mi zawezalo te listy czyli jak wybiore Suchbegrif to zostana mi przefiltrowane Selektion i tak samo Stärke tak jakbym filtrowala w Tabeli.. i teraz wyswietlaja mi sie Artikel przefiltrowane tylko przez Suchbegrif...
Problem może i prosty, ale niekoniecznie dla kogoś zupełnie zielonego w temacie baz danych... :) Access to baza danych, a z bazą danych pracuje się zupełnie inaczej, niż z arkuszami w VBA. Nie masz tam arkuszy, tylko tabele. Tabele składają się z kolumn i wierszy, zwanych też rekordami. Kolumna musi być danego typu - może przechowywać tylko np. wartości...
Skoro nie chcesz wędki tylko rybkę ... [syntax=vb]Private Sub CommandButton1_Click() For Each cell In Range("c9:c1000") If cell.Interior.ColorIndex = 43 Then cell.Interior.ColorIndex = 41 End If Next cell End Sub[/syntax]
Chodzi o taką alternatywę Command1? powinno działać takie coś [syntax=vb]Private Sub CommandButton2_Click() Dim i As Long, ostWrs As Long With Sheets("Lista pracowników") For i = 0 To lstFiltr.ListCount - 1 If lstFiltr.Selected(i) = True Then ostWrs = .Range("B:B").Find(what:=lstFiltr.List(i... lookat:=xlWhole).Row If .Cells(ostWrs, 21) = TextBox1 Then...
Mam teraz tutaj moduł kurtyny Girier, 1CH w wersji Wifi, numer modelu to DS12D-WF https://obrazki.elektroda.pl/3480366900_... . Można go łatwo flashować, podłączając tylko RX1, TX1 i uziemienie. https://obrazki.elektroda.pl/6838427900_... W Tuya Developer Center możemy uzyskać dodatkowe informacje na temat tego urządzenia...
No ok. Tolerację wpisałem wszystkim rezystorom, dałem im po 5%. Przechodzę do ustawienia analizy, i co tu mam ustawić? Na pewno worst case. :-) Output war to element na który badany jest wpływ tej tolerancji ? Function : max, min , ... ? Range low, hi ? Co dalej pozaznaczać? A Devices to co to ? Pozdrawiam Piotrek PS. To nie jest tak że nic nie robię...
cześć, faktycznie wszystko da sie zrobić tak jak opisujesz. Ja zrobiłem to trochę na czuja: [syntax=vbscript] Dim wrs As Long Sub SendOutlookMail(Subject As String, Recipient As String, Recipient1 As String, Message As String, Optional attachFile As String) On Error GoTo errorHandler Dim olApp As Object Dim oItem As Object Dim signature As String Set...
Posiadam wymieniony w temacie router oraz gre command and conquer 3: wojny tyberium. w momencie wejscia do gry online wszystko, co na komputerze dziala z internetem wylacza sie, a sama gra rozlacza i wychodzi do glownego menu. W instrukcji znalazlem tyle: ze w ustawieniach routera musze wpisac cos w portach. zrobilem wszystko, jak mi kazali, (czyli:...
Witam. Pobierz własciwy sterownik do płyty głównej i rozpakuj (np. przy pomocy Total Commander jeden dwa kliki i masz otwarty plik ZIP) w nowym KATALOGU następnie przejdź do Manedzera urzadzeń i tam przy braku steronika "zółty wykrzyknik" instaluj sterowniki. Sterownik z poziomu Menadzera urzadzeń instalujesz przez szukanie w katalogu (wczesnej pobrany...
Witam, kupiłem nowy dysk w MediaMarkt i testuję laptopa na nowym dysku już prawie trzy dni. Na razie bez żadnych problemów. Skoro to nowy dysk, powinien być sprawny, ale na wszelki wypadek zrobiłem test nowego dysku, poniżej. Będę jeszcze testował przez najbliższe może 6 dni, aby mieć pewność, że boot loop się już nie pojawi. Victoria S.M.A.R.T 13:48:17...
Wszystko co było tutaj napisane Tak wygląda kod: #define __PROG_TYPES_COMPAT__ #include <avr/pgmspace.h> // For PROGMEM // Program version const char s_Version[] = "1.8.horo"; // Pin mappings for the PIC programming interface #define PIN_ACTIVITY 19 // LED that indicates read/write activity #define PIN_VDD 2 // 1: Power the...
Witam jestem studentem 1roku. Mam do napisania program w Visual studio za pomocą MFC który będzie bazą danych towarów . Wymyśliłem to tak ,że program będzie składał się z dwóch okien dialogowych. Pierwsze będzie zawierać listę kategorii (robię ją za pomocą List Box) oraz buttony do dodawania kolejnych list kategorii , usuwania, oraz wyszukiwania jakiejś...
A gdzie kod biblioteki? A to już mi Musisz podpowiedzieć bo nie bardzo wiem o co chodzi. Dodano po 2 Czyżby to? Dodano po 19 Mój błąd. Wybrałem nie taką wersję płytki Arduino. Zamiast 8Mhz 3,3V miałem ustawioną 16Mhz 5V.
Cześć! Piszę tutaj po raz pierwszy i dopiero zaczynam korzystać z OpenBK, więc wybacz mi, jeśli coś jest w złym dziale lub jest niepoprawne. Mam inteligentny ściemniacz Treatlife DP10 Outdoor, który pomyślnie sflashowałem OTA z oprogramowaniem OpenBK za pomocą Tuya-CloudCutter. Rozgryzłem większość konfiguracji OpenBK dla TuyaMCU i autoexec.bat, ale...
Witam Mamy pytanie odnoście usuwania makra przez inne makro. Od początku. Mam poniższy kod który oczywiście działa popranie i robi dokładnie to co ma robić, czyli: kod na początku filtruje i tworzy pewną ankietę w arkuszu. Następnie arkusz z ankietą zostaje skopiowany i wklejona do nowego pliku Excel, następnie zapisany pod konkretną nazwą we wskazanym...
Słuchajcie mam cos takiego: Szanowni koledzy juz sie trudze i trudze i ni hu hu nie umiem dobrnąć do konca :( otóż robię makro symulujące losowanie multilotka z tym ze potrzebuję jeszcze takiego myku który bedzie wskazywał ilość trafień. Zrobiłem juz user forma i skrypt mniej wiecej taki: Option Explicit Private Sub CommandButton1_Click() Dim Ilosc_liczb...
Może wsytarczy ustawić w kodzie wydruk bez podawania zakresu :) Co to za smieszki? Zrobiłem tak i działa :) ? Szybko sie uczę hehe : [syntax=text]Private Sub CommandButton1_Click() Set e = Sheets("Export") ow = e.Cells(Rows.Count, "A").End(xlUp).Row For x = 2 To ow a = CStr(e.Range("AC" & x)) e.Range("A" & x & ":AB" & x).Copy Sheets(a).Range("A100")...
[syntax=vb]Private Sub CommandButton13_Click() Sheets(1).Range("A1") = Sheets(1).Range("A1") + TextBox1.Value TextBox1.Value = "" Me.Hide End Sub [/syntax]
Witam. Mam problem z przedstawieniem wyników otrzymywanych z multimetru w postaci wykresu. Dane odczytywane są prezentowane w polu txtowym. Chciałbym jednak aby wyniki były prezentowane w postaci wykresu i właśnie z tym mam problem. Oto główny kod programu: Option Explicit Private Sub DataRequestTimer_Timer() 'Send data request to PC5000 Dim Command...
Nadal klapa. Wykorzystałem podany kod, przerobiony na moje potrzeby. Wyskakuje błąd " Nie można ustawić własności RowSourse .Nieprawidłową wartość obiektu ". Mój kod wygląda tak: [syntax=vb]Private Sub CommandButton1_Click() With ListBox1 .ColumnCount = 3 .ColumnHeads = True .RowSource = "=Sheet1!A2:C6" End With End Sub[/syntax] Oczywiście dane, które...
Dzień dobry, mam funkcję, która pobiera dane z innego arkusza. Poprzez pętle poprawnie wypełnia 3 wiersze - tutaj nie ma problemu. Chciałbym zrobić żeby każde działanie pętli zmieniało zakres (ten X21:AE21), czyli byłoby X21:AE21, X22:AE22, X23:AE23 oraz ten drugi (AH21: AO21) analogicznie: AH21: AO21, AH22: AO22, AH23:AO23. Da się tu podstawić tą zmienną...
Panowie poniżej kod , który został mi zaproponowany, ja go zmodyfikowałem tylko pod swoje warunku: Option Explicit Private Sub CommandButton1_Click() Dim ws1 As Worksheet, ws3 As Worksheet Dim i&, j&, d&, n$, h&, maxj& Set ws1 = Sheets("Arkusz1") Set ws3 = Sheets("Arkusz3") Range("Tabela1[#All]").Select ws1.ListObjects("Tabela1").Sort.SortFiel...
Wynik help'a: hisilicon # help ? - alias for 'help' base - print or set address offset bootm - boot application image from memory bootp - boot image via network using BOOTP/TFTP protocol cmp - memory compare cp - memory copy crc32 - checksum calculation ddr - ddr training function decjpg - jpgd - decode jpeg picture. ext2load- load binary file from...
[syntax=vbscript]Private Sub CommandButton1_Click() ''''''' Zatwierdzanie'''''''' With Sheets("Arkusz1") Dim n As Long n = .Range("A" & Rows.Count).End(xlUp).Row + 1 For Each tb In Me.Controls If TypeName(tb) = "TextBox" And tb.Value = "" Then tb.Value = "brak" Next .Range("A" & n) = TextBox1 .Range("B" & n) = TextBox2 .Range("C" & n) = TextBox3 .Range("D"...
Private Sub CommandButton2_Click() 'luty Sheets("Godzinówka").Select Sheets("Godzinówka").Copy Before:=Sheets(8) Range("D6").Select ActiveCell.FormulaR1C1 = "2/1/2012" Czesc tego kodu odpwiada skopiowaniu innego arkuszu ok, dlaczego wyskakuje mi blad przy Range("D6").Select ?? Dodano po 17 oki wpisalem Worksheets("Godzinówka (2)"). i poszlo tylko jak...
Jak w tytule . Znalazłem pdf dla teg czujnika ale tam właściwie wszystko oparte jest o funkcje API a ja chcę użyć ten czujnik w bascom . Potrzebuje opis rejestrów .Znalazłem coś takiego , przekonwertowałem i pomiar robi ale to nie jest zadowalające . [syntax=c]#chip mega328p, 16 #option Explicit #include <glcd.h> #include <uno_mega328p.h >...
Trzeba zamknąć... W kodzie przycisku Private Sub CommandButton1_Click() Range("B1") = Frame1.ActiveControl.Caption Unload UserForm1 'to tu End Sub
Do kolorowania całego wiersza użyj kolekcji Rows. A co Ci w tym kodzie nie działa, bo u mnie koloruje?? Private Sub CommandButton1_Click() For Each kom In Range("c9:c1000") If kom.Value = "Nazwisko" Then With Rows(kom.Row).Interior .ColorIndex = 41 .Pattern = xlSolid End With End If Next kom End Sub PS....
Witam Jestem początkujący jeżeli chodzi o VBA ale jakoś na swoje potrzeby coś klecę, dzięki między innymi temu forum. Przeszukiwałem je w poszukiwaniu tego co mnie interesuje ale nie znalazłem albo mi umknęło. O co mi chodzi? Mam zrobionych 50 UserForm'ów które są wyświetlane za pomocą CommandButton'ów z arkusza A1-1. W UserForm'ach wyświetlane są zdjęcia...
Więc wklejam swój kod bo dalej nie dam rady tego rozgryźć rivate Sub CommandButton3_Click() Dim ArkuszDocelowy As Worksheet ' Zmienne do powołań Dim row As Long Dim MaxRow As Integer Dim colStart As Long Dim colEnd As Long ' End Zmienne do powołań Dim tableName As ListObject Dim tableName2 As ListObject Set tableName = Worksheets("DoPowołania"...
Witam, Mam pewien problem z Rc5 w bascomie, chodzi mi o to, że instrukcje odpowiedzialne za rc5 są wykonywane tylko kilka razy a później, kaplica coś się zapycha:) i pilot nie działa. Cała sytuacja ma charakter nieliniowy tzn. że raz wykryje 3 naciśnięcia przycisku na pilocie a raz np. 5. Po zresetowaniu procka znowu RC5 działa przez parę cykli uP....
To nie będzie działać. (at)ElektrodaBot Użyj schmatu z tego kodu Input to odczytany procent tlenu Setpoint 5.5% tlenu Oudput sygnał do serwa Funkcje docount i microseconds oraz rpm nie będą potrzebne w przypadku [syntax=arduino]#include <Servo.h> #include <PID_v1.h> volatile unsigned long MicrosecondsPerRevolution = 0; const unsigned long...
Posiadam serwer zabbixa ip serwera stałe to 109.76.126.137 (w rzeczywistości inne) Klient czyli agent zabbix jest na windowsie, który ma zmienne ip oraz jest to połączenie komórkowe. Moje pytanie brzmi co źle skonfigurowałem w pliku konfiguracyjnym na windowsie? # This is a config file for the Zabbix agent daemon (Windows) # To get more information...
Mógłby być to exel, używam worda z uwagi na to, że łatwiej mi upchać po 3-4 tabelki na stronę :) Chodzi o to, że mam tabelkę z grafikami i chce wydrukować załóżmy na 6 tygodni. To wpisuje datę początkową i automatycznie na kolejnych kartkach wychodzących z drukarki data się zmienia. Excel ma coś takiego jak "wpasuj w stronę" w obcjach wydruku w ustawieniach...
O ile pamiętam, to pytanie już było, ale nie wiem, czy była odpowiedź - może nikt nie wypróbował. Mam kolejną wersję mojego programu - teraz z przyciskiem "Zapisz" - jak program nazywa się np. prost.tk, to zapisuje datę, czas i wszystkie wartości, jakie ma, na plik prost.txt w aktualnym katalogu. #!/usr/bin/env wish set lng pl; set fnt1 "Courier...
content range dynamic range range interface
wyznacza warto rezystor excel format komórki podłączyć głowica magnetofon
przesterowanie wejścia tunera wsady biosu
Błąd F43 w pralce Bosch - przyczyny i rozwiązania Waga wieży Schneider SPP 95 - ile waży?