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"...
Poprzedni plik i funkcja, to były przykłady. W tym pliku masz gotowca.
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.
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.
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()...
Poczytaj: https://calculatic.pl/poradnik/wstawiani...
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,...
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) = ""...
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...
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,...
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...
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 Nie wiem po co ci ta pętla od 1 do 5? Ustaw zdj jako zmienna globalna i pobierzesz od razu scieżkę
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]
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",...
Makro jest bardzo dobre. Jeżeli zmienisz na:[syntax=vb] Set kom = Selection [/syntax] to obrazek wklei się w całej, scalonej komórce.
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:...
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...
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...
Spróbuj sposobu z załącznika. Wykorzystano poprawność danych > lista w 'D6'. Wstawiłem dodatkowy arkusz z parametrami. Dopracuj, dostosuj do własnych potrzeb.
A jaki kod dopisać żeby te pola wstawiały się do arkusza_B2 jak nacisne wstaw B2 i do arkusza _F jak nacisnę Fresiner. I jeszcze jedna żecz co zrobić żeby przed wstawieniem tabelki czyli po nacisnieciu wstaw_b2 wyskakiwało okienko z polami do wypełnienia?? [syntax=vb]Private Sub CommandButton1_Click() If CommandButton1.Caption = "OK" Then Worksheets("arkusz_B2").Range("C9").Valu...
a moze mni ktos napsać jak to dokładnie zrobic bo za bardzo nie wiem
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...
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...
Witam!!! Od kilku dni zmagam się z problemem dotyczącym stworzenia marka w Excelu które po opcji wy filtrowaniu całego arkusza, zakres który wyjdzie zaznaczył mi na odpowiedni kolor (żółty). Oczywiście ilości wierszy oraz jego numeracja się zmienia. Tak mniej więcej wygląda na chwilę obecną wszystko działa oprócz wstawienia tła po wy filtrowaniu , bardzo...
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...
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ę?
Witam Mam mikrokontroler, który co pewien czas wysyła mi na port COM temperaturę z czujnika. np "21,4" Nie mam żadnego problemu z połączeniem COM ponieważ jeśli odpalam HYPER TERMINAL wszystko wyświetla mi świetnie, problem w tym że musiał bym za każdym razem kopiować cały tekst z terminala i w excelu obrabiać żeby sobie utworzyć wykres temperatury....
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
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.
[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,...
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) ?
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
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;...
Witam. Proszę o pomoc. Chciałbym się dowiedzieć czy jest taka możliwość, żeby przeszukiwać wiersze Excela i następnie w puste komórki za pomocą VB.net wstawiać wartości. Jeśli jest taka możliwość proszę powiedzieć jak to zrobić????
"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ą...
Witam. Mam arkusz który ma służyć do kontroli wydań i przyjmowań towarów. W arkuszu mam łącznie 40 pól w które wstawiłem przycisk i podpiąłem do niego makro wstawiające datę i do tego momentu to działa. Problem pojawia sie gdy chce to makro przypisać do wszystkich 40 przycisków, wtedy wychodzi na to że musiał bym mieć napisane 40 makr gdzie w każdym...
Zajrzyj do tego tematu: [url=http://www.elektroda.pl/rtvforum/to...
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...
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ł?
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!
ad2 Jeżeli zrobisz wszystkie listboxy w osobnych userformach Dlaczego? Na podstawie zdarzenia Change jednego ListBox'a można przypisać zakres/tablicę/item drugiemu...
Zacznij od funkcji wyszukaj.pionowo
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...
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ę
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"...
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...
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??
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.
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:=...
Witam (at)adamas_nt podał linka gdzie masz tam wstawianie procedury.
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
http://forum.idg.pl/topic/146633-excel-a... Google umarło :-)
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...
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?
Witaj ="=MAX(R[" & a & "]C[" & b & "]:R[" & c & "]C[" & d & "])"
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...
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...
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 :)
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 -§
Wstawiasz tabelę i wykres przestawny
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.
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.
Funkcją "jeżeli" sprawdzasz czy komórka jest równa 0 (pusta). Jeżeli twierdzenie jest prawdziwe, wstawiasz "brak ocen".
tak. wstawiasz pole kombi z menu formularze, określasz w jakiej komórce ma być wstawiony wynik wyboru oraz możliwości do wyboru i po wszystkim
Jakie pytanie taka odpowiedź. Teraz już konkretniejsze pytanie to i odpowiedź konkretniejsza: [syntax=vb] For Each oArkusz In ThisWorkbook.Worksheets ... ... Next oArkusz [/syntax] W miejsce kropek wstawiasz kod, którego używasz do przeszukania jednego arkusza.
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.
Dziękuję, dokładnie o to chodziło. Mam pewien problem z przeniesieniem całości do innego arkusza. Zmieniam adresy komórek według nowych i całość działa oprócz wstawiania nazwisk .
W załączeniu jest plik ze wstawionymi obrazkami przez makro w wersji excej 2007 oraz 2010, dodtakowo plik z makrem do wstawiania obrazków.
Lanzul a czym Twoje rady różnią się od moich? Dokładnie o tym samym pisałem. Ukrywane są kolumny od D (w vba jest makro które je ukrywa) czyli mają szerokość "0" oraz zablokowane są okienka. Powoduje to że w arkuszu wstawiana jest pionowa jak i pozioma czarna linia, która zakrywa obramowanie komórek.
excel wstawiać obrazek excel wstawiać załącznik wstawiać wiersz excel
obieg sharan oświadczenie serwisu motogodzina zetor
domofon schemat philips senseo
Renault Clio III – alarm sam się uruchamia, fałszywe wyzwalanie, czujnik maski, UCH Brak dzwonka w telefonie stacjonarnym Panasonic – przyczyny, testy linii, filtr ADSL, napięcie ring