Wiesz, ja nadal nie jestem pewna, czy dobrze Cię rozumiem, ale wyszło mi coś takiego jak w załączniku. Po uruchomieniu makra pod przyciskiem - wstawia daty, uzupełniając puste komórki. Choć nie odmienia nazw miesięcy przez przypadki - czyli np. 2 wrzesień, a nie 2 września itd.
Excel "jest tylko jeden" - Mircosoft-u. Pytanie dotyczyło Excel'a. Poza tym - twoje rozwiązanie wstawia "TAK" i "NIE" zamiast robić to, co napisał autor wątku.
Druga część warunku pętli to przerwanie w razie powtórnego uruchomienia. Wiersz(e) należy wstawić o jeden niżej (Range("A" & i + 1).EntireRow.Insert) oraz (i = i + how_many + 1) Sub rows_influx() Dim i As Long i = 2 Do Until ActiveSheet.Range("A" & i) = "" Or ActiveSheet.Range("A" & i + 1) = ""...
Myślę, że najlepsze wyniki czy nie od końca, ale od początku [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, r As Long, c As Long Application.ScreenUpdating = False i = 2 r = i While Cells(i, 11) <> Empty If Cells(i, 11) <> Cells(i + 1, 11) Then Rows(i + 1).Insert For c = 5 To 7 Cells(i + 1, c + 3) = Application.WorksheetFunction.Sum(Range(...
Zobacz tak: [syntax=vbscript]Sub Kopiuj_MG() Dim x As Long, n As Long Application.ScreenUpdating = False Sheets("Arkusz1").Select x = 2 Do While Range("A" & x).Value <> vbNullString If Cells(x, "C") > 1 Then Range("A" & x & ":C" & x).Copy n = Range("C" & x).Value Range("A" & x & ":C" & x + n - 2).Insert xlShiftDown...
Zdaje się, że dla każdego powiatu musisz mieć osobne procedury dla przycisków. W przykładzie makro "orientuje się" po nazwie miasta wpisanej w komórce zakrytej przyciskiem.
Hmm... rzeczywiście brzmi to skomplikowanie Dla Ciebie pewnie nie, ale ja dalej nie jestem pewien... Na razie dwa formatowania warunkowe z minutami w kolumnie I. Aktualną godzinę wstawia się przez Ctrl+Shift+: Przeanalizuj, dostosuj do własnych potrzeb. Edit: Sorry, zapomniałem o załączniku :)
Kopiowanie formuł jest właściwością tabeli i w zasadzie sposób odwoływania się nie powinien tu mieć znaczenia. Mnie jednak po przekształceniu zwykłego zakresu w tabelę, to od razu nie zadziałało, dlatego zmieniłem sposób odwołania. Można też raz skopiować formułę, a potem powinno już działać automatycznie. Jeśli po wpisaniu czegoś do kolumny C chcemy...
moja wersja nie rozpoznaje formuły :-o A jaka to wersja Excela ? Mam wrażenie, że to Ty nie potrafisz przepisać dokładnie formuły i uruchomić jej jako jednokomórkową formułę tablicową ( klawisze CTRL + SHIFT + ENTER :idea: ) :cunning: Mógłbyś wrzucić plik excela? Jak autor wstawia ilustracje obrazkową swojego problemu to wnoszę, że oczekuje również...
Chodzi o wyłączenie przeliczania. Ale jeśli zrobisz to ręcznie, zgubisz datę. W Excelu jest skrót Ctrl+: Możesz sobie dorobić coś podobnego: Wstaw moduł (Narzędzia>Makra>Zarządzaj) i wklej http://obrazki.elektroda.pl/7824836700_1... Po tym wszystkim Ctrl+spacja wstawia aktualną datę w aktywnej komórce.
Po Bożemu powinniśmy zastosować pętlę, ale w przykładzie trzymam się pierwotnych założeń. Jeśli nagłówki są stałe, to można zastosować wyszukiwanie i przypisać zmiennym Nr kolumny odszukanego stringu. Cała sprawa bierze w łeb, jeśli nagłówki nie będą unikatowe. Zwróć uwagę na różnicę w sposobie wpisywania formuły do komórki. Składnia: "FormulaR1C1"...
Dobry wieczór, Do tego trzeba zaangażować Visual Basic, bo w samym Excelu są ograniczone możliwości sterowania treścią komentarzy. W załączniku jest propozycja rozwiązania, ale musi Pan ją zaadaptować do swoich potrzeb. Jeśli danych jest dużo trzeba zastanowić się nad optymalizacją, bo działanie może być powolne. Podstawą rozwiązania jest procedura...
Kliknij prawym klawiszem myszki na zakładce arkusza, wybierz Wyświetl kod i w Edytorze VBA wklej Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then Target.Offset(0, 1) = Application.UserName End If End Sub Co robi to makro? Po każdej zmianie jaka następuje w kolumnie C (Target.Column = 3) wstawia w kolumnę...
A widzisz? I żeby nie było, "a nie mówiłem?". :D To w nawiasach to formuły tzw. tablicowe. Możesz poczytać wyszukując w Googolach lub helpie Excela, lub w książkach pisanych na jego temat. Jak się je wstawia miałaś napisane wcześniej. A teraz, żeby Cię dobić do końca (bo jak wszystko na tablicach to niech będzie wszystko) wstaw sobie w komórkę zliczającą...
Generalnie na przyszłość, unikaj scaleń, bo z nimi dużo kłopotów. Ewentualnie stosuj scalenia na samym końcu, jak wszystkie dane i formuły są już w arkuszu. Tymczasem napisałem Ci makro, które usuwa scalenia z obszaru formuł, wstawia formuły do wszystkich komórek, a na końcu przywraca scalenia kopiując je z kolumny 'lp' z tabelki po lewej stronie. W...
Ja po prostu nie wiem o co Ci chodzi.:)
[syntax=vbscript]Public ff As String Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A10")) Is Nothing Then s = Replace(Target, ",", ".") Application.EnableEvents = False If Left(ff, 1) = "=" Then If s >= 0 Then Target = ff & "+" & s Else Target.Formula = "=" & s End If Application.EnableEvents = True End If End...
Oczywiście. Po prostu ją ukryj. (prawoklik na kolumnę [literkę oznaczającą kolumnę] i ukryj)
Oczywiście, że można Myślałem, że już to zrobiłeś to sam
W Wordzie są dostępne polecenia sumowania tabeli (Menu Tabela->Formuła ...): =SUM(ABOVE) - Sumuj komórki nad kursorem =SUM(LEFT) - Sumuj komórki z lewej strony kursora =SUM(RIGHT) - Sumuj komórki z prawej strony kursora. Uwaga Program Word wstawia wynik obliczeń jako pole w wybranej komórce. W przypadku zmiany wartości w komórkach, które obejmuje działanie,...
Czyli jak rozumiem, w VBA nie za bardzo daje się upublicznić tablicę Ależ można tylko trzeba uważać gdzie się wstawia deklarację globalną bo to ma znaczenie. [syntax=vb] ' (powyżej Tablica) ' Deklaracja zmiennych i stałych ' Public Tablica() As Double ' (poniżej Tablica) ' Deklaracja funkcji itp. ' Sub Czytaj() ReDim Tablica(1 To 10, 1 To 10) For i...
Poprzedni plik i funkcja, to były przykłady. W tym pliku masz gotowca.
Super pewnie ale troszke nie wiem jak z tego skorzystać jak przekopiowuje do module to nie moge odpalic dacie jakas podpowiedz W swoim 'userform' musisz wywołać funkcje 'pastepicture' i w zależności od posiadanej wersji systemu będzie to win32 lub win64. (patrz co podał ci (at)adamas_nt chociaż on ładuje obraz do 'ramki')
Zazwyczaj funkcja powinna zwrócić wartośc Spójrz w pomocy VBA przykład funkcji(Help - Writing a Function Procedure) Twoja funkcja nie zwraca żadnej wartości.
Tak to jest, jak się zmienia koncepcja w trakcie pisania kodu.:) [syntax=vbscript]Sub Sciezki() Sheets("Archiwum").Select q = 3 nw = Sheets("Sciezki").Cells(Rows.Count, "A").End(xlUp).Row + 1 While Cells(q, "T") <> "" a = Split(Cells(q, "T"), ";") If UBound(a) > 0 Then For y = 0 To UBound(a) Range("A" & q & ":T" & q).Copy Sheets("Sciezki").Range("a"...
Cześć. Mam do rozwiązania następujący problem. W jednym arkuszu wpisuję sobie ilość przepracowanych godzin - wstawiam 8,16 lub 24. W drugi arkuszu potrzebuje wstawić odpowiednie ilości godzin z minutami, tzn: jeśli w 1 arkuszu jest 8 to w drugim ma być 7:35 (7 godzin i 35 minut) jesli w 1 arkuszu jest 16 to w drugim ma być 16:25 (16 godzin i 25 minut)...
Dzień dobry, Nie wiem czy o to Panu chodziło, ale rozwiązanie wydaje się dość proste. Po zastosowaniu formuł jak w przykładzie puste wiersze można zamaskować filtrem (tak chyba najprościej).
Spróbuj z kopiowaniem w pętli. Przykład w załączniku. Edit: Zacznij od Range.Clear (po With), przeoczenie...
Przyjąłem Twoje rozwiązanie bez wymyślania nowych lepszych. Popatrz jak działa funkcja warunkowa JEŻELI . Zwróć też uwagę na adresowanie bezwzględne =$L$7 Poprawiony z grubsza plik w załączniku. Z resztą chyba sobie poradzisz?
Podałeś taki niestandardowy format z łącznikami między elementami czasu, zamiast dwukropków, więc zrozumiałem, że to jest istotne. Jeśli jednak chcesz mieć "prawdziwą" datę, to uzupełnij swój kod tak: [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("B1:C10")) Is Nothing...
Witam! Bardzo proszę o pomoc, mam następujący problem chciałbym aby makro wstawiało pusty wiersz po określonej liczbie w moim przypadku chodzi aby wiersz pusty był wstawiany przed ostatnią liczbą mniejszą od 1 000 000 (wartości zawsze posortowane są malejąco) np mam taki ciąg: a 6 541 237 b 3 214 578 c 1 002 478 tutaj makro wstawia pusty wiersz d 987...
Napisałeś pętlę nieskończoną. Nie do końca łapię co chcesz zrobić. Może wystarczy licznik pętli przesunąć poza gałąź If Do Until ActiveSheet.Range("A" & i) = "" Or ActiveSheet.Range("A" & i + 1) = "" If Range("A" & i).Value = 37258 Then Range("A" & i + 1).EntireRow.Insert...
Użyj formuły JEŻELI. =JEŻELI(A1>10;"i";"... Przy czym w kolumnie B ustawiasz czcionkę Webdings w kolorze czerwonym.
Wróżąc z fusów wróżę, że ta propozycja nie doprowadzi do postępu. Klawisz Enter nie ma tu znaczenia. Sprawdzałem, że jeśli makro wstawia wartość do komórki zdarzenie Change jest generowane i godzina się pojawia, choć nie jest używany żaden klawisz.
Można też bez formuł: Sposób 1: W komórce A1 wpisujesz dzisiejszą datę (nie używasz formuły DZIŚ() ), w A2 datę za miesiąc. Zaznaczasz obie komórki, najeżdżasz kursorem na prawy dolny róg zaznaczenia (kursor zmieni się w czarny krzyżyk) i z wciśniętym lewym przyciskiem myszy przeciągasz zaznaczenie o tyle komórek ile potrzeba. Sposób 2: W komórce A1...
Przykładowe rozwiązanie z funkcją HIPERŁĄCZE w załączniku.
Witaj [syntax=vb] Sub InsSubtot() Dim bs As Range Set bs = ThisWorkbook.Sheets(1).Cells Dim r&, rp& ow = bs(Rows.Count, 8).End(xlUp).Row r = 2: rp = 2 While bs(r, 8) <> Empty r = r + 1 If bs(r, 8) <> bs(r - 1, 8) Then bs.Rows(r).Insert bs(r, 5) = "SUMA" bs(r, 6) = Application.Sum(Range(bs(rp, 6), bs(r - 1, 6))) bs(r, 5).Resize(1,...
Tommy82 masz rację, ale ja to zczytywanie potrzebuję na miesiąc góra dwa. Nie chcę inwestować kolejnej kasy na router itd. Ogarnia ktoś co w tym moim pliku jest nietak, że nie pobiera do arkusza tych danych z com??? albo ma może ktoś jakiś przykład który pobiera dane z COM i wstawia w arkusz????
Czy ktoś pomoże W LibreOffice można to zrobić w dwóch krokach przy użyciu wyrażeń regularnych :spoko: 1159078 1159079 W Wordzie zapewne też to można zrobić, ale Microsoft ma odmienne zasady tworzenia wyrażeń regularnych :cry:
w przykładzie zeszyt3 [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, OstWrs As Long OstWrs = Cells(Rows.Count, 1).End(xlUp).Row 'ile wierszy Application.ScreenUpdating = False For i = OstWrs To 2 Step -1 If Cells(i, 1) <> Cells(i - 1, 1) Then Rows(i).Insert Next i Application.ScreenUpdating = True End Sub[/syntax] A tu kod z nazwą - ale nie...
Witaj Odpal to makro [syntax=vb] Sub popraw() Dim bs As Range, r As Long Set bs = Sheets(1).Range("A:C").Cells r = 2 While bs(r, 1) <> Empty If (bs(r, 1) = bs(r + 1, 1)) And (Month(bs(r + 1, 2)) - Month(bs(r, 2)) > 1) Then bs.Rows(r).Copy bs.Rows(r + 1).Insert Application.CutCopyMode = False bs(r + 1, 2) = DateSerial(Year(bs(r, 1)), Month(bs(r,...
Może więc takie rozwiązanie jak w załączniku? Menu kontekstowe PPM jest zablokowane, ale jeśli nawet ktoś je wywoła, to nie może wykorzystać wklejania: http://obrazki.elektroda.pl/7679986700_1... Na wstążce zablokowane są funkcje przycisków: http://obrazki.elektroda.pl/8622171000_1... Cały czas jednak mam wrażenie, że takie całkowite...
Inaczej. Jeśli zamiast Zmiennych DOSTAWCA i NUMEREK wpiszę w ścieżkę wartości to zdjęcia wstawia bez problemu, jeśli natomiast ścieżka jest sciezka = "\\sts0004\QS-test\REKLAMACJE\Zarzadzani... Reklamacjami\Reklamacje do dostawcow 2015\" & DOSTAWCA & "\LR15" & NUMEREK & "\ (" Wtedy nie wstawia nic. Makro przeleci, a zdjęć nie ma. Plik z tym makrem jest...
Private Sub KategorieWydatków_Click() Range("C2") = KategorieWydatków.Value End Sub I niestety jak uruchomiłem pierwsze makro wyświetla listę ale jak klikam na wartość z listy niestety nie wstawia się ona w komórkę C2. Witam KategorieWydatków.Show tak masz nazwany userform a listbox też ma taką samą nazwę?
Poczytaj: https://calculatic.pl/poradnik/wstawiani...
NIE MA !!! Tak się kończy inwestowanie w prowizorkę JackuCZ, strasznieś nerwowy. Że Ty nie umiesz to nie znaczy że się nie da. Kolego jatoKacper, musisz sobie uzmysłowić do czego służy ta opcja. Gdyby nie dało się w kilku pracować na jednym pliku, jak sugeruje kolega JacekCZ, funkcja udostępniania skoroszytu nie miałaby kompletnie żadnego sensu. A...
[syntax=vb]For i = 1 To 1000 r = i * 4 ark.Range("B" & r).Formula = "=IF(B" & r - 1 & "="""","""",INDEX('Lista pracownikow'!$B:$J,MATCH(B" & r - 1 & ",'Lista pracownikow'!$D:$D,0),1))" ark.Range("B" & r + 1).Formula = "=IF(B" & r - 1 & "="""","""",INDEX('Lista pracownikow'!$B:$J,MATCH(B" & r - 1 & ",'Lista pracownikow'!$D:$D,0),8)&"" | ""&INDEX('Lista...
Witam, Mając wykonany printscreen obrazku, z pozycji komórki, w której ma być wklejony, uruchamiam makro, które: - blokuje współczynnik proporcji - wstawia mi obrazek automatycznie pomniejszony do wysokości 2,5 cm - zmienia właściwości obrazu na "przenoś i zmniejszaj rozmiar wraz z komórkami". Już parę dni męczę temat i nie potrafię dopisać warunku,...
Zobacz dziwne https://obrazki.elektroda.pl/4703961000_... te pierwsze dwie kolumny są z tego: =JEŻELI(O2="TEKST";"OK";"NIE") a kolumny 3 i 4: =JEŻELI(Q2="TEKST";"OK";"NIE") i tu wszędzie wstawia OK[/table] tylko Q2 wstawia TEKST jak kolumny G i H porównuje, jak jest większa to wstawia TEKST a jak mniejsza to jest puste
Był błąd w kodzie. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then r = Target.Row If Cells(r, 3) = "" Then Cells(r, 3) = Now & " - " & Target & " - " & Environ("Username") Else Cells(r, 3) = Cells(r, 3) & vbNewLine & Now & " - " & Target & " - " & Environ("Username") End If End If End Sub [/syntax]
Witam, mam pewien problem z Excelem 2003 a wygląda on tak: Mam wypisane jakieś dane w komórkach w przedziale od a1-a10, i chce zdefiniować je tak by w dowolnym miejscu wpisuje adres komórki a1 to z automatu obok wypisują się wartości od a2-a10. Można to zrobić jakaś funkcją czy też muszę skorzystać z VGA Pozdrawiam /W załączniku dałem przykład.
Witam mam problemik z Excelem. Mam np dane w kolumnie A w kolejnych wierszach np 1,1,2,3,3,3,4,5,5,5 czy jest jakas formuła która z automatu porównała by te dane i przed każdą zmianą danych wstawila pusty wiersz aby pozniej wygladalo to tak 1,1 pusty wiersz, 2 p[usty wiersz 3,3,3, pusty wiersz 4 i tak dalej? Z gory dzieki za pomoc
Witam, mam mały problem z funkcją JEŻELI, mianowicie chciałbym aby w jednej komórce np A3 był automatycznie wstawiany znak "0:00" jeżeli w innej komórce np. B3 zostanie wpisany znak "w" z zależnością taką, że jeśli znak "w" nie zostanie wstawiony to będzie można wypełniać ręcznie pole A3. Próbowałem formuły: =JEŻELI(B3="w";A3="0:00";"") ale niestety,...
Mam plik csv do importu do sklepu no i powinien on posiadać ID numer, ale trzeba go dopisać. Otwieram plik w excelu i mogę tam dopisać na początku każdego wiersza te numery jednak to nie o to chodzi żeby robić to ręcznie prawda? jakiej komendy itd użyć żeby excel dopisał do początku każdego wiersza "1|" ? Dla wyjadaczy to prościzna, ja sie na tym nie...
Witam serdecznie, mam problem dotyczący wklejania danych w postaci tekstu do Excela. Konkretnie, kiedy wklejam do Excela tekst skopiowany ze strony internetowej (kopiowane dane to opisy produktów) do konkretnej komórki odpowiadającej danemu produktowi, a w tekście są "twarde entery", każdy kolejny wiersz tekstu po takim enterze ląduje w następnej komórce...
Witam posiadam taki problem. Chciałbym aby po przeciągnięciu program sam mi uzupełnił tekst. Przykład: 0000/AF/adas/123/as 0001/AF/adas/123/as 0002/AF/adas/123/as Etc. Aż do 9999/AF/adas/123/as Lub więcej. Chodzi o to aby tylko zmieniały się pierwsze 4 znaki a reszta została bez zmian. Po przeciągnięciu A1 w dół pierwsze cztery znaki mają rosnąć.Komórki...
Czy mógł by mi ktoś pomóc? Jestem zielony i nie znam sie na programowaniu w VBA. Wykonałem formularz z wykorzystaniem UserForm i chce dodać każdą daną z Textbox do arkusza i to mi się udaje, ale chce aby kolejne wpisanie wartości do TextBox było wpisywanie do wiersz a poniżej, a nie zastępowało te poprzednie. http://obrazki.elektroda.pl/1247350200_1...
Witam poszukuję takiego sposobu aby cały czas w jednym miejscu wpisywać dane ( Arkusz do wpisania) a żeby w spisie pojawiało się po kolei tzn jeden pod drugim.
Witam Uczę się excela codziennie ( bo musze ) i napotkałem taki problem . Muszę zrobić tabelkę i w jednej komórce musze zrobić 3 linijki i to wypunktowane . Nie wiem jak wpisać tekst żeby był od nowej linijki a nie wskakiwał do następnej komórki :/ I czy excel ma taka samą opcję wstawiania wypunktowywania jak word ? Czy punktację trzeba zrobić wstawianiem...
Mam problem dość istotny. Może będzie mi w stanie ktoś pomóc załączam plik excela. Problem polega na tym że chce by pod przyciskiem Wstaw znajdowało się makro które będzie wczytywało dane z arkusza "KW" do arkusza "Arkusz1" To jeszcze nie jest takie trudne. problemem natomiast jest to że musi to robić w kolejności tzn. Sprawdza pierwsze wolne pole w...
Witam, Mam makro jak w ostatnim fragmencie kodu w temacie: http://www.elektroda.pl/rtvforum/topic15... Makro rozwiązało problem z tego tematu, jednak pojawił się kolejny - otóż muszę w puste komórki w kolumnie A1 wstawić takie daty, żeby w kolumnie była ciągłość. Kod: Sub rows_influx() Dim i As Long i = 2 Do Until ActiveSheet.Range("A"...
Witam, ponownie napotkalam problem z ktorym nie moge sobie poradzic. Chcialabym tak zabezpieczyc komorki aby po skopiowaniu (komorki, tekstu itp) i wklejeniu jej do (w tym wypadku) tabelki, nie utracic formatowania. Rownoczesnie dana komorka ma przypisane ograniczenie wprowadzania znakow specjalnych: Sub ValidateProjectName(Target As Range)...
Witam wszystkich. Proszę o pomoc. Jak w Excelu zrobić aby na początku jakichkolwiek informacji dodanych w komórce, zawsze pojawił się akcent widoczny po podświetleniu danej komórki z danymi, tak abym nie musiał dodawać tego akcentu ręcznie? Oczywiście chodzi mi o opcję gdzie akcent normalnie jest niewidoczny, dopiero po podświetleniu komórki widać go....
Witam, proszę o pomoc jak można automatycznie wstawić znak w zaznaczonych komórkach pomiędzy wpisane już dane w komórce. Mam około 5000 wierszy i do każdego wiersza chce wstawić znak "/" w miejsce między drugą a trzecią literą lub cyfrą (znakiem) od prawej. Miało by to wyglądać tak: abcd1234 -> adcd12/34 cdefghijk -> cdefghi/jk Znak "/" ma być wstawiony...
wstawia wiersz excel excel makro wstawia wiersz poprawny wstawia
atomic soldano telegazeta panasonic arkusz egzamin zawodowy elektryk
electrolux ewt1266 pomiar rezystancji wewnętrznej ogniw
Bluetooth – jak skonfigurować bezprzewodowy głośnik JBL, Sony, Xiaomi w Windows 7 A2DP 17MB211 Vestel – Netflix crash po reprogramowaniu NAND, utrata DRM, ESN, klucze Widevine