bingo =DATA.WARTOŚĆ("20"&FRAGMENT.TEKSTU(A1;3;...
=LEWY(A1;SZUKAJ.TEKST("-";A1)-1)
A faktycznie. Problem w tym, że w Excelu 1 to niedziela. Może wykorzystać funkcję WYBIERZ? Składnia DZIEŃ.TYG(liczba_kolejna;zwracany_ty... Zwracany_typ Liczba zwracana przez funkcję 1 lub jest pominięty Liczby od 1 (niedziela) do 7 (sobota). Zachowuje się jak poprzednie wersje programu Microsoft Excel. 2 Liczby od 1 (poniedziałek)...
Do komórki F2 wklej formułę =JEŻELI(LICZ.JEŻELI($C$2:$C$... i przeciągnij do dołu.
Ja to widzę jakoś tak (zakładam, że komórka B1 to numer i jest złożony tylko z cyferek, wydruk na drukarkę domyślną bez pytania, strony od 1 do 1): [syntax=vb]Sub Makro1() Dim x As Integer x = Val(InputBox("Podaj liczbę kopii", "Liczba kopii", 1)) If x = 0 Then Exit Sub While x > 0 ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1 Range("B1").Value...
ale jestem głupi Nie myśl w ten sposób. Parę(naście/dziesiąt(już?)) lat temu zmieniałem format daty przy ### i dopiero po kilku dniach zaskoczyłem ;)
Jeżeli A1 zawiera datę to liczbę dni od początku roku możesz obliczyć formułą: =A1-(DATA(ROK(A1);1;1)-1) nadając komórce format ze jest liczbą (Format -1234).
Jeżeli numery są pisane bez spacji i w wierszu jest tylko 1 numer złożony z 26 cyfr, to można zastosować taką formułę tablicową: [syntax=text]=INDEKS(FRAGMENT.TEKSTU(B2;...
Witam, Możesz to zrobić prościej - przekazując referencję do kontrolki jako argument funkcji. Przykład: [syntax=vb]Private Sub TextBox1_Change() Call Wiadomosc(TextBox1) End Sub Private Sub TextBox2_Change() Call Wiadomosc(TextBox2) End Sub Private Sub TextBox3_Change() Call Wiadomosc(TextBox3) End Sub Private Sub Wiadomosc(ByRef sender As MSForms.TextBox)...
Witam Jeśli telefon nie ma spacji następnie znaleźć pierwsze miejsca spacje i cięcia w lewo znaków - telefon pocięte wprawo odpowiednich znaków długości tekstu minus pozycji spacje Przepraszam za gramatykę - tłumaczenie maszynowe
W VB używamy przecinka. Np Range("A1:A1200,B5:B10&...
Musisz utworzyć plik Excela, w którym będziesz odnotowywał numery wszystkich rachunków wystawionych w Wordzie :idea: :D A potem możesz sobie zestawić dane i ustalić ostatni numer wystawionych rachunków np. tak jak na zrzucie :spoko: 1073332
Witaj [syntax=vb] Dim Sh As Worksheet Dim intName As Integer Dim shName As String Dim strNazwa As String ActiveWorkbook.Sheets("Template").Copy After:=ActiveWorkbook.Sheets("Template") strNazwa = "projekt" ' tutaj ustawiamy jak ma wyglądać początek nazwy arkusza intName = 0 For Each Sh In ActiveWorkbook.Worksheets shName = Sh.Name If Left(shName, Len(strNazwa))...
D1 =INDEKS(B:B; PODAJ.POZYCJĘ(E1; A:A; 0)) lub D1 =WYSZUKAJ.PIONOWO(E1; A:B; 2; 0)
Następna lista musi zaczynać się od 43 wiersza. Czyli odwracając działanie w kodzie: (43+1) / 2 = 22 I trzeba zresetować LP przed następną pętlą[syntax=vb]elpe = 1 For w = 1 To 20 Cells(w * 2 - 1, 1) = elpe elpe = elpe + 1 Next elpe = 1 For w = 22 To 140 Cells(w * 2 - 1, 1) = elpe elpe = elpe + 1 Next[/syntax]
Mianowice niektóre nazwy miejscowości są 2-częsciowe. :cunning: W Polsce występują także nazwy miejscowości 3-członowe (np NOWY DWÓR WEJHEROWSKI,GÓRA ŚWIĘTEJ MAŁGORZATY itp.) :please: , ale to nie jest żaden problem dla sortowania - trzeba tylko dostosować formuły rozdzielające - przykładowo: 962956 oraz w kolumnie B [syntax=vbscript]=PODSTAW(A1;C1;"")[/syn...
No to już tylko makro. Np takie Sub Wpisz_Jest() Columns("A:A").Sel... On Error Resume Next wiersz = Selection.Find(What:=Range(&... After:=ActiveCell, LookAt:=xlWhole).Row Cells(wiersz, 3) = "Jest" Cells(1, 2).Select End Sub Możesz je umieścić w kodzie arkusza...
[syntax=vb]ComboBox1.ListIndex[/syntax] Tylko że ListIndex zaczyna liczyć od 0 więc jeżeli chcesz poznać wiersz to : [syntax=vb]wiersz=ComboBox1.ListIndex+1[... Ale jeżeli listę pobierasz nie od pierwszego wiersza arkusza należy dodać liczbę wierszy od pierwszego do wiersza w którym zaczyna się początek listy czyli np: [syntax=vb]wiersz=ComboBox1.ListIndex+1....
Wystarczy pobrać który wiersz w kolejności z listbox'a zaznaczyłeś lstFiltr.ListIndex a jak widać wprowadzasz do boxa listę od drugiego wiersza (B2) więc mając na uwadze to że listbox "liczy" własne wiersze od 0 należy powiększyćwynik o 2 i już masz nr wiersza. nrWrs = lstFiltr.ListIndex +2
Jeśli to jest spełnione, następnie A1 = nazwisko B2 = w kolejności numer
Prawie to samo chciałem zaproponować (różnica w znaku ";" zamiast "*" - łatwiej zauważyć że tu warunki a tu mnożona tablica =SUMA.ILOCZYNÓW((A1:A56000=F... Funkcji suma.iloczynów nie trzeba "zamykać" klamrami. Ona się zachowuje jak tablicowa bez wymuszania obliczeń tablicowych. Jednak jak...
Prościej będzie wpisać w C2: =TEKST(DATA(1;PRAWY(B2;2)*1;1);"mmmm") ew sama data i format niestandardowy...
suma.jeżeli()
[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 if Numer=lp & "/" & month.now & "/" & year.now Return...
Zmienna TswPesel jest u Ciebie zadeklarowana jako String . Tymczasem w tabeli masz zarówno teksty (te zaczynające się od 0) jak i liczby (te, które nie zaczynają się od 0). Próba wyszukiwania tekstu wśród liczb kończy się błędem, dlatego trzeba szukać tekstu gdy zaczyna się od 0, a liczby w pozostałych przypadkach.
Przypisz do każdego z przycisków odpowiednie makro [code][syntax=vbscript] Private Sub CommandButton1_Click() n1 = Range("N1").Value 'napisz formule if '=JEŻELI(N1>8;"STR. 1/5"; (JEŻELI(N1>6;"STR. 1/4";(JEŻELI(N1>4;"STR. 1/3";(JEŻELI(N1>2; "STR. 1/2"; "STR. 1/1"))))))) Dim text As String text = "str.2" & "/" & n1 Range("G3").Select ActiveCell.FormulaR1C1...
Np tablicową (zatwierdzasz Ctrl+Shift+Enter): http://obrazki.elektroda.pl/5600464000_1... Dla drugiej kolumny analogicznie MAX.
Za wybieranie rekordów odpowiada zapytanie SQL, w tym kodzie to fragment: Sql = "SELECT [ID klienta], SUM([Godzin]) FROM [Dane$] GROUP BY [ID klienta] ORDER BY [ID klienta]" Jeżeli chcesz dodać kolumnę o nazwie SIGN i grupować najpierw po ID klienta, a później po niej, napisz: Sql = "SELECT...
Nie bardzo rozumiem kopiowanie 'pp1' i oddzielne tworzenie nowego arkusza. Może chodzi Ci o to? [syntax=vbscript]Sub DodajPP() Dim n As Integer n = Val(Mid(Sheets(Sheets.Count).Name, 3)) n = n + 1 Sheets("pp1").Copy After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "pp" & n End Sub [/syntax]
Wpisz sobie kilka numerów do książki wykonaj export w zakładce programu do zarządzania (import export). Pojawi się plik z rozszerzeniem crp otwórz go za pomocą exela. Jak już dojdziesz co w której kolumnie wpisywać to do dzieła. Musisz jednak pamiętać o pewnych ograniczeniach np. ilości znaków w opisie numeru (wszystkich razem max16), nadawać kolejne...
Daj fragment danych i formuł na których pracujesz, bo ten opis nic nie wnosi.
Wrzuć spakowany, nie wszyscy ufają takim "przechowalniom". Albo wklej samą pętlę. W skrócie: Jeśli For-Next to nie ma problemu. Jeśli 'Do', to wstaw licznik. W obu przypadkach, gdy licznik osiągnie zadaną wartość =Range(tu adres komórki), wtedy Exit Sub.
Np =JEŻELI(SUMY.CZĘŚCIOWE(2;C3:... W tłumaczeniu: wyświetli Nr maszyny, jeśli odfiltrujesz wszystkie poza jedną.
Po prostu trzeba zwiększyć daty. Funkcja WIERSZ(bez argumentu) zwraca numer wiersza.
Wykorzystaj kolumnę pomocniczą, w której umieść liczby poprzedzone dowolnym znakiem tekstowym (Np ="a"&A1) i sortuj wg tej kolumny.
czy jest jakieś narzędzie w Excelu które umożliwia zmianę kolumny D na podstawie C? Narzędziem do tego celu są formuły. czyli jeśli mamy kraj GB w kolumnie C to chciałbym dopisać w kolumnie D +44 i analogicznie dla całej reszty symbol + W kolumnie E (pole E2) wpisz sobie formułę [syntax=vb]=JEŻELI(C2="GB";"+44"&D2;"+"&... A następnie przeciągnij...
[syntax=vbscript]Sub Zaznaczone() nw = Cells(Rows.Count, "K").End(xlUp).Row + 1 For Each k In Selection.Cells Cells(nw, "K") = Cells(k.Row, "A") nw = nw + 1 Next End Sub [/syntax]
Bez makra, wpisz numer do F1 - Druk
Patrz ostatni komentarz.
Jeśli indeks arkusza, czyli jego nr położenia w zeszycie, to np. tak: [syntax=vba]Option Explicit Sub wstaw_nr_arkusza_w1() Dim ark As Worksheet For Each ark In ThisWorkbook.Worksheets ark.Range("a5").Value = ark.Index Next End Sub [/syntax] Można to powiązać np. z procedurą otwarcia zeszytu 'Workbook_Open': [syntax=vba]Private Sub Workbook_Open() Call...
Może wystarczy przestawienie cyfr w tablicy[syntax=vb] For i = 1 To UBound(tbl) tblTemp(i, 1) = tbl(i, 1) vVar = CDbl(objRegExp.Execute(tbl(i, 1))(1)) 'tblTemp(i, 2) = CDbl(objRegExp.Execute(tbl(i, 1))(0)) * 10 ^ 3 + vVar tblTemp(i, 2) = CDbl(vVar * 10 ^ 3 + objRegExp.Execute(tbl(i, 1))(0)) Next[/syntax]
Do tego służy funkcja ADR.POŚR, która zamienia adres podany w postaci tekstu na odwołanie, czyli: [syntax=text]ADR.POŚR("C" & WIERSZ())[/syntax]Ale mam wrażenie, że dążysz do swojego celu okrężną drogą. Lepiej opisałbyś cały problem od razu, a nie dzielił go na kawałki, bo po złożeniu tych kawałków w całość, to może się okazać mało efektywne.
No to tak: [syntax=vbscript]Sub petla() Dim k&, i& For k = 1 To Cells(Rows.Count, "B").End(xlUp).Row If Cells(k, 2).Value Like "Symb." Then i = i + 1 Cells(k, 2).Offset(0, -1).Value = i End If Next k End Sub[/syntax]
VBA Excell porównanie dwóch arkuszy
Witam, Piszę ponieważ napotkałem w Excelu spory problem. Mianowicie muszę wyszukać 4000 danych w pliku z ponad 1 mln danych. Sprawa wydaje się banalna - ale taka nie jest. Opisze wszystko po kolei. 1. Mam główną bazę z adresami ludków 1 mln rekordów. Baza jest przygotowana profesjonalnie wszystkie dane są szczególwo opisane - żadnych skrótów. Baza zawiera...
To po co ten Excell ? Bo jasno wynika z wypowiedzi Autorki, że otwiera w Excelu... Temat: "Excel - jak w formacie CSV zapisać pełny numer rachunku bankowego?"
Dla modułu arkusza, gdzie jest 'Tabela1' użyj: [syntax=vbscript]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Row > 1 Then Call zamówienie End Sub [/syntax] P.S. Adamas_nt masz lepszy pomysł? Autor wątku jest skromny w wyjaśnieniach jego kłopotu... Chce, aby macro dzieło się, warunkiem musi być zmiana "numeru...
Witaj Makrem [syntax=vb] Sub abcde() r = 1 While Cells(r, 1) <> Empty For i = 1 To 5 Cells(r + i, 1) = Cells(r, 1) & Chr(64 + i) Next r = r + 6 Wend End Sub [/syntax]
Wtedy byłoby tak jak podają wszystkie podręczniki i fora, to znaczy: = WYSZUKAJ.PONOWO(num; nr_i_opis; 2; FAŁSZ) num oznacza komórkę z szukanym numerem, nr_i_opis stanowi teraz jedną tablicę złożoną z dwóch kolumn (adres lub nazwa tej tablicy), 2 oznacza, że wynik będzie z drugiej kolumny, a FAŁSZ (lub 0) oznacza, że funkcja ma znaleźć dokładnie to...
Wpisz w B2 =INDEKS(dane!$A$1:$E$8;PODAJ.POZ... i skopiuj w lewo i w dół...
Ale to zwróci ci, czy cały numer jest parzysty. A jeśli kolega ma (np. poprzez funkcję LEWY) wydzielone poszczególne cyfry do osobnych komórek, to IMO sumę parzystych cyfr najprościej zrobić tak: =LICZ.JEŻELI(A1:J1; 2)*2+LICZ.JEŻELI(A1:J1; 4)*4+LICZ.JEŻELI(A1:J1; 6)*6+LICZ.JEŻELI(A1:J1; 8)*8 Gdzie kolumny...
Witam. Tak dobrze?
Nie mam potrzeby zamieniać daty tylko wstawiać poszczególne dni tygodnia w odpowiednie komórki No tak. W takim razie przyjmując, że poniedziałek jest pierwszym dniem tygodnia wystarczy wpisać kolejno 1,2,3,4,5,6,7. Jeśli jednak chodzi o dzień miesiąca, trzeba szukać daty... http://obrazki.elektroda.pl/2694734300_1...
Rozwiązanie dla Excela. (W czasie prób wyłącz drukarkę) Makro drukuje zadaną ilość stron, zmienia Nr i umieszcza napis "Oryginał" lub "Kopia". Ustawienia w arkuszu "Opcje".
Przejdź do arkusza i uruchomić makro (powinien być w ogólnom modulu)
Ha. Nie jestem niedowiarkiem i udam, że nie zauważyłem zamiany spacji na minus w formatowaniu tekstu. :D
Witam If Left(Cells(w2, k).Value,6) = lista(licznik_petli) Then
Na podstawie samego kodu, to nie jest oczywiste. Powinnaś załączyć plik z tym kodem i napisać w którym dokładnie miejscu kodu występuje błąd. Poza tym kod jest trochę dziwny. Ile masz arkuszy o nazwie "aaaa"? Po co ta pętla? Czy pasek ScrollBar ma faktycznie numer 2?
Witam. Poradźcie Koledzy, w jaki sposób nr CommandButton'a zamienić na zmienną. Tzn. w procedurze wywołanej przyciskiem "CommandButton10" zmienna powinna mieć wartość 10 Z góry dzięki za pomoc
Coś mi się zdaje że kolega chce dokonać niemożliwego (zakładając że użyje jeno sortowania). Jeśli posortuje wg nazwisk a następnie wg daty umowy będzie miał w pierwszej kolumnie ludzi posortowanych alfabetycznie a w drugich daty rosnąco ale tylko dla każdego z kolejnych ludzi. Jak się zmieni nazwisko, sortowanie zaczyna się od początku, tylko dla rekordów...
A nie można było zmieścić w jednym wierszu? :) Poważnie: wpisz w G3 i skopiuj w dół =JEŻELI(B3="";INDEKS(A...
Skąd pochodzą dane w kol.B? Bo "trójkropek", to nie są trzy kropki... DŁ(B6) zwraca 2 KOD(LEWY(B6;1)) zwraca 133,a kropka to 46 B10 natomiast zawiera 4 znaki: chr(133) dwie kropki i "5" a co z 6 kropkami? 2 chr(133)? Jeśli takie dane importujesz, to trzeba to uwzględnić w makro.
Jeśli numeracja ma się zmieniać, to formuła może być np. =WIERSZ(A1)&"|"&A1 gdzie A1 jest adresem pierwszej komórki. Ale Pan nie napisał, że numer ma się zmieniać.
Nie napisałeś w jakiej wersji Excel chcesz w ten sposób numerować strony. Napiszę dla Office 2003 i 2007. W wersji 2003 wybierasz Widok/Nagłówki i stopki.. , następnie zakładka Nagłówek/stopka , przycisk Nagłówek niestandardowy.. .Ustawiasz kursor w Środkowa sekcja: . Powyżej wybierasz przycisk # (Strona) i dopisujesz by był taki wpis STRONA & . Ustawiasz...
O kurde, a żebym to ja wiedział jak się wstawia własne formuły do Excela. Zaraz poszukam.
Można to rozwiązać "Wyszukaj pionowo", tylko on nie zostawi starych nr (bo nie bedzie takich nazwisk w arkuszu 2), a wstawi "no data" badz cos podobnego. Można to zrealizować przy pomocy WYSZUKAJ.PIONOWO i wraz z JEŻELI(CZY.BŁĄD i zostanie nam stary numer. W komórce C2 pierwszego arkusza wpisz: =JEŻELI(CZY.BŁĄD(WYSZUKAJ.PIONOW...
Witaj Pozeraj, może być dobre. w kolumnie O nowy FID 2 powtarza, tu są ten sam numer i miasto( w starom)
Szukam funkcji która by pobierała wartość z komórki i szukała numeru wiersza wyświetlając jego zawartość Funkcja [syntax=vb]=INDEKS(A:A;H8;1)[/syntax]?
Tak. Z 2 kolumnami pomocniczymi i funkcjami wyszukującymi zrealizujesz to bez VBA. http://obrazki.elektroda.pl/4000212600_1...
=JEŻELI(ILE.NIEPUSTYCH(B9:F9)=5;...
Puste pole pojawia się, gdyż poepłniłem błąd. Przy linii ReDim strNowaLista odejmij 1 od intPozycja [syntax=vb]ReDim strNowaLista(intPozycja -1, 2)[/syntax] Co do usuwania/modyfikowania danych pracowników. Masz coś, co załaduje Ci ich dane do UserForma, tak? Coś co znajduje odpowiedni wiersz i ładuje? Jeśli tak, i znasz numer wiersza, to chyba nie powinien...
Zastosuj następującą formułę =PODSTAW(A2;",";"&quo... przeciągnij ją w dół i wklej jej wyniki jako wartości.
x.Row
Sprawdź poniższe dwa warianty ... tak coś niby działa, ale sceptycznie podchodzę do takiego drukowania. W mojej ocenie, na teraz, drukarka będzie się przytykać - wstawiłem "opozniacz" (Const opozniacz), przy pomocy którego możesz sterować opóźnieniem nowego wydruku, gdzie: 0.5 = 0.5 s 1 =1 s itd. (opóźniacz pomysłu kolegi JRV ). Wariant nr 1 - drukuje...
Witam, Szukam sposobu na przypisanie numeru zmiany (1, 2, 3) po dacie. Mam tabele z danymi gdzie jedna z kolumn zawiera Datę (rrrr/mm/dd hh:mm:ss) Chciałbym, żeby w nowej kolumnie excel przypisał mi numer zmiany produkcyjnej. Zmiana 1 ( 06:00:00 - 13:59:59 ) Zmiana 2 ( 14:00:00 - 21:59:59 ) Zmiana 3 ( 22:00:00 - 05:59:59 ) Z góry dziękuję za cenne wskazówki....
Tak, było wymagane przewijanie. Wszystko działa, testowałem go. Oto prawdziwy przykład.
Dla kolumny A: A1=1 reszta komórek w kolumnie funkcja: =JEŻELI(NIE(B2="");A1+1;"") EDIT: Oczywiście co do funkcji to dale komórek: A2 = JEŻELI(NIE(B2="");A1+1;"") A3 = JEŻELI(NIE(B3="");A2+1;"") A4 = JEŻELI(NIE(B4="");A3+1;"") A5 = JEŻELI(NIE(B5="");A4+1;"") itp. wystarczy wypełnić serią.
Prostym makrem można tak (wklej w kod arkusza i uruchom; zapisze w kol.A) [syntax=vbscript]Sub numerowanie() Dim w As Integer, test As String Dim licznik1 As Integer, licznik2 As Integer, licznik3 As Integer w = 3 Do While Cells(w, 5) <> "" If Cells(w, 4) = "__Element" Then licznik1 = licznik1 + 1 licznik2 = 0 licznik3 = 0 ElseIf Cells(w, 4) =...
Jeśli piszesz, że nie znasz się na VBA, to dlaczego chcesz to robić w VBA? Przecież do tego wystarczy prosta formuła: [syntax=text]=LICZ.JEŻELI(D$1:D1;$D$1)[/... kopiujesz w dół jak daleko potrzeba. A żeby to zrobić w VBA należałoby opisać jak to dokładnie ma działać, czy jednorazowo, czy ma śledzić wpisywanie nowych danych i dodawać numerację...
Teoretycznie to proste. Tworzysz jakąś zmienną i wpisujesz do niej wartość, np. 5994. Następnie drukujesz dokumenty i tam zwiększasz zmienną przed każdym drukowaniem o 1 i działa. Niestety do pierwszego zacięcia papieru w drukarce (i milionów zdarzeń, które nie mogły się wydarzyć, ale się wydarzyły). :) Wtedy (a najlepiej już teraz) będziesz musiał...
Listę, prawdopodobnie, można uznać za skończoną, jeśli ilość elementów z kolumny nazwisk będzie równa liczbie elementów kolumny karty ocen, tak więc przed wywołaniem formy porównaj liczbę niepustych komórek w obydwu kolumnach i jeżeli jest równa pomiń aktywowanie formy
Ciekawa kombinacja :) Trochę nad tym pomyślałem ale wyszło (choć dziwie się że excel nie zgłasza odwołań cyklicznych). Zapewne można to uprościć ale już nie mam czasu. Nie przeraź się :) W c2 wpisz: =JEŻELI(E2="";MAX($C$1:C1)+1;JEŻELI(E2>0...
Skorzystaj z Licz.jeżeli() W A1 wpisz: =B1&"/"&LICZ.JEŻELI($B$1:B1;B1) I przeciągnij w dół
Jakbyś zdradził w czym to piszesz, to byłoby super... a i rozwiązania może by się szybko znalazło. Pozdr!
Tu lepiej powinny się sprawdzić przyciski radiowe, bo opcje wzajemnie się wykluczają, poza tym od razu otrzymujemy w wybranej komórce numer przycisku.
Jeśli chodzi o pkt 3 to udało mi się w arkuszu "niepraw" w wierszach kolumn B-E wstawić taką formułę: =JEŻELI(kontrole!$H4="TAK";kont... dalszym ciągu nie mogę sobie poradzić z usunięciem odstępów pomiędzy wierszem 4 i 7 w arkuszu "niepraw". Pomóżcie, jak zrobić, żeby w kol. H w arkuszu "kontrole" w sytuacji zaznaczenia opcji "TAK", excel...
Np funkcja LICZ.JEŻELI(zakres komórek;nr tel)
A tak będzie dobrze? Makro Numerowanie()
Zaraz, zaraz. To jest projekt w VB a nie kod w arkuszu? Jeśli tak, to na początek zmień w sekcji General (zaraz po instrukcji Option Explicit ) Dim numer As String na Public numer As String Wtedy zmienna będzie widoczna we wszystkich modułach i formach. Kodowanie w VB i w VBA "nieco" się różni. Dlatego chcielibyśmy wiedzieć z czym mamy do czynienia...
Nie wiem, czy dobrze rozumiem ale chcesz mieć taki wynik: Numer katalogowy, ilość sztuk danego elementu w pierwszej zakładce, ilość sztuk danego elementu w drugiej zakładce. Jeśli możesz to udostępnij plik excel'a
Mam raport w którym w jednej z komórek ... Jest w excelu? jak tak to załącz przykład w excelu (spakuj zipem) Bo widzę tu tylko makro, a jak tak, to trzeba wiedzieć dokładnie w której komórce są dane. Makro pobierze dany tekst przeanalizuje znaki po sobie i jak po kolei będzie 11 cyfr to "gdzieś" wyrzuci wynik.
Nie mam za dużo czasu a akurat do tego przydało by sie makro. Wesz co a może zrób sumy częściowe. TZN Zaznacz całą tabelę i W menu dane wybierz sortuj , wciśnij ma wiersz nagłowka i w sortuj wg kolumny: nr ewidencyjny. daj Ok Następnie w menu dane wybierz sumy częściowe. Dla każdej zmiany w: zaznacz numer ewidencyjny Użyj funkcji wybierz suma Dodaj...
Dziekuje za pomoc. Zaraz biore sie do roboty. :)
Napisałem, w czym na pewno się da. Kwerenda daje 34 mln wyników z których wiele jest gotowcami. https://www.google.com/search?q=winforms... Jak wybierasz nie developerskie środowisko, jest ich odpowiednio mniej. Nie dla każdego jest programowanie, nawet w excellu. To działanie PRZEDE WSZYTSKIM polegająca na ciągłym poszerzaniu wiedzy,...
kolumna "POCZĄTEK" ma byc lub zamiast niej WYNIK? Dodano po 3 Na zdjęcie moglo byc nazwy kolumn(A, B, etc.) i początkowy wiersz. Dla VBA to jest wazne
Tylko jeśli to jest Excel 2016, to proponuję ISO.NUM.TYG, ewentualnie NUM.TYG z drugim parametrem 21, bo samo NUM.TYG w tym roku przesuwa numerację o 1.
Jeżeli trzeba bez kolumny pomocniczej to można wstawić formułę dzielącą numer na bloki - początek, środek i koniec, środek to nasz numer który zwiększamy o 1 a następnie łączącą ponownie w całość. Czyli schematycznie: ZŁĄCZ.TEKSTY(FRAGMENT_TEKSTU;FRAGMENT_TE... Do tego można dodać warunek na środkowy fragment - jeśli numer <100...
Tak, kody w kolumnie c są numerami do wylosowania. Tak, w kolumnie d mają się pojawiać tylko 0 lub 1, ale tylko w tych wierszach, które są uzupełnione numerem w kolumnie c. Docelowo będę chciał za pomocą formatowania warunkowego podświetlać wylosowane numery. Pracuję z Excel 2016, niestety ta formuła u mnie nie działa.
w pliku z Programem zamówień jest tysiące detali Jeśli tylko zachowasz porządek w tabeli Plan produkcji (bez dubletów i posortowane kody :!: ) to możesz i w takim przypadku wykorzystać formułę :D [syntax=vbscript]=JEŻELI.BŁĄD(JEŻELI(WYS... Produkcji (1).xlsx]Arkusz1'!$A$2:$F$100;3;FAŁSZ)>0... "&JEŻELI(WYSZUKAJ.PIONOWO(G3;'[Plan...
Witam Potrzebuję funkcji która wyszukiwała by puste wartości (przerwy w numeracji) oraz wskazywała ostatni wykorzystany numer. Mam w excel-u w wielu arkuszach bazę sprzętu. Każdy sprzęt ma swój numer np G020. Po jakimś czasie i wielu zmianach w arkuszach nie wiadomo czy jakieś numery są wolne no i jaki następny jest możliwy do wykorzystania. Jak się...
numer excel numer kolumny excel excel numer wiersz
wykrywacz złota schemat reverb polski znaki windows
gs500 instalacja samsung wf70f5e0w2w
Nice RUN – podłączenie do wideodomofonu Legrand Classe 300, 100X, EOS – sterowanie bramą krok-po-kroku Nice RUN 2500i i Legrand 369420 – podłączenie wideodomofonu do napędu bramy