split excel

Znaleziono około 137 wyników dla: split excel
  • EXCEL - Po kliknięciu na komórkę pojawia się wyskakująca tabelka - jak?

    Ciekawy pomysł :) Realizacja nie będzie raczej łatwa. Nie będę zanudzać formularzami użytkownika, więc od razu zapytam: A co z tymi nazwiskami po uzupełnieniu tabelki? Może skupić się na miejscu docelowym (InputBox, Split)?

    Programowanie   25 Lip 2012 11:45 Odpowiedzi: 4    Wyświetleń: 2254
  • EXCEL. Jak rodzielić dane i umieścić w odpowiednich komórkach

    Mały problem jest to, że różne osoby mogą być różne liczby wierszy. Jeśli Możesz zapisz tę stronę w pliku .htm i Wyślij wiadomość prywatną Dodano po 2 '2^nd' - to zdanie jest dla każdej osoby? Dodano po 2 Sprobuj [syntax=vb]Sub podzial() Dim bs As Range, bd As Range lr = Cells(Rows.Count,...

    Software serwis   29 Sie 2016 13:11 Odpowiedzi: 5    Wyświetleń: 1059
  • Kopiowanie linii w vba - Wczytanie pliku txt do excela

    Witam, Mam problem z długo wykonującym się kodem. Pisze krótki program wczytujący pliki txt do Excela za pomocą VBA. z zapisem danych do pliku nie ma problemu, jednak wczytanie pliku zajmuje trochę czasu. Struktura pliku txt to: 1;12;12;12;12;12;12;12;12;8;8;8;8...

    Software serwis   11 Mar 2014 19:40 Odpowiedzi: 4    Wyświetleń: 2085
  • Excel 2007 - działania na komórkach - szukam sugestii

    Można na makrach. Nawet nie będzie to skomplikowane za bardzo :) [syntax=vb]Public Function Sumuj(miejsca As String, nagrody As String) As Variant Dim mt, nt As Variant mt = Split(miejsca, ";") nt = Split(nagrody, ";") Dim x As Integer Dim licznik As Variant licznik = 0 For x = 0 To UBound(mt) If...

    Software serwis   18 Cze 2013 12:30 Odpowiedzi: 6    Wyświetleń: 1440
  • Excel VBA Monitorowanie terminów - dat posiadanych zewoleń

    Trzeba inaczej napisać funkcję Daty(), na przykład tak: adamasa_nt , to nie analizowałem go szczegółowo, ale sugerowałbym zmianę deklaracji Integer na Long w Sub Formatuj, bo podczas prób wystąpiło przepełnienie.

    Obsługa oprogramowania   24 Maj 2021 18:38 Odpowiedzi: 26    Wyświetleń: 714
  • Excel poprawienie makra o dodatkowe kolumny

    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...

    Software serwis   19 Cze 2011 11:55 Odpowiedzi: 7    Wyświetleń: 2156
  • Excel - formuła, zliczanie pola powierzchni

    Ja podpowiem że jak już się wząłeś za makro to jest funkcja Split która rozdziela ciągi po danym znaku/znakach np: tbl = Split(Cells(1, 1), "_") dana = tbl(0) dana2 = tbl(1) Czyli w twoim przypadku: kawalek=Split("700 x 600"," x ") Wynik=Val(kawalek(0)) * Val(kawalek(1))

    Software serwis   18 Sty 2013 13:55 Odpowiedzi: 6    Wyświetleń: 7434
  • Excel vba -komórki z Alt+Enter - Rozbijanie komórek z Alt+Enter i odwrotnie

    makro działające w drugą stronę Wg tę samą wartość pola 'Pozycja' ? Zanim można sortować je? W tabeli zawsze 5 kolumn? Alt+Enter tylko w ostatnich trzech kolumnach? Dodano po 1 [syntax=vb]Sub Rozbijanie() Dim bs As Range, bd As Range Dim rs&, rd& rs = CLng(InputBox("Rozbij...

    Programowanie Początkujący   19 Sie 2015 21:40 Odpowiedzi: 2    Wyświetleń: 1317
  • [VBA EXCEL] Export zaznaczenia do pdf z użyciem nazwy arkusza - rozszerzenie

    .Parent dla ActiveWorkbook jest program Excel, wtedy zapisze w sciezku Excel'a naprosto .Path jest sciezka do pliku Split(.Name,".")(0) daje np. 'faktura' Dodano po 2 wtedy[syntax=vb]With ActiveWorkbook Selection.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=.Path & "\" & _ ...

    Programowanie   30 Mar 2017 08:36 Odpowiedzi: 2    Wyświetleń: 1101
  • [VBA] przerobienie vba excel->scalc

    Witam Niedawno musiałem zapoznać się z VBA i nawet mi poszło no ale żeby tego mało muszę napisać makro w Open Office. Czy mógłby ktoś pomóc w przerobieniu makra z excela na scalc ? Zasada jest taka, że otwieram plik txt, zamieniam spacje na #, likwiduję ####### do postaci jednego # i wczytuję w odpowiednie...

    Programowanie   23 Lut 2010 13:20 Odpowiedzi: 0    Wyświetleń: 1097
  • VBA Excel - Sprawdzanie poprawnej nazwy pliku przed kopiowaniem do arkusza

    Wystarczy np. taka prosta przeróbka: [syntax=vb]strPlik = Application.GetOpenFilename("Pliki Excela (*.xlsx),*.xlsx", 2) sFileName = Split(strPlik, "\")(UBound(Split(strPlik, "\"))) If strPlik = "False" Or UCase(Left(sFileName, 3)) <> "KWS" Then Exit Sub End If[/syntax]

    Programowanie Początkujący   16 Mar 2014 23:26 Odpowiedzi: 3    Wyświetleń: 1884
  • VBA Excel - Kopiowanie konkretnych komórek między dwoma arkuszami

    Na początek: Ad.1 i 3 Wstaw nowy moduł do pliku 'z_którego_kopiuje.xls' i wklej poniższy kod [syntax=vba]Option Explicit Sub KopiujAle() Dim fd As FileDialog, wkb As Workbook, test As String Set fd = Application.FileDialog(msoFileDialogOpen... With fd .InitialFileName = ThisWorkbook.Path ...

    Programowanie Początkujący   22 Lip 2015 14:57 Odpowiedzi: 10    Wyświetleń: 1332
  • VBA Excel - VBA - wyszukanie produktów w jadłospisie

    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...

    Programowanie Początkujący   16 Maj 2016 12:36 Odpowiedzi: 14    Wyświetleń: 1332
  • EXCEL VBR ciecie zawartosci komorki

    W angielskim (nie mam jak sprawdzić) brzmieniu byłoby w kolejności: ="="&LEFT(A1,FIND(&quo... =MID(A1,FIND("-",A1... lub =RIGHT(A1,4) ="+"&MID(A1,FIND("...

    Programowanie Początkujący   10 Lis 2009 22:24 Odpowiedzi: 6    Wyświetleń: 2763
  • Excel - makro lub formuła na wyliczanie dni w miesiącach

    Można umieścić kod w ThisWorkbook przy zdarzeniu Open. Żeby zabezpieczyć plik przed otwarciem bez makr można ustawić na kluczowe arkusze atrybut VeryHidden (z poziomu edytora VB) a widoczny zostawić dodatkowy pusty arkusz. Przy starcie jeśli warunki są spełnione wystarczy zamienić atrybuty. Tu konieczne...

    Programowanie   05 Lut 2011 21:11 Odpowiedzi: 9    Wyświetleń: 4198
  • VBA EXCEL - Tworzenei makra do wczytywania części danych z pliku .txt

    :arrow: PRL Nie prościej byłoby Split'em? Zobacz taki test [syntax=vb]strStr = Array("2011-01-12 00:00:00.000|bm2csrin|31310", "", "jakiś nagłówek", "2011-01-12 00:00:00.000|bm2csrin|") On Error Resume Next For i = 0 To UBound(strStr) p = Split(strStr(i), "|") test = p(UBound(p)) * 1 If...

    Programowanie Początkujący   02 Sie 2013 10:21 Odpowiedzi: 9    Wyświetleń: 3894
  • Excel - Specyficzne oddzielenie tekstu na kolumy

    Najprościej - 'Split'-em go... Np (w kodzie arkusza, dane w kol A)[syntax=vb]Sub Rozdziel() Dim wrs As Long, temp As Variant, tekst As String wrs = 2 'pierwszy wiersz z danymi Do While Cells(wrs, 1) <> "" temp = Split(Cells(wrs, 1)) Cells(wrs, 2) = temp(0) Cells(wrs,...

    Programowanie   07 Gru 2013 10:25 Odpowiedzi: 6    Wyświetleń: 1587
  • Excel - Wielokrotne zastosowanie funkcji "tekst jako kolumny"

    :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...

    Software serwis   06 Cze 2014 17:38 Odpowiedzi: 20    Wyświetleń: 2886
  • excel 2003 vba - pobieranie i aktualizacja

    [syntax=vb] Sub nowy() Const stn = "\\server\vers\" 'sciezka do pliku na serwerze myName = ThisWorkbook.Name klon = Split(myName, ".")(0) typ = Split(myName, ".")(1) ThisWorkbook.SaveAs klon & "_old." & typ Workbooks.Open stn & myName ThisWorkbook.Close True End...

    Programowanie Początkujący   23 Cze 2014 22:47 Odpowiedzi: 6    Wyświetleń: 1236
  • Makro do Excela kopiujące wartości i wiersze

    Nieco w tom stylu [syntax=vb] Sub etapy() Dim r&, x$, y$ r = 2 While Cells(r, 1) <> Empty x = Cells(r, 3) y = Replace(x, ";", "") Cells(r, 3) = Trim(Split(x, ";")(0)) For i = 1 To Len(x) - Len(y) y = Trim(Split(x, ";")(i)) If Len(y) > 0 Then ...

    Software serwis   10 Sie 2014 19:01 Odpowiedzi: 5    Wyświetleń: 1080
  • Excel - przypisanie po czesci nazwy numeru.

    Fakt, zapomniałem o najważnejszym ;) Do przeróbki w zależności od potrzeb. Założenie ogólne: kolumna B i D dane, a kolumny na lewo od nich to numerki. [syntax=vb]Option Base 0 Sub szukaj_pomieszanych_danych() Set zakres_wzorca = Range("b:b") Set zakres_dopelnienia = Range("d:d") rozmiar_dopelnienia...

    Software serwis   15 Kwi 2015 21:01 Odpowiedzi: 11    Wyświetleń: 1005
  • Excel -> OpenOffice - Data - Data aktualnego wpisu

    Wklej do modułu (w miejsce "Arkusz1" wpisz właściwą nazwę) Indeksy zaczynają się od zera, więc If lCol = 2 And lRow > 2 then to ograniczenie dla komórek od C4 w dół. Jeśli data z godziną (rys), to 'Now()' zamiast 'Date()'

    Software serwis   18 Mar 2017 20:01 Odpowiedzi: 5    Wyświetleń: 1107
  • Wyszukaj pionowo i złącz teksty vba excel

    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...

    Programowanie Początkujący   04 Kwi 2017 22:54 Odpowiedzi: 2    Wyświetleń: 1503
  • Excel - odnalezienie fragmentu tekstu przy warunku

    [syntax=vbscript]Sub Podziel() Set a = Sheets("Arkusz2") Sheets("Arkusz1").Sel... = 1 ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 2 To ow a.Cells(y, 1) = Cells(x, 1) p1 = Split(Cells(x, 2), "|") p2 = Split(Cells(x, 3), "|") b = UBound(p1) For i = 0 To b ...

    Obsługa oprogramowania   31 Sty 2020 08:25 Odpowiedzi: 5    Wyświetleń: 330
  • excel jak wydrębnić 9 literowe słowo zaczynające się na E z ciągu znaków

    Ode mnie propozycja połączenia klasycznej formuły z funkcją UDF, która jest bardzo prostą adaptacją funkcji VBA Split: =JEŻELI.BŁĄD(WYSZUKAJ("żżż&...

    Programowanie Początkujący   24 Maj 2020 19:31 Odpowiedzi: 4    Wyświetleń: 240
  • VBA Excel - średnia dla określonego typu dni

    Skoro sam już coś zrobiłeś, to mała podpowiedź w formie funkcji: [syntax=vbscript]Function Swieto(Data As Date) As Boolean Wielkanoc = WorksheetFunction.Floor(DateSerial(Year(... 5, Day(Minute(Year(Data) / 38) / 2 + 56)), 7) - 34 s = "01/01,01/06,05/01,05/03,06/11,08/15,11/...

    Obsługa oprogramowania   01 Lip 2020 10:41 Odpowiedzi: 5    Wyświetleń: 342
  • [EXCEL, VB] Makro excel 2003 na makro w excel 2007

    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...

    Software serwis   13 Paź 2011 16:45 Odpowiedzi: 6    Wyświetleń: 3712
  • MS Excel - sumy - Specyficzne sumowanie - excel

    Proponuje zrobić własną funkcję w makro [syntax=vb]Function Suma_Pisana(zakres As Range) As Double Dim a As String, wartosc As Double, i As Range, tabelka() As String, x As Double a = "" wartosc = 0 For Each i In zakres a = a & "+" & i.Value Next i a = Replace(a, "(", "") a = Replace(a,...

    Software serwis   06 Lis 2014 15:16 Odpowiedzi: 12    Wyświetleń: 969
  • EXCEL VBA - Pobieranie danych z wielu exceli

    Witam, Mam problem z makrem które zaimportuje mi dane z wielu dokumentów .xlsx. Importować chcę wybrane komórki z wybranych Arkuszy wielu plików o dokładnie takim samym formacie. Wszystkie te zródłowe znajdują się w tym samym folderze . W trakcie studiowania formum prawie udało mi sie osiagnąć...

    Software serwis   09 Cze 2015 12:25 Odpowiedzi: 6    Wyświetleń: 1434
  • VBA wczytanie pliku tekstowego do EXCELA wraz ze wszystkimi znakami

    Witam, Dziekuje za zainteresowanie tematem. Jednak rozwiazanie nie jest tym czego szukalam. Wiem jak wczytac plik zarowno przez czytanie lini Input Line jak i potem rozdzielic uzywajac split i lub text to columns lub nawet wczytac plik za pomoca QueryTablesAdd (jako dane z pliku) jednak wczystkie te...

    Programowanie Początkujący   18 Kwi 2018 05:08 Odpowiedzi: 10    Wyświetleń: 1878
  • excel - ILE cyfr w pojedynczej komórce excel

    Ile cyfr, czy ile liczb? W temacie podajesz cyfry, w treści liczby. Jeżeli liczby, to: [syntax=vbscript]Function IleLiczb(Komorka As String) As Integer IleLiczb = UBound(Split(Komorka, ",")) + 1 End Function [/syntax] Jeżeli cyfry, to: [syntax=vbscript]Function IleCyfr(Komorka As String)...

    Software serwis   09 Paź 2018 14:36 Odpowiedzi: 1    Wyświetleń: 1311
  • Excel przedzialy czasowe, formatowanie daty

    Ta postać daty jest rzeczywiście niestandardowa, nawet jak na angielską wersję Excela. Żeby Excel mógł ją rozpoznać musiałaby wyglądać tak: [syntax=text]March 7, 2020 23:37:29[/syntax]Zatem ten Twój format należy lekko przerobić, a potem przepuścić go przez funkcję Evaluate: [syntax=vbscript]Function...

    Obsługa oprogramowania   10 Mar 2020 14:17 Odpowiedzi: 2    Wyświetleń: 231
  • Split numeracja własna Visual Basic

    Mam stworzony formularz w VB w excelu gdzie mam numeracje każdego zlecenia które wygląda tak 001/OF/17 gdzie 001 chciałabym żeby przy dodawaniu nowej oferty zmieniało na kolejny numerek OF ma być stale a 17 to identykikacja roku kalendarzowego może być stała na ta chwile. Utknęlam w martwym punkcie....

    Programowanie Początkujący   12 Gru 2017 12:10 Odpowiedzi: 7    Wyświetleń: 582
  • Excel - Kopiowanie kilku zakresów z kilku arkuszy do kilku arkuszy

    Witam. Napisałem makro (excel 2010) które kopiuje pewien zakres (od A8 do kolumny E ostani zajęty wiersz) do komórki w kolumnie A pierwszy wolny wiersz w arkuszu w innym skoroszycie, problem polega na tym że chciałbym skopiować kilka zakresów (np A8 do kolumny E ostani zajęty wiersz, O8 do kolumny AK...

    Software serwis   31 Sty 2013 08:19 Odpowiedzi: 2    Wyświetleń: 2277
  • Excel - Listowania słów z tekstu w kolumnie.

    Dziękuje za informacje, ale VBA to czarna magia dla mnie, sprawdzam w wyszukiwarce tę funkcje split i prawdę mówiąc nie wiem nawet jak to ugryźć i od czego zacząć. Dla nooba takiego jak ja, użycie funkcji split graniczy z cudem, a już nie mówię o napisaniu całego skryptu. Masz racje formuły to by...

    Software serwis   05 Cze 2013 15:05 Odpowiedzi: 8    Wyświetleń: 1662
  • Excel - VBA - wczytywanie txt -

    Masz szczęście - akurat miałem pod ręką podobny plik, który wystarczyło tylko w kilku linijkach przerobić. Dla wiadomości - problem z Twoimi danymi źródłowymi jest bardziej skomplikowany. To nie jest znak Entera (zwykle kombinacja dwóch znaków: CR LF), tylko sam znak LineFeed (LF). Z tego też powodu...

    Programowanie Początkujący   03 Kwi 2014 23:29 Odpowiedzi: 4    Wyświetleń: 2055
  • Excel - zwracanie ilości wierszy spełniających warunki

    [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 8 Then h = Split("WIN;BOK;CC;OP", ";") hv = Target.Value For x = 0 To UBound(h) If hv = h(x) Then fl = True Next If Not fl Then MsgBox "Błąd" End If End Sub [/syntax]

    Software serwis   03 Sie 2014 20:23 Odpowiedzi: 8    Wyświetleń: 2388
  • Excel VBA Makro - Makro wyszukujące znak w komórce i kopiowanie zawartości wiers

    Następnym razem jako przykład załącz skoroszyty Excela a nie zrzuty ekranu. Przetestuj kod: [syntax=vbscript]Option Base 1 Sub podziel_autorow() Dim tblTmp() As String Dim lLstRw& Dim i&: i = 1 Application.ScreenUpdating = False lLstRw = Cells(Rows.Count, 1).End(xlUp).Row Columns(3).EntireCol...

    Programowanie Początkujący   04 Mar 2016 12:16 Odpowiedzi: 4    Wyświetleń: 1932
  • Import danych z plików txt do osobnych arkuszy w excelu

    Chciałbym wykonać programik, który będzie importował dane z plików txt i zapisywał je do osobnych arkuszach excela. Problem jest w tym, że dane z notatnika są w dziwny formacie. Nie potrafię tego ogarnąć. Napisałem programik, który czyta dane z plików txt ale warunek jest taki, że dane muszą być...

    Programowanie   20 Kwi 2017 21:05 Odpowiedzi: 13    Wyświetleń: 1026
  • VBA Excel - import z wielu plików do jednego arkusza ze zmianą układu

    Jeśli w tych plikach ".csv" jest dużo danych, dużo linijek, to nie będzie to najlepsza metoda (ten załączony kod z odczytem linijka po linijce) odczytu tych plików - zbyt długo będą one otwarte. Lepiej by było to odczytywać przy pomocy LOF, np.: [syntax=vba] Open sciezka & plik For Input As #1 ...

    Programowanie Początkujący   24 Paź 2017 22:36 Odpowiedzi: 3    Wyświetleń: 1422
  • Excel - dodanie nowych danych - Wyodrębnienie danych z komórki w tabeli i dodan

    Zwykłymi formułami to dość trudno uzyskać. Napisałem funkcję UDF o nazwie Podziel, której podaje się jako argument zakres danych albo nazwę tabeli. W wyniku otrzymuje się tablicę z wynikami. Można ją wyświetlić jako formułę tablicową, jak pokazałem w komórkach E10:G14 albo wprowadzić do tabeli Excela...

    Software serwis   02 Wrz 2020 12:34 Odpowiedzi: 5    Wyświetleń: 243
  • [excel]VBA makro zamieniające kod na tekst

    Zastanów się nad wstępną normalizacją kodów, bo czeka Cię nie lada zadanie... W VBA można wykorzystać funkcję Split ale przy tym ostatnim zapisie założenie bierze w łeb i trzeba szukać pierwszej liczby w łańcuchu. Może byłoby i łatwiej. Jeśli tablica po rozbiciu łańcucha miałaby mniej niż...

    Programowanie Początkujący   08 Lip 2010 18:59 Odpowiedzi: 6    Wyświetleń: 4284
  • [VBA] Excel - import danych z wielu plików

    Pliki można przyjąć są txt, a podane rozwiązanie to niemal dokładnie to czego potrzebuję :-) Do pełni szczęścia trzebaby jeszcze wpleść kwestię importowania danych rozdzielonych w plikach źródłowych średnikami do oddzielnych kolumn w arkuszu. Moje starania w tej kwestii na razie nie przynoszą pożądanego...

    Programowanie Początkujący   22 Sty 2013 23:00 Odpowiedzi: 10    Wyświetleń: 13955
  • [VBA][Excel] Analiza zapisów partii szachowych

    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...

    Programowanie   14 Cze 2010 18:16 Odpowiedzi: 28    Wyświetleń: 5175
  • excel - nie moge poradzic sobie z wyznaczeniem roznic w poszczegolnych wierszach

    Bede bardzo wdzieczny za jakiegos tzw. gotowca. Jako nowo-zarejestrowanemu w formie promocji :) Rozciągnij kolumny na jakieś 250 pikseli, będzie lepiej widać (sam się złapałem na spacjach). Spróbuj[syntax=vb]Sub proba() Dim tbl1 As Variant, tbl2 As Variant, test As Boolean Dim i As Long, j As...

    Software serwis   04 Lip 2018 20:56 Odpowiedzi: 6    Wyświetleń: 1285
  • Jak to zrobić - Vba Excel?

    Zrób tak jak w przykładzie. Obsługa błędów jest wyłączona, więc VB nie zatrzyma się na Split jeśli brak komentarza w komórce. Porównanie będzie miało wynik negatywny i przepisanie pustej tablicy da w efekcie pusty, widoczny komentarz... Z drugiej strony: Jeśli Split, to komentarz już tam jest, więc...

    Programowanie Początkujący   31 Sie 2011 13:31 Odpowiedzi: 30    Wyświetleń: 5531
  • VB excel. Makro odpowiedzialne za wyświetlenie numeracji wniosków.

    Najprościej b = Split(Cells(5, 10), "/") a = b(0) Cells(5, 10) = a + 1 & "/" & b(1)

    Software serwis   06 Gru 2011 15:35 Odpowiedzi: 1    Wyświetleń: 1046
  • [Excel] VBA wczytywanie z pliku txt

    Spróbuj z rozdzieleniem po wczytaniu całej linii. Np[syntax=vb]Sub wczytajPlikTekstowy() Close #1 'dla pewności Open ".\dane.txt" For Input As #1 wrs = 1 Do Until EOF(1) kol = 1 Line Input #1, liniatekstu tbl = Split(liniatekstu, "|") For i = 0 To UBound(tbl) Cells(wrs,...

    Programowanie Początkujący   22 Sty 2012 23:39 Odpowiedzi: 2    Wyświetleń: 4846
  • Excel makro znajdź ciąg znaków

    A czy nie prościej byłoby rozbić ciąg Split'em wg spacji? Powstanie 5-cio elementowa tablica, gdzie druga i czwarta wartość to nasze liczby... Przyznam że nie znałem funkcji split ale rzeczywiście to najszybszy sposób (jedna linijka kodu) i prosty w odwołaniach. ( Na marginesie - dla mniej zorientowanych...

    Software serwis   30 Sty 2012 20:10 Odpowiedzi: 9    Wyświetleń: 5408
  • Excel-zmiana koloru komórki jeżeli wartość większa niż komórka niżej

    Pierwszą część możesz wygodnie zrealizować przy pomocy procedury zdarzeniowej, gdzie warunkiem jest zaznaczenie minimalnej ilości komórek (można ograniczyć do zakresu, kolumn, etc). Przykład dla zaznaczenia >3[syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count...

    Software serwis   22 Wrz 2012 19:12 Odpowiedzi: 2    Wyświetleń: 6174
  • [Excel] Przenoszenie danych z EditBoxów do odpowiednich komórek

    Jego przeznaczeniem jest użytkowanie przez bardzo amatorską osobę Już podpowiadam. Dla w/w osoby: "4D, 5D, 5N, 29N" ; "4d ,5d ,5n ,29n" ; "4D,5D,5N,29N" ; "4D. 5D. 5N .29N" w zasadzie wygląda tak samo. O pomyleniu literki, bo przecież można się pomylić, nawet nie wspomnę. Jeśli 15 razy dziennie nie...

    Programowanie Początkujący   04 Kwi 2012 19:56 Odpowiedzi: 6    Wyświetleń: 1703
  • Excel-makro zmieniające dane znaki na polskie litery

    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...

    Software serwis   12 Lip 2012 17:35 Odpowiedzi: 18    Wyświetleń: 9612
  • Makro - kopiowanie określonych wierszy z pliku txt do xls (Excel)

    Jeżeli pola są oddzielone spację, wystarczy taka modyfikacja pętli: [syntax=vb]Do While Not EOF(1) Line Input #1, TextLine If Left(TextLine, 13) = "121401_2.0011" Then arr = Split(TextLine, " ") wsdane.Cells(i, 1).Value = arr(0) wsdane.Cells(i, 2).Value = arr(1) ...

    Programowanie Początkujący   08 Wrz 2012 16:16 Odpowiedzi: 4    Wyświetleń: 2658
  • excel vba dzielenie tekstu z komórki

    Funkcja Split jest dokładnie opisana w pomocy Excela i w [url=]Internecie. W załączniku dwie funkcje użytkownika plus to co wczoraj naskrobałem.

    Software serwis   12 Wrz 2012 13:36 Odpowiedzi: 4    Wyświetleń: 6075
  • Excel - Makro zamiana wartości

    w trzeciej sama trasa wypisana w formacie: sklep_xxx-sklep_yyy-sklep_z... Jeśli dobrze zrozumiałem, to myślnik jest znakiem rozdzielającym nazwy sklepów, których trzeba wyszukać? Jeśli tak, to najprościej rozbić ciąg funkcją Split i zapisać w tablicy. Następnie wyszukać kolejne wartości w pętli...

    Software serwis   23 Wrz 2012 19:18 Odpowiedzi: 4    Wyświetleń: 1560
  • excel - Dwa pierwsze wyrazy z danego wiersza.

    Funkcja Split().

    Software serwis   27 Paź 2014 12:21 Odpowiedzi: 17    Wyświetleń: 6903
  • EXCEL 2007 - wyszukanie słowa w tekście

    [syntax=vb]Function PozycjaSlowa(Slowo As String, Tekst As String) As String sl = Split(Slowo, ":") For x = 0 To UBound(sl) If InStr(1, Tekst, sl(x)) > 0 Then PozycjaSlowa = PozycjaSlowa & InStr(1, Tekst, sl(x)) & ":" End If Next x PozycjaSlowa = Left(PozycjaSlowa, Len(PozycjaSlowa)...

    Software serwis   22 Lut 2013 10:48 Odpowiedzi: 15    Wyświetleń: 4659
  • Excel- Kwestionariusz pracownika. Rozszerzenie możliwości pliku

    Ze split'em o to mi chodziło (ale jest jenen mankament poniżej). Co do innych "namiarów" - inaczej zrozumiałem bo z kolei jak to pisałem to byłem po piwku. Z tym że po co łączysz imię z nazwiskiem by je znów rozłaczać - nie może być to w oddzielnych komórkach? (ewentualnie trzecja komórka "nazwa"...

    Software serwis   06 Mar 2013 22:05 Odpowiedzi: 83    Wyświetleń: 12042
  • VBA MAKRO - Proste makro Excel

    Skoro ma być w VBA... Przykład z tablicą i... InputBox'em ;) [syntax=vb]Sub aver() tekst = InputBox("Wpisz liczby oddzielając średnikiem", "Obliczanie średniej") tekst = Replace(tekst, " ", "") 'wyrzucamy spacje tekst = Replace(tekst, ":", ";") 'mogło się komuś omsknąć tekst = Replace(tekst,...

    Programowanie Początkujący   30 Maj 2013 20:30 Odpowiedzi: 2    Wyświetleń: 2733
  • VBA Excel - Import plików txt do kolejnych kolumn w jednym arkuszu

    Przetestuj [syntax=vb]Option Explicit Sub Import_TXT_FSO_SPLIT() Dim oFSO As Object 'File System Object Dim oFld As Object 'Obiekt Folder Dim oFls As Object 'Obiekt Plik Dim oTemp As Object Dim iRw As Integer: iRw = 1 'wiersz do którego wpisywane są dane Dim sItem...

    Programowanie Początkujący   23 Lis 2017 09:19 Odpowiedzi: 13    Wyświetleń: 7419
  • Dodawanie czasu w MS Excel

    Jeśli ktoś zna lepszy sposób to mógłby podać. Można napisać własną funkcję w VBA: W załączniku przykładowy plik z jej działaniem. Funkcja oczekuje, że w komórkach będzie tekst w postaci czterech liczb rozdzielonych dwukropkami (01:02:03:04 lub 1:2:3:4 lub 1:02:03:04 są dla niego akceptowalne...

    Software serwis   08 Sie 2013 08:42 Odpowiedzi: 9    Wyświetleń: 4218
  • [EXCEL]/[VBA] - Wyszukiwanie komórki zawierającej tekst i kopiowanie jej do kolu

    Jeśli Np "europa01dom" spełnia 2 kryteria, 'europa' oraz '01dom', to co w takim przypadku? Widzę tu zastosowanie funkcji Split z tablicą tymczasową do sprawdzania duplikatów, lub coś w tym rodzaju...

    Programowanie Początkujący   06 Wrz 2013 22:31 Odpowiedzi: 4    Wyświetleń: 6645
  • EXCEL VBA - sortowanie scalonych komórek

    Nie najprościej, ale dość efektywnie jest tak: 1 10 11 9 A B R X Z a b r x ... nie dziwi. By poprawnie sortować string trzeba by użyć bardziej zaawansowanych algorytmów. W kodzie jest "zaremowana" (określenie pochodzi od starej formy wstawiania komentarzy poprzedzanych słowem "rem")...

    Programowanie Początkujący   13 Wrz 2013 12:54 Odpowiedzi: 10    Wyświetleń: 6195
  • excel - Jak dopisać do każdego wiersza na początku pewne wartości...

    Po wykonaniu makra 'Id', wykonaj to makro: [syntax=vb]Sub BezImg() For x = 1 To Cells(Rows.Count, "A").End(xlUp).Row t = Split(Cells(x, 1), "|") For y = 0 To 6 a = a & t(y) & "|" Next a = a & t(10) & "|" & t(11) & "|" Cells(x, 1) = a Next End Sub [/syntax] Zmieniasz...

    Software serwis   11 Wrz 2013 11:43 Odpowiedzi: 17    Wyświetleń: 17364
  • Excel - Wyszukiwanie i wpisywanie w arkuszu o nazwie pobranej z komórki

    Najprościej funkcją 'Format' [syntax=vb]'jeżeli format z kropkami (jak w poście: 24.09.2013 Magazyn.txt.) strNazwa = Format(Date, "dd.mm.yyyy") & " Magazyn.txt" sciezka = "c:\dir\subdir\" 'nie musi być jesli ścieżka taka sama Open strNazwa For Input As #1 ' sciezka & strNazwa Do Until EOF(1)...

    Programowanie Początkujący   24 Wrz 2013 20:37 Odpowiedzi: 8    Wyświetleń: 3870
  • [Ms Access/VBA] - Automatyczne wysyłanie maili - jak zamienić makro z excela?

    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()...

    Programowanie   24 Lis 2013 08:53 Odpowiedzi: 5    Wyświetleń: 9024
  • Excel - mnożenie ciągu liczb oddzielonych literą "x"

    Witaj, Łatwo to zrobić za pomocą makro, na przykład takiego: =mnozenie(B3) W załączniku przykład. W kolumnie D działa moja funkcja. Makro jako symbol mnożenia akceptuje jedynie małą literę "x", jako separator dziesiętny można użyć kropki albo przecinka.

    Software serwis   10 Gru 2013 06:25 Odpowiedzi: 3    Wyświetleń: 1527
  • Excel makro wysyłające email do paru osób DW

    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...

    Software serwis   21 Sty 2014 18:47 Odpowiedzi: 4    Wyświetleń: 1959
  • Korespondencja seryjna uruchamiana z Excela

    jak zdefiniować formularz ? może jakiś przykład ? Zostańmy na razie przy przycisku (który może mieć przypisane makro, a makro - to nic innego niż kod VBA). Zakładam, że masz dokument korespondencji seryjnej, otworzyłeś go, wybrałeś źródło rekordów. Stwórz i uruchom sobie makro z następującym kodem: [syntax=vb]With...

    Programowanie Początkujący   14 Gru 2015 10:25 Odpowiedzi: 22    Wyświetleń: 15930
  • EXCEL - Wyciąganie poszczególnych wyrazów z tekstu

    [syntax=vb]Sub Rozdziel() For x = 1 To Cells(Rows.Count, "A").End(xlUp).Row a = Split(Cells(x, 1), " ") Cells(x, 2) = a(0) Cells(x, 3) = a(2) Next End Sub [/syntax] I tak dalej.

    Programowanie Początkujący   24 Mar 2014 21:59 Odpowiedzi: 11    Wyświetleń: 1887
  • EXCEL wczytaj z pliku CSV - bezpośrednie wczytanie do komórki

    [syntax=vb] Open "C:\Plik.csv" For Input As #1 While Not EOF(1) Line Input #1, Linia a = Split(Linia, ";") Cells(x, 1) = a(1) x = x +1 Wend [/syntax] Idź tym tropem.

    Programowanie   22 Kwi 2014 13:14 Odpowiedzi: 9    Wyświetleń: 2172
  • Excel, txt - Import do arkusza z pliku txt tylko wybranych danych.

    Przy czym plik txt jest koszmarnie sformatowany Dlaczego zaraz koszmarnie?? Całkiem przyzwoicie - dane powtarzają się w przewidywalnych grupach. Wystarczy podzielić na tablicę wg spacji i w zależności od długości tablicy skopiować dane w odpowiednią komórkę: [syntax=vb]Private Sub CommandButton1_Click() Dim...

    Programowanie Początkujący   28 Kwi 2014 12:42 Odpowiedzi: 8    Wyświetleń: 3351
  • Excel - Podział złożonej zawartości komórek na pojedyńcze

    (ew. makro) Pobaw się tym: [syntax=vb]Sub Podziel() For x = 1 To Cells(Rows.Count, "A").End(xlUp).Row s = Split(Cells(x, 1), "_") For y = 0 To UBound(s) Cells(x, y + 2) = s(y) Next Next End Sub [/syntax]

    Software serwis   23 Kwi 2014 14:48 Odpowiedzi: 5    Wyświetleń: 960
  • Excel - podział tekstu, stworzenie makra

    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) <>...

    Programowanie Początkujący   11 Lip 2014 13:53 Odpowiedzi: 10    Wyświetleń: 1488
  • Macro VBA - Excel zmienia pli tylko do odczytu

    A czy mógłbym użyć "split", żeby narzucić excelowi w macro w jaki sposób ma interpretować otwierany plik? czyt. jak go dzielić? Czy on już go sobie wtedy podzieli dodatkowo? Split(Zmienna, "znak rozdzielający")

    Początkujący Naprawy   28 Sty 2015 06:28 Odpowiedzi: 23    Wyświetleń: 1929
  • VBA Excel - Kopiowanie sekwencji wierszy z pliku txt i wyszukiwanie z kolumn

    Witam, Dobrze zacząłeś z tym wczytywaniem pliku, trzeba było to kontynuować. Proponuję wyszukiwanie załatwić kodem, np: If Right(t, 1) = ";" sprawdza czy w grupie znaleziono linię 333. Jeśli nie to po średniku będzie pusty ciąg.

    Programowanie Początkujący   18 Lut 2015 13:01 Odpowiedzi: 4    Wyświetleń: 1227
  • VBA, OpenSolver, Excel 2007

    Witam. Mam za zadanie wykonać model, w którym kopiuję z jednego arkusza (Arkusz3) po kolei pojedyncza kolumnę z danymi do arkusza "Europa", następnie wykonuje operacje przy pomocy programu OpenSolver/Solver i pewien fragment z symulacji kopiowany jest do arkusza dla konkretnego miesiąca. Wczoraj po...

    Software serwis   27 Kwi 2015 12:29 Odpowiedzi: 0    Wyświetleń: 552
  • VBA Excel - Pobranie ścieżki i nazwy pliku do zmiennych (okno dialogowe)

    [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...

    Programowanie   28 Maj 2015 10:34 Odpowiedzi: 2    Wyświetleń: 2367
  • EXCEL - stworzenie makra lub formuły

    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)...

    Programowanie Początkujący   12 Cze 2015 14:22 Odpowiedzi: 4    Wyświetleń: 729
  • Pliki .txt z określonymi wierszami do excela

    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...

    Programowanie Początkujący   19 Lip 2015 19:34 Odpowiedzi: 13    Wyświetleń: 1449
  • VBA excel 2013 - Wyodrębnienie daty

    Może taka prosta funkcja: [syntax=vbscript]Function NajnowszaData(Wej As String) As Date Dim Daty() As Date d = Split(Wej, " ") For x = 0 To UBound(d) If IsDate(d(x)) Then y = y + 1 Next ReDim Daty(y - 1) y = 0 For x = 0 To UBound(d) If IsDate(d(x)) Then Daty(y) = d(x) ...

    Programowanie   15 Sie 2015 11:07 Odpowiedzi: 5    Wyświetleń: 867
  • Excel VBA - Eksport do pliku TXT + autoamtyczne otwarcie pliku po eksporcie.

    Jak widać, chcesz sklejać konstrukcję 'INSERT'. Proponuję coś w tym stylu: [syntax=vbscript]Sub qq() Open "C:\SQL.txt" For Output As #1 strSQL = "INSERT INTO Tabela (id, nazwisko) VALUES (" & Celles(x, 1) & "'" & Cells(x, 2) & "'" i = Split(strSQL, vbNewLine) For x = 0 To UBound(i) Print...

    Software serwis   27 Sie 2015 07:03 Odpowiedzi: 35    Wyświetleń: 4245
  • Excel - makro z działaniem matematycznym

    Z tymi -1,1,0 chodzi o to, że tylko te liczby wchodzą w ciąg 5 elementowy (liczbę L u nas ) czyli moze byc np -1,0,1,0,-1. Już rozumiem. Niestety w tym przypadku moje rozwiązanie przy wystąpieniu "-1" rozjedzie się, więc trzeba je skorygować. Pytanie czy dane w jednej komórce (dana "liczba"...

    Software serwis   15 Sty 2016 13:41 Odpowiedzi: 12    Wyświetleń: 879
  • excel - VBA: dodawanie wierszy + scalanie wybranych komórek

    [syntax=vb]Sub numery() Dim wz As Worksheet, rs&, re&, i&, j& Dim bs As Range, bd As Range Set bs = ThisWorkbook.Sheets("baza").Range("B1:C1... 'platform, tara Set bd = ThisWorkbook.Sheets("start").Range("B1:C... 'wagony Set wz = ThisWorkbook.Sheets("wykaz_zdawczy") wz...

    Software serwis   24 Lut 2016 10:02 Odpowiedzi: 5    Wyświetleń: 1578
  • VBA Excel - Usuwanie wiersza jeśli jest w nim dane słowo, łączenie kilku makr

    wszystkie do jednego arkusza o nazwie np.DANE Co ma być z pobranych danych przed? żeby każda liczba miała 3 miejsca po przecinku Ponieważ arkusz jest jedna i ta sama(DANE). format odpowiednych kolumn raz ręcznie. Dodano po 14 Jak ustawić żeby liczby zawsze były wyświetlane bez minusów?...

    Software serwis   16 Kwi 2016 06:22 Odpowiedzi: 7    Wyświetleń: 1428
  • Excel VBA Makro - Oczyszczanie komórki z niektórych danych

    Zdaje się, że wystarczy potraktować "zwykłym" Split'em. Sprawdź.

    Programowanie Początkujący   21 Kwi 2016 11:10 Odpowiedzi: 6    Wyświetleń: 888
  • EXCEL - podkeślanie błędów jak w Worldzie

    Hej, Temat dosyć stary ale być może ktoś tak samo jak ja będzie szukał odpoiwiedzi na to pytanie więc wstawiam rozwiązanie. Kod zakłada że w komórkach D1, D2, D3 mamy tekst który chcemy sprawdzić. Oczywiście można podłączyć ten kod do zdarzeń arkusza. [syntax=vbscript]Sub Split_Text() Dim...

    Software serwis   10 Cze 2016 10:33 Odpowiedzi: 2    Wyświetleń: 8577
  • EXCEL - Wyszukać z kolumny jedno z kilku nazwisk/w komórce

    która przyrasta o jakieś 500 wierszy miesięcznie W jaki sposób dodawane są wiersze? Może trzeba zmodyfikować sposób importu danych? W takiej formie, funkcjamii wbudowanymi nie będzie łatwo. Prościej byłoby napisać własną (Split i zliczanie w pętlach)...

    Software serwis   23 Cze 2016 09:39 Odpowiedzi: 2    Wyświetleń: 1227
  • VBA Excel - Zapis pliku do txt - zbędne cudzysłowy

    [syntax=vbscript] Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _ (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Private Const MAX_PATH As Long = 260 '~~> Change this where and how you want to save the file Const FlName = "C:\MyWorkbook.txt" Sub...

    Programowanie Początkujący   26 Paź 2016 18:15 Odpowiedzi: 2    Wyświetleń: 1596
  • VBA Excel XML - Import z wielu plików tylko kilku danych

    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...

    Programowanie   02 Mar 2017 21:39 Odpowiedzi: 9    Wyświetleń: 2388
  • VBA Excel. Kopiowanie danych z plików csv wraz z nazwą pliku z którego zostały

    Witam. Nie znam niestety VBA i mogę liczyć tylko na Waszą pomoc. Musze napisać makro, które skopiuje mi dane z pliku csv/txt do arkusza, przypisując jednocześnie nazwę pliku z którego zostało skopiowane.. .To jakby połaczenie tych dwóch kodów: Sub Importuj() Dim rg As Range Dim sciezka As String,...

    Programowanie Początkujący   17 Mar 2017 14:49 Odpowiedzi: 1    Wyświetleń: 2139
  • VBA Excel - Jak sprawdzić, czy komórka należy do zakresu?

    W jaki sposób mogę sprawdzić, czy komórka np. F17 należy do zakresu np. A3:S90? trzeba użyć metody Intersect ... lub możesz tworzyć "własne rozwiązania", jeśli chcesz sobie "poćwiczyć", np.: [syntax=vba]Option Explicit 'Option Base 1 Sub nalezy_nie_nalezy() Dim i As Integer, pocz As Integer,...

    Programowanie Początkujący   21 Maj 2018 17:33 Odpowiedzi: 6    Wyświetleń: 1278
  • [VBA] Excel - łączenie i rozdzielanie tekstu

    Coś już wiemy :) Ale skoro: Próbowałem apelować do osób które tworzą raporty żeby ujednolicić dane To "ujednolić" sobie... Ja bym to zrobił tak: 1. decyzja, czy wszystko ma być z wiodącym zerem, czy nie 2. makro, które przemieli wszystkie ciągi zawierające liczby we wszystkich arkuszach do określonego...

    Programowanie   01 Cze 2018 10:33 Odpowiedzi: 4    Wyświetleń: 876
  • Excel - czy można to podliczyć wzorcem

    Witam [syntax=vbscript]Sub dodaj() a = Split(Range("A1"), Chr(10)) For c = 0 To UBound(a) Suma = Suma + Val(a(c)) Next MsgBox Suma End Sub[/syntax] albo [syntax=vbscript] ... dod MsgBox Evaluate(Replace(Trim(Range("A1")), Chr(10), "+")) End Sub [/syntax]

    Obsługa oprogramowania   18 Cze 2018 17:34 Odpowiedzi: 11    Wyświetleń: 405
  • numer faktury excel z użyciem numeru miesiąc i roku

    [syntax=vbnet]Function nrf(ostatninumer as string) as string Dim numer as string=""'lp/mm/rrrr Dim nr as string() =ostatninumer.split("/") Dim lastlp as integer=nr(0) Dim Lastmiesiąc as integer =nr(1) Dim Lastrok as integer =nr(2)' w sumie zbędne If Month.now =Lastmiesiąc then Lp+=1 Else Lp=1 End...

    Programowanie Początkujący   12 Lip 2018 20:15 Odpowiedzi: 6    Wyświetleń: 1212
  • VBA EXCEL - wyszukiwanie po kodch

    Czy możesz przyjąć założenie, że każdy wpis będzie syntaktycznie poprawny? Jeżeli tak, to rozwiązanie jest proste. Załóżmy, że mamy ciąg par wartości: 1. dowolna liczba całkowita 2. ściśle określone słowa, którym jest przypisana wartość Wszystko porozdzielane np. spacjami. Bierzesz wartość z komórki,...

    Programowanie   15 Wrz 2018 14:50 Odpowiedzi: 20    Wyświetleń: 789
  • Notatnik i vba do skopiowania danych do Excela. Bardzo duża ilość danych

    Tu masz dobry przykład jak to wczytać w vba (musisz w split zmienić przecinek na ;) (kolejne kolumny to kolejne numery w drugim argumencie funkcji cells. Co do pierwszego argumentu - sprawdź na końcu czy jest mniejszy od np 500000 i wtedy robisz wk=wk.next (ew jakiś inny worksheet), oraz r=0

    Programowanie   25 Wrz 2018 06:53 Odpowiedzi: 18    Wyświetleń: 1290
  • excel VBA windows 10 odczyt z pliku -makro

    No właśnie. To może być to. U mnie (po zmianie na październik) działa. Ale, uwaga, format daty systemowej mam zgodny z tym w CSV (Vista 32bit, Office 2007). Bo przy konwersji daty w "odwrotnym" formacie, Np z listopada może zrobić się marzec: Tak się jeszcze zastanawiam. Zamiast porównywać...

    Programowanie   31 Sty 2019 09:32 Odpowiedzi: 12    Wyświetleń: 705
  • [Excel] Zliczanie z jednego ciągu wartości rozdzielonych przecinkami.

    Ile maksymalnie może być wpisanych błędów w komórkach kolumny D? Przy porannej kawie wymęczyłem, z pomocą tabelki pomocniczej, rozwiązanie dla 1-4. Dalej sobie nie wyobrażam. Jedyne co mi przychodzi do głowy, to długie ciągi rozbić na ~połowę i obrabiać w dwóch tabelkach ;) Swoją drogą napisać...

    Programowanie Początkujący   04 Kwi 2020 23:10 Odpowiedzi: 11    Wyświetleń: 936
  • Jak powinny wyglądać funkcje w Excelu 2013

    Split("-", "/") Potem replace(0,"")

    Programowanie   22 Gru 2018 18:47 Odpowiedzi: 8    Wyświetleń: 426
  • Excel - VBA - zmiana danych wpisanych po przecinku

    [syntax=vbscript]Sub Tlumaczenie() Set s = Sheets("Słownik") ows = s.Cells(Rows.Count, "A").End(xlUp).Row Sheets("Arkusz1").Se... = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ow t = "" b = Split(Cells(x, 1), ",") For y = 0 To UBound(b) oryg = Trim(b(y)) ...

    Obsługa oprogramowania   20 Sie 2019 08:21 Odpowiedzi: 7    Wyświetleń: 264
  • [Excel] Skrypt/Funkcja rozdzielająca tekst z komórki na kilka innych

    [syntax=vbscript]Sub Rozdziel() ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 2 To ow a = Split(Cells(x, 1), ".") For y = 2 To 4 Cells(x, y) = a(y - 2) Next Next End Sub [/syntax] Trzeba tylko ustawić format kolumn B:D na tekstowy.

    Programowanie Początkujący   28 Paź 2019 13:33 Odpowiedzi: 6    Wyświetleń: 519
  • [VBA EXCEL] Konwersja czasu na liczbę i odwrotnie.

    Można tak: [syntax=vbscript]Private Sub OK_Click() If NUMV = "" Then d = Split(HHMM, ":") NUMV = Format(d(0) + d(1) / 60, "#0.00") Else HHMM = Int(NUMV) & ":" & Round((NUMV - Int(NUMV)) * 60, 0) End If End Sub [/syntax]

    Programowanie Początkujący   16 Mar 2020 19:22 Odpowiedzi: 9    Wyświetleń: 474
  • VBA Excel - porównanie listy użytkowników podczas otwarcia pliku

    :) [syntax=vbscript]Sub Log_Ok() Dim ostkomzakr As String Dim LogOk As Range With ThisWorkbook.Sheets("Jakiś_arkusz").Rang... ostkomzakr = Split(.Address(0, 0), ":", -1, 1)(1) Set LogOk = .Find(Environ("Username"), .Range(ostkomzakr), xlFormulas, xlWhole, xlByRows) ...

    Programowanie Początkujący   25 Cze 2020 07:10 Odpowiedzi: 12    Wyświetleń: 741
  • Excel - VBA, makra, corpo, drukowanie za pomocą makr

    w moim przypadku by to nie zadziałało Zadziałało, zadziałało. Tak: [syntax=vbscript]Su... Drukowanie() Application.ScreenUpdating = False s = "A1 A3 A8 A13 A14" i = InputBox("Numer wiersza") Set a = ActiveSheet Set b = Workbooks.Open(Environ("userprofile") & "\Desktop\Zeszyt2.xlsm") k = Split(s,...

    Programowanie Początkujący   28 Kwi 2020 10:39 Odpowiedzi: 9    Wyświetleń: 762
  • Blokowanie usuwania komentarzy excel VBA

    Blokowanie uzyskasz poprzez założenie hasła. Numerowanie komentarzy poniżej. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim a As String If Not Application.Intersect(Range("A1:C10"), Range(Target.Address)) Is Nothing Then i = Environ("USERNAME") & " <" &...

    Obsługa oprogramowania   05 Cze 2020 18:52 Odpowiedzi: 2    Wyświetleń: 381
  • Wykonanie makra EXCEL tylko w dzień roboczy

    Spróbuj z takš funkcjš: Teraz działa super, dziękuję. Jeszcze jedno pytanie. Co zrobić aby zablokowanie czyszczenia komórek trwało do poniedziałku do godz. 14:00? Doba Raportowania zaczyna się u mnie o 14:00 i trwa do 14:00 dnia następnego. Jeżeli jest weekend to możliwoœć czyszczenia komórek...

    Obsługa oprogramowania   21 Cze 2020 11:13 Odpowiedzi: 17    Wyświetleń: 477
  • Excel VBA - usunięcię pierwszych 5 liter, skopiowanie wyniku do nowej komórki.

    jakoś samemu mi nie idzie Nie idzie, bo co innego piszesz w #1, a co innego w #4. [syntax=vbscript]Sub Guzik() Range("A2:A4") = Split([A1], " ")(1) End Sub [/syntax]

    Obsługa oprogramowania   22 Cze 2020 07:34 Odpowiedzi: 5    Wyświetleń: 273
  • Makro excel tylko wybrane znaki w komórce

    [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) l = "ZWPR" k = "I10,D12,I13,12,J13,N13,P12,I22,I25" a = Split(k, ",") i = UBound(a) For x = 0 To i If Replace(Target.Address, "$", "") = a(x) Then f = False For y = 1 To 4 If UCase(Target) =...

    Obsługa oprogramowania   19 Sie 2020 18:55 Odpowiedzi: 9    Wyświetleń: 489
  • Excel / VBA / wstawianie i kopiowanie wierszy z rozdzieleniem wartości

    Dodano po 19 Excel / VBA / wstawianie i kopiowanie wierszy z rozdzieleniem wartości

    Obsługa oprogramowania   21 Sie 2020 12:27 Odpowiedzi: 7    Wyświetleń: 303
  • Excel/formuły - Jak wyciągnąć numer rachunku z komórki arkusza Excel - plik załą

    ja dopiero raczkuję w funkcjach VBA No to taka prosta funkcja: [syntax=vbscript]Function RachunekBankowy(Tekst As String) As String a = Split(Tekst, " ") u = UBound(a) For x = 0 To u b = Trim(a(x)) If Len(b) = 26 And IsNumeric(b) Then RachunekBankowy = b Exit For ...

    Obsługa oprogramowania   12 Paź 2020 11:34 Odpowiedzi: 5    Wyświetleń: 384
  • Excel - import danych z csv

    Hmm, ciekawy przypadek. Podziel przez 10 i zwróć dzien + mies jako liczbę... Np [syntax=vbscript]Function DataS(str As String) As Double Dim tbl As Variant, dta As Variant, i As Integer Dim dzien As Integer, mies As Single tbl = Array("sty", "lut", "mar", "kwi", "maj", "cze", "lip", "sie", "wrz",...

    Obsługa oprogramowania   18 Lis 2020 09:44 Odpowiedzi: 6    Wyświetleń: 255
  • Excel - Rozbicie tekstu z jednej kolumny na wiele

    w excelu nie ma chyba funkcji split? :?: W Excelu ta funkcja (choć pod inną nazwą :D ) występuje jako funkcja podstawowa w zakładce Dane :ok: 1059974

    Programowanie Początkujący   22 Lis 2020 20:23 Odpowiedzi: 6    Wyświetleń: 378
  • Excel 2013 zamiana formuły na makro

    [syntax=vbscript]Function DwaMyslniki(Tekst As String) As Boolean a = Split(Tekst, "-") If UBound(a) = 2 Then DwaMyslniki = True End Function[/syntax]

    Obsługa oprogramowania   22 Gru 2020 04:11 Odpowiedzi: 10    Wyświetleń: 234
  • VBA, Excel - Pobieranie danych z pliku .csv

    Wydzielono z Witam serdecznie, jest to mój pierwszy post na forum i liczę na pomoc specjalistów. :) Otóż mój problem to: Posiadam 8 parametrów maszyny, dla których 3 x dziennie tworzy się historia zapisu wartości jej parametrów. Codziennie muszę ten plik otworzyć, skopiować z niego odpowiednie...

    Programowanie Początkujący   29 Sty 2021 18:00 Odpowiedzi: 11    Wyświetleń: 357
  • Wyłączający się plik Excela

    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...

    Obsługa oprogramowania   08 Lut 2021 15:52 Odpowiedzi: 4    Wyświetleń: 153
  • excel vba - zmiana zakresu dla funkcji split

    witam mam problem ze zmiana zakresu dla funkcji split, zaznaczam ze jestem poczatkujacy w tym temacie ogolny zarys projektu to zczytywanie danych z wielu skoroszytow excela i kopiowanie niektorych arkuszy i okreslonych danych do jednego glownego skoroszytu w okreslone miejsca, po paru dniach przegladania...

    Software serwis   30 Sty 2017 13:51 Odpowiedzi: 2    Wyświetleń: 576
  • word - Wyszukiwanie powtórzeń w tekście

    Tak na szybko zamień w kodzie kropkę na spacje i powinno ruszyć (albo na , jeżeli kody masz oddzielone przecinkiem lub "wspólnym" znakiem czyli przecinkiem ze spacją ). Czyli a = Split(txt, ".") zamień na a = Split(txt, " ") Lub a = Split(txt, ",") lub a = Split(txt, ", ") Wszystko zależy jak...

    Software serwis   15 Gru 2014 10:13 Odpowiedzi: 11    Wyświetleń: 3798
  • VBS csv2excel - Visual basic script export z csv i import do xls

    Jak by ktoś kiedyś szukał to poniżej działający skrypcik vbs: Option Explicit Dim objUser, strExcelPath, objExcel, xlBook1, objSheet, _ objFSO, objFile, aline, aLines, irow, icol Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject... objFile = objFSO.OpenTextFile("D:\FIRMY\ARP\1\1\1....

    Software serwis   16 Sty 2015 15:59 Odpowiedzi: 3    Wyświetleń: 1005
  • VBA - Kopiowanie zakresów

    Witam, mam za zadanie jak najszybsze skopiowanie z kilkunastu arkuszy jednego pliku excela do jednego arkusza innego (nowo utworzonego) pliku excela. Używam metody Zrodla = Split("A1,A2,...,V2:W2", ",") Cele = Split("C9,C10,...,L103", ",") For i = LBound(Zrodla) To UBound(Zrodla) ...

    Software serwis   06 Maj 2016 10:26 Odpowiedzi: 13    Wyświetleń: 1002
  • VBA Excell - Brak polskich znaków z użyciem CMD/DIR

    Potrzebuję w VBA excel szybko wyszukać we wszystkich podkatalogach na dysku sieciowym pliki spełniające określone kryteria. I tak znalazłem fajny, czyli bardzo szybko działający kod. Niestety jest problem z polskimi znakami. Wynik działania tego kodu jest na przykład taki jak, poniżej. C:\Users\Andrzej\Desktop\vba...

    Programowanie   29 Mar 2018 01:41 Odpowiedzi: 2    Wyświetleń: 3117
  • Optymalizacja na podstawie zestawu danych

    Nie skupiałem się na obliczeniach. Statystykę jakoś zaliczyłem, ale nie uważam jej za dziedzinę matematyki... Matematykę lubię, nawet różniczki 2 rzędu i szeregi, ale jak widzę prawdopodobieństwo to jestem chory... nie rozumiem tego zupełnie. Wykonałem makro do pobierania wartości na zasadzie wprowadzenia...

    Software serwis   01 Sty 2013 22:50 Odpowiedzi: 20    Wyświetleń: 2517
  • Makro - Wartość ostatniej pełnej komórki

    Jak widać nie każdy lubi łowić ryby ;P Zwiększasz tylko numer dla ostatniej pozycji - dla VBA to co masz w komórce nie jest liczbą,a tekstem. Musisz go najpierw rozdzielić funkcją Split() po myślniku, następnie w ostatnim elemencie tablicy zwiększyć liczbę o jeden i na koniec - "skleić" tablicę na...

    Programowanie Początkujący   22 Sie 2013 23:34 Odpowiedzi: 8    Wyświetleń: 2526
  • Grafik - Jak zsumować godziny pracy

    Tu nie chodzi do konca o wiedze tylko o usystematyzowanie danych. Masz tak porozwalane dane że nie tak łatwo to objąć. Przyznam że jest to dość karkołomne. To co widzi człowiek excel musi przerobić tak by on to widział. W tej tabeli jest bardzo dużo "różnych" zmiennych które raz trzeba uwzględniać...

    Software serwis   03 Sie 2012 00:18 Odpowiedzi: 10    Wyświetleń: 3066
  • excel\vba - kopiowanie wielu wartosci do jednej komórki

    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 ...

    Programowanie Początkujący   05 Sty 2017 15:39 Odpowiedzi: 2    Wyświetleń: 1113
  • M.Office wyszukiwanie numeru w kolumnie

    Bez ścieżki dostępu... Jaka komenda otwiera plik excela? Sub Open_Copy() Dim fd As FileDialog Dim plik As Variant Set fd = Application.FileDialog(msoFileDialog... With fd .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*; *.xls*" ...

    Programowanie   15 Paź 2009 17:09 Odpowiedzi: 4    Wyświetleń: 1645
  • Program do usuwania z tekstu kolejnych powtarzających się wyrazów

    Jeśli korzystasz z arkusza kalkulacyjnego Excel, to można w nim napisać własną funkcję tzw. UDF, która może wykonać to zadanie. Zakładam, że dane są w jednym ciągu tekstowym, rozdzielone spacjami, i można je umieścić w komórce arkusza. Listing funkcji jest taki: [syntax=vbscript]Function Unikaty(src...

    Obsługa oprogramowania   28 Lut 2021 02:24 Odpowiedzi: 6    Wyświetleń: 198
  • Makro działające z hiperlinkie -

    Jedynie odwołując się do indeksów arkuszy zamiast do nazw. Np po kolejności komórek w kolumnie. [syntax=vb]Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) arg = Split(Target.SubAddress, "!") sh = Target.Parent.Row - 1 'link w 4 wierszu dot Sheets(3) adr = arg(1) With Sheets(sh) ...

    Software serwis   29 Maj 2013 20:56 Odpowiedzi: 6    Wyświetleń: 1500
  • łączenie sąsiednich wartości w komórkach

    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...

    Programowanie Początkujący   27 Cze 2013 16:26 Odpowiedzi: 3    Wyświetleń: 1353
  • VB.NET Rozdzielanie wiersza na kolumny - DataGridView

    Pierwszy raz widzę, żeby ktoś korzystał z takiego sposobu do wczytywania danych z rozdzielanego pliku tekstowego - ja to stosuję do połączeń z bazą danych, ew. odczytu z Excela. Do pliku tekstowego prościej i pewnie szybciej wykorzystać "zwykły" odczyt pliku linia po linii + metoda .Split() do podzielenia...

    Programowanie Początkujący   22 Lip 2013 22:53 Odpowiedzi: 4    Wyświetleń: 1587
  • vba - Eksport pliku xls do txt

    Witam Procedura mojego zadanie wygląda następująco. 1. Wczytuje plik txt do excela 2. "Obrabiam do wg. swoich potrzeb 3. Eksportuje dane do txt, nadpisując plik importowany. 1 makro do wczytywania mam napisane. Problem jest jednak z drugim, ponieważ muszę wyeksportować tylko dane z kolumn od...

    Programowanie Początkujący   16 Sty 2016 14:35 Odpowiedzi: 7    Wyświetleń: 1491
  • VBA - kopiowanie danych z innego pliku.

    FileDateTime nie jest odpowiednią funkcją, ponieważ, jak czytałem, rozpoznaje ona datę modyfikacji pliku Utworzenia lub modyfikacji, zależy co późniejsze. Czyli nie ma innej rady ... niestety ... :) ... wsiadasz do FSO ... :) :) :) ... Nie pomyl z tym 1500/1600 ... :) ... pliki z folderu, mają...

    Programowanie   10 Sty 2018 10:59 Odpowiedzi: 11    Wyświetleń: 2040
  • VBA odczyt danych z XMLa do stringa lub danej liczbowej

    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)...

    Programowanie Początkujący   12 Lut 2018 21:53 Odpowiedzi: 9    Wyświetleń: 861
  • Exel wyszukanie podobnych komórek

    W VBA masz funkcję [url=]SPLIT do rozbicia tekstu wg zadanego separatora. Proponuję - czy funkcjami Excel, czy w VBA - rozbić sobie ten długi ciąg na 3-4 kolumny. Potem użyć wspomnianych funkcji do ponownego połączenia 3-4 kolumn w jeden ciąg "po nowemu" (bądź "po staremu", zależy, który ciąg chcesz...

    Programowanie Początkujący   07 Cze 2018 14:30 Odpowiedzi: 4    Wyświetleń: 363
  • Kopiowanie danych do innych plików na zamknietym pliku csv

    Wczoraj byłem przeciwny pisaniu nowego makra, ale niedzielna nuda nie może zapanować, więc w załączniku makro. [syntax=vbscript]Sub ImportujCSV() Application.ScreenUpdatin... = False Dim xls As String, csv As String, Linia As Long, Bajty As Long, Arkusz As String xls = Sheets("Parametry").Range("A2") csv...

    Programowanie   31 Paź 2018 07:44 Odpowiedzi: 47    Wyświetleń: 1245
  • [VBA] Makro kopiujące dane do drugiego arkusza po wybraniu kryterium

    Witam, Potrzebuję makra które po wybraniu z listy rozwijanej (kolumna C) przeniesie cały wiersz z arkusza all do innego arkusza jednocześnie wykasowując ten wiersz a arkuszu all. Dobrze byłoby gdyby była zachowana możliwość przenoszenia później pomiędzy arkuszami. Przerobiłem makro znalezione w internecie,...

    Programowanie Początkujący   25 Lis 2019 12:15 Odpowiedzi: 5    Wyświetleń: 414
  • VBA kopiowanie zawartości komórek między plikami

    [syntax=vbscript]Sub PobierzDane() k = "b2,b82,c41,e75" kk = Split(k, ",") Set a = ActiveSheet Plik = Application.GetOpenFilename(FileFilter:=... Excela (*.xlsx),*.xlsx", Title:="Wybierz plik...") Set w = Workbooks.Open(Plik) Set b = w.Sheets(1) u = UBound(kk) For x = 0 To u a.Range(kk(x))...

    Programowanie   21 Paź 2020 09:31 Odpowiedzi: 9    Wyświetleń: 252