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.
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"...
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
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...
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')
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"...
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.
Poprzedni plik i funkcja, to były przykłady. W tym pliku masz gotowca.
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?
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).
Musisz się zdecydować albo wpisujesz godziny jako tekst (wtedy w cudzysłowiu) albo jako liczby. Jeżeli chcesz to dalej np. sumować to proponuję konsekwentnie jako liczby. Z tym że trzeba pamiętać, że wpisane 8:00 to liczba równa 0,333.. a tylko prezentowana w formacie godzinowym. Czyli np. 12:00 to 0,5 (część doby), 6:00 to (0,25 część) doby. Do obliczeń...
to sobie zobacz: [url=https://www.youtube.com/watch?v=ash...
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...
Użyj formuły JEŻELI. =JEŻELI(A1>10;"i";"... Przy czym w kolumnie B ustawiasz czcionkę Webdings w kolorze czerwonym.
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...
Ale w czym problem? Schemat kodu masz. Mam nadzieję, że go rozumiesz. Poprzednio pisałeś, że chcesz zaznaczać komórki A1 w arkuszu, który ma być drukowany (przynajmniej ja tak zrozumiałem), teraz widzę, że chciałbyś, żeby te komórki były zaznaczane w arkuszu "FORMULARZ", więc trzeba dodać tę nazwę arkusza do adresu: [syntax=vbscript]Sub Drukowanie()...
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,...
Poczytaj: https://calculatic.pl/poradnik/wstawiani...
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:
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,...
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) = ""...
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...
Witam! Szukam funkcji która wyszuka i wstawi mi (obok siebie) komórki (zawartość komórki) z wiersza pełnego różnych informacji. Np Wiersze (między pełnymi komórkami jest różna ilość pustych komórek): 3 22 4 88 cw d aa 7 31 2 75 ah e bb Potrzebuje aby wyglądało to tak: 3 4 aa 7 2 bb Czyli chcę aby wstawiło mi wartość pierwszej niepustej komórki, trzeciej...
Cześć, mam problem.. mianowicie mam listę 80 comboboxów wg których użytkownik docelowo ma wybierać błędy, następnie za pomocą buttonów, obok ma wybrać zdjęcie ilustrujące dany problem. W poniższym kodzie z wykorzystaniem kształtów wyskakuje błąd, Nie widzi ścieżki zdjęcia : zdj = (wskazplik_metodaexcel) & i wg VB wynosi 1, gdzie faktycznie wartość...
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...
zdecydowanie początkujący Ale pomoc podręczna mimo wszystko jest dostępna ... :-) A z tym poniżej, jak działa ? [syntax=vba]Option Explicit Private Sub Workbook_Open() Dim ark As Worksheet For Each ark In ThisWorkbook.Worksheets(Array("Inne", "Beton, pompy", "Stal", "Elementy murowe i zaprawy", "Kruszywa", "Szalunki", "Sprzęt", "Żurawie", "Kontenery",...
Jeżeli w komórce ma się "pojawić" napis "Nie dotyczy" a w innym przypadku masz wprowadzać datę to tak jak sam napisałeś w pierwszym poście: tylko proste makro to załatwi. Niestety funkcja jeżeli w tym przypadku to za mało. Kłopot polega że nie masz pojęcia o makrach (jak sam mówisz), a makro trzeba ustawić w "modułach zdarzeniowych" arkusza. Np. takie:...
Makro jest bardzo dobre. Jeżeli zmienisz na:[syntax=vb] Set kom = Selection [/syntax] to obrazek wklei się w całej, scalonej komórce.
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]
Moja propozycja: jedna para przycisków +/- i przypisane do nich makr: [syntax=vb]Sub wstaw() Rows(ActiveCell.Row + 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Cells(ActiveCell.Offset(1, 0).Row, "H").FormulaR1C1 = "=R[-1]C" End Sub[/syntax] i [syntax=vb]Sub usuń() Rows(ActiveCell.Row).Delete shift:=xlUp End Sub[/syntax] Przed przyciśnięciem...
Spróbuj sposobu z załącznika. Wykorzystano poprawność danych > lista w 'D6'. Wstawiłem dodatkowy arkusz z parametrami. Dopracuj, dostosuj do własnych potrzeb.
czy ma ktoś jakąś instrukcję jak krok po kroku zrobić taki kalendarz??? nie proszę o gotowca (no chyba że ktoś jest bardzo życzliwy i pozwoli zaoszczędzić mi kilka dni a raczej nocy pracy) chodzi mi o instrukcje miło by było z jakimś screenem albo coś. A proszę, kilkadziesiąt minut pracy i cierpliwości ;) - może żadna francja-elegancja, ale coś podobnego...
a moze mni ktos napsać jak to dokładnie zrobic bo za bardzo nie wiem
Witam W miedzy czassie kolega mi pomagał i wyszlo cos co prawie chcę osiągnąc (plik w załaczniku) jakbyś dołożył to tego pliku usuń tabelki i zrobiłem okienko do wpisywania żółtych pól ale to już czarna magia żeby to zrobić czy dałbyś radę jeszcze to okienko podpiąc formuły??
Najprostsze co można zrobić (i najmniej odporne na "sabotaż" ze strony użytkownika). Działa w sumie jak zautomatyzowana funkcja wyszukiwania. Wszystko dzieje się w obrębie danego skoroszytu. W przypadku pobierania danych zewnętrznych należy się zastanowić w jaki sposób ma je pobierać (otwarcie zeszytu z danymi w tle, ado, querytables, inne). W skanerze...
Bo excel od MS sie do tego nie nadaje, źle odczytuje pliki csv Użyj LibreOffice
Dane docelowe będą bardziej skomplikowane, ale na podstawie "szablonu" sam będę próbował dostosować do moich potrzeb. Potrzebuję wsparcia na start, bo VBA jeszcze nie wchodzi jak trzeba Jeśli dobrze odczytuję Twoje zadanie :?: - uzyskanie efektu takiego jak na zrzucie 1144985 To na początek możesz wypróbować makro z załączonego pliku Protraport.xlsm...
wg mnie ten fragment: [syntax=vb]Range("H11").CurrentRegion.Of... 0).SpecialCells _ (xlCellTypeVisible).With Selection .ColorIndex = 1000 .Pattern = xlSolid [/syntax] napisał bym tak: [syntax=vb]Range("H11").CurrentRegion.Of... 0).SpecialCells(xlCellTypeVisible).Selec... Selection.Interior.ColorIndex = 6 Selection.Interior.Pattern = xlSolid[/syntax]...
Masz "dziwną" liczbę bo trzeba sformatować komórkę w której masz funkcję na czas w stylu "gg:mm:ss" Z tym że ta formuła przy standardowych opcjach arkusza ci się na nic nie przyda. Bo wystarczy że zrobisz w kolejnej komórce OK lub otworzysz plik (przeliczysz) lub cokolwiek obliczysz w innej komórce to wszystkie "godziny" przyjmą tą samą wartość. Na...
Hmmm. Standardowe podejście do tematu nie skutkuje. A może w tej sytuacji trzeba zrobić "sztuczkę" (niestandardowe podejście). Ja czasami jak coś nie wychodzi stosuję tę metodę i udaje się. Czy w tym przypadku można wymyślić jakąś "sztuczkę" (obejście ograniczeń)? Ps. Cały czas chodzi mi po głowie komenda "copy" - a może się mylę?
[syntax=vb] Sub karty() Dim src As Worksheet, r&, c& plk = Application.GetOpenFilename If plk = False Then Exit Sub Workbooks.Open plk Set src = ActiveWorkbook.Sheets(1) ThisWorkbook.Activate r = 2 With src While .Cells(r, 1) <> "" For c = 1 To 8 x = .Cells(r, c) If x <> "" Then For i = 1 To Len(x) Cells(c * 3 + 2, i) = Mid(x, i,...
adamas_nt wstawiłem całą funkcję w moduł standardowy i dalej to samo, nie wiem jak się przechodzi krokowo, zmienna buf powinna przyjąć wartość tego co wysyła do excela mikrokontroler czyli "T1 20.5" wstawiłem w pętli do zamiast chr(10) vbNewLine i dalej błąd Run-time error '13': Type Mismatch wstaw swój plik, może przez analogię dojdę co robię źle....
Witam. mam z drobna odrębny problem a mianowicie. Pracuję na cenniku w excelu gdzie są numery produktów OE i nasza oraz cena. Chciałbym to zautomatyzować makrem tak aby wyszukiwało po numerze OE i zwracało numer nasz i cenę. Prosze o pomoc. Super gyby to działało w nowym oknie Pozdrawiam
Pobrałem plik ale, nie bardzo rozumiem co będzie wpisywane w arkusz, a co ma być do tego dopasowane? Możesz coś więcej napisać (co ma być w zakładce wpływ) ?
Witam, Podaję makro: Sub Logoeps() ' Logoeps Makro ' Option Explicit Dim x As Double Dim y As Double Dim obraz As String Dim kom As Range Dim fd As Object Set fd = Application.FileDialog(msoFileDialogOpen... With fd .InitialFileName = ActiveWorkbook.path & "\" & Range("M68") .AllowMultiSelect = False .Filters.Clear .Filters.Add "Picture Files", "*.png;...
zdjęcia są umieszczane luzem może to nie jest najlepsze rozwiązanie.., równie dobrze kolejne zdjęcia mogły by być w komórkach A66,A81,A96 i F66,F81,F96
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.
Makro musiało Te makro to właśnie wstawianie 'wyszukaj.pionowo'
nie znalazłem rozwiązania mojego problemu Nie szukaj "rybki" do skonsumowania tylko szukaj "wędki" do łowienia w zasobach VB.netu :idea:
To nie są ActiveX, więc nic z tego. A nie wystarczy Ci takie szybkie wstawianie na skróty: Ctrl + : spacja Ctrl + Shift + : Wszystko "ciurkiem" w komórce...
Zajrzyj do tego tematu: [url=http://www.elektroda.pl/rtvforum/to...
Zrobiłem formularz do wprowadzania danych do tabeli w excelu, tylko nie wiem jak zrobić by w tym formularzu pole "LP" przyjmowało automatycznie kolejna liczbę? Macie może jakiś pomysł?
Jednym z rozwiązań jest zmiana formatu wyświetlanych liczb na niestandardowy z typem: [syntax=text]rrrr-mm-dd;;;[/syntax] albo formuła (przykład dla komórki I6 arkusza "pełne dane"): [syntax=text]=JEŻELI(CZY.PUSTA(wczasy!C5...
ad2 Jeżeli zrobisz wszystkie listboxy w osobnych userformach Dlaczego? Na podstawie zdarzenia Change jednego ListBox'a można przypisać zakres/tablicę/item drugiemu...
"Jeśli źle myślę nakierujcie mnie na dobrą drogę." Do baz danych, a więc to, co Ty masz służy Akces, a nie Excel. Nie tędy droga, żeby wstawiać 100 arkuszy i kombinować z formułami długości takiej, że nie mieszczą się na ekranie panoramicznym przy 1920x1080.;) Jeżeli zdecydujesz się na Akcesa, to służę pomocą...
1. Jeżeli istnieje funkcja w=f(a,b,....) to można napisać własny kod wykonujący obliczenia i wywoływać go jako formułę w komórkach. Nazywa się to funkcja użytkownika. 2. Nagranie własnego makra, które będzie wpisywało kolejne wartości A, B , a W będzie kopiowane do miejsca wynikowego. Po nagraniu makra zaprezentuj go, to zrobi się małe poprawki w celu...
Formularz gotowy, czyli w komórce A1 mam liste rozwijalną i teraz wybierając opcje A chciałbym aby pojawiało sie okno popup z kalkulacja której wynik wstawi się w komórke B1 jako wzór kalkulacji. Powiem tak obszukałem info na ten temat niestety nie jestem aż tak biegły w tych sprawach - będę wdzieczny za pomoc
To forum jest bezpłciowe, nie ma panów, ani pań ;) Jeżeli w kodzie adams_nt zmienisz w dwóch miejscach ctrl.Name na ctrl.Caption, to będzie wstawiało opisy checkboxów.
Dzięki. Udało mi się jednak samemu to zrobić i wyszło w sumie tak samo jak u Ciebie. Dziękuję tak czy siak. Głównie trzeba było zamienić pozycjami kolumny, bo pierwszą kolumnę excel wstawia do osi Y. Później już tylko pokombinować ze skalą logarytmiczną i jej granicami i przecięciami z osią. Pozdrawiam!
Zacznij od funkcji wyszukaj.pionowo
Witam (at)adamas_nt podał linka gdzie masz tam wstawianie procedury.
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...
Robisz pętlę od 1 do 1000, w pętli dwie zmienne N i M wskazujące aktualny numer wiersza dla kolumny A i kolumny B, bierzesz wartość z komórki której adres to kolumna A i wiersz N, wpisujesz ją do komórki, której adres to kolumna B wiersz M, zwiększasz N o 1, a M o 3 i tak do końca pętli. Wszystko w małym kodzie.
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...
Dalej wstawia datę
Jak usunąć podział strony po drukowaniu? Podzial reczny sie usuwa tak jak to opisali w podpowiedziach, http://office.microsoft.com/pl-pl/excel-... ale podzial automatyczny zostaje. Jak zlikwidowac te krechy??
http://forum.idg.pl/topic/146633-excel-a... Google umarło :-)
Cześć, próbowałem nagrać makro. Ale mi ciągle nie wychodziło i po jego uruchomieniu pojawiał się błąd syntax erro. Postanowiłem nagrać jakieś najprostsze makro- mnożenie dwóch komórek - i dalej ten sam błąd podczas nagrywania. Excel wstawia "." (kropkę) tam gdzie powinna być komenda ActiveCell https://obrazki.elektroda.pl/7618015700_...
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"...
Można bez makra, Np wpisz w B2 i skopiuj/przeciągnij w dół =WYSZUKAJ.PIONOWO(A2;Arkusz2!A:B... Jeśli koniecznie VBA, to w kod arkusza wklej [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns(1)) Is Nothing Then On Error Resume Next Target.Offset(0, 1) = Sheets("Arkusz2").Columns(1).Find(what:=...
Witaj ="=MAX(R[" & a & "]C[" & b & "]:R[" & c & "]C[" & d & "])"
w wolne kratki muszę powstawiać WH W5 WN WS Pozwolę sobie zażartować: wstawiać losowo ? czy po kolei wszystkie te oznaczenia - tak aby nie było pustych kratek ? :D A na poważnie to zapytam: a na jakiej podstawie Excel ma wypełniać te puste komórki tymi znakami WH czy W5, oraz gdzie wstawiać oznaczenia "dzień wolny za niedzielę lub za święta" Jak będzie...
Po kolei. Co z tym sprawdzaniem u Ciebie. Działa, czy nie? W razie czego zerknij w załącznik. p.s. Jeśli nie potrzebujesz wartości pola tekstowego poza procedurą, to nie przypisuj do zmiennej. Zrobi się bałagan. Jeśli jest inaczej to nazwij ją tak, żeby wiadomo było co to za "ziółko" bez późniejszego szukania po całym kodzie. Edit 22:00 Zmieniłem załącznik....
Zastosuj funkcję jeżeli, jak warunek spełniony to złącz teksty z odpowiednich komórek jak nie to nic nie wstawia.
Tak, jak najbardziej. Z resztą, sama się wstawia :)
Wstawiasz formatowanie warunkowe, wybierasz "formułę" i wpisujesz np =A1>=100
Znajdź sobie jakiś kurs... Bardzo uniwersalna odpowiedź. Pasuje do każdego tematu we wszystkich działach. :arrow:tang0 przeanalizuj następujący Sub wstawianie_iksow() ile = 3 'liczba iksów, pobierana z komórki lub pola tekstowego formularza kolumna = 1 'Nr kolumny 1 dla A, 2 dla B itd wiersz = 1 'Nr wiersza For wstaw = 1 To ile Step 1 wynik...
Wydzielono z Np. tak: To makro bardzo mi odpowiada do moich zastosowań, jednak nie umiem go zmodyfikować. Chodzi mi o to, że potrzebuje aby tworzyło mi arkusze z kolumny J - czasami będą to 2 arkusze, czasami 10. Jak zmodyfikować makro, aby wykonywało tworzenie arkuszy tylko dla pełnych komórek?
a co masz na myśli mówiąc "...podstawiać formuły w osobnej pętli"? Wstaw kolumny, wpisz ręcznie formuły sumowania i przepisz argumenty do makra. Po zakończeniu pętli wstawiającej kolumny i nagłówki (usuń linię z wstawianiem sum), dopisz następną wpisującą tylko formuły.
Witam, Mam do napisania makra, które najpierw tworzy 100 arkuszy o nazwach "Nowy_1", "Nowy_2", itd.. a później w komórkach A1:A10 w co drugim arkuszu wstawia liczby od 1 do 10. Niestety makro nie działa poprawnie, nie wiem gdzie popełniam błąd, ponieważ liczby wstawiają się tylko w pierwszym arkuszu. Baaardzo proszę o pomoc ! :) Sub WstawSkoroszyt()...
Zdaje się, że wystarczy[syntax=vb]Sub Makro1() ' ' Makro1 Makro Dim wks As Worksheet, shp As Shape, adres As String Set wks = Sheets("Arkusz1") Select Case Range("A4") Case 1: adres = "K6" Case 2: adres = "K7" Case 3: adres = "K8" 'itd End Select For Each shp In wks.Shapes If shp.TopLeftCell.Address(False, False) = adres Then shp.Copy Exit For End If...
Coś źle wpisujesz. Przy wstawianiu wiersza powyżej formuły, zakresy zmieniają się...
a po drugie chyba mniej skomplikowane będzie usuwanie tych z zakresu drugiej ramki No, może odrobinkę. W załączniku są dopisane oba. Procedury znajdują się w kodzie arkusza. W makro wstawiania nie ingerowałem, nadmiarowe CheckBox'y wyrzuciłem.
Ilość grup na razie jest 4 może w przyszłości będzie więcej może mniej ale to juz raczej kwestia wstawiania kolejnych części kodu Dla 4 grup sprawdź pw :)
Mam jeszcze jeden problem. Wasze podpowiedzi były super i dzieki, ale jak zrobic by po dodaniu juz kolumny w odpowiednim miejscu na podstawie podanej daty excel wstawiał w tej kolumnie w wierszu 2 formułę sumujaca dla tej kolumny wartosci od wiersza 4 do 3000. poniżej podaje pracujacy juz kod [syntax=vb]Private Sub cmb_dodajdzien_Click() Dim DataPodana...
tabela przestawna będzie dla mnie pewnie najtrudniejsza Bez przesady. Zaznaczasz zakres, klikasz wstawianie - tabela przestawna, zaznaczasz pola, które chcesz dodać do raportu i gotowe. Potem to już kosmetyka.
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...
Nie mam teraz dostępu do Excela, nie mam jak sprawdzić, ale w podobnych sytuacjach robiłem tak, sprawdzałem w Wordzie jaki skrót ma dany symbol, potem wstawiałem skrótem go w Excelu. Np. Alt+0167 dawało symbol -§
czy są w ogóle w excelowskim vba jakieś komendy służące do rysowania tabel? Nagraj makro wstawiania tabeli to się przekonasz :) W sumie to jedna, dwie linijki, gdzie zakres jest typu string, więc łatwo podstawić wartości ze zmiennych. Jeśli ilość kolumn i nagłówki są stałe można wyrysować tabelkę z jednym wierszem i wstawiać kolejne, wplatając polecenie...
Pętla, podstawianie (replace), porównywanie długości ciągów (len), rozbijanie ciągów (split), podstawianie, porównywanie, rozbijanie, itd. W zależności, czy warunek spełniony wstawianie wiersza, dodanie wartości, mnożenie *10, lub przepisanie. Mnóstwo kombinacji, ale do zrobienia.
Wstawiasz tabelę i wykres przestawny
Trzeba było od razu... Przerobiłem wstawianie daty (przy zmianie) i formuły w "Szablon" Jeśli z formatowaniem warunkowym to Copy-Paste. Edit: W "Szablon" w D3 i G3 wpisz =B10 (załącznik podmieniłem na poprawiony)
Wpisz dwa kolejne wyrazy ciągu (np. 10.0.0.1, 10.0.0.2) zaznacz i przeciągni. Excel sam wpisze kolejne.
rng , _ TextToDisplay:="2"[/syntax] Witam, Czy jest jakiś sposób abym mógł sobie wybrać rng w SubAddress? Jeżeli wpiszę np. A4 to wszystko pięknie działa, tylko że chciałbym mieć możliwość wyboru komórki przy każdym wstawianiu hiperłącza.
excel wstawianie formuł wstawianie wierszy excel excel wstawianie obrazków
rockchip batch excel format komórki kamera chmura
Awaria sterowania hamulcem w MAN Lion's City Łożyska i uszczelniacze do piły Faworyt RG 5300 18A