Spróbuj [syntax=vb] Sub mySplit() Dim bs As Range, mar() As String Dim r&, i&, n&, x$, xx$ Dim p&, pd&, ps&, pw&, lmi&, pn&, px&, pf&, pe&, sl& Const dig = "0123456789" Set bs = Sheets("dane").Range("b:g") r = 2 While bs(r, 1) <>...
To tylko kwestia dopasowania, metoda "prawie" identyczna dla obu przypadków. [syntax=vbscript]Option Compare Text Option Explicit Sub Proba() Dim katalog As String, plik As String, linia As String Dim licznik As Long, ko As Integer, startuj As Integer Dim tabela As Variant, i As Long katalog...
Makro jest w załączonym pliku. Tu z drobnymi zmianami: w makro są dwie pary tablic: zasady i wyjątki, czyli następne wystarczy dopisywać. Niżej sprawdzane jeszcze 3 warunki (liczba po znaku, minus po znaku i liczba na początku akapitu). [syntax=vb]Sub proba() Dim rCo As Variant, rNa As Variant, tekst...
Czyżby taki prosty błąd?[syntax=vb] For i = 3 To ostWrs If (InStr(1, etat, "| " & .Cells(i, 5) & " |") > 0 Or .Cells(i, 5) Like etat) And _ (InStr(1, firma, "| " & .Cells(i, 9) & " |") > 0 Or .Cells(i, 9) Like firma) And _ (InStr(1, szef, "| " & .Cells(i, 10) & " |")...
Witam, Mam dość prostą własną funkcję (w komórkach A1:A5000), która zastępuje mi albo 1 rozbudowaną funkcję w funkcji excela albo 3 funkcje (w komórkach A1:C5000). Problem jest taki, że teraz za każdym razem mi się przelicza. Jak puszczam makro, to chyba z 5-10 razy przelicza mi się ta funkcja ( co...
Nie wiem jak masz poukładane dane Założyłem że dane są w pierwszym arkuszu w kolumnie A Proszę przykład. Nie wprowadzałem zwrotu cyfr dpo arkusza bo jak wspomniałem nie wiem gdzie to zwrócić. Mam nadzieję że dasz sobię radę. Sub rozdziel() ilewierszy = Sheets(1).Range("A1&quo...
I właśnie tego się obawiałem że "można będzie zmienić" np na 9 "Filtr" zaproponowany przez kolege adamasa przy takiej konstrukcji trzeba by było poważnie rozbudowywać (np. do 8 Case z 9 przypadkami w każdym dla danej grupy) Proponuje trochę inne rozwiązanie (Mam nadzieje że zagra bo ponieważ nie...
Podobnie jak w moim przypadku, otworzyło nowy plik jednak bez wygenerowanej listy. Na screenie pokazuje mi gdzie jest błąd: ...jednak muszę jeszcze dodać że generowanie listy nie kończy się tylko na tym kodzie który dałem w temacie. Jest tam jeszcze linijka: ...a to jeszcze kod samego...
W miarę odporne na zmienna strukturę pliku wejściowego: Dodano po 18 Zmien OR na: If p > 0 And d > 0 Then Dodano po 5 Masz z opisem, to będziesz w stanie sam poprzerabiać: [syntax=vb]Sub WczytajPlik() plik = "C:\Plik.txt" Open plik For Input As #1 Sheets("Arkusz1").Select Line...
Zacznij od początku jeszcze raz bo coś za dużo usunąłeś z kodu (nie mam jak ci podesłać bo w pracy mam 2010 i rozwala mi plik) między tymi linjami kodu wprowadź warunek If IsNumeric(fragment2) Then fragment2 = "" kod = fragment1 & fragment2 Czyli ma wyglądać tak: ...
[syntax=vb] Sub SzukajCiagu() Dim x As Long, y As Long, z As Long, SzukaneSlowo As String x = 1 z = 1 Sheets("PrzeszukiwanyArkusz").Select ... Cells(x, 1) <> "" y = 1 While Sheets("ListaSlow").Cells(y, 1) <> "" SzukaneSlowo = Sheets("ListaSlow").Cells(y, 1) ...
Witam, dopiero zaczynam moją przygodę z Excelem - nie jestem informatykiem, nie mam wykształcenia ścisłego - także proszę o wyrozumiałość w razie czego ;) Chciałem uzyskać zapis kwoty słownie podobnie jak to opracował marek003, ale chciałem żeby waluta była na końcu. Ponadto w jakiś sposób rozwiązałem...
Kolega JRV podał formułę, ja podaje VBA. [syntax=vb]Sub qq() ostw = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ostw 'Nazwa a = Cells(x, 1) For y = 9 To 24 'Len(a) If Mid(a, y, 1) <> "0" Then Cells(x, 2) = Mid(a, y, 25 - y) Exit For ...
Przetestuj poniższe makro: [syntax=vb]Sub Towar_Producent() Dim lLstRw& Dim i& Dim l% Dim objRegExp As Object Dim objFnd As Object Dim sRegExpPatt$ 'definicja wyrażenia regularnego do wyszukiwania Dim sCol$ 'kolumna z danymi Dim iNextSp% 'pozycja...
Stworzyłem prosta pętlę do kolorowanie wierszy po spełnieniu określonych warunków. [syntax=vb]'kolorowanie wierszy Dim i As Integer If InStr(LCase(dstCells(dstRow, 5)), "awaria") Then If InStr(LCase(dstCells(dstRow, 2)), "serwis") Then ...
W odróżnieniu do kodu Kolegi powyżej, mój kod nie ogranicza długości wyrazu oraz nie ogranicza się do jednego wystąpienia szukanego tekstu. [syntax=vb]Function OO(t As String, s As String) As String o = InStr(1, t, s) If o = 0 Then OO = "" Exit Function End If poczatek = InStrRev(t,...
Witam, Myślę nad zrobieniem czegoś w stylu wyszukaj.pionowo + zamień, dla tekstu zawartego w jednej komorce. Chodzi o to że z innego skoroszytu chce wyciągać wartości odpowiadające tekstowi zawartemu w powiedzmy komórce C1. Nie byłoby w tym nic trudnego gdyby w tej komorce znadowal sie tekst tylko...
np: [syntax=vba]Option Explicit Sub bbb() Dim w As Long Sheets("Historia_ZLEC").Select On Error Resume Next w = Columns(4).Find(What:="kierowca", LookAt:=xlWhole).Row On Error GoTo 0 If w = 0 Then MsgBox "Nie znaleziono", vbOKOnly, "Uwaga": Exit Sub If Cells(w, 6).Value...
Witam, Chciałem napisać nową funkcję, która zamieniała by liczbę na słowo. Posiłkując się internetem i stając na głowie, to co mam nie działa. Patrzyłem na kod już tyle razy, że mam dość. może ktoś z Was zrobi mi prezent świąteczny i rzuci okiem czy gdzieś nie mam błędu w kodzie. Przykładowy arkusz...
Witajcie Wszystko ładnie ale mam problem. Używam makra: Function Słownie(Liczba As Variant, Optional Waluta As String) As Variant '****************************... Makro do przeliczania liczby na słownie ' (c) 2001 by Bartłomiej Sosenko 'Troszeczkę...
Proszę o pomoc w napisaniu funkcji w Excelu VBA, która wyszukuje określone słowo w pierwszej kolumnie i inne słowo w drugim wierszu a która wywoływana jest z innego skoroszytu. Napisałam funkcję, która działa w tym samym skoroszycie ale nie idzie mi zrobienie tak, aby działała gdy się ją uruchamia...
[syntax=vb] Function DwaPierwsze(Tekst As String) As String DwaPierwsze = Left(Tekst, InStr(InStr(1, Tekst, " ") + 1, Tekst, " ")) End Function [/syntax] Taką funkcje wpisz w module, a w komórce, gdzie oczekujesz imienia i nazwiska wpisz =DwaPierwsze(A1). Zapewne można bez funkcji własnej,...
Szukając ... rozwiązań natknęłam się na ... Gdzie mam pytać, jeśli nie na forum? : ) ... można na przykład w przeglądarce forumowej się "popytać" ... : ) itd. Poza tym pojęcie pobrania danych "bez otwierania pliku" jest bardzo względne. Aby coś z danego zbioru dyskowego pobrać, zbiór...
Excela używam raczej rzadko ale napisałem w VBA kawałek kodu, który rozdziela nr rachunków z ciągu tekstowego, w celu ich dalszego porównania z już istniejącymi nr rachunków. Możesz spróbować wykorzystać go (rozwinąć, dostosować) do własnych potrzeb. 11/2011 12/2011 13/2011 albo komunikat o...
Może spróbuj przez podstawianie formuł. Makro przetestowałem na arkuszu "Zmiana N". Jeśli to jest to, to masz już z górki.[syntax=vb]Sub Proba() For j = 6 To 10 Step 2 zmF = InStr(Cells(3, j).Formula, "KW") zmF = Mid(Cells(3, j).Formula, zmF, 4) zmR = InputBox("W kolumnie " & j & "...
Spróbuj [syntax=vb]Sub Makro2() Dim kom As Range, i As Integer, j As Integer For Each kom In UsedRange If kom.Value <> "" Then i = InStr(1, LCase(kom.Value), "<") Do While i > 0 j = InStr(i, LCase(kom.Value), ">") 'jeśli zabraknie ">", to zakoloruje do końca ...
Witam ponownie, chciałbym prosić o pomoc przy wyszukiwaniu tagów html o zmiennych parametrach. Aktualnie posiadam taki kod: [syntax=vb] Sub Makro1() Dim kom As Range, i As Integer, j As Integer For Each kom In UsedRange i = 1 If kom.Value <> "" Then Do i = InStr(i,...
:arrow: JRV - Ciekawe podejście Z tym że może wystąpić kłopot przy błędnych danych tzn. jak np. zabraknie jednego ";" to np. zmienna3 wędruje w miejsce zmiennej 2 Ja poszedłem trochę inną drogą (dodałem komunikaty "kierunkowe" w razie błędu) [syntax=vb]Sub podziel() Dim ostWiersz As Double Dim...
wszystko do jednej kolumny np. A [syntax=vb] sub stronki() dim r&, ro& ro=Cells(rows.Count, 1).End(xlUp).Row For r=1 to ro x=Cells(r, 1) If x Like "*http://*" then p=Instr(x, "http://") k=Instr(p, x, " ") If k=0 then k= Len(x)+1 Cells(r,1).offset(,1)=Mid(x,...
Witam wszystkich, jestem tu nowa więc jeżeli umieściłam temat w złym miejscu to przepraszam. Przeglądałam już forum i wiem, że były podobne tematy ale nie znalazłam rozwiązania dla siebie. Otóż mam do napisania makro w excelu, które automatycznie będzie zczytywać dane z pliku txt. Plik txt ma taką...
ad.1 Przy zdarzeniu Change ComboBox'a sprawdzany jest każdy znak wprowadzany z klawiatury. Jeśli sprawdzany ma być tylko pierwszy, pierwszym warunkiem będzie Len(NazwaCombo.value)=1, następnie porównujesz (w pętli) z listą. Najprościej wstawić polecenie opuszczenia pętli przy pozytywnym wyniku porównania,...
[syntax=vb]Function PierwszeSlowo(t As String) As String PierwszeSlowo = Left(t, InStr(1, t, " ") - 1) End Function Function Artykul(t As String) As String ps = Len(PierwszeSlowo(t)) - 1 Artykul = Mid(t, InStr(1, t, " ") + 1, InStrRev(t, "/") - 1 - ps) End Function Function TrzeciOdTylu(t...
Witam. Próbują utworzyć ListBox w którym wyświetlało by mi dane w wielu kolumnach (dane z całego miesiąca). Niestety kod który zastosowałem pozwala wyświetlać dane tylko w max 10 kolumnach. Jednak dla przykładu napisałem kod który pokazuje co dokładnie chcę osiągnąć. Ogólnie to potrzebuję aby ListBox...
Po pierwsze. Jak poszerzasz dane to pamiętaj o poszerzeniu sortowania (do kolumny G): ">0" i zrezygnować z pętli. Chyba że: 1. "kod" może wystąpić dwa razy i wtedy też ma się pojawić dwa razy "zwrot..." 2. "Kod" może pojawić się po 10 znaku i wtedy jest "nieważny" Poniżej wersja 2 ale...
Dla Twojego konkretnego przypadku[syntax=vb]Sub podzial() Dim bs As Worksheet, bd As Worksheet Dim r&, c&, p%, k% Set bs = ActiveSheet Set bd = Sheets.Add(after:=bs) For r = 1 To Application.CountA(bs.Columns(1)) x = bs.Cells(r, 1) k = 0 For c = 1 To 7 p = k + 1 ...
Witam serdecznie. Mam spory problem, z którym nie mogę sobie poradzić. Posiadam makro, które rozbija mi dane z komórek na człony wg zadanego klucza do kolumn L, M, N. Potrzebowałbym w kolumnie O połączyć dane z kolumn L i N (póki co jest tam formuła). W kolejnym kroku chciałbym na podstawie danych...
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach...
Która wersja Excela się wyłącza? Mógłbyś może podesłać kod tego makra? Wersja Excela 365, Kod makra : Private Sub CommandButton1_Click() Me.CommandButton2.Visible = True Me.CommandButton1.Visible = False Me.Height = 350 End Sub Private Sub CommandButton2_Click() Me.CommandButton1.Visible...
[syntax=vbscript]Sub Zawiera() Sheets("Arkusz1").Select a = InputBox("Podaj tekst do szukania: ", "Wyszukaj") ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If InStr(1, Cells(x, 2), a) > 0 Then Range(Cells(x, 1), Cells(x, 2)).Copy Sheets("Arkusz2").Range("A" & y) ...
Jak poniżej. Założenie, że zwraca pierwszy 26znakowy ciąg cyfr, po usunięciu spacji z tekstu. [syntax=vbscript]Function ZwrocIban(Szukaj_Komorka As Range) Dim dlugosctekstu, pozycja As Long Dim t, ciag, maska, iban As String Dim i As Long 'usuwamy spacje z tekstu t = Szukaj_Komorka t = Replace(t,...
Serdecznie dziękuję! Teraz jest idealne! Ja co prawda sam wróciłem do kopiowania ostatnich trzech kolumn w ostatnim kodzie poprawionym przez Ciebie bo poległem przy zaokrągleniach , a tak było prościej. Nie mogłem też na razie dojść do tego jak zaznaczyć cały zakres nowo powstałej tabelki aby zrobić...
Zamykając temat. W pierwszym poście tego tematu jest kompletny kod pod EXCEL 2003 i XP (sprawdzony) Poniżej przedstawiam kod sprawdzony na EXCEL 2007 ( w większości opisane co i jak) [syntax=vb] Sub OperacjeHurtowe() 'makro dla excel 2007 'nazwa pliku startowego start2.xlsm i jest umieszczony...
1. Przykład danych by się przydał do dalszych rozważań. 2. Zapoznaj się z 'InStr', operatorem 'Like' z maską danych oraz 'Find'. 3. dane pochodzące z zewnętrznego programu, które są przedstawione w excelu, w taki sposób, że na wyjściu programu otrzymuję arkusz excela Program sam tworzy plik excela...
Owszem to filtrowanie danych ale w żadnym wypadku nie powinno być powiązane z auto-filtrem, tym bardziej jak masz excel 2003 i poniżej. Tu masz kod. Tłumaczyć? [syntax=vb]Sub Makro1() Dim ostWrs As Long, x As Long Dim tekst As String, szukane As String ostWrs = Range("B" & Rows.Count).End(xlUp).Row tekst...
Cześć Chciałbym stworzyć makro, które wysyłało by emaile z listy z excel’a i dołączało spersonalizowane załącznik. W Arkuszu „lista” są komórki z spersonalizowanym numerem odbiorcy od „b6” do „b5006” np. D001425 a w komórkach od „c6” do „c5006”...
Moje poszukiwania w Googlach nie dały rezultatu. Na tym forum również nie znalazłem odpowiedzi pomimo że są tematy zbliżone do mojego problemu. Co ciekawe na innych forach również nikt nie wie jak to zrobić. Chciałbym Was tu prosić o pomoc jak to można zrobić. Chodzi mi o zbudowanie makra do zliczania...
Witam wszystkich! Mam kalendarz w excelu i chciałbym teraz mieć możliwość, aby excel wysyłał z automatu na wskazane adresy cały kalendarz po wprowadzonych zmianach w danych komórkach. Mam obecnie makro, które pozwala na to, ale przez naciśnięcie przycisku. Czy może robić to automatycznie? Czy mogę...
Witam. Potrzebuję pomocy z importem wielu plików txt do excela. Pliki txt mają podobne rozłożenie różnią się jedynie wartościami oraz liczbą wierszy. Potrafię stworzyć makro na kopiowanie z wybranego pliku txt określonych kolumn od np 20 wiersza. Dziś potrzebuję stworzyć makro do importowania...
I to kolejny dowód że człowiek całe życie się uczy. Nie wiedziałem że w Excelu jest coś takiego jak ListView. Gdzie w projektowaniu UserForm jest coś takiego? Na załączonym screenie nic takiego nie mam :/ . Ogólnie to o taki efekt mi chodzi i coś takiego chciałbym osiągnąć. Tylko że w moich...
Można by się tak pobawić najpierw wyodrębnić PNA, następnie [syntax=vbnet] dim SlownikMiejsc as new list(of string) with slownikmiejsc .add("Antonin") .add("Be... Wielkopolski") .add("STARGARD ") .add("Witkowo") itd.... end with dim rekordy as dictionary(of string,string)'...
Nie wiem po co z pięknej i poukładanej bazy tworzysz setki kolumn.:) Ale skoro tak, to: [syntax=vbscript]Sub Rozdzielanie() Application.ScreenUpdati... = False Sheets("Arkusz1").Select Set b = Sheets("Efekt końcowy") ow = Cells(Rows.Count, "A").End(xlUp).Row ok = Cells(1, Columns.Count).End(xlToLeft).Column For...
Użyj kodu Clubsa . Jest lepszy. W w/w kodzie jest kicha, bo pdftk gubi się, jak w nazwie pliku jest spacja. Nawet, jak poda mu się w cudzysłowach. Trochę przerobiłem kod Clubsa. P.S. Arkusz szedł na końcu, a ma być jako załącznik nr 1, czyli w środku. [syntax=vbscript]Sub elka() Dim p(2) As String,...
Nie bardzo rozumiem, masz listę użytkowników i nie umiesz znależć tego którego już znasz z loginu? Najprościej: zwykłe wyszukiwanie w tablicy (i co z tego, że to Excel). Jak wolisz po Excelowemu to użyj Range.Find i pobierz sobie wiersz (chyba to pionowa tablica?) i dalej to już proste. Jeżeli używasz...
Witam, - w czasie epidemii koronawirusa, w czasie robienia zapasów artykułów spożywczych, pomyślałem, że dla zinwentaryzowania tego co w lodówce, na regale w spiżarni i wszystkiego co może się zmarnować - bo mija data przydatności do spożycia, napiszę żonie makro. Myślę, że może się przydać, tym bardziej,...
Napisałem na razie coś takiego: Option Explicit Dim szukana$, szukac_dalej As Variant, iFolder$ Dim oFolder As MAPIFolder, oMail As MailItem, x& Sub szukaj_wiadomosci_po_temacie() iFol... = Application.ActiveExplorer.CurrentFolder... = "dodatek" If FindTematCzastkowo(szukana) = False...
Zawsze warto napisać, w której wersji Excela ma pracować to rozwiązanie, bo w różnych wersjach są dostępne różne funkcje. Jeśli chodzi o rozdzielenie formułą do osobnych komórek danych rozdzielonych średnikami, to na upartego się da, ale to dość złożone. W tym przypadku sugerowałbym użycie VBA i funkcji...
jednak wiersze dzieli na strony To nie jest największy problem. Najważniejsze, że struktura jest zachowana. Podam wkrótce kod. Dodano po 1 [syntax=vbscript]Sub Import() Set a = ThisWorkbook.Sheets("Arkusz 1") nw = 3 Set b = Workbooks.Open(ThisWorkbook.Path & "\Plik_B.xls") owb = Cells(Rows.Count,...
Sporo roboty z przełączaniem ustawień regionalnych. Lepiej znaleźć kropkę w ciągu znakowym Instr(...) i zamienić ją na przecinek. Potem konwersja idzie już bez trudu :) Powodzenia
Zależy od tego jaka jest struktura takiej komórki. Jeżeli długość jest zawsze taka sama a kod w tym samym miejscu, to możesz wybrać fragment tekstu od... do..., np. ActiveSheet.Cells(i, 2) = Mid(ActiveSheet.Cells(i, 1), 19, 6) Jeżeli kod jako jedyny zawiera myślnik: to...
Analiza trwa godzinę?? Na pewno kod można zoptymalizować, danych nie ma aż tak dużo. Jak dla mnie kilka minut to już by było za dużo. Tak na szybko (bo kod za długi żeby cały analizować ;P) parę uwag: - w przycisku ANALIZUJ znowu zgubiłeś Application.ScreenUpdating =... i Application.Calculation...
Funkcja jest piękna. Osobiście lubię też Select Case, a i InStr chętnie używam. Wszystkie te elementy są tam zawarte i dobrze ze sobą współpracują. Moje prywatne zdanie: jeżeli jest kilka grup znaków, to można przypisać im unikalne kody (1, 2, 3, itd.) i umieścić je w tablicy zgodnie z ASCII znaku....
Jest możliwe. Do znalezienia spacji poczytaj o poleceniu InStr, do wycięcia części tekstu z lewej polecenie Left, z prawej Right, ze środka Mid w VBA.
:arrow: bobo InStr Trzeba podstawić Kolego wielkie dzięki. Jesteś naprawdę wielki. Masz PIWO!!! Dodano po 2 Przy okazji, czy jest jakaś literatura aby nauczyć się pisania w języku Visual Basic? Czy do tego jest potrzebna znajomość języka angielskiego?
dlaczego ograniczenie listy następuje dopiero po wpisaniu spacji Należy zmienić warunek porównujący stringi. Funkcja InStr szuka także wewnątrz. Np pamiętasz, że sala ma w nazwie "020" a nie pamiętasz początku. W przypadku długich ciągów metoda nie sprawdza się. Spróbuj [syntax=vb]If UCase(Left(lista(i,...
Rzucasz się od razu na głęboką wodę, mam nadzieję że już programowałeś wcześniej :) Są dwa sposoby rozwiązania Twojego problemu: 1. Przed wykonaniem UPDATE zrobić SELECT, i jeżeli nie zwróci on pożądanych wyników -> oznaczyć rekord jako nieistniejący w bazie. Sam czasami robię to w ten sposób: a....
Z takim... zorganizowaniem inaczej danych rzeczywiście pozostaje VBA. Np taka funkcja użytkownika
Najpierw musisz się dobrać do zawartości która jest w komórce Potem masz w linku który podałem wyżej funkcje InStr która zwraca Ci pozycje substringu w danym springu Ciebie nie interesuje pozycja tylko sam fakt zaistnienia m w przyadku niezaistnienia masz 0 w innym coś innego
W takim przypadku potrzebne są dwie pętle. Pierwsza For dla wszystkich arkuszy, których nazwa <>"RAPORT", wewnętrzna Do While...Loop z licznikiem dla Nr wiersza i instrukcją porównująca zawartość komórki, Np: If Instr(Cells(wiersz, 5).text, szukany_fragment)>0 Then i tu kopiowanie. Szukaną...
Trzeba było od razu ;) Można zamiast instrukcji If zastosować pętlę Do [syntax=vb]Sub Makro1() Dim szukany As Variant, kom As Range Dim i As Integer, s As Integer szukany = Array("<html>", "</html>", "<head>", "</head>") For Each kom In UsedRange If kom.Value <>...
Da się... Właściwość "Formula" zwraca zawartość komórki w postaci String. Możesz z nim robić, co Ci się podoba (Left, Rigt, Mid, InStr). Dla zobrazowania: wpisz dowolne liczby w A1 i A2, dowolną formułę operującą na tych komórkach w B1, następnie uruchom[syntax=vb]Range("C1").Formula = Range("B1").Formula Range("D1").Formula...
Wprowadz inny warunek: [syntax=vb]... If InStr(1, kom.Value, "Z WYS") > 0 Then ...[/syntax]
A1 = " ten chłopak jest Polakiem" A2 = " ten chłopak jest Niemcem" A3 = " Marek jest Polakiem" A4 = " Adam jest Niemcem" B1 = PozycjaSlowa("Polakiem:Niemcem"; A1) Chyba się nie zrozumieliśmy, skoro nie podałeś zdania: "Ten chłopak jest Polakiem, a tamten Niemcem". W takim przypadku moja...
Udało mi się uporać z problemem dopiero po napisaniu makra. Jakby ktoś potrzebował to przesyłam załącznik ;) Function lista(ciag_wejsciowy) ark = ActiveSheet.Name Sheets("Słown... = 2 wynik = "" licznik = 0 Do While Worksheets("Słownik")....
Podepnij sobie następujący kod pod przycisk i przetestuj [syntax=vb]Dim lLstRw& Dim sLiczba$ lLstRw = Cells(Rows.Count, 7).End(xlUp).Row Select Case lLstRw Case Is = 1 Cells(lLstRw, 7).Offset(1, 0).Value = Cells(2, 3).Value & "_xyz_1" Case Is = 2 Cells(lLstRw, 7).Offset(1, 0).Value...
[syntax=vb]Sub Id() For x = 1 To Cells(Rows.Count, "A").End(xlUp).Row t = Cells(x, 1) r = InStr(1, t, "|") Cells(x, 1) = x & "|""" & Left(t, r - 1) & """" & Mid(t, r) Next End Sub [/syntax] Domyślam się, że Kolega może nie wie co z tym kodem zrobić, prawda?
Oto przykład procedury wysyłającej mejla z poziomu Akcesa: [syntax=vb]Sub Wyslij(Mejl As String, HasloEmail As String, Tytul As String, Tekst As String, OdKogo As String, DoKogo As String, Zalacznik As String) Dim NazwaPliku, MiesiaC, Rok As String, SMTP As String SMTP = "mail.moj.pl" Dim zal()...
[syntax=vb]Sub Importuj() Dim Plik As String Plik = Dir("D:\Notowania\Omegancn\*.txt") Do While Plik <> "" Worksheets.Add().Name = Left(Plik, InStr(1, Plik, ".txt") - 1) With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;D:\Notowania\Omegancn\" & Plik,...
Pozwolę sobie ubrać ten kod w wygodną procedurę. [syntax=vb]Sub WyslijMejla(Uzytkownik As String, Haslo As String, SerwerSMTP As String, Tytul As String, Tresc As String, OdKogo As String, DoKogo As String, Zalacznik As String) Dim KonfiguracjaKonta As Object, Mejl As Object Set KonfiguracjaKonta...
Spróbuj np. takim makrem: [syntax=vb]Private Sub CommandButton1_Click() ost_a = Cells(Rows.Count, "A").End(xlUp).Row ost_b = Cells(Rows.Count, "B").End(xlUp).Row For b = 2 To ost_b For a = 2 To ost_a If InStr(Cells(a, "A").Value, Cells(b, "B").Value) > 0 Then Cells(b,...
Jeżeli ten kod też nie zadziała, to szukaj problemu w zabezpieczeniach. [syntax=vb]Sub PobierzCSV() Sheets("Arkusz1").Select ... Katalog As String, Plik As String, Zeszyt As String, s As String, nw As Long Katalog = ActiveWorkbook.Path & "\" Application.Calculation = xlCalculationManual Application.EnableE...
Nie ja nie chcę żadnego gotowca. Wcześniej nie mogłem wstawić tego co już mam bo pisałem temat na szybko. W dalszym ciągu nie wiem jak to rozwiązać. Mam w oknie UserForms jak widać dwa pola do wyboru rodzaju daty: 1. txtMiesiac - do wyboru miesiąca 2. txtRok - do wyboru roku Poniższym...
[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next k = Target.Column If k = 4 Then Ew = Cells(Rows.Count, "E").End(xlUp).Row + 1 ow = Cells(Rows.Count, "C").End(xlUp).Row For x = 1 To ow If InStr(1, Cells(x, 3), Target) > 0 Then ...
Jeżeli dobrze zrozumiałem, to takie makro: [syntax=vb]Sub PobiezCSV() Poczatek = "2015-01-01 10:00" koniec = "2015-01-01 11:00" Dim w As Worksheet Set w = Sheets("Wynik") Open "C:\ala.csv" For Input As #1 x = 1 Do While Not EOF(1) Line Input #1, l If InStr(1, l, Poczatek) > 0 Then ...
Po długim boju i pomocy znajomego udało się. [syntax=vb]'Needs references to Microsoft HTML Object Library and Microsoft Internet Controls Option Explicit Sub Test() Const cURL = "" Const cUsername = "xxxxxx" 'REPLACE XXXX WITH YOUR USER NAME Const cPassword = "xxxxxx" ...
Super!!! Bardzo dziękuję, działa znakomicie, przez chwilę wydawało mi się, że będzie to skomplikowane. Gdyby kogoś w przyszłość interesował cały kod to proszę: [syntax=vb] Sub Parsuj() Open "c:\tmp\kod.txt" For Input As #1 Do While Not EOF(1) Line Input #1, a b = Left(a, 5) If...
[syntax=vb]Sub Porownaj() Dim s2 As Worksheet Set s2 = Sheets("Arkusz2") Sheets("Arkusz1").Sel... = Cells(Rows.Count, "A").End(xlUp).Row owy = s2.Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To owx For y = 1 To owy If InStr(1, Cells(x, 1), s2.Cells(y, 1)) > 0 Then ...
Proszę. 'Exit For '<- tu można dodać wyjście z pętli klucza (w celu uniknięcia duplikatów) End If Else Exit For End If Next Else Exit For End If Next arkusz_filtra.Activate Acti... = 0 ActiveWindow.SplitRow = 1 ActiveWindow.FreezePanes = True Application.ScreenUpdating...
Mała poprawka: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 11 Then Dim ar() As String q = 0 a = Split(Target, " ") For aa = 0 To UBound(a) For x = 5 To 13 If Cells(x, 4) = a(aa)...
Coś takiego powinno zadziałać: [syntax=vbnet]Sub Makro1() Range("A2").Select While (ActiveCell.Offset(0, 6).Value <> "") If ((ActiveCell.Value = 5) Or _ (InStr(1, LCase(ActiveCell.Offset(0, 6).Value), "invoice", vbTextCompare) > 0)) Then ActiveCell.Offset(1,...
Ile jeszcze będzie tych wariantów? Jeśli adresy list są różne, to najrozsądniej, jak myślę nadać im takie same nazwy i te nazwy wykorzystać do identyfikacji. Przykładowy kod: [syntax=vb]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim wks As Worksheet, nazwa As String ...
Mysle, ze tylko nestandartowa funkcje(UDF) [syntax=vb]Function celarz(ByVal txt As String) As Integer Const dig = "1234567890" Dim i% For i = 1 To Len(txt) If InStr(dig, Mid(txt, i, 1)) > 0 Then Exit For Next celarz = Val(Mid(txt, i, 2)) End Function [/syntax]
Witam. Tym razem piszę bo mam problem z kolumnami w ListBox. Mam w LisBox ustawione 12 kolumn w których mają mi się wyśietlić dane. Poniższy kod miałby to zrobić. Problem w tym że kod wysypuje mi się przy 11 i 12 kolumnie. Wydaje mi się że kod jest ok ale tych dwóch kolumn nie chce mi wyświetlić danych....
Witam serdecznie. Potrzebuję stworzyć makro, które w przypadku gdy w kolumnie H będzie "0", wytnie z kolumny J wartość liczbową i wklei ją do kolumny O w tym samym wierszu. Próbowałem stworzyć takie makro, ale niestety bez rezultatu. [syntax=vbscript]Dim rng As Range Dim rngCell As Range Dim...
[syntax=vb]Dim folder As String Application.DisplayAlerts = False folder = Left(ActiveWorkbook.FullName, InStr(ActiveWorkbook.FullName, ".") - 1) Sheets("LW").Copy ActiveWorkbook.Sa... Filename:= _ folder & Format(Date, " dd-mm-yyyy") & ".csv", FileFormat:=xlTextWindows ActiveWorkboo...
które w nazwie mają co najmniej 6 cyfr i wśród nich jest ciąg cyfr „2016” Jeżeli Kolega nie potrzebuje sprawdzać czy to data czy nie, to można uprościć ten warunek jako: [syntax=vbscript]For i = 1 To Sheets.Count nazwa = Sheets(i).Name If InStr(nazwa, "2016") > 0 And Len(nazwa)...
Odejmij po prostu. Np tutaj [syntax=vbscript]Sub TmToStr2(ow As Long) With Sheets("Arkusz2") For i = 2 To ow zwrot = "LE" BH = "BH" startOD = 1 Dim x As Integer For x = 1 To 10 'zwroty i BH If InStr(startOD, .Cells(i, 7), zwrot, vbTextCompare) = x Then...
Bierzesz Tekst do zmiennej roboczej typu string. Wyszukujesz (InStr) w tekście znaków "||" (może ze spacjami?) i wycinasz (Left) tekst do kolumny C. Potem skracasz tekst (Right albo Mid) o ten wykorzystany kawałek i powtarzasz w pętki aż "zniknie". Pozostaje trochę kogiki tworzenia wierszy i to wszystko.
nazwiska i mimiona z danego wiersza muszą być po sobie w jednej komórce oddzielone np; tak samo nrSAP - nie że wkleja je pod sobą Dodano po 1 oki już wiem jak zrobić , żeby w jednej komórce po średniku zapisywało, dla potomnych wklejam kod może komuś się przyda [syntax=vbscript]Sub SAPuj() Dim...
Witam Chciałbym pomóc żonce w jej ciężkiej pracy ale niestety jestem za słaby w tworzeniu własnego kodu VBA więc proszę Was o pomoc :) Jadłospis jest rozpisany na kilku arkuszach w excel , w pierwszym arkuszu jest lista produktów które powinny być wyszukiwane w tych jadłospisach i zaznaczane np. pogrubieniem...
Myslim, ze tylko makro w kodzie arkuszu[syntax=vb]Private Sub Worksheet_Change(ByVal Tgt As Range) If Tgt = "" Then Exit Sub p = InStr(Tgt, ",") l = Len(Tgt) + 1 If p Then l = p Tgt.NumberFormat = "0." & String(7 - l, "0") End Sub [/syntax]
jaky ma byc wynik z tego: "12,3/4ftj56we,4" ? Nie wiem co jest w textbox Dodano po 10 Co na to?[syntax=vb]Function zmien_na_punkt$(src$) dig = "012345689" For i = 1 To Len(src) c = Mid(src, i, 1) If InStr(dig, c) Then w = w & c ElseIf Right(w, 1) <> "."...
A kto wie co bedzie zaznaczeno? Sprawa dotyczy daty, więc w ciągu trzeba szukać czegoś, co przypomina datę. Tu autor wie w jakim formacie ją zapisuje. W ostateczności 'Instr' roku z mała korektą powinno dać radę...
Chciałbym uściślić. Mam w skoroszycie bazowym (nazwę go DD) kilka tabelek w której formuły są typu B7=B5-B6, C7=C5-C6 itd. Zrobiłem makro, które przenosi dane z pierwszego skoroszytu z pozycji B6 na pozycję B5 w następnym skoroszycie i kopiuje skoroszyt. Przy pierwszym kopiowaniu (JA1) jest ok, ale...
Zakisił Ci się jakiś błąd w arkuszu "podział na kolory". Przynajmniej w tym załączonym pliku. Trzeba było zrobić kopię i to dopiero w Calc (!). Moja propozycja: -ComboBox, wypełniany przy WorkbookOpen z arkusza "Opcje" (możesz sobie dopisywać kolory) -dodatkowa gałąź w instrukcji If sprawdzająca...
Witam Może być makro [syntax=vbscript]Sub Zapisz() Application.ScreenUpdating = False plik = Left(ActiveWorkbook.FullName, InStr(ActiveWorkbook.FullName, ".")) & "txt" ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:=plik, FileFormat:=xlCSVMSDOS ActiveWorkbook.Close False MsgBox...
Linię: If Kom.Value Like (Nazwisko & "*") Then zastąp: If InStr(Kom.Value, Nazwisko) > 0 Then
Witam. Mam taki kod jak poniżej, tym kodem przefiltruję wymagane daty które zgadzają się z miesiącem i rokiem: Alpex.cmMIESIAC & "." & Alpex.cmROK , i tu jest wszystko OK. Ale chcę zrobić jeszcze jedno filtrowanie, ale tylko na podstawie samego roku. Niestety mam takie zaćmienie umysłu że nie wiem...
Może i da się to zrobić formułą, ale ja bym to zrobił takim makro: Const Acc = "abcdefghijklmnopqrstuvwxyzABCDEFGH... W tej linijce są zdefiniowane wszystkie znaki, które są dopuszczalne. Możesz sobie dopisać jakiekolwiek inne. Jeśli znaku nie ma na tej liście,...
"W tym przypadku to nie działa". Działa, działa, choć proste nie jest. :) Do "złapania" okna IE ja używam czegoś takiego i działa: [syntax=vbscript] Private Function GetIE(Addr As String) As Object Dim objShell As Object, objAllWindows As Object, IE As Object Set objShell = CreateObject("Shell.Application") ...
Filtrowanie w datagridview jest toporne, spróbuj nieco inaczej poprzez iteracje [syntax=vbnet] For i =0 to Dgv.rows.count - 1 Dim wkom as string = Dgv.rows(i). Cells(0).value.tostring.tolower If instr(wkom, textbox1.Text.tolower,text)=0 then Dgv.rows(i). Visible=false Else Dgv.rows(i). Visible=true...
Ja używam takiej funkcji. Jako parametr podajesz odpowiedni kawałek nazwy pliku. Po wywołaniu sprawdż czy nie jest puste i możesz używać: Workbooks(GetExcel(".xls")).Activate i dalej to już pewnie wiesz co. [syntax=vbscript] Private Function GetExcel(Na As String) As String Dim S As String, Wb As...
[syntax=vbscript]Sub BIO() ow = Cells(Rows.Count, "K").End(xlUp).Row For x = ow To 1 Step -1 f = False k = Cells(x, "K") If Left(k, 4) = "bio " Or Right(k, 4) = " bio" Or InStr(1, k, " bio ") > 0 Or k = "bio" Then f = True If Not f Then Rows(x).EntireRow.Delete Next End Sub [/syntax]
Witam Temat niestety oklepany - na swoje usprawiedliwienie powiem, że przeszukałam forum i usilnie staram się dopasować znalezione wskazówki i fragmenty makr do swoich potrzeb. W pewnym stopniu mi się udało, ale gdzieś jest błąd którego nie potrafię namierzyć. Zależy mi na tym, żeby wyszukiwana...
Witam, Napisałem program, który zamienia czas (hhh:mm) na liczbę. W drugą stronę też działa. Rozwiązanie dla textboxów w formularzu. Mam pytanie jako początkujący. Co zmienilibyście w tym programie, aby był on bardziej czytelny i ewentualnie krótszy? Podejrzewam, że bardziej doświadczonym z zakresu...
Można to zrobić np. za pomocą VBA. Napisałem funkcję UDF, która tworzy listę (tablicę) nazw miejscowości odczytanych z zakresów wg podanego schematu. Wywołanie funkcji: [syntax=text]=List3D(schemat adresu)[/syntax] schemat adresu zawiera nazwę arkusza ze znakami zastępczymi w postaci akceptowanej...
Witam. Mam mały problem z pobraniem nazwy plik z wykluczeniem rozszerzenia z kropką. Mam kod ja poniżej i działa oczywiście poprawnie ale pod warunkiem że w nazwie jest tylko ta jedna kropka z rozszerzeniem. Jak poprawić kod aby pobrał całą nazwę pliku z ewentualnymi wszystkimi kropkami jakie plik może...
[syntax=vbscript]Function CzescWspolna(Pierwszy As String, Drugi As String, Dlugosc As Integer) As String For x = 1 To Len(Pierwszy) a = Mid(Pierwszy, x, Dlugosc) If Len(a) = Dlugosc And InStr(1, Drugi, a) > 0 Then CzescWspolna = a Exit For End If Next End Function [/syntax]
Poniżej kod, który działa i wyszukuje mi wiadomości, które w temacie mają wprowadzone przez użytkownika frazy. Dzięki licznikowi zwraca on tylko jednego maila, jeśli znajdzie już o owym temacie w skrzynce (a nie wszystkie, które znajdzie), aczkolwiek chciałbym, aby makro zwracało mi ostatni wysłany,...
Można też makro, jeśli wygodniej. [syntax=vbnet]Const D = "ZWRP" Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Range(Range("A1"), Range("C5")), Target) Is Nothing Then Exit Sub If Target.Value = "" Then Exit Sub Dim x As Integer For x = 1 To Len(Target.Value) If InStr(D,...
Po wymianie informacji pw i testach (at)romanbolek wrzucę kod, który powinien pomóc osobom korzystających z OneDrive (sam go nie posiadam). Niech każdy wybierze odpowiednią literę dysku (od kolegi (at)romanbolek dostałem pw że nie działa A z inna ok, może (at)JaroFon przetestuje i da info). Wynikiem...
Ogólnie to konieczne by było makro z wyrażeniami regularnymi Nie koniecznie, przy tak prostym układzie, może być proste makro. [syntax=vbscript]Sub elka() For x = 3 To Cells(Rows.Count, 5).End(xlUp).Row Cells(x, 6) = Mid(Cells(x, 5), InStr(Cells(x, 5), ".") - 2, 10) Next End Sub[/syntax]
Dlaczego takie udziwnianie? Jest przecież metoda SaveCopyAs. Schemat mógłby być taki: [syntax=vbscript]Private Sub Workbook_Open() Dim plik As String plik = Left(Me.Name, InStr(Me.Name, Year(Date)) - 1) Me.SaveCopyAs plik & Format(Now, "yyyy-MM-dd_hh_mm_ss") & ".xlsm" End Sub[/syntax]Folder...
W sposobie formatowania nic nie zmieniałem. Dodałem funkcję UDF Daty, która zamienia zapis w kolumnie H na tablicę dat, która jest potem używana do definicji reguł formatowania warunkowego. Akceptowalne zapisy w kolumnie H: Pojedyncza data w formacie: d.m.rrrr (z dwiema kropkami) Ciągły przedział...
Niestety, nie zobaczę Twojego pliku - pozabezpieczany służbowy komp. Trochę nie rozumiem. Jeżeli PMI to robimy dokładnie to samo co dla SO? Czy zatem trzeba to rozdzielać? Jeżeli już trzeba to czy zamiast różnej liczby znaków możemy brać pod uwagę zawsze 2? Będzie łatwiej wydzielić. Zastosowałbym taki...
[syntax=vbscript]Sub CSV() ow = Cells(Rows.Count, "A").End(xlUp).Row ok = Cells(1, Columns.Count).End(xlToLeft).Column Ope... ThisWorkbook.Path & "\PlikCSV.csv" For Output As #1 For x = 2 To ow For y = 1 To ok a = Cells(x, y) If InStr(1, a, ";") > 0 Then a = Chr(34) & a & Chr(34) ...
Poleceniem Shell możesz uruchomić plik .bat z taką treścią: netsh wlan show network > C:\PlikiExcel\Siec.txt A potem wyciąć nazwę sieci z pliku Siec.txt. [syntax=vbscript]Sub Siec() Shell ("C:\PlikiExcel\a.bat") 'Plik a.bat: netsh wlan show network > C:\PlikiExcel\Siec.txt Set FSO = CreateObject("Scripting.FileSystemObject...
Makro do przetestowania. Uwagi: 1. Najlepiej wrzucić kod do modułu "normal.dotm". Najprościej: otworzyć Worda z menu 'Start', nagrać dowolne makro wybierając miejsce przechowywanie "szablon globalny". Następnie zastąpić je poniższym, włączyć referencje i zamknąć Worda z zapisem szablonu. Makro...
Witam. Potrzebuję zrobić aplikację/makro, która będzie działała pod Windowsem. Aplikacja ma posiadać jeden przycisk (albo wcale go nie mieć). Po jej wywołaniu ma ona otworzyć plik tekstowy (log innej aplikacji) i przeszukać go od końca w poszukiwaniu określonego ciągu znaków. W zależności, na jaki...
Utknąłem, znalazłem w internecie fajną funkcję do tworzenia kodów qR. Zmodyfikowałem ją na swoje potrzeby, jednak chciałbym zmienić rozmiar kodu który ładuje się do obiektu excel i nie potrafię. Na excel 2010 nagrałem makro i skopiowałem kod do funkcji, ale w excel 2007 kod nie działa, nie ma też opcji...
Skoro tylko jeden rekord, to wystarczy, w UserForm_Initialize przywrócić wartości poszczególnych kontrolek. Tak naprawdę nie potrzebujesz dwóch przycisków - wystarczy jeden, który załaduje dane z istniejącego formularza (ten z UserForm1.Show). Cały kod zapisywania zamiast w module Formularze_VBA,...
Witam Was ponownie. Tym razem chciałam zapytać w jaki sposób napisać makro w VBA, które wczytuje mi z pliku txt do excela dane w takiej formie: nagłówek1 nagłówek 23 58 45 47 56 62 itd. prędzej miałam napisane makro,...
[syntax=vbscript]Public nw As Long Sub Pesele() nw = Cells(Rows.Count, "B").End(xlUp).Row + 1 Folder = "C:\Test\" Set FSO = CreateObject("Scripting.FileSystemObject... FSO.GetFolder(Folder) End Sub Sub CzytajFoldery(Folder) For Each Podfolder In Folder.SubFolders CzytajFoldery...
Trochę i ja się uczę VBA wraz z autorem (i nie nadążam odpowiadać - co prawda nie śledzę non stop) ale... Jeżeli chcesz przypisać adres komórki do zmiennej to musisz to zrobić inaczej: cel = ActiveCell.Address Value to wartość Później możesz skorzystać z Range(cel).Select ActiveSheet.Paste...
Drogi adamasie, przede wszystkim bardzo dziękuję za odpowiedź... niestety moja wiedza o makrach w excelu kończy się na tym, że wiem o ich istnieniu. Dlatego mimo dużych chęci (przeszukałam kilka miejsc w poszukiwaniu odpowiedzi na pytanie czym jest tajemnicze InStr i już wiem, że jest czymś w rodzaju...
Robiłem kiedyś podobne makro, ale zapisuje ono zakres złożony z iluśtam kolumn i 40 wierszy do kolejnych plików ich nazwa jest nazwą oryginału plus numer i jest logowana. [syntax=vbs]Sub import_export() ' ' import_export Macro ' This macro reads the selected excel file and splits it to multiply...
Witam Mam skoroszyt z pięcioma arkuszami, w których opracowuję dane. (w załączeniu). W ostatnim arkuszu "dane_end" mam wynik opracowania. Arkusz ten za pomocą makra eksportuję do nowego pliku. Jest "ok" jeżeli dane dotyczą jednego dnia i jednej jednostki. Opracowane dane są zawarte w kolumnach od...
W której linii? P.S. Na końcu należy włączyć odświeżanie, przydałby się filtr dla plików Excela, na czas działania makra wyłączyłbym zdarzenia i alarmy (pliki mogą zawierać makra, itp)...[syntax=vb]Sub Merge() Dim bookList As Workbook Dim MergeObj As Object, dirObj As Object, filesObj As Object,...
Można to osiągnąć np. taką kombinacją komend (do wywołania okna dialogowego potrzebujesz załączyć referencję do Microsoft Office 11 Object Library - w edytorze VBA tools->refrences) 'funkcja pobiera katalog z pełnej ścieżki Function GetDirName(ScanString As String) As String Dim intPos...
Witam, szukam pomocy w edycji makro, które identyfikuje nazwę zalogowanego użytkownika tak aby podczas zapisywania dokonanych w excelu zmian wpisywało w komórce "i8" nazwę zalogowanego użytkownika. Znalazłem coś takiego jednak po wklejeniu działa dopiero po uruchomieniu makro, a nie automatycznie. Ze...
A niech no Kolega rzuci okiem na [url=]ten temat, ostatni lub przedostatni post. Jest tam gotowe rozwiązanie jak czytać z pliku txt do excela. Trzeba jedynie trochę pobawić się z tekstem całej linii przechowywanym w zmiennej MyNumber: takie funkcje jak Left(tekst, ile_znaków), Mid(tekst, pozycja_startu,...
Piszę poniekąd w imieniu Autora i swoim. Okazało się, że na Windows 7 i Office 2007 kod: [syntax=vb] Sub ImportujRaporty() Dim pl As String Application.ScreenUpdating = False Application.DisplayAlerts = False iw = ActiveWorkbook.Name Dim Rap As Workbook, Out As Workbook pl = "C:\Wynik.xlsx" inf...
Na szybko napisałem coś takiego. Przetestuj: [syntax=vb]Sub kody() Dim lLstRw& Dim rngTmp As Excel.Range Dim tblKody() 'tablica z kodami do wyszukania tblKody = Array(6, 7, 8, 9, 10) lLstRw = Cells(Rows.Count, 1).End(xlUp).Row Set rngTmp = Range(Cells(1, 1), Cells(lLstRw, 1)) For Each...
Jaka tam składnia jest, jeśli chodzi o opcje dostępu do plików ? Czy jest, np.: Line Input #filenumber, varname ? Input #filenumber, varlist ? LOF(filenumber), EOF(filenumber) ? oraz do dzielenia tekstu na części ? Split(expression, delimiter, limit, compare) ? Mid(string, start, length)...
Dorzućmy więc funkcję wyszukiwania łańcucha (string) w innym łańcuchu. Taka funkcja pozwoli znaleźć pozycje separatorów i dopiero na podstawie ich położenia wycinać fragment tekstu. Jakie to funkcje? W VBA InStr, w Excelu dawno nie używałem, chyba SZUKAJ.TEKST.
Powiedz im, że tak się nie robi. To nie Excel. Przykładowy kod przycisku 'Dodaj fakturę'. [syntax=vbscript]Private Sub DodajFakture_Click() inf = MsgBox("Dodać fakturę?", vbYesNo, "UWAGA") If inf = vbYes Then If DCount("[IdFaktury]", "Faktury") = 0 Then nr = "1/" & year(Date) ...
