Witam, problem rozwiązany?
Dzięki za sugestie, ale nie miałem takiej możliwości... dlatego pytam
Jeżeli istnieje możliwość pozbycia się istniejącego bolca (ucięcie flexą, albo wykręcenie), to trzeba się udać do kogoś kto ma gwinty przeciągane i narzędzie do nich (działa to na takiej samej zasadzie jak nity zrywane, z tą różnicą, że w tulejkę z gwintem wkręca się specjalną śrubę, będącą elementem narzędzia)
Tablica, pętla i jazda. Podepnij pod przycisk taki [syntax=vb]Sub rejestracja1() Dim zakres As Variant, i As Integer, ostW As Long zakres = Array("D2", "C4", "C13", "A21", "D48") With Sheets("Spis umów") ostW = .Range("A65536").End(xlUp).Row + 1 For i = 0 To 4 .Cells(ostW, i + 1) = Range(zakres(i)) Next End With End Sub[/syntax]
Trzeba czekać. Zaglądaj na stronę https://www.bleepingcomputer.com/news/se... Czeka Cię duża robota, nie zazdroszczę.
W VBA to może być np. taka funkcja użytkownika wstawiona do modułu: [syntax=vb]Public Function MinBezZera(ByVal zakres As Range) As Variant minVal = zakres.Cells(1).Value For Each c In zakres If c.Value < minVal And c.Value <> 0 Then minVal = c.Value End If Next c If minVal <> Empty Then MinBezZera = minVal Else MinBezZera = CVErr(xlErrNA)...
Najlepiej przygotować "Assembly variant" w grupie Project. Poczytaj w helpie - nie jest to skomplikowane. Żeby użyć wariantów dobrze jest dodać do projektu zbiór "Output Job File"
Na przykład w taki sposób: 878204
Witam, Dla Trunk Group parametr: Private Trunk Group moze byc tylko Tak lub Nie a dla Q931 Signal Variant jedna z opcji wyboru jest m. in QSIG. Czy to juz jednoznacznie okresla, ze mam QSIGa w centrali? Pozdrawiam
testuj [syntax=vb]Sub aaa() Dim pname As Variant Dim file As Variant Dim length As Variant pname = Application.GetOpenFilename( _ filefilter:="Pliki Worda (*.xlsm),*.xlsm", _ Title:="Wybierz plik do importu danych") file = Dir(pname, vbSystem) MsgBox file Path = Left(pname, InStrRev(pname, "\")) Cells(1, 10).Value = Path End Sub[/syntax]
Nie wiem czy ci pomogę bo VB6 używałem ostatnio 18 lat temu, ale szybko patrząc do internetu - używasz mscomm.ocx który ma zdefiniowane api: void SetOutput(const VARIANT& newValue); VARIANT GetOutput(); void SetInput(const VARIANT& newValue); VARIANT GetInput(); https://github.com/lining0806/SCommTest/... Czyli input i output dostaje...
Da się: http://obrazki.elektroda.pl/8027992500_1...
Przy tablicach nie używa się select. A co chcesz potem robić z tą tablicą? Zawsze możesz odwoływać się do komórek arkusza jak do tablicy: For i = 1 To 5 for j = 1 to 5 MsgBox i & ", " & j & " = " & Worksheets("Arkusz1").... j) next j Next i Ewentualnie możesz zapisać dane do zmiennej typu RANGE, do...
Masz niezadeklarowaną zmienną i. Dyrektywa [syntax=vbscript]Option Explicit[/syntax]wymusza konieczność deklarowania wszystkich zmiennych (co jest zalecane, bo łatwiej wtedy kontrolować co się dzieje i czy nie ma literówek w nazwach zmiennych). Bez tej opcji dla nowej niezadeklarowanej zmiennej VBA przyjmuje domyślnie typ Variant i program działa. Lepiej...
Witam W prosty sposób to chyba będzie tak: Sub Makro1() Dim temp As Variant Dim wiersz As Long wiersz = 1 Do While Cells(wiersz, 8) <> "" If Cells(wiersz, 8).Value = 0 Then temp = Cells(wiersz, 10).Value Cells(wiersz, 15) = temp wiersz = wiersz + 1 Else wiersz = wiersz + 1 End If Loop End Sub
[syntax=vb] Sub ImportFromWeb() Dim FullName As String, ImpName As String, DataRange As Variant, NumRows As Long, NumCols As Long FullName = Range("fullname").Value Workbooks.Open Filename:=FullName DataRange = ActiveCell.CurrentRegion.Value NumRows = UBound(DataRange) NumCols = UBound(DataRange, 2) ImpName = Application.ActiveWorkbook.Name ThisWorkbook.Activate...
Mam problem z procedurą CzytajCiagZnakow. Function CzytajCiagZnakow() As Variant Dim Wyraz As Variant Dim Linia As String Dim TabLinia As Variant Dim TabWyrazy() As String Dim i As Integer, j As Integer Wyraz = "" i = 0 j = 1000 ReDim TabWyrazy(j) Do Until EOF(1) = True Input #1, Linia TabLinia = Split(Linia)...
Powstał błąd 1004 (Method 'This Workbook' of Object '_Global' failed) w linii: Tablica = ThisWorkbook.Worksheets(1).Range("O4:O36... Przerabialiśmy to już [url=http://www.elektroda.pl/rtvforum/to... Nie używaj zmiennej tablicowej, a "zwykłą" Variant.
Ciagle mialem blad "Package variant already defined"... zapominalem zmienic nazwy nowego footprinta.. dzieki bardzo za tak szczegolowy opis! ps. Wczesniej tworzylem elementy w Eaglu ale nigdy z multipackage... Twoj opis zrozumie nawet ktos kto nigdy nie uzywal Eagla :)
Dodano po 3 Jak w dowolnym arkuszu nie będzie pozycją "Wartosc", błąd występuje Dodano po 4 wtedy[syntax=vb]Sub test2() Dim naglowek As Variant Dim lastrow As Long For Each sh In ThisWorkbook.Sheets With sh Set naglowek = .Rows(1).Find(what:="Wartosc", LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False) If Not naglowek Is Nothing Then col = naglowek.Column...
Plikow nie da sie odszyfrowac. Na przyszlosc nie infekuj systemu i rob regularne kopie danych! https://www.bleepingcomputer.com/news/se...
Witam! Pisze program do obsługi kamery na fire-wire, wszystko opiera się na tej bibliotece: http://www.alliedvisiontec.com/avt-produ... w chwili obecnej stoję przed problemem polegającym na tym, że muszę poznać poszczególne składowe RGB piksela i rzecz tą robi się przy użyciu metody GetRGBPixel(x,y) gdzie x i y to współrzędne...
Aby usunąć wiele kolumn w VBA na podstawie nazw nagłówków, możesz użyć poniższego kodu. Ten kod przeszukuje wiersz nagłówka (w tym przypadku wiersz 1) i usuwa kolumny, które pasują do określonych nazw nagłówków. Sub UsunKolumny() Dim Naglowki As Variant Dim Naglowek As Variant Dim Kolumna As Range ' Określ nazwy nagłówków do usunięcia Naglowki = Array("Naglowek1",...
jaki błąd? co ci kompilator mówi? otwierałeś port? wygląda, że się zagalopowałem ;)) (no body's perfect) Property Output As Variant Member of MSCommLib.MSComm Writes a string of characters to the transmit buffer. czyli wysyła ciąg znaków.. Dim a As String a = 1 MSComm1.PortOpen = True MSComm1.Output = a '1 jako znak, a nie liczba MSComm1.PortOpen =...
robię jeszcze sporo błedów To nie błąd, to niedopatrzenie, błędem by było, gdyby były tam operacje na kolumnach w prawo, a nie na jednej w dół. te 001 jeszce pracuję nad tym Zerknij na to, na konstrukcję Select Case i dopasuj sobie: [syntax=vba] Private Sub txtNrOferty_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim Oferta As String, idOF As String,...
Dzięki wielkie! Takie rozwiązanie mnie w pełni zadowala, bo generuje to właśnie skryptem VBA i wyświetlam jako WebBrowser. Wystarczyło kilka dodatkowych linijek kodu. Nie sądziłem, że ten obiekt ma aż tyle możliwości. [syntax=vb]Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData...
[syntax=vb]Sub Porownanie() Dim data As Variant Dim data2 As Variant Dim i As Long Dim countDict As Variant Dim category As Variant Dim value As Variant Dim category2 As Variant Dim value2 As Variant Set countDict = CreateObject("Scripting.Dictionary") data = ActiveSheet.UsedRange 'dane w skoroszycie 'Populate the dictionary: key = category / Item =...
Popatrz, jak działa ta pętla np. dla pierwszego "i": jeżeli Twoja wartość będzie na końcu zakresu "y", to najpierw wiersz "i" usuniesz 119x, a dopiero na końcu przerwiesz pętlę... Bez sensu, prawda? Zamiast tego możesz wprowadzić następującą poprawkę: [syntax=vb]Private Sub CommandButton1_Click() Dim zakres As Variant, i As Integer, y As Variant, wier...
Spróbuj raczej kodu :spoko: typu: [syntax=vbscript]Public Sub wysz() Dim FindCell As Range Dim LastRow As Variant Dim y As Long Dim WData As Variant WData = Format(Date, "yyyy-mm") Range("F:F").Select Set FindCell = Selection.Find(What:=WData, After:=ActiveCell, LookIn:=xlValues, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=...
Ad #1 - zmienna "odp" będzie typu Variant w podtypie odpowiednim do liczby w komórce zawsze Integer - w zależności od wciśnięty przycisk komunikatu MsgBox Constant Value Description vbOK 1 OK button pressed vbCancel 2 Cancel button pressed vbAbort 3 Abort button pressed vbRetry 4 Retry button pressed vbIgnore 5 Ignore button pressed vbYes 6 Yes button...
Ale to jakieś skandynawskie te daty. Z kropkami. Makra dla Worda piszę baaardzo rzadko, więc takie prymitywne wyszło, ale działa... [syntax=vbscript]Sub Makro1() Dim lista() As Variant With ActiveDocument.Tables(1) 'wpisujemy do tablicy daty z 4-tej kolumny idx = 2 For i = 2 To .Rows.Count test = .Cell(i, 4) If Len(test) > 10 Then ReDim Preserve lista(idx)...
Makro poniżej przesuwa nazwiska w prawo o wartość numeru grupy+1, a następnie usuwa puste komórki w obszarze danych. Nazwiska nie są posortowane. Jeżeli jest potrzeba. sortowania to na początku makra dopisać sortowanie.[syntax=vbscript]Sub Przepisz_Nazwiska() Dim Tab_Opis As Variant With ActiveSheet Tab_Opis = Array("Grupa 1", "Grupa 2", "Grupa 3",...
variant: contur aft or bad value in eeprom genaservicetv(at)land.ru gena migal.lviv.ukraine
The last variant :-( Try this: Activate CSM Use one of the following methods: • Press the “MUTE” button on the RC-transmitter simultaneously with any key on the TV for at least 4 seconds. • Key in the code “123654” via the standard RC transmitter. Contents of CSM The following information is displayed on screen: •...
Przypisujesz wartości tablicy jako łańcuchy (cudzysłowy) a nie liczby. Z tymi If-Else pewnie działa, ale jakoś tak zagmatwane... Polecenie opuszczenia pętli (Exit For) po mojemu jest niepotrzebne. Sub Macro1() 'deklaracje tablic grup POTS,DSL,inne dopisać Dim POTS(1 To 2) As Variant POTS(1) = 0.2 POTS(2) = 0.3 Dim DSL(1...
To mam pod variant coding , czyli w SD jest jeszcze inna opcja?
Proponuję takie proste makro:[syntax=vbscript]Sub Przenoszenie() Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Worksheets("Arkusz1") Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Worksheets("Arkusz2") Dim tbl As Variant Dim lr As Long tbl = ws1.[e5:z5] With ws2 lr = .Cells(.Rows.Count, 3).End(xlUp).Row + 1 .Cells(lr, 3) = .Cells(lr - 1, 3).Value + 1 .Cells(lr,...
Zaślepić wyjścia przewodów jak (np stare zaklepane przewody - tylko przed zaklepaniem odpowietrzyć). Jak na nich pedał będzie wpadał to wina pompy. Można też selektywnie zaślepiać wyjścia by znaleźć to które powoduje problem. PS Pompa ABS była uruchamiana w celu odpowietrzenia? (Procedura komputerem).
Wczytuje dane ze wszystkich plików tekstowych znajdujących się w tym samym katalogu, co plik Excela: [syntax=vb] Sub ddd() Dim wiersz As Integer Dim wielkosc As Integer Dim lInputFile As Variant Dim linia As String Dim i As Integer Dim tekst As Variant Dim opis As String wiersz = 1 Dim plik_txt As String plik_txt = Dir(ActiveWorkbook.Path & "\*.txt")...
zgodnie z wcześniejszym zamysłem =ciagi (zakres,krotnosc, 0 lub 1 - przelacznik ilosc lub adresy) w przypadku przelacznika 0 wystarczy wpisac formule i nacisnac enter i pojawi sie ilosc, zas dla przelacznika 1 jest to tablica wiec trzeba zaznaczyc jakis zakres komorek, wpisac formule i ctrl+shift+enter (wtedy wpisze sie w nawiasach klamrowych i odczyta...
co robię źle ... Np.: brak deklaracji zmiennych "ostw" i "ostw2", jak również deklaracje innych nie wiedzieć czemu "variant", Np.: ... ostw = Worksheets("DANE").Cells(Rows.Count, "B").End(xlUp).Row ostw2 = Worksheets("LOG").Cells(Rows.Count, "B").End(xlUp).Row Zapis " Rows.Count " odnosi się do bieżąco aktywnego arkusza, a nie do arkusza "DANE", czy...
Prosty przykład: chciałbym zdefiniować własny kondensator elektrolityczny, symbol będzie ogólny, ale obudowy już mogą być różne, do wyboru. Zdefiniowałem nowy symbol, kilka nowych typów obudowy, ale gdy definiuję element mogę podać tylko jeden typ obudowy, przy próbie dodania kolejnego (jest taka opcja w menu) mam miły komunikat: Package variant already...
Znalezione w Internecie - wiarygodne info od producenta jakiegoś akcesorium na USB: For the past 16 months, Grabba has provided attachments for the Samsung Galaxy Xcover3, model number SM-388F and supporting Android 5.0 (Lollypop). Recently, Samsung released a variant of that model, the Samsung Galaxy Xcover3 Value Edition (VE), model number SM-399F...
czyli o ile dobrze myślę, to tutaj bym wartość miał nie zwracaną bezpośrednio przez funkcję, ale musiałbym podać "wskaźnik" do zmiennej w argumencie funkcji i moja funkcja zapisze wartość do tej zmiennej. A sama funkcja mogła by zwracać swój stan 0 - udało się wykonać funckję prawidłowo; 1 - "jakiś tam błąd". Ale to jest proste do zrobienia. Najpierw...
Ja sprzedałem golfa 6 varianta 2012 rok za 9 tysi. Do wymiany progi były . Wersja z klimatroniciem czujnikami przód tył , dużym radiem , przebieg 240 tysi . Zamiast wymieniać próg walnisz piankę i będzie elegancko . Ludzie lubią sami siebie oszukiwać . Po raz wtóry pisze że jeśli tak wygląda od zewnątrz to w środku jest już masakra . Argumenty że jeździł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...
Trzeba sobie radzić inaczej, Np przy pomocy funkcji Dir. Pierwszy, lepszy znaleziony przykład funkcji z wywołaniem.[syntax=vb]Sub testit() myvar = FileList("C:\users\adam\") If TypeName(myvar) <> "Boolean" Then For i = LBound(myvar) To UBound(myvar) Debug.Print myvar(i) Next Else MsgBox "No files found" End If End Sub Function FileList(fldr As...
Pewnie myślisz kolego o przegubie i jego specyficznym klekotaniu. Otóż nie. Stuka przy jeździe na wprost i podczas skrętów także. Wrażenie trochę jak przy sworzniach wahaczy. Ale to nie one.
Sprawdź czy dobrze - Bo nie wiem czy dobrze zrozumiałem. A poprawiałem kod "czysto" matematycznie bez większego rozumienia - minęło 3, roku Dane i przycisk dla "nowego" makra w Arkusz2 [syntax=vbnet]Sub Dostosuj2() Dim lista As Variant, ileWrs As Integer, idx As Integer Dim OstW As Long, tbl() As Variant, i As Long, j As Integer Dim Unikaty1 As New...
Przetestuj kod: [syntax=vb]Sub uzupelnij() Dim shSrc As Excel.Worksheet Dim shDest As Excel.Worksheet Dim lLstRwSrc& Dim rngTmp As Excel.Range Dim colUniq As Collection Dim vBox As Variant Set colUniq = New Collection Set shSrc = Sheets("baza") Set shDest = Sheets("PRE-ALERT") With shSrc lLstRwSrc = .Cells(Rows.Count, 1).End(xlUp).Row Set rngTmp = Range(.Cells(2,...
Witam, Potrzebuję makro, które po wpisaniu wartości w kolumnie A, wstawi wartości w tym samym wierszu w kolumnach B, C, D, E w oparciu o bazę w innym pliku, nazwijmy go "głównym". Ma to działać analogicznie do wyszukaj pionowo, ale odwoływać się do tablicy w innym pliku (makro otwiera plik główny, zaciąga dane i zamyka plik główny). Nie ma działać w...
Spróbuj tak [syntax=vbscript]Private Sub Test_Click() Dim zakresy As Variant, z As Integer, zakres As Range, kom As Range zakresy = Array("AQ16:AQ22", "AQ26:AQ30", "AQ37:AQ39") Sheets("Klient").Range("A18:H32").ClearC... poz = 18 'For w = 18 To 79 For z = 0 To UBound(zakresy) Set zakres = Sheets("Wycena").Range(zakresy(z)) For Each kom In zakres...
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...
Gdzieś widziałem przykład wykorzystujący funkcję API SendMessage . Ale jak to z API na różnych maszynach może być różnie. Popatrz na taki przykład Dim temp1 As String Dim temp2 As String Sub Makro() temp1 = Cells(1, 1).Value ' zapamiętanie starej wartości dla Undo Cells(1, 1) = "coś" ' wpisanie nowej wartości do komórki...
Ok, to z tym myślę, że sobie poradzisz (a jeżeli coś by nie szło to śmiało pisz). Co do wyszukiwania to masz dwie opcje: - użyć wbudowanej funkcji VLookup (tak jak w formułach) - napisać swoje wyszukiwanie Oczywiście pierwsza opcja wydaje się bardziej sensowna :). Użycie tego w makro jest bardzo proste. Tutaj masz przykładową implementację - spróbuj...
Makro ma pozwolić na przeliczenie danych z np. 20-30 osobnych plików, które mają dane zawsze w zakresie A1:U100. W pliku TESTY wklejamy do zakładki DATA dane skopiowane z otwartego pliku, następnie w zakładce REPORT w komórkach AE4:AE15, mam wybrane dane po przeliczeniach, które kopiuję do kolejnej zakładki ZBIORECZE WYNIKI. Kolejne pliki są przeliczne...
Ok, spróbuję tego za chwilę. Oczywisty błąd, więc na razie działa: Run actions/upload-artifact(at)v4 Multiple search paths detected. Calculating the least common ancestor of all paths The least common ancestor is /home/runner/work/OpenBK7231T_App/OpenBK... This will be the root directory of the artifact With the...
Usunąłem prawie wszystkie trunki, został mi jeden, którego za groma nie mogę usunąć. Po wejściu mam takie ustawienia: Trunk Group Type + T0 Trunk Group Name : Extern 3 Number Compatible With : 0 Remote Network : 15 Shared Trunk Group + False Special Services + Nothing Node number : 3 Transcom Trunk Group + False Auto.reserv.by Attendant + False Overflow...
Przepuść przez Google translatora ;) chyba że znasz angielski ;) Main data ParameterValue VINVF38DRHF8BL099173 BrandPEUGEOT Vehicle characteristics ParameterValue Vehicle family508 AS/RP N°12793 CJ 1 0637 Warranty Start Date05/03/2012 Engine serial number10 DYZA 4002822 BERe2*2007/46*0080*04 P4A9691274299 TRIM LEVELHIGH MEDIUM PLUS PAINT TYPEMETALLIC...
Skoro masz takie wariacje wpisów jak podałeś w formule (w sumie nie ma się co dziwić przy ręcznym wpisywaniu inwencja twórcza wpisujących nie zna granic), to spróbuj wyrażeń regularnych: [syntax=vb]Sub kody_RegEXP() Dim lLstRw& Dim i& Dim sCol$ 'kolumna z danymi sCol = "H" With ActiveSheet lLstRw = .Cells(Rows.Count, sCol).End(xlUp).Row For i = 2 To...
Sub bold() Dim podzial As Variant ostatni_wiersz = Cells(Rows.Count, "A").End(xlUp).Row For i = 1 To ostatni_wiersz Cells(i, 1).Select petla: If ActiveCell.Font.bold = False Then ActiveCell.EntireRow.Delete If ActiveCell = "" Then GoTo koniec GoTo petla End If Next i koniec: ostatni_wiersz2...
Tak, tak rozumiem tylko jak to sie mówi: " A u mnie to działa normalnie " ciekawe od czego to zależy... ?hmm Niestety Excel to wredny typ. Pusta komórka czasem nie jest pusta a tego nie widać i wiele innych podstępów Micro$hita ... potestuje u mnie jeszcze i dam Ci znać jak coś wyknuje jeszcze Pozdrawiam .... a rzeczywiście .... zwielokrotniłem twoje...
Przeanalizuj, dopasuj: [syntax=vb] Sub nnn() Dim a As Variant Dim i As Integer i = 1 For Each a In Worksheets If a.Name <> "Sheet1" Then Worksheets("Sheet1").Range("A" & i).Value = a.Range("A1").Value i = i + 1 End If Next End Sub [/syntax]
Funkcja Find nie jest niestety zbyt efektywna przy dużej ilości danych... Kiedy mogę, zastępuję ją funkcją Match, ale jest też jeszcze jedno, efektywniejsze podejście: zapisanie zakresu do tablicy i przeszukiwanie (już w pamięci) tejże. Zobacz przykłady [url=http://fastexcel.wordpress.com/2011...
problemem jest to ze data wyswietlana w listbox jest w amerykanskim formacie Bez obrazy, ale stwierdzam, że "leń patentowany" jesteś ... :-) ... "Rozwiązanie" masz pod nosem i sam się w pewnym sensie nim posługiwałeś. Właściwość " List " ... dlaczego nie sprawdziłeś składni tej właściwości ? " object.List(row, column) " Gdybyś zerknął w pomoc podręczną,...
witam tez mam małe pytanko co do tych diody od świec żarowych otóż mam passata 1,9 tdi z 1998 variant kombi b 5 i wymieniałem trójnik od wody (tam gdzie jest czyjnik temperatury ) przy bloku i niestety teraz po wymianie po jakiś 30 sekundach bez wzgledy czy siilnik działa czy nie przy przekreconych kluczykach zaczyna migac dioda od podgrzewania czy...
efekt taki sam, sens też ten sam, bo to przecież musi być instrukcja warunkowa, ale inna składnia, "If e.KeyChar = Chr(13)" tu wywalał błąd :( Dodano po 3 Już mam. [syntax=vb] Private Sub WebBrowser1_DocumentComplete (ByVal pDisp As Object, URL As Variant) Combo1.Text = URL '??? Form1.Caption = WebBrowser1.LocationName Combo1.AddItem URL '??? End Sub...
[syntax=vb]Sub sciezki() Dim sciezka As Variant 'opcja1 - na tablicy sciezka = "c:\moje dokumenty\wiesiek\plik 123.xlsx" sciezka = Split(sciezka, "\") nazwa = sciezka(UBound(sciezka)) ReDim Preserve sciezka(UBound(sciezka) - 1) 'obcinamy ostatnią część tablicy sciezka = Join(sciezka, "\") 'kleimy na nowo MsgBox nazwa MsgBox sciezka 'opcja2 - na pozycji...
i chciałbym go podzielić na mniejsze pliki według kolumny A Zacznij od znalezienia unikatowych wartości z kolumny A bo musisz mieć podstawę do sprawdzania [syntax=vb]Sub FindUniqInColumn(ByVal col As Byte, ByRef items As Collection) Dim i As Integer Dim cnt As Integer Excel.ActiveSheet.Columns(col).Copy Columns(250) Excel.ActiveSheet.Columns(250).RemoveDup...
Ojej, zapomniałem o Tobie... Coś tam szybko naskrobałem. Będzie od czego się odbić. Wklej do modułu i wypróbuj [syntax=vb]Option Explicit Option Base 1 Sub ListaZb() Dim rowDst(1 To 3) As Long, r As Long Dim i As Integer, j As Integer, ark As Integer Dim rngSrc As Variant, arkusze As Variant rngSrc = Array("Tabela711", "Tabela7112", "Tabela71124") arkusze...
Cześć. Mam problem ponieważ nie działa mi kopiowanie zakresu z innego workbooka i wklejenie go do aktywnego workbooka. Cały wcześniejszy kod działa dobrze więc wychodzi na to że z tym jest jakiś problem. To wycinek kodu: [syntax=vbscript]Sub first() Dim wbA As Workbook Dim wsB As Worksheet Dim file As Variant Dim lastRow As Long Dim a As Variant file...
jezeli to jest variant to jak sama nazwa mowi moze dochodzic do takich wariacji. Wymien poduchy na jaski! A moze jeszcze silnik 1.8 ooooooo, to juz kaplica. Zglos sie do huty Katowice - dobry material na żyletki, dużo wyjdzie ale czy ostre?????????
Ojej! Ale najważniejsze, że próbujesz ;) Przy okazji: wklejając kod, umieść go pomiędzy znacznikami Syntax (opcja listing kodu) Poniżej przykład oparty o 'Dir'. Przeanalizuj, dostosuj do własnych potrzeb [syntax=vb]Sub Find_Id() Dim strPath As String, wb As String Dim ostWrs As Long, i As Long, test As Variant strPath = ThisWorkbook.Path 'jeśli w tym...
Tu poprawiony kod (bo ja z kolei wszędzie dałem Wszystkie) [syntax=vb]Private Sub filtruj(knyps As Boolean) Dim ark As Worksheet, ostW As Long, i As Long Dim etat As String, firma As String, szef As String, kopalnia As String, wie As Variant Set ark = Sheets("Anketa") wie = TextBox6 Application.ScreenUpdating = False ' ark.Unprotect Password:=haslo...
1. Procedury zdarzeniowe, takie jak ta poniżej: 877962
Ad 1) ... Nie mogę podłączyć się do bazy mdb. jak poniżej... ? hmm ... to można deklarować zmienną obiektową jako Variant ? CreateObject Function - Creates and returns a reference to an ActiveX object oraz https://msdn.microsoft.com/en-us/library... Ad 2) 2. Aha i pod excela działa. Na pewno ? Z taką deklaracją zmiennej ?
No cóż kolego Adamas. Wywołałeś lekką polemikę, a że temat jest ciekawy myślę, że warto (w ramach wymiany doświadczeń). :D Nie to, że chcę się kłócić lub udowadniać przewagę jednego operatora nad drugim, ale nie do końca się z Tobą zgadzam. Przytoczony przez Ciebie cytat (pobrany zapewne z help-a) jest niepełny. Ale o tym później. Nie ma żadnego logicznego...
Witam. Samochód VW Golf Variant 7 Comfortline 2015 Wyposażenie - automatyczny przełącznik świateł dziennych na mijania i odwrotnie. Do jazdy na dziennej jak i jako światła pozycyjne używane są te same żarówki Philips 24W nr OE: N10776301 Pytanie: Czy moc świetlna jest taka sama niezależnie od rodzaju włączonego oświetlenia? Wzrokowo nie zauważyłem różnicy....
... było pieknie, ładnie dopóki był "Maj", a teraz jesrt "Czerwiec" a mi sie log uzupełnia znowu na maj... Ale jest pięknie ... dość ładna pogoda przecież ... :) ... przynajmniej w Polsce Wschodnio-Środkowej-Północnej ... :) ... no i na Karaibach oczywiście ... : Form ' - i wtedy sprawdzanie byłoby podwójne: i po miesiącu wpisanym w arkuszu ' log '...
Witam, Mam przekształtnik tyrystorowy do sterowania silnikiem 48VDC obcowzbudnym. Jest to sterownik Curtis 1244. Silnik o mocy 4kW. Kluczowanie PWM tego sterownika to 16kHz. Muszę również zmierzyć zewnętrznym urządzeniem prąd pobierany przez silnik, i tu pojawia się problem. Zacząłem szukać przetworników LEM które obsługują prądy AC i DC i jest problem...
Cześć, Chce skopiować dane z 2 plików Excel do 3. Znam ścieżkę plików ale nazwy będą miały tylko znaną podstawę - reszta będzie zmienna. Poniższy kod otwiera 2 pliki ale za nic nie potrafię dopisać kopiowania danych do 3 pliku. Wystarczy mi jakiś przykład rozwiązania, potem sobie poradzę. Proszę o pomoc. [syntax=vbscript]Sub Kopiuj3do1() Dim Nazwa1...
[syntax=vbnet]Sub PrzeladujDane() Dim dateFrom As String Dim dateTo As String Dim zmiana As String Worksheets(1).Select dateFrom = Range("C1").Value dateTo = Range("E1").Value zmiana = Range("B2").Value Call TransakcjeZaZakres(dateFrom, dateTo, zmiana) Worksheets(1).Select End Sub Public Function BetweenDates(startDate As String, endDate As String,...
Dzięki serdeczne (at)marcinj12 za natychmiastową pomoc :) Jednak nie rozumiem tej części: [syntax=vb]konto1_tab = Split(.Cells(i, 5).Value, ".") For k = 0 To UBound(konto1_tab) arkO.Cells(2 * i - 17, 3).Value = konto1_tab(k) Next k konto2_tab = Split(.Cells(i, 9).Value, ".") For k = 0 To UBound(konto2_tab) arkO.Cells(2 * i - 16, 3).Value Next k[/syntax]...
Witam Mam problem z zapisywaniem pliku przez makro. Okienko sie otwiera zapisz jako nazwa pliku sie zgadza ale jak kliknę na zapisz to okienko się zamyka i nic sie nie dzieje dalej jestem w pliku źródłowym ze starą nazwą. Pracuje na EXCELu 2010 sciezka = ThisWorkbook.Path & "\" Dim ZapiszJako As Variant Dim nazwa As String nazwa = Range("C2").Value...
Przetestuj poniższy kod. Założenia: - dane wejściowe są analizowane od drugiego wiersza kolumny A - dane wyjściowe będą od pierwszego wiersza kolumny C - szukamy ciągu FKxxxx (gdzie: xxxx - cyfry) bez spacji. Jeżeli pomiędzy FK a cyframi wystąpi spacja to taki ciąg nie będzie brany pod uwagę. [syntax=vb]Sub kody_RegEXP() Dim lLstRw& Dim i& 'od...
Witam Od dwóch dni męczę się nad połączeniem dwóch plików excela, konkretnie chodzi o pobieranie danych do komórki (A1) w pliku 'wynik.xls' z: (A1) w pliku 'dane.xls' Przeszukałem wszystko i nigdzie nie znalazłem szczegółowej instrukcji jak to zrobić. Wiem jedynie że trzeba użyć do tego celu Visual Basic i prawdopodobnie użyć poniższy kod, ale że nie...
Main data ParameterValue VINVF3GBWJYB96025025 BrandPEUGEOT Permanent linkhttps://carinfo.kiev.ua/cars/vin/peu... Vehicle characteristics ParameterValue Vehicle familyPARTNER VU (M59) AS/RP N°09606 FV 1 0837 Warranty Start Date20/03/2003 Engine serial number10 DXEU 6014586 TRIM LEVELLEVEL 1 PAINT TYPEMETALLIC PAINTWORK BODY...
Rozwiązanie w VBA (Kod uruchamiany przez np. makro): Kolumna 1 (A) od wiersza 1 do 20 (możesz to zmienić w pętli for) [syntax=vb]Public Sub Makro_Proste() Dim i As Integer Dim wartosc As Variant wartosc = 0 For i = 1 To 20 If Worksheets("Arkusz1").Cells(i, 1).Value = "" Then Worksheets("Arkusz1").Cells(i, 1).Value = wartosc Else wartosc = Worksheets("Arkusz1").Cells(i,...
Witam, Przygotowuje narzędzie dzięki któremu druga osoba będzie mogła w prosty sposób dodać albo usunąć dane z arkusza. Dodawanie jest proste, gorzej z usuwaniem Stworzyłem UserForm a w nim TextBox1 gdzie użytkownik wpisuje wartość, którą chce usunąć. Po wpisaniu tej wartości w ListBox1 wyświetla się ta wartość lub sugeruje odpowiedź. Przykład: Użytkownik...
No to trzeba było od razu... Najprościej (znooowuuu) zbić string z dwóch (lub więcej - aż do uzyskania unikatów) kolumn. W przykładzie (dostosuj do swoich danych) D, wykrzyknik i C zapisywane w kolumnie K.[syntax=vb]Sub SortE() Dim wrsOst As Long Dim rw As Long Dim lista() As Variant Dim poz As Integer Dim i As Long, j As Long Dim ile As Integer Dim...
Bezpieczniki będą okej,dołóż masę do skrzyni z akumulatora jak to nie pomoże to wyciagaj rozrusznik w b6 nagminnie siadają . Dla pewności poproś kogoś o pomoc , przyłóż probówkę do cienkiego przewodu na rozruszniku są dwa jeden gruby to stały + drugi cienki to + po zapłonie w momencie kręcenia na tym cienkim ma być 12v jeśli jest to wyciagaj rozrusznik...
1. Deklarujesz tablicę: [syntax=vb] Dim oTabela(1 To 2, 2 To 3) As Variant [/syntax] 2. Pobierasz dane do tablicy: [syntax=vb] For i = 1 To 2 For j = 2 To 3 oTabela(i, j) = ActiveSheet.Cells(j, i).Value Next Next [/syntax]
... Udao mi si kopiowanie, do pierwszej sumy 20, ale wyrzuca mi Excela jak ma otworzyć nowego Excela :( Pytania / uwagi: [syntax=vba] Sub Kopiuj_wklej_jeśli_20_1() Dim a As Variant 'dlaczego Variant ? Dim p As Long 'dlaczego Long ? Dim n As Variant 'dlaczego Variant ? 'gdzie Suma As CośTam ? '... Windows("Truck.xls").Activate 'po co - nie jest może...
Cześć, Nie wiem czy dobre forum. próbuje ułatwić sobie troszkę życie ;) Potrzebuje aby Excel (skoroszyt binarny) za pomocą makra tworzył nowy folder wg daty zawartej w komórce. Napisałem coś takiego ale nie działa, ktoś podpowie co zmienić? Sub StworzFolder() Dim FullPath As String Dim PATH As Variant Dim Folder As String Dim i As Integer FullPath =...
Tak jak kolega Aldrin zauważył błędnie były nazwy kolumn w stosunku do zwracanych danych. Ja powiększyłem iolość kolumn tak by i "uwagi" były widoczne. Dodatkowo zmieniłem opis (i wyliczenia) do drugiej kolumny by pokazywało liczbę porządkowa danego arkusza a nie wiersz. Wg mnie jest to logiczniejsze w razie wydruków list. Również nie ingerowałem w...
mam problem z nokia 500 nie moge softa wgrać ciągle mi wyskakuje to PLEASE PRESS PHONE`S POWER BUTTON CMT Hash : 3AB5DB70B45D23F1ADEEBB5734160706 CMT Hw ID: 400C192103032108 CMT Boot ROM CRC: 2CAC45E2 CMT Secure ROM CRC: 3BC33C8B CMT Public Id: 0E700000FFFF3C406D4055C49BA444AC4682727F Preparing bootstrap to use USB BootMedia Sending RAW 2ND Sending...
Witam napisałem makro które po wpisaniu w kolumnie F wartości "t" przekopiuje do zakładki "Szablon Zbyszek" wartość komórki z tego samego wiersza z kolumny B W zakładce "Szablon Zbyszek" są funkcje wyszukaj pionowo które pobierają dane z pierwszej zakładki. Nie wiem czemu mimo zastosowanych warunków IF makro to zapętla się i cały czas wyskakuje mi komunikat...
Wzorowałem się na pliku z dwoma zmiennymi, który działa idealnie. Dodałem trzecią zmienną i wszystko się posypało Zwróć uwagę, że: 1. W pliku "wzorcowym" istniejące tam dwa warunki działają "na krzyż", tzn., że jeśli jeden z nich = "Wszystkie", to sprawdź wartość drugiego i jeśli ten jest inny jak "Wszystkie" to wykonaj kryteria przypisane do tego...
Martech Box III - update V0.1.2.3024 Martech RCD AMS - many new functions for RNS 510 activation Today very big update for RNS 510 activation. The most important new functions are: - totaly new interface and usage - new HW/SW full support - many new functions, options - vag coding Interface: now tool is divided in Normal / Test Mode, you can read all...
Zrobiłem funkcję, która wyszukuje wartość "150" i jeśli znajdzie taką wartość, to zapisuje dane do tablicy dwuwymiarowej w zakresie st do kc. Podczas uruchamiania wywala mi błąd Run-time error "9" w linii [syntax=vbscript] tablica(7, k) = wart[/syntax]. Jak zrobię mniejszy zakres pętli to jest ok. [syntax=vbscript] Sub Tace2() ' liczy tace Dim tablica(1...
stacja variant class variant variant empty
heterodyna niestabilnie dioda kondensator przekaźnik skaner skanuje
claas variant romet instrukcja
Wzrost ciśnienia w CO po otwarciu zaworu CWU - przyczyny i rozwiązania Kontrolki wymiany klocków hamulcowych Mercedes W213
