shapes cells

Excel vba wyszukiwanie makro przycisk okienko z danymi i grafiką

Dopisz przed tą linią: debug.print .Shapes(.Cells(w, 1).Text).name naciśnij Ctrl+g uruchom makro. I co tam wypisało?

Excel: Jak przerobić kod VBA do szychtownic z osobnymi arkuszami wzorów?

To ten sam problem, co w przypadku copy-paste. Jesteś w kodzie arkusza i musisz kod przenieść do modułu, lub w tym przypadku co najmniej podawać nazwę obiektu nadrzędnego Range, Cells, Shapes, itp Sheets("Menu").Select Sheets("Menu").Range&#...

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Excel 2007 - Jak formatować kształty w zależności od wartości liczbowej?

Chyba się nie rozumiemy. Napisałeś kod w "sekcji" Change arkusza (monitorującym czy w arkuszu nastąpiły zmiany) Czyli oczekujesz że jeżeli "coś" zmienisz w arkuszu to uruchomi się makro. Ograniczyłeś że ta zmiana ma dotyczyć komórki N5. Jednak jak sie okazuje komórka n5 nie zmienia się gdyż jest w niej formuła - zmienia się tylko wynik (nie robisz tego...

Excel VBA ListBox - błędne wyświetlanie u niektórych użytkowników

:?: https://obrazki.elektroda.pl/4258428400_... https://obrazki.elektroda.pl/7141122700_...   https://obrazki.elektroda.pl/5689894700_... Uruchom takie makro:[syntax=vbscript]For i = 0 To Shapes.Count 'któryś ma indeks 0 ??? - powinno być od 1. Nie było to tworzone w Calc? Cells(i + 1, 4) = Shapes(i).Name...

[VBA] Makro kopiujące nazwy arkuszy do komórek i status z checkboxów

z zakładki "form control" najwyraźniej jest to 'Shape' Z nim kłopoty, musisz aktywować każdego arkusza, 'Select' ten check box i dopiero wtedy można znaleźć jego wartość. Dodano po 5 [syntax=vb]Sub lista() Dim r& r = 2 For Each sh In ThisWorkbook.Sheets If sh.Name <> "Lista" Then sh.Activate Sheets("Lista").Cells(r, 1) = sh.Name Shapes(1).Select...

Excel-VBA: Wyświetlanie nazw kart w ComboBox i tworzenie nowych kart

Na pierwszym arkuszu umieszczamy listę Combo. Żeby wyświetlić listę arkuszy można to zrobić w makro, które ładuje listę Combo przy otwarciu skoroszytu, w obsłudze zdarzenia Workbook_Open: [syntax=vb] Option Explicit Private Sub Workbook_Open() Dim iWiersz As Integer Dim ws As Worksheet iWiersz = 1 'Utwórz listę arkuszy w pierwszym arkuszu od drugiego...

Jak przerwać pętlę w VBA, aby rysować linie w Excelu?

Chciałbym prosić o podpowiedz. pracuje nad makrem, które miałoby przechodzić przez poszczególne komórki w kolumnie i rysować linię. jak rysować linię doszedłem. Problem tkwi w tym w jaki sposób przerwać petlę, aby rysowała najpierw jedna linię, a później drugą, a nie jak w przykładzie poniżej tylko jedna od początku do końca 8397270900_1437079908|GXfxP71jBT...

VBA Excel - kopiowanie komórek z jednego arkusza do pól tekstowych w drugim arku

Może tak :?: Dla polskich wersji Excela zamiast obiektu "Textbox" należy użyć "Pole tekstowe" :D czyli raczej kod [syntax=vbscript]Sub kopiujto() Dim wartosc As String Dim TextBox As String Dim i As Integer Dim j As Integer j = 4 For i = 1 To 3 wartosc = Sheets("Arkusz1").Cells(j, 1) j = j + 1 TextBox = "Pole tekstowe " & i Worksheets("Arkusz2").Shapes.Range(Array...

Jak zmodyfikować makro w Excelu? Potrzebna pomoc.

[syntax=vb]Sub Osw_plyty() Const lok_dane = "C:\Users\DK5\Desktop\05\" 'lok_dane = ThisWorkbook.Path & "\" Dim isDane As Boolean, bd As Range, r&, nazwa$ nazwa = "DANE_CD_.xls" For Each w In Application.Workbooks If w.Name = nazwa Then isDane = True: Exit For Next If isDane Then Set bd = Workbooks(nazwa).Sheets(1).Cells Else Set bd = Workbooks.Open(lok_dane...

Automatyczne łącza komórek dla pól wyboru w Excelu - jak to zrobić?

Witam ponownie, Udało mi się rozwiązać problem. Dla zainteresowanych podaję kod, który napisałem: Sub Makro1() For i = 1 To 1000 Set curCombo = ActiveSheet.Shapes.AddFormControl(xlDrop... Left:=Cells(1 + i, 1).Left, Top:=Cells(1 + i, 1).Top, Width:=59.25, Height:=17.25) With curCombo .ControlFormat.DropDownLines = 8 .ControlFormat.AddItem "Wybierz...

Jak zwiększyć ilość danych do pobrania w makro VBA z 3 do 4 lub 5?

Witam Mam makro, które pobiera mi dane z pliku dane. Wszystko działa poprawnie. Problem jest kiedy zamiast kiedy chce zwiększyć ilość danych do pobrania z 3 do 4 lub 5. Oto ten kod jaki zmodyfikowałam na 4 dane Dodano po 34 w załączniku wzór

VBA excel Pojawiający się i znikający CommandButton

Do wywołania reakcji na wprowadzane do arkusza dane (odpowiedzi na pytania) wykorzystaj procedurę zdarzeniową arkusza: Target - Komórka podlegająca zmianie. W konstrukcji z ".Cells(1,1)" odnosi się do komórek scalonych Intersect - Sprawdza czy "Target" i komórka mająca wywoływać określoną reakcję, to jedna i ta sama komórk, czy też nie Jeśli ta sama...

Zmiana zapisu pliku w VBA Excel 2013 - błąd przy otwieraniu pliku DANE.xlsx

Mam następujący kod, który działał na wersji Excela 2007 a wersji 2013 działa, ale wyskakuje następujący błąd(patrz załącznik), nie wiem jak mogę zmodyfikować poniższy kod. Jak mogę zmienić zapis utworzonego pliku na "xxx" (wzór zapisu pliku: "xxx_imie_nazwisko") . Dane znajdują się w komórce C6 do zapisu imienia i nazwiska. KOD VBA: [syntax=vbscript]Sub...

Jak usunąć makro z arkusza skopiowanego do nowego pliku Excel?

Witam Mamy pytanie odnoście usuwania makra przez inne makro. Od początku. Mam poniższy kod który oczywiście działa popranie i robi dokładnie to co ma robić, czyli: kod na początku filtruje i tworzy pewną ankietę w arkuszu. Następnie arkusz z ankietą zostaje skopiowany i wklejona do nowego pliku Excel, następnie zapisany pod konkretną nazwą we wskazanym...

Excel - Makro zapisujące plik pod określoną nazwą oraz z możliwością podania

Witam, usiłuję przerobić makro zapisujące plik pod określoną nazwą na dwa inne makra, które: 1. zapisuje plik pod określoną z góry nazwą, 2. zapisuje plik pod predefiniowaną nazwą (część jest ustalona, resztę wprowadza się w wyskakujące okienko). Oto kod, który usiłuję przerobić: [syntax=vb] Sub zapisz_jako_cesja_0_5() Call zapisz_arkusz("nadstany_0,5-wydr")...

[EXCEL] - Kopiowanie formatu komórki do TextBox za pomocą VBA

Witajcie Od jakiegoś czasu walczę z problemem aby skopiować format z komórki (np Cells(3, 3) z formatem "0.00%") do pola tekstowego budowanego komendą myDocument.Shapes.AddTextBox(msoTextOrie... 581, 100, 71, 21) Wykorzystując zwyczajne odwołanie do komórki .TextFrame.Characters.Text = Cells(3, 2).Value kopiuje mi się wartość poprawnie...

Makro &#8211; mail z wskazanym załąc - korekta kodu

Gdyby ktoś był zainteresowany: [syntax=vb]Function TworzZalacznik(ByVal sheetname As String) As String Sheets(sheetname).Copy ActiveWorkbook.SaveAs Filename:=Ten_skoroszyt.Path & "\" & sheetname & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False TworzZalacznik = ActiveWorkbook.FullName ActiveWindow.Close End Function Sub wyslij_email()...

VBA - Łączenie wypełnionych wierszy z arkuszy Formularz i Regulamin, drukowanie wyników

Trochę to trwało, ale na ten moment udało mi się stworzyć coś takiego w rejestrze makr. Problem mam teraz tylko taki, że po znalezieniu ostatniego pustego w kolumnie 7 (G), chciałbym, żeby zaznaczyło mi cały arkusz do A1 CurrentRegion.Select.Range ("A1") Worksheets("Spis").Protect Password:="Hasło" End Sub[/syntax]

[Excel/VBA] Jak stworzyć pętlę do generowania wykresów z wierszy?

Pokombinuj coś z tym kodem,specjalistą nie jestem,przerobiłem przykład z neta,który sam do czegoś wykorzystałem.Efekt jak na zdjęciu. Sub wykresy() Dim mychart As Chart Dim myRange As Range Dim c As Integer c = 2 While c <= 11 'zakresy With Worksheets("Arkusz1") Set myRange = .Range(.Cells(c, 2), .Cells(c,...

Jak stworzyć makro do przenoszenia danych z EXCELa do WORDa?

Dodaj taką sekcję: [syntax=vb] 'zastępowanie w polach tekstowych wordDoc.ActiveWindow.ActivePane.View.See... = wdSeekMainDocument For Each shp In wordDoc.Shapes shp.Select Set wordSelection = wordApp.Selection With wordSelection.Find .Text = "$SKLEP" .Forward = True .MatchWholeWord = True .Replacement.Text = Cells(w, 3).Value .Execute Replace:=wdReplaceAll...

Excel - makro: zapis danych z arkusza dane na pulpit i przeniesienie do dane2

Przyznam, że u mnie w domu jest to samo co u ciebie. W pracy zapisywało mi bez przycisku a jedyna różnica to taka że w pracy mam W7 co nie powinno mieć wpływu. Edit: A może w pracy już dodałem tą linijkę kodu i dlatego mi działąło. Poniżej kod kolegi adamasa z linijką usuwającą przycisk. [syntax=vb]Sub Zapis() sc = "C:\" 'wpisz path jako string, koniecznie...

Jak utworzyć makro w Excelu do przenoszenia autokształtów na podstawie cyfr?

Niestety już nie mam, zginęło na przestrzeni lat, ale właściwie każde makro powstawało przez zapisanie czynności (opcja "zarejestruj nowe makro") a potem edycji i wstawiania . W excellu to naprawdę działa (przynajmniej do wersji 2003 ;) Właśnie to zrobiłem - prosta rejestracja - ostatnie linijki dopisane Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane...

EXCEL VBA - CommandButton oraz OptionButton - klawisz usuń - nie działa usuwanie

Powyższy kod wykorzystuję dla różnych dokumentów i w obecnej chwili używam go w taki sposób, aby po odczytaniu jaki numer ma ramka kończył USUWANIE: [syntax=vb]Sub Usun2() Dim knyps As Boolean knyps = False For i = 1 To Shapes.Count Range("A27").Select ' określa komórkę gdzie ma sprawdzać wartość If Selection.Cells = 1 Then 'określa jaką ma mieć wartość...

Makro Excel - Makro zapisujące plik z nazwą z danej komórki, które kopiuje zazna

[syntax=vbscript]Sub Makro() With Range("J2") .FormulaR1C1 = "=NOW()" .HorizontalAlignment = xlLeft .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With p = [F3] Cells.Copy Workbooks.Add ActiveSheet.Paste Application.CutCopyMode...

Makro e-mail z excel formatowanie komórek, dołączanie plików

O programowaniu nie wiem nic, ale jakiś cudem majstruję sobie malutkie cuda w excelu. Mam makro które wysyła do wybranych klientów informacje o kwotach i dodatkowo załącza plik. Kwestia 1 chciałabym sformatować Cells(x, "S") jako format walutowy w zł (albo chociaż liczbowy z separatorem i 2 miejscami po przecinku) - walczę od 6 godzin i najwyraźniej...

VBA Excel - wykres przestawny dla zmiennych danych źródłowych

Witam, Mam problem - otóż próbuję stworzyć makro które wykonuje mi tabelę i wykres przestawny dla zmiennych danych źródłowych które znajdują się w innym arkuszu. W innym arkuszu mają być generowane wykresy przestawne - jeden po drugim. Jeden wykres przestawny mi się generuje ale teraz poszukuję kodu który automatycznie wynajdzie mi powiedzmy 5 wolną...

Jak automatycznie wstawiać zdjęcia do Excela zgodnie z nr artykułu [VBA]

Zrób wpierw symulację obciążenia takiego skoroszytu ze zdjęciami dla paruset/parutysięcy wierszy, bo może okaże się, że nie da się takiego zeszytu przeglądać. A zdjęcia przecież zawsze można spakować i przesłać zainteresowanemu, żeby je sobie rozpakował u siebie na dysku. Po co je wklejać do arkusza ? Zwłaszcza, że i tak niewiele trzeba, żeby "uszkodzić"...

Excel VBA - Jak nadać nazwę wykresowi w VBA?

Witam, mam problem amatora, początkującego "programisty". Celem jest tworzenie wykresu o określonej nazwie, by móc potem na nim pracować. Czyli przejście z funkcji ActiveChart itp. na funkcje pracujące na nazwach obiektów. Poniżej zamieszczam efekty mojej pracy. Potrafię utworzyć wykres, nadać mu pewne właściwości, ale nie potrafię ustawić/ zmienić...

Excel VBA: Jak stworzyć raport sprzedaży z filtrowaniem kategorii produktów?

Mały arkusz przykładowy masz w załączniku - wykorzystuje proste kopiowanie wierszy w pętli z arkusza źródłowego do docelowego. W pełni zgadzam się z przedmówcą, że tych przycisków coś za dużo - ba, sama idea kopiowania obrazków nie bardzo mi się podoba - wszak masz potem ten sam obrazek w dwóch miejscach... A znając tendencję niektórych ludzi do wklejania...

Kod VBA - Makro logowanie do pliku po przez sprawdzenie Environ Username

Witam, Mam problem z dostosowaniem kodu i proszę o pomoc. Chcę, żeby makro oprócz warunku sprawdzenia hasła sprawdziło dodatkowo użytkownika czy się pokrywa z użytkownikiem z pierwszego logowania do pliku. Makro, które przy logowaniu się po raz pierwszy pobiera od użytkownika i zapisuje w arkuszu (tabeli) w 2 kolumnie login w postaci numeru indeksu,...