No tutaj [syntax=vbnet] 'wprowadzenie dzisiejszej daty do komórki P2 Worksheets("licence").Cells(2, 16).Select ActiveCell.FormulaR1C1 = "=TODAY()"[/syntax] za pomocą metody select wybierasz komórkę w ukrytym arkuszu, ale żeby coś do komórki zapisać wcale nie musisz jej wybierać, wystarczy że napiszesz tak: [syntax=vbnet]Worksheets("licence").Cell...
Nie bardzo rozumiem, gdzie w tym jest ukryty problem. Zerknij na arkusz i napisz co jest nie tak:
przycisk do aktywacji drugiego arkusza Rozumiem, że "normalnie" arkusz "Dane" jest ukryty :?: Proponuje zmodyfikować kod przycisku poprzez zastąpienie metody Select (która umożliwia wszak wybór wielu obiektów z kolekcji :cry: ) metodą Activate :idea: - tzn.: [syntax=vbscript]Sub Dane() Sheets("Dane").Visible = True Sheets("Dane").Activate End Sub[/syntax]
No tak to jest, gdy poprawka dotyczy fragmentu wyrwanego "ze środka" ;) W załączniku uproszczony przykład kopiowania w ukrytym arkuszu ("Arkusz1"). -odkryj -popatrz -ukryj -naciśnij przycisk -odkryj i zobacz co się narobiło
To trzeba wykonywać program krokowo i gdy wystąpi błąd sprawdzić wartości wszystkich zmiennych. Opis błędu wskazuje, że nie ma arkusza o wskazywanej nazwie, więc trzeba dokładnie sprawdzić jakie są nazwy arkuszy, a co jest w komórkach. Jeśli nie znajdziesz sam przyczyny błędu, załącz przykładowy plik, bo tak to można tylko zgadywać.
Dziekuje za zainteresowanie tematem, załączam plik w którym jest ukryty arkusz zamówienia.Takich plików jak ten mam kilkadziesiąt, w każdym jest arkusz "zamówienia" próbuje utworzyć połączenie PQ miedzy oddzielnym plikiem w którym buduje raport a plikami z ukrytym arkuszem "zamówienia"
[syntax=vbscript]Application.ScreenUpdat... = False If Not Sheets("Arkusz2").Visible Then Sheets("Arkusz2").Visible = True Sheets("Arkusz2").Select Range("A2:E10").Select Selection.Copy Sheets("Arkusz1").Select Range("a1").Select ActiveSheet.Paste Application.CutCopyMode = False Sheets("Arkusz2").Visible = False ActiveWorkbook.Save Application.ScreenUpdating...
W czasie drukowania Otwórz arkusz, a następnie ukryć Sheets(.List(.Value)).Visible = True
Dziękuje. Domyślam że tylko w taki sposób można rozwiązać mój problem. Wolałbym aby każdy arkusz który ma być ukryty i zabezpieczony hasłem, był ukryty i zabezpieczony hasłem. Natomiast makro nie otwierało arkusza ale "wykonało pracę" i nie musiało ukrywać z powrotem arkusza. Zasada działania jak funkcji excela. Czy jest to możliwe?
Jest ukryty arkusz 'admin' Tam wszystko ma byc jasne Dodano po 1 obszar ma nazwe 'users'
Zmieniłem nieco koncepcję. Kopiowany jest ukryty arkusz "Wzór", automatycznie przypisywana nazwa i zapisywana w zestawieniu. Dopracuj, jeśli odpowiada Ci takie rozwiązanie.
Nie wiem, czy mogłoby to ułatwić temat, bo właśnie skończyłem manualne obrabianie tego pliku. I wiem, że dane z poszczególnych wierszy można kopiować np w ten sposób: Dane z pod wierszami A1-G1 do wierszy G2-N2 i da sie kilka takich potrzebnych wierszy wpisać jako stała. Lecz potrzebne byłoby sprawdzenie, czy nazwy danych nie uległy zmianie tzn wiersze...
Jak mam arkusz ukryty to nie dzialaja. Jak jest odkryty to dzialaja. Wolalbym aby arkusz by ukryty i za pomocą przycisku przeniesc do tego arkusza ukrytego. Dodano po 4 Chcialbym aby arkusz"Menu" byl odkryty. Wtedy przenoszę za pomocą przycisku do arkusza1. Tam za pomocą następnego przycisku"kopiuj" na przyklad kopiuje dane z innego pliku. Potem za...
Nieszczególnie wyjaśniający ten opis... ;) Na tyle, na ile zrozumiałem (podpierałem się rysunkiem z pierwszego posta) - wykonałem taki prosty arkusik. Bez skomplikowanych funkcji, pomocnicze pola "wyszarzone" można ukryć lub umieścić w osobnym, ukrytym arkuszu. Pozdrawiam.
Najlepiej przeznaczyć na to osobny, ukryty arkusz o nazwie np. "licznik". Instrukcja przypisania: Worksheets("licznik").Cells(4, 7).Value = LiczbaOdwiedzin Możesz sporo uprościć kod. Powinien zamknąć się w kilku linijkach, zaraz coś napiszemy...
Wywoływanie ukrytych arkuszy dla określonych użytkowników :idea: można zrealizować tak, że po otwarciu pliku widać tylko formularz logowania 987889 po wprowadzeniu uprzednio zarejestrowanych loginów i haseł otwierają się tylko arkusze dedykowane dla logującego się użytkownika :D 987890 W załączonym pliku są po dwa arkusze dla Asia (psw=1234), Maria...
Musisz sprawdzić czy dany arkusz jest ukryty i dopiero później wykonywać kolejne operacje, np. w taki sposób: [syntax=vb]Sub zz() For Each sh In ActiveWorkbook.Worksheets If sh.Visible = True Then sh.Select ActiveWindow.Zoom = 125 End If Next End Sub[/syntax]
Nie bardzo (formuły tablicowe), ale za to straaaaasznie wolno. Kolumnę pomocniczą możesz "upchnąć" w ukrytym arkuszu i nikt jej nie zauważy ;)
Sprawdziłem arkusz danych dla BL0937 i zanotowałem położenie pinów CF, CF1, SEL, wyglądało na to, że były podłączone do pinów prowadzących do karty wifi. Udało mi się włożyć sondę miernika w szczelinę, aby skontaktować się ze stykami w pozycjach, które pokazują w arkuszu danych, i mogę potwierdzić, że są one podłączone do modułu Wi-Fi, więc jestem pewien,...
Sprawdz czy aby na pewno stosujesz odpowiednią nazwę arkusza. Czy nie ma literówki itp. Jeżeli prawidłową nazwę arkusza ujmiesz w cudzysłowiu to musi działąć nawet ze spacjami i innymi znakami które pozwolą się wpisać w nazwie. Chyba że błąd dotyczy czegoś innego np. arkusz jest ukryty lub komórka chroniona
(at)adamas_nt dzięki za pomoc, plik działa wyśmienicie. Jednak mam jeszcze jedną małą prośbę o pomoc w rozbudowaniu a dokładnie dodaniu jeszcze jednej opcji do kodu, niestety nie mam pojęcia jak to zrobić. W załączonym pliku pokazałem o co mi chodzi. Podam może parę szczegółów. W pliku dodałem parę arkuszy które ściśle odpowiadają swoją nazwą w odpowiednich...
Ok Ale jak/czym wyłączyłeś edytowanie nazw arkusza i ewentualne dodawanie nowego arkusza. Poza tym arkusz (sheets) nie ma w visible "opcji" True. Może być: -1 (czyli pokaż) 0 (ukryty) 2 (bardzo ukryty - co by to nie znaczyło)
Polecam funkcje wyszukaj Jezeli bedziesz szukał w innym arkuszu to masz łatwy dostep do zmian a jak dodatkowo ukryjesz arkusz to nikt obcy nic ci nie namiesza. Dokładnie o tej funkcji mozna poczytac w helpie
chodzi o to, żeby z 1 i 2 (i innych których nie ma we wzorze) arkusza z danej kolumny konkretnego pracownika na ostatni arkusz przenosiły się w osobną tablkę Jeżeli posiadasz Excela powyżej wersji 10 :?: to tego typu efekt jak na zrzucie 1047238 możesz uzyskać poprzez utworzenie tabelki połączonej (łącza z danymi z tabelek "kierunkowych" np w ukrytym...
Problem polega na tym że w ten sposób mogę tylko sczytywać dane z tych arkuszy a chciałbym z poziomu arkusza zbiorczego edytować dane w poszczególnych arkuszach . Zadanie jest równie realne jak w hydrologii gdzie chcieliby "z poziomu" morza regulować przepływ wody w górnych biegach rzek wpływających do tego morza - po prostu zawracanie kijem Wisły...
Da sę tak zrobić, żeby lista przy wykresie zmieniała również liste przy tabeli? Jeśli chcesz zrobić tak jak na zrzucie: 967035 to tak :please: Można to zrobić wiążąc kluczowe komórki (I3 oraz I39) ukrytego arkusza z polem wyboru w arkuszu widocznym :D :spoko: , tak jak w załączonym pliku. 967038
1. Jeśli chcesz zmienić formuły dla innego rozmiaru, usuń lub dodaj wiersze wewnątrz zakresu... 2. Jeśli chcesz uzyskać wyniki dla każdego roku osobno, powtórz grupy formuł. Tak, jak gdyby kilka tabel ustawić obok siebie. Kolumny, komórki i wiersze pomocnicze umieść w osobnym (ukrytym) arkuszu, żeby widoku nie psuć. 3. MAX, bo najkrótsza :) Możesz próbować...
Zrobiłem coś w tym temacie... Wygląda, że działa poprawnie, jednak trzeba mieć świadomość, że przy dużej ilości danych efektywność procedury nie będzie wysoka. Po odpaleniu spokojnie będziesz mógł iść na kawę :D W skoroszycie dodałem dodatkowy (pomocniczy) arkusz "work", który jest ukryty. andie
Uściślij: 1. Czy pliki zostały już otwarte z danego katalogu i przebywają sobie w tle programu, co sugerowałoby to co napisałeś (" pobiera z otwartego pliku ") ? 2. Czy też pliki trzeba dopiero otworzyć z danego katalogu ? 3. Jeśli trzeba, to czy jest to katalog tylko "jednopoziomowy", czy też znajdują się w nim podkatalogi, z których też należy otwierać...
Witam, https://obrazki.elektroda.pl/9151418400_... Nie wiem dlaczego skoro poprawnie odczytuje nazwę arkusza... ktoś podpowie gdzie jest problem? Oto moje makro: Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Dim ShtName As String ShtName = Left(Target.SubAddress, InStr(1, Target.SubAddress, "!") - 1) Sheets(ShtName).Visible...
Jak już pisałem, plik zrobiony był jakiś czas temu. Dzisiaj pewnie bym to uprościł. Zapuść krokowo Np makro "Filtr1" i obserwuj co się dzieje. Kluczowe jest kopiowanie listy z kolumny AA do ukrytego arkusza "Arkusz3" gdzie odbywa się "układanie" list i przypisywanie do nazwy. Fakt, trochę by tam trzeba pozmieniać.
Proponuję prostą pętle: [syntax=vbscript] Dim dane() As String dane() = Split("A1, A2, A3", ",") For i = LBound(dane) To UBound(dane) Worksheets("Arkusz1").Range(dane(i)).Sel... Selection.ClearContents Next i [/syntax]
Jak usuniesz formę z pamięci, to wszystkie zmienne przez nią "wyprodukowane" znikają również. Proponuję status przycisków umieścić w zmiennych w głównym module, ewentualnie w ukrytych komórkach arkusza , tam dotrwają do samego końca programu, a w komórkach arkusza to nawet się status zapisze
Twojego filmiku nie widać. Edit: Już się pokazał. Spróbuj jednak dokładniej opisać swoje obserwacje. Czy problem z tym plikiem "okrojonym" na potrzeby forum występuje u Ciebie na każdym komputerze i w każdej wersji Excela? Masz w pliku kilka ukrytych arkuszy, ale eksperymentujesz tylko z "B". Czy każdy arkusz po ukryciu zachowuje się tak samo? Ponieważ...
Musisz to odwrócić. Najpierw zapamiętanie nazwy pliku: zapisz w ukrytym arkuszu wartość '.SelectedItems(1)' (path+filename) i użyj jako argument 'Open' (Append lub Output) przy zapisywaniu. Jeśli wszystko odbywa się w jednej sesji, możesz przypisać do zmiennej globalnej. String do zapisu (wiersz arkusza) poskładaj w wewnętrznej pętli For. Żeby było...
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ę...
Na przykład, po wpisaniu nazwy użytkownika: 111 i hasła: 111, otwierałby się tylko arkusz nr 1. Po wpisaniu nazwy użytkownika: 222 i hasła: 222, otwierałby się tylko arkusz nr 2, i tak aż do arkusza nr 8 Można, by to było zrobić na zasadzie ukrytych arkuszy, zobacz załącznik. Oczywiście kod jest zabezpieczony hasłem, ale to właściwie żadne zabezpieczenie....
Mamy tu kilka ukrytych arkuszy, które trzeba pominąć. Można próbować zautomatyzować listę arkuszy (pole opcji, lista nazw), ale czy warto? Zawsze można dopisać kolejne And . Chyba, że liczba wykluczonych arkuszy urośnie do >10... Wklej w kod arkusza "Kalendarz" i przetestuj [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address...
Jezeli plik został zapisany (nadpisany) już z błędem to nic się już nie da zrobić. Chyba że masz zarchiwizowany plik jeszcze "z przed błędu" Przyznaje że wyszukiwanie poprzez sortowanie nie było (nie jest) najtrafniejszym pomysłem. Nawet w Openie można było zrobić arkusz w stylu "wyszukiwarka" i poprzez combobox'y wyszukiwać dane a dostęp do źródła...
W Twoim pliku XLS dodałem poniższy kod i przycisk w arkuszu "form2", który uruchamia ten kod. Pozdrawiam - McVik
komórki podświetlają się na czerwono nie tylko te po zmianach :cunning: Przecież wyraźnie pisałem: Jeśli interesuje Cię sporządzanie tylko ukrytej kopii wszystkich edycji w arkuszu Rob - to usuń formatowanie warunkowe , usuń kod Workbook_BeforeClose i wymień kod w arkuszu Rob Przy ukrytej archiwizacji wszystkich edycji - traci sens porównywanie tabeli...
No to wygląda, że i tak masz dwa razy zdarzenie Workbook_Open. I to ma być 'Ten_skoroszyt', nie 'Ten arkusz'. Ten komunikat o kontrolce jest niezrozumiały. Masz tam jakieś ukryte kontrolki? "Front page" to oczywiście nazwa arkusza. Jeśli takiego arkusza nie masz, to to jest bez sensu i może generować błąd 'Subscript out of range'.
Mam problem w pliku mam niewiadoma liczba ukrytych arkuszy chciałem wszystkie odkryć za pomocą makra z pomocą Internetu stworzyłem taki kod Sub odkryjbarkusze() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Visible = xlSheetVisible Next ws End Sub niestety nie działa moja znajomość VBA nie pozwala mi znaleźć błędu. Excel 2010 podświetlana...
Idea byłaby taka: 1) Żeby wymusić włączenie makr na użytkowniku to arkusze byłyby domyślnie ukryte, 2) Po włączeniu makr pokazałyby się arkusze, które można uzupełniać, 3) Przy otwieraniu arkusza automatycznie robiłaby się kopia zawartości do arkuszy ukrytych, widzialnych tylko z poziomu VBA (veryhidden), 4) Żebyś Ty miał dostęp do arkuszy ukrytych...
Są różne sposoby na znajdowanie ostatniego pustego wiersza, mój ulubiony jest taki: widoczną komórkę w kolumnie B wypełnioną tekstem, idąc od ostatniego wiersza w górę. Liczba 1048576 to ostatni wiersz excela 2007, dla kompatybilności z 2003 należało by użyć 65536. Przed wykonaniem sprawdzania poleceniem ShowAllData próbuje się zdjąć kryteria autofiltra...
...mam problem ... wszystko działa bez problemu :D Jeśli działa rzeczywiście :?: zgodnie z Twoimi oczekiwaniami - to przenieś przycisk uruchamiający do arkusza sterującego np ten ukryty "arkusz 0" lub zlikwiduj w ogóle przyciski i makro uruchamiaj skrótem klawiaturowym :!: .
Zapisuj w dodatkowym, ukrytym arkuszu wartości (argumenty położenia) przy dezaktywacji arkusza (ew. workbook_beforeclose) i pobieraj przy aktywowaniu... Jaki jest cel dodatkowego (ukrytego) arkusza? chce to zrobic mozliwe jak najprosciej. Wartosci przy zamykaniu akrusza nie sa mi potrzebne (tzn. nie chce ich zapisywac), interesuje mnie tylko konkretne...
marcinj12 miał na myśli ponowne włączenie automatycznego przeliczania arkusza, bo: Application.Calculation = xlCalculationManual włącza przeliczanie ręczne (defaultowo - klawisz F9), żeby przyspieszyć podmienianie wartości w komórkach. Tak więc po wykonaniu całej pętli powinieneś na nowo włączyć przeliczanie automatyczne, tj: Application.Calculation...
Dziękuję za odpowiedzi ale uszczegóławiam pytanie. Stworzyłem skoroszyt, w którym niektóre dane muszą być niewidoczne dla osób z niego korzystających. Wszystkie zastosowane przeze mnie ograniczenia i blokady nie wykluczają sytuacji, w której znając nazwę ukrytego arkusza mogę odczytać z niego komórkę po komórce z poziomu innego arkusza, albo z poziomu...
Arkusz "T" jest ukryty... http://obrazki.elektroda.net/62_12861145... P.S. Z dokładaniem języków jest sporo zabiegów. Najprościej poprawić na polski Np portugalski - kol "F" (jeśli autor nie ma nic przeciwko)...
hasło ukryty arkusz ukryty arkusz hasło excel ukryty arkusz
wymiana płyty głównej samsung głośnik watson zmiana zimowy letni
projekt instalacji elektrycznej sprzęgło skrzynia biegów citroen
Pilarka Faworyt RG 5300 18: Chińskie części i czterotaktowanie Schemat podłączenia podgrzewanych foteli Audi A4 B5 2000
