Tak po prostu się nie da. Chyba, że znasz na pamięć nazwy wszystkich arkuszy ;) Gdzieś tę listę trzeba wyświetlić i przekazać do zmiennej nazwę wybranego arkusza... W załączniku przykład z wykorzystaniem do tego celu formularz(yk)a. Zwróć uwagę na dwie zmienne publiczne (muszą być zadeklarowane w module).
Zakładając, że komórka A4 zawiera nazwę "STR2", a komórka B4 nazwę "RAPORT", to tak: [syntax=vbscript]Sheets(Array(range("A4"... te nazwy są w innym arkuszu niż aktywny, to można dodać kwalifikator.
Przydałby się jakiś plik przykładowy do testów. Czy to kolorowanie dat jest potrzebne do czegokolwiek poza wyborem pozycji do druku? Można przecież filtrować bezpośrednio po datach i od razu drukować.
Czy te 4-ry "kolejne" arkusze należące do jednej grupy "cyfrowej", np.: 0202 (SUMA, WDT, WNT, WŚU) znajdują się jeden za drugim, czy też mogą być porozrzucane pomiędzy innymi arkuszami z innych grup numeracyjnych, np.: 0202SUMA, 0205WDT, 0202WDT, 0203WŚu, itd. ?
Oops, a było sobie nagrać makro ;) 1. Kod umieść w module standardowym i podepnij pod przycisk 2. Najpierw wybierz arkusz, następnie komórkę. Np [syntax=vb]Sub Odwolanie() Arkusz2.Select [C4].Select End Sub[/syntax]
Zrob to tak po pierwsze zablokuj arkusze (protect) haslo jest niekonieczne. Po drugie przed uzyciem jakiejs twojej funkcji VB odblokowuj wybrany arkusz zrob co masz zrobic a potem znowu programowo go zabezpiecz. Np ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Cos tam cos tam sobie wykonujesz ActiveSheet.Unprotect I tyle...
Najpierw sprawdź jaki masz arkusz normowy w interesującym cię projekcie: opcje>projekty>nazwa_twojego_projektu>za... arkusz normowy - tu sprawdzisz ścieżkę do arkusza, którego kopię będziesz robił potem programy narzędziowe>dane zasadnicze>arkusz normowy>kopiuj wybierz arkusz normowy i nadaj nazwę jego kopii kopia się otworzy...
Rozumiem że skoroszyt zawiera więcej arkuszy. Dlatego zamieściłem skrypt. Prosze ściągnąć password.zip, wypakować. Uruchomić (kilknąć 2 razy), powinien pojawić się komunikat jak na obrazku hasełka1.jpg. Następnie prosze uruchomić arkusz ocena.xls Teraz wybrać zablokowany arkusz. Z menu narzędzia prosze wybrać Unprotect sheet (tłumaczenie: odblokuj arkusz)....
W załączniku.
Prawym klawiszem na wybrany arkusz i "Chroń arkusz", jeśli chcesz ukryć to wybierasz "Ukryj". Później dajesz "Chroń skoroszyt" w opcjach Recenzja z zaznaczeniem pola "Struktura" i nie ma możliwości odkrycia arkusza. Założone hasło nie jest wywoływane przy otwieraniu dokumentu. Trzeba je wprowadzić tylko w celu zaprzestania ochrony skoroszytu. Dziękuję...
Dotyczy, wpisz: =$B$10:$M$40 i ustaw formatowanie w oknie edycji (tym poprzednim). W załączniku: Formatowanie warunkowe>zarządzaj regułami>wybierz:"ten arkusz"
Możesz zobaczyć to z inputboxem: [syntax=vb]Sub Przycisk2_Kliknięcie() Dim plik As Variant Dim openFile As Workbook Dim Nazwa_Pliku As String Nazwa_Pliku = ActiveWorkbook.Name MsgBox Nazwa_Pliku plik = Application.GetOpenFilename( _ FileFilter:=",*.xl*", _ Title:=" Wczytaj plik z danymi") If plik = False Then Exit Sub Set openFile = Workbooks.Open(Filename:=plik)...
Do powielania arkuszy i adaptacji formuł możesz wykorzystać makro z załączonego pliku :D - zaczyna pracę dopiero od arkusza 2.2 :!: i działa w ten sposób, że po wybraniu 1 arkusza w skoroszycie (tj. o najwyższej numeracji w nazwie :D ) - poprzez dwuklik myszką w ten arkusz - automatycznie kopiuje arkusz i ustawia nową nazwę i podmienia formuły :spoko:...
jednak wiersze dzieli na strony To nie jest największy problem. Najważniejsze, że struktura jest zachowana. Podam wkrótce kod. Dodano po 1 [syntax=vbscript]Sub Import() Set a = ThisWorkbook.Sheets("Arkusz 1") nw = 3 Set b = Workbooks.Open(ThisWorkbook.Path & "\Plik_B.xls") owb = Cells(Rows.Count, "A").End(xlUp).Row For X = 1 To owb If InStr(1, Cells(X,...
"=IF([(at)[LICZBA OCZEK]]=" & ComboBox1.Text & "!N:N,""ok""...
https://bestaliproducts.com/pl/best-chin... Poleasingowe galaxy tab s2 Snap 652, 3GB RAM i 32GB storage? Zdecydowane nie. https://www.kimovil.com/pl/porownac-tabl...
Witam Czy nie chodzi o takie coś? [syntax=vbnet]With Sheets(ComboBox1.Value) i = .Cells(Rows.Count, 2).End(xlUp).Row + 1 .Cells(i, 2) = TextBox1 .Cells(i, 3) = TextBox2 .Cells(i, 4) = TextBox3 'i tak dalej End With[/syntax]
Podstawy korzystania z MS Excel. Włóż trochę od siebie. [url=https://www.youtube.com/watch?v=AIh... Czy teraz napiszesz, że niestety nie znasz angielskiego? Możesz tak napisać, ale w takim przypadku nie bierz się za rzeczy, które wymagają wiedzy oraz znajomości obcego języka. Pozdrawiam. P.S. [url=https://www.google.pl/search?q=W+sk...
Może tak, jak w załączniku. Dopiero teraz zauważyłem, że 'Kopiuj/Wklej' jest dostępne we wstążce menu. Nie wiem, czy chodzi tylko o blokadę klawiatury, czy też o całkowitą blokadę kopiowania/wklejania ogólnie dla wybranego arkusza. Jeżeli całkowita blokada, to trzeba pomyśleć nad zablokowaniem 'kopiuj' we wstążce.
Tak to jest, jak się niedokładnie czyta. Mój błąd. Od #1 myślałem, że to jest 32 000, a to tylko 3 200... Co nie znaczy, że z 3 200 arkuszami pracować, to porażka. Co nie znaczy też, że Autor pisze niechlujnie swoje posty.
[syntax=vbscript]Sub ImportujMaszyny() Set r = Sheets("Arkusz1") Set i = Sheets(2) owr = r.Cells(Rows.Count, "A").End(xlUp).Row owi = r.Cells(Rows.Count, "A").End(xlUp).Row For w = 4 To owr Step 14 nr = r.Cells(w, 2) s = Application.Match(nr, i.Range("C1:C" & owi), 0) If s > 0 Then d = i.Cells(s + 1, 3) d = DateSerial(Year(d), Month(d), 1) wr = Application.Match(nr,...
Z arkusza, nawet za pomocą łącz, można w dość łatwy sposób "wydłubać" hasła. W załączniku znaleziony niegdyś w Internecie skoroszyt z dodatkowo zaszyfrowanymi hasłami. Wskazane jest włączenie ochrony oraz zablokowanie przeglądania projektu VBA hasłem.
Potrzebuję skopiować do nowego pliku na podstawie danych z listy (Nr rejestracyjny) część arkuszy( Najprostsze rozwiązanie PPK myszy na wybrany arkusz :arrow: "Przenieś lub kopiuj" do nowego skoroszytu :idea: Jeśli znasz VBA i masz setki tych arkuszy to nagraj sobie makro takiego kopiowania uruchamiane skrótem klawiaturowym. :D Jeśli zaś masz do skopiowania...
Sprobuj[syntax=vb]For ark = 4 To 36 For wrs = 26 To 36 Sheets(ark).Rows(wrs).Hidden = Sheets(ark).Cells(wrs, 3) = 0 Next Next [/syntax]
Np filedialog: .Filters.Add "Pliki Excel", "*.xls" Można i bez otwierania. Spróbuj coś z makr Excel4 arg = "'" & p & "[" & f & "]" & s & "'!" & Range(r).Range("A1"... , xlR1C1) ExecuteExcel4Macro(arg) Gdzie p to ścieżka do pliku, f nazwa...
Po zakończeniu kopiowania nie jest zwracania na pierwszy arkusz
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...
Jeśli jednocześnie to For ark = 1 To 2 With Sheets(ark) For i = .Cells(65536, "a").End(xlUp).Row To 2 Step -1 If .Cells(i, "a").Value = "" Then .Rows(i).Delete shift:=xlUp End If Next End With Next Jeśli uruchamiasz w pierwszym a usuwać ma w drugim to With Sheets(2) For...
Z arkusza1 robię raporty w osobnych arkuszach Efekt taki jak na zrzucie 1041538 automatycznego kopiowania wyfiltrowanych danych z arkusza1 do kilku arkuszy :idea: (z nazwami arkuszy wg filtrowanych danych :D ) można zrealizować przykładowo tak jak w załączonym pliku. 1041541 Makro można uruchomić skrótem klawiaturowym ctrl+r :!: , dla dowolnej (jeśli...
No to powyżej tej pętli zrób warunek typu [syntax=vbscript]If [F1]<>"" Then ...pętla tylko po F1 Else ... pętla po wszystkich End If[/syntax]
Witam [syntax=vbnet]Sub SumaC() Dim ws As Worksheet For Each ws In Worksheets If ws.Name <> "RYDER" Or ws.Name <> "PORTAL" Then ws.Cells(2, 1).Value = "suma" ws.Range("B2") = "=SUM(I4:I50)" End If Next ws End Sub [/syntax]
Moje sugestie: 1. Jeśli część pól formularza ma być nieedytowalna, użyj etykiet (Label) 2. Co, jeśli już wcześniej zapisano? Należy umożliwić edycję (Np Find w arkuszu wynikowym). Wybierz Nr1 dla przykładu. 3. Nazywaj kontrolki! Teraz masz ich kilka, ale jeśli będzie kilkadziesiąt... Przykład w załączniku.
W wolnej chwili wyklikałem na klawiaturze kilka linijek. Wydaje mi się, że wygodniej będzie Ci przystosować mój krótki kod. [syntax=vb]Sub Podziel() Dim a As String, a1 As Worksheet Set a1 = Sheets("Arkusz1") ow = Cells(Rows.Count, "D").End(xlUp).Row f = True Sheets("Arkusz1").Select For x = 5 To ow a = a1.Cells(x, 16) If f Then y = x f = False End...
W załączniku.
[syntax=vbscript]Sub DoBazy() kol = Application.Match([C3], Sheets("Baza").Range("A1:GR1"), 0) If Not IsError(kol) Then For i = 1 To 260 Worksheets("Baza").Cells(i, kol) = Worksheets("DoBazy").Cells(i, 3) Next i MsgBox ("Dane dla daty " & [C3] & " zostały skopiowane") Else MsgBox "Brak danych." End If End Sub [/syntax]
Może to Ci pomoże. Makro, dla podanej "szukana" przeszukuje każdy wiersz. Jeżeli znajdzie szukaną to kopiuje cały wiersz i przenosi do innego arkusza Dodano po 3 jeszcze raz bez zbędnych żeczy :) [syntax=vb]Sub Szukaj() Dim wiersz As Integer, kolumna As Byte, szukana As String, NumerWiersza As Integer Dim lastRow As Integer With ActiveSheet lastRow...
A mi się otwierają w 2016. Może masz coś nie tak z office2016? edit ------------------------------------ Na Twój problem: [syntax=vbnet]Sub Przenies() Dim x As Double, ostatni_wiersz As Double ostatni_wiersz = Sheets("Arkusz1").Cells(Sheets("Arkusz1"... 1).End(xlUp).Row For x = 1 To ostatni_wiersz Sheets("Arkusz2").Cells(3 + x * 12 - 12, 2)...
Cześć, Chciałbym utworzyć makro które skopiowaloby wybrane arkusze np 4 arkusze o konkretnej nazwie (kopiowanie wartości i formatu z całego arkusza) do nowo utworzonego pliku o określonej ścieżce (this.workbook.path & ”/” ) i o nazwie w komórce C11 z akrusza o nazwie “informacje”. Z góry dzięki za pomoc ! Rafał
mogl by mi ktos pomoc Musisz spróbować zrozumieć jak działa makro - utwórz sobie plik xlsm (z którego będziesz uruchamiał makro) i albo nagraj wszystkie czynności, które chcesz żeby automatycznie były wykonane, albo wnikliwie przeanalizuj krok po kroku (wyobraź sobie, że przed klawiaturą siedzi jakiś lammer i Ty musisz mu dokładnie wytłumaczyć co ma...
Musisz wybrać wykres x-y albo zamieścić arkusz... Dobra zamieściłeś masz...
Mam plik .xsl z licznymi arkuszami. Potrzebuję by do jednego pliku .pdf drukowały się wybrane arkusze W pliku mam arkusz ze spisem treści (nazw arkuszy w pliku - kolumna B) przy których (kolumna C) zaznaczono niezbędne do druku arkusze (naprzeciwko których zaznaczono "PRAWDA"). Czy poradzicie jak stworzyć makro do druku? Dziękuję ogromnie!
Cześć! Mój problem postaram się wyjaśnić na najprostszym przykładzie: Plik excela posiada 5 arkuszy, w każdym z nim w komórce A1 znajduję się lista rozwijana w której znajduje się pięć cyfr od 1 do 5. Jak zrobić, aby uniemożliwić wybranie tej samej wartości komórki A1 na więcej niż jednym arkuszu? Inaczej pisząc jak w arkuszu 1 wybiorę cyfrę "2" to...
Stwórz konto google. Wybierz arkusz . https://www.google.pl/intl/pl/sheets/a... edycji arkusza kliknij na udostępnij. Tam masz,opcję udostępnia z linku(uzyskaj link do udostępniania). Uzyskany link prześlij pracownikom.
Istnieja trzy sposoby. Z pomocą VBA ( pisanie kodu ), Formularzy lub Sprawdzanie poprawności. VBA pominiemy. Jezeli dane ( zebrane w kolumnie ) sa w tym samym aktywnym, arkuszu, mozna je szybko wybierać, edytować, za pomocą Sprawdzania poprawności. Recepta: 1. menu Dane/Sprawdzanie poprawności 2. Dozwolone/Lista 3.Żródło - wskazać zakres danych w kolumnie...
Najlepiej pętlą For. Musisz ustalić ilość kroków, wiersz początkowy itd. Np Jest 10 arkuszy, pierwszy wiersz Nr2, kolumna komórek łączących C. Nie do końca jest to miły sposób. Przy stałej, niewielkiej ilości arkuszy da się jeszcze przeżyć. W przypadku zmieniającej się dynamicznie ich liczby czyż nie prościej jest sprawdzić ile CheckBox-ów jest na...
Witam, chciałbym ułatwić sobie pracę w Excelu, ale zanim będzie łatwiej musi być trudniej :) Założenie jest takie: Mam plik (test) z 1 arkuszem - Arkusz1 oraz mam drugi plik (dane) z 3 arkuszami (biurowe, spożywcze i pozostałe). W pliku test mam kod EAN, załóżmy 5900316540144. Chcę sprawdzić czy występuje on w pliku dane w którymś z arkuszy a jeśli...
Po kliknięciu komórki np. C16 ma się utworzyć arkusz o tej nazwie tj. "C16"? Czy raczej arkusz z nazwą projektu? Jeżeli to drugie, to zamiast używać tabeli przestawnej proponuje: 1. utworzyć arkusz z polem/formantem kombi dla którego źródłem danych będzie pole (kolumna) "nazwa" z arkusza Dane. Po wybraniu elementu z listy zwraca się pozycję tego elementu...
Dzień dobry, Nie wiem dokładnie co to makro miałoby robić, jeśli odwołuje się do obiektów z docelowego arkusza to można całość objąć instrukcją With: With Worksheets("Arkusz2") 'tu nazwa docelowego arkusza ' .... kod makra End With W kodzie makra nazwy tych obiektów, które odnoszą się do arkusza docelowego należy poprzedzić kropką, to znaczy np. .Range("A2")...
moze masz zaznaczone w opcjach internetowych>>>>Ogólne>>>Dostepność>>>i... rozmiary czcionek na stronach web lub wybrany arkusz stylow uzytkownika jesli tak to odznacz i juz poklopocie....
Możesz również pobawić się funkcją INDIRECT.EXT ale wiąże się to z zainstalowaniem dodatku.
Lepiej opisz konkretne zadanie które ma ten arkusz wykonywać bo może to się da załatwić lepiej. Chodzi o wybranie jakichś konkretnych danych spełniających określony warunek? To można zrobić np. przy pomocy tabeli przestawnej.
Aby coś takiego zadziałało "samo" - potrzeba makra. Ale jest inne rozwiązanie (ja je zastosowałem u mnie w pracy). Nie wiem czy u ciebie da się zastosować. Taki arkusz - szablon (u mnie nazwany "czystym") ma jeszcze jeden arkusz z nazwą "kalendarz". Są w nim (oprócz sobót i niedziel) automatyczne wyliczenia świąt itd. i poprzez zaznaczenie danego miesiąca...
Wybierz gdzieś komórka dla nazwy arkusza. (np. arkusz3!Z1) [syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) Range("arkusz3!Z1") = ActiveSheet.Name End Sub Private Sub Workbook_Open() Sheets(Range("arkusz3!Z1")).Activate End Sub [/syntax]
troszkę nie kminię pomysłu , daj przykład paru komórek jak powinny wyglądać Przecież autor załączył fotkę Proponuje wpisać w A1 1 i w A2 1 zaznaczyć A1 i A2 złapać z róg i skopiować w dół do A32 A33 wpisać =A1+1 i skopiować w dół do A64 Zaznaczyć komórki od A33 do A64 złapać za prawy dolny róg i przeciągnąć/skopiować w dół aż do ostatniego wiersza...
Metoda PasetSpecjal z klasy Range nie powiodła się. No pewnie, że się nie powiedzie. Podałem tylko przykład, a nie rozwiązanie. Zanim wykonasz Selection.PasteSpecial, musisz wybrać arkusz i komórkę, do której wklejanie nastąpi...
Zaznacz komórki, w których chcesz ukryć formuły, wejdź w formatowanie komórek i na zakładce ochrona zaznacz wszystkie opcje. Tam też znajduje sie dalsza instrukcja, tzn w menu Narzędzia wybrać Ochrona i ustawić Chronienie arkusza
Jeśli aktywnym jest "Arkusz1", a z tego co piszesz jest, to zachowaj kolejność. Najpierw wybierz arkusz, następnie zakres [syntax=vb]Sheets("Arkusz2").Select Range(Columns(4), Columns(8)).Select[/syntax]Select dla zakresów nie działa na nieaktywnym arkuszu...
Nie jest dla mnie to jasne. O ile kryteria stworzenia arkusza są jasne (bo jest on tworzony na podstawie formularza - i podejrzewam że arkuszy może być kilka) - to na jakiej podstawie ma być wybierany arkusz? Też na podstawie nazwy z formularza? W każdym razie FormulaR1C1 albo Value możesz zastosować do komórki w dowolnym arkuszu, nie tylko bieżącym:...
Pewnie można, ale to już dłuższa historia... :) Najprościej - jeżeli plik-źródło jest w tej samej lokacji - wstawić kwerendę wybierającą dane (Dane->Importuj dane zewnętrzne->Nowa kwerenda bazy danych, wybrać Excel Files * i OK, wskazać plik-źródło (można zaznaczyć "Tylko do odczytu"), a dalej z kreatora" wybrać zakładkę, rozwinąć ją krzyżykiem, wybrać...
[syntax=vb] Private Sub Worksheet_Change(ByVal Target As Range) Dim Komorka As Range For Each Komorka In Target.Cells Select Case Komorka.Value Case "D49", "D48", "D30", "D31", "D32", "D33", "D20", "D21", "D22", "D26", "D27", "D28", "D29" Komorka.Interior.Color = vbBlue Case "PL" Komorka.Interior.Color = vbYellow Case Else Komorka.Interior.Pattern =...
Jakie polecilibyście rozwiązanie problemu? Podobny temat. https://www.elektroda.pl/rtvforum/topic3...
Robiłem kiedyś na swoje potrzeby taki pliczek, udostępniam go w załączniku. Zakłada on, że wszystkie pliki mają jednakowy układ i format treści. Kopiuje całe wiersze do zakładki "Wyniki". W żółtych polach podaje mu się dane do pracy, takie jak: - ścieżka do katalogu z plikami źródłowymi, - rozszerzenie plików które mają zostać wyszukane w tym katalogu,...
Dzięki za pomoc! działa super a jeszcze jedno pytanie czy da się zrobić w jakiejś komórce np przycisk drukuj, że robię wszystkie operacje na jednym arkuszu wiem, że w innym wszystko uzupełniło się poprawnie więc po prostu w bieżącym arkuszu klikam przycisk stworzony z jakiejś komórki i drukuje mi się wybrany arkusz?
Przy pojedynczym zaznaczeniu: 1-sza kolumna wskazanaKomórka = ListBox1.Column( 0 , ListBox1.ListIndex) 2-ga kolumna ma indeks1 itd Przy multi musisz przelecieć w pętli po wszystkich wierszach listy i zapisać tylko te, których ListBox1.Selected=True
Otwórz plik 'zeszyt1'. Włącz nagrywanie makra. Otwórz plik H:\DANE\Dane.xlsm, wybierz arkusz 'BBB, zaznacz zakres 'A2:F2000'. Naciśnij 'kopiuj'. Otwórz okno pliku 'Zeszyt1'. Kliknij na arkusz 'AAA'. Kliknij w komórkę A2'. Kliknij 'wklej' i zapisz makro, które potem będziesz wykorzystywał.
Witam uprzejmych forumowiczów. Od jakiegoś czasu borykam się z tematem uniwersalnego pliku, który miałby kopiować dane pomiędzy plikami pomiędzy kolumnami o takiej samej nazwie. Pliki powinny działać w sposób następujący: 1. Przycisk 1 -wskazuje plik (PA), z którego dane mają być kopiowane 2. Po wyborze pliku, z listy rozwijanej w komórce D9 należy...
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ę...
W tym urządzeniu jest możliwość skalibrowania wydruku, natomiast obawiam się, że niewiele to zmieni. Nie trzyma skali na całym wydruku w taki sam sposób, czy raz jest dobrze a raz źle? Procedura kalibracji: Naciśnij image[Tusz]>[Popraw jakość druku]>[Ustaw. w linii]. Naciśnij [Dalej]. Gdy na wyświetlaczu pojawi się pytanie o zakończenie sprawdzania...
Range("H:H") = "fail" Wszystka kolumna nie moze byc "fail" Lista 'ActiveX' lub fomular(poprawnosc danych)? Dodano po 2 Dołącz przykladowy arkusz
Najprościej: U dołu ekranu, na zakładce z nazwą arkusza kliknij prawym p.m. i wybierz: wyświetl kod arkusza. Po otwarciu edytora wklej...
Serdeczne dzięki, ale jak to zrobić? No jak jak? Przecież podałem Ci gotowy kod... Nie wiesz jak wstawić przycisk? Patrz [url=https://www.youtube.com/watch?v=j9D...
Witam, Sprubuję jaśniej to wyjaśnić: 1. Mam arkusze nazwane od styczeń - grudzień 2. Wszystkie nazwy kolumn są takie same różnica wartości liczbowych jest tylko w kolumnie N:N każdego arkusza 3. Chodzi o porównanie miesiąc do miesiąca za pomocą ComboBox: - użytkownik wybiera arkusze za pomocą Combobox1 i ComboBox2 - klika przycisk i zostają porównane...
musisz wybrać odpowiedni arkusz normowy dla strony: w okienku zaznaczasz stronę >> właściwości >> nazwa arkusza normowego
Jeżeli jesteś bardzo przywiązany do ramek i tabelki to rzeczywiście trzeba wybrać inny arkusz. W przeciwnym razie odznacz w Document Option (tak to się chyba nazywało) pola Border i Title i wybierz "Fit Page" przed drukowaniem.
Nie wiem, po co wprowadzałeś dwie zmienne j i k . Problem tkwi właśnie w tych zmiennych. Na początku przypisujesz im 1, potem wchodzisz w pętlę for . Pierwszy obieg pętli - wybrany arkusz, pętla Do While - wszystko OK. Drugi obieg pętli - wybrany kolejny arkusz, zmienna j ma w tym momencie wartość... 11 (pozostałą z poprzedniego wywołania pętli), Do...
zależy mi, że jak wybiorę pozycję 1 to automatycznie w 2 arkuszu wybierze się pozycja 1
Na razie to żaden projekt, zaczynam naukę z tym programem i na początek wybrałem z biblioteki bramki 4011 po ustawieniu ich w szereg zajmują dużo miejsca na arkuszu. Próbowałem edycji ale wybrane opcje powiększają lub zmniejszają cały obszar arkusza wraz z schematem i nie wiem jak pomniejszyć wybierane elementy.
rozumiem że to tylko część makra? Oczywiście, to tylko fragment kodu, który wykonuje jedynie to co napisałem wyskoczy okienko, w którym będzie można wybrać pliki excela z dysku komputera Po wyborze konkretnego pliku :D możesz kopiować całe arkusze lub wybrane dane do swego pliku zbiorczego. Ta część makra uzależniona jest od specyfiki plików źródłowych...
[syntax=vbnet]dim i as integer if worksheets(3).range("c5:c12") =tak then worksheets(3).printout worksheets(3).printout end if for i = 4 to 7 worksheets(i).printout next i [/syntax]
Brak odzewu może być spowodowany kiepskim uzasadnieniem sensu wykonywania takiej operacji. Zwykle kontrolki AciveX zaznacza się (w trybie projektowania) trzymając Ctrl, kopiuje (ctrl+c) i wkleja (ctrl+v) w wybrany arkusz, lub kopiuje cały arkusz (ppm). Dlaczego chcesz to zautomatyzować? Ile takich operacji wykonujesz? Czy oprócz przycisków w arkuszu...
Odptaszkuj "zablokuj" w ochronie (formatowanie) komórek z wyjątkiem wybranych i włącz "Chroń arkusz". [url=http://office.microsoft.com/pl-pl/e... link z dokładnym opisem.
Odwróciłbym to: makro realizujące aktywację wskazanego arkusza w wybranym skoroszycie i zawierające polecenie copy , przypisane do dowolnej (nie wykorzystywanej domyślnie w Excelu) kombinacji klawiszy, lub uruchamiane zdarzeniem arkusza Np dwuklik... Schowek w Excelu jest obiektem, do którego należałby się odwołać. Natomiast uruchamianie makra kombinacją...
Załączam przykładowy plik excela z makrem liczącym ilośc znaków w zadanym zakresie arkusza. Wynik podawany jest w drugim arkuszu. Makro wybiera kolejno komórki z zakresu, liczy liczbę znaków w poszczególnych komórkach i dodaje narastająco liczbę poszczególnych znaków z zakresu. Arkusz można dostosować do swoich potrzeb, np. wynik podawać w tym samym...
Dzień dobry, Zmiana była tylko w arkuszu 'dane do listy rozwijanej' w kolumnie N w definicjach miesięcy stałe zamieniłem na formuły, tak aby uwzględniały rok wybrany w arkuszu 'czysty formularz' w komórce F3. Pozdrowienia
A więc tak. Tworzysz nowy plik xls. Masz tam 3 arkusze. Jeden arkusz nazwij sobie np.słownik, 1.tam jedną komórkę wpisz YES w drugą(inną)komórkę wpisz NO. 2.zaznacz obie komórki 3.wybierz z menu:Wstaw->Nazwa->Definiuj zdefiniuj nazwę np.coś_tam w skoroszycie i wciśnij OK. 4.Przejdź do drugiego arkusz 5.zaznacz całą kolumnę 6.Wybierz z menu:Dane->Sprawdzenie...
U mnie (Excel 2000) kliknąć prawą myszką na "Arkusz 1" i pojawi się menu rozwijane , wybrać "wyświetl kod programu" i dalej jak w opisie.
Witam serdecznie, mam problem w EXCEL'u z którym nie umiem sobie poradzić (jestem mocno początkujący w tym programie). Posiadam plik z 9 arkuszami, każdy ma swoją nazwę. Tworzę dziesiąty arkusz - a w nim chciał bym dać pracownikom możliwość zestawienia ze sobą danych z dwóch wybranych arkuszy. Zatem tworzę listę rozwijaną z nazwami arkuszy i tu pytanie:...
Mi wyszło 20 bo robią 480 elementow tygodniowo 8 pracowników * 12 sztuk=96 * 5 dni=480 Więc wybrałem 20 arkuszy bo 20*25=500elementów
Witaj. Zobacz, czy o coś takiego Ci chodzi: Dodano po 2 Możesz też w jednej linijce ubić wszystkie wykresy :) Dodano po 3 Możesz też usuwać nie po nazwie, a po numerze wykresu: [syntax=vb]Activesheet.ChartObjects.Item... To skasuje wykres o indeksie numer 1.
Witam, mam problem z przyciskiem "Usuń 2" skoroszytu "01". Przycisk "Usuń 1" działa (po jego naciśnięciu wystarczy kliknąć na komórkę kolumny "I" aby wybrać nazwę usuwanego arkusza lub wpisać ją w Box-e ręcznie. Natomiast w przypadku przycisku "Usuń 2" chciałbym aby mechanizm wyglądał następująco: 1. Naciśnięcie przycisku "Usuń 2" arkusza 1 w skoroszycie"01"...
Witam mam kilka arkuszy z danymi i jeden arkusz główny w którym wprowadzam dane. Znajduje się na nim ikonka z macro drukowania, do tej pory drukowałem wszystkie arkusze jednocześnie, niestety teraz muszę to podzielić. Chciałbym wstawić macro, które będzie drukowało mi tylko wybrane arkusze, wybór może odbywać się poprzez wstawienie X w wybranej komórce...
Jeśli każda etykieta jest formatu A6 i są na osobnych stronach i w formacie PDF to przed wydrukiem wybierz wydruk na wielu arkuszach.
https://www.youtube.com/watch?v=5S53Q0FI... Myślałem o takim urządzeniu. Po cięciu zostają wiórki.
1. Następnym razem rozpocznij nowy wątek. 2. jak już makro zadziała, to dane się kopiują Jakim cudem? Kolejność działań: 1. Open (po otwarciu skoroszyt jest aktywny) 2. Wybranie arkusza - Sheets().Select 3. Kopiowanie - Range().Copy 4. Wybranie skoroszytu docelowego - Workbooks().Activate 5. Wybór arkusza docelowego - Sheets().Select 6. Wybór lewej,...
INDIRECT to to samo co ADR.POŚR, tylko po angielsku. Tu się nie przyda. W załączniku przesyłam przykład rozwiązania. 2 pliki z danymi w tych samych miejscach i 1 plik raportu, który te dane odczytuje. Te 3 pliki powinny być zapisane na dysku w tym samym katalogu. W przykładzie pokazałem jak można odczytać pojedynczą wartość i kilka wartości z prostokątnego...
Sposobów na otwarcie pliku w VBA jest wiele. Można użyć: [syntax=vbnet]Pthnm = ActiveWorkbook.Path Workbooks.Open Pthnm & "\TMP.xlsx"[/syntax] a nazwę pliku podać przez InputBox lub pobrać z jakiejś komórki w arkuszu. Inny sposób to użycie FileDialog i wybranie pliku przy jego pomocy. Wybór należy do Ciebie.
Może, tylko pisał o kopiowaniu wartości, wymienił kolumnę B, a nie A i nie napisał, czy dane we wszystkich kolumnach sięgają jednakowo daleko.
a to musze poszukac gdzie jest kod arkusza :P odpowiedź już była: Samo się nie zapisze. Wklej w kod arkusza (prawym klawiszem w zakładkę u dołu ekranu i wybierz "wyświetl kod")
możesz zamieścić arkusz?
Należy w procedurze Worksheet_SelectionChange kopiować wybrany wiersz do arkusza pomocniczego, żeby potem można byłoby go przywrócić.
photoshop wybranie czujnik arkusza dowolne arkusza
wyciek prądu hikvision orange granie klasie
odciąć immobilizer bojler elektryczny
Jak ściągnąć obudowę w pralce CANDY - krok po kroku Jak odblokować Nokia 500 Mobile Security?