Witam, nie mam pomysłu jak przerobić to makro żeby pobierało jedynie wybrane zakresy danych z kolumny AQ, a nie całą kolumnę, np zakres AQ16:AQ22, AQ26:AQ30, AQ37:AQ39 itd bo zakresów będzie więcej w tej kolumnie. Proszę o pomoc. Poniżej makro:

Spróbuj tak Kod: VBScriptZaloguj się, aby zobaczyć kod tylko to Sheets(Klient).Range(A18:H32).ClearContents musisz ustawić odpowiednio daleko A jeśli są tam gdzieś nagłówki pomiędzy, to Np: Sheets(Klient).Range(A18:H32, A38:H50).ClearContents

@lanzul Odpada na pewno konwertowanie do exe-a bo wtedy skoroszyt będzie bez możliwości modyfikacji (tak jak read only) To tak jak adamas wspomniał Workbooks_Open ale łatwe do obejścia

A kto-co decyduje o ilości i rozmiarach tych zakresów? Są stałe, czy wynikają z czegoś?

Zakresy ja chę wpisać na stałe w kodzie VBA. Jeśli będę potrzebował zmiany to ja będę ją robił w kodzie Vba, czyli zakresy stałe mają być

ok, działa dziękuję za pomoc. Jeszcze jedno pytanie, czy jest możliwość napisania makra które po załóżmy 30 uruchomieniach arkusza wyświetla komunikat wykorzystałeś ilość uruchomień i zamyka arkusz? Lub to samo robi na podstawie daty?Jak takie makro napisać?

To bardzo proste do zrealizowania. W Workbooks_Open piszesz kod, w dodatkowym arkuszu z argumentem xlSheetVeryHidden przechowujesz wartości. Niestety, takie zabezpieczenie równie łatwo złamać, jak napisać Np wystarczy otworzyć plik z wyłączoną obsługą makr, cofnąć datę w komputerze, albo otwierać zawsze kopię oryginału. Userzy mają niesamowitą inwencję twórczą

ok rozumiem, ale jeśli zrobimy instalkę która zawiera arkusz oraz dopisuje w rejestrze odpowiednie linijki na podstawie których sprawdza ilość uruchomień arkusza bądź datę do której ma działać to trudniejsze do złamania. Jakby wyglądało przykładowe makro tak jak Ty napisałeś wyżej?

Pomysł wart przemyślenia... Trochę Tutaj na ten temat. Tylko jak to ukryć przed oczami, skoro usunięcie hasła VBA, to 5 min googlowania

Można by wypróbować tego typu rozwiązania: Link ale wszystko ma swoje wady i ograniczenia.

adamas_nt powiedz jak byś to rozwiązał bez kombinowania z rejestrem. Tzn. pierwsza opcja to załóżmy jeśli arkusz był otwarty 10 razy to 11 raz się nie otworzy. Druga opcja jeśli mam y określoną datę to arkusz się nie włączy.

Tak wiem że w Workbooks_Open tylko jak ma to wyglądać?

taki przykład (zamykaj otwieraj patrz a1) Kod: VBScriptZaloguj się, aby zobaczyć kod

REKLAMA

Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

[Rozwiązano] VBA excel jak przerobić to makro aby wybierało poszczególne zakresy z kolumny AQ

pawelus222 25 Maj 2018 08:33 714 13

REKLAMA

Zgłoś naruszenie prawa

| Nowy temat

#1 17239398 25 Maj 2018 08:33

pawelus222 pawelus222

Poziom 4

Posty: 367

Ocena: 20
Autor tematu

Post #1
17239398 25 Maj 2018 08:33

Witam, nie mam pomysłu jak przerobić to makro żeby pobierało jedynie wybrane zakresy danych z kolumny AQ, a nie całą kolumnę, np zakres AQ16:AQ22, AQ26:AQ30, AQ37:AQ39 itd bo zakresów będzie więcej w tej kolumnie. Proszę o pomoc. Poniżej makro:
Kod: VBScript
Zaloguj się, aby zobaczyć kod
Arrow MultiSolution Day Warsaw 2026 – bezpłatna konferencja elektroniki i automatyki już 16 czerwca [sponsorowany]
REKLAMA
#2 17241067 26 Maj 2018 05:32

adamas_nt adamas_nt

VIP Zasłużony dla elektroda

Posty: 5320

Pomógł: 1508

Ocena: 659
Pomocny post? (0)

Post #2
17241067 26 Maj 2018 05:32

A kto-co decyduje o ilości i rozmiarach tych zakresów? Są stałe, czy wynikają z czegoś?
#3 17241074 26 Maj 2018 06:15

pawelus222 pawelus222

Poziom 4

Posty: 367

Ocena: 20
Autor tematu Pomocny post? (0)

Post #3
17241074 26 Maj 2018 06:15

Zakresy ja chę wpisać na stałe w kodzie VBA. Jeśli będę potrzebował zmiany to ja będę ją robił w kodzie Vba, czyli zakresy stałe mają być
Pomocny post

#4 17241078 26 Maj 2018 06:28

adamas_nt adamas_nt

VIP Zasłużony dla elektroda

Posty: 5320

Pomógł: 1508

Ocena: 659
Pomocny post? (+1)

Pomocny post
Post #4
17241078 26 Maj 2018 06:28

Spróbuj tak
Kod: VBScript
Zaloguj się, aby zobaczyć kod

tylko to
Sheets("Klient").Range("A18:H32").ClearContents
musisz ustawić odpowiednio "daleko"

A jeśli są tam gdzieś nagłówki "pomiędzy", to Np: Sheets("Klient").Range("A18:H32", "A38:H50").ClearContents
REKLAMA
#5 17241079 26 Maj 2018 06:37

pawelus222 pawelus222

Poziom 4

Posty: 367

Ocena: 20
Autor tematu Pomocny post? (0)

Post #5
17241079 26 Maj 2018 06:37

ok, działa dziękuję za pomoc. Jeszcze jedno pytanie, czy jest możliwość napisania makra które po załóżmy 30 uruchomieniach arkusza wyświetla komunikat "wykorzystałeś ilość uruchomień" i zamyka arkusz? Lub to samo robi na podstawie daty?Jak takie makro napisać?
REKLAMA
#6 17241082 26 Maj 2018 06:42

adamas_nt adamas_nt

VIP Zasłużony dla elektroda

Posty: 5320

Pomógł: 1508

Ocena: 659
Pomocny post? (0)

Post #6
17241082 26 Maj 2018 06:42

To bardzo proste do zrealizowania. W Workbooks_Open piszesz kod, w dodatkowym arkuszu z argumentem xlSheetVeryHidden przechowujesz wartości.
Niestety, takie "zabezpieczenie" równie łatwo złamać, jak napisać Np wystarczy otworzyć plik z wyłączoną obsługą makr, cofnąć datę w komputerze, albo otwierać zawsze kopię oryginału. Userzy mają niesamowitą "inwencję twórczą"
#7 17241091 26 Maj 2018 06:50

pawelus222 pawelus222

Poziom 4

Posty: 367

Ocena: 20
Autor tematu Pomocny post? (0)

Post #7
17241091 26 Maj 2018 06:50

ok rozumiem, ale jeśli zrobimy instalkę która zawiera arkusz oraz dopisuje w rejestrze odpowiednie linijki na podstawie których sprawdza ilość uruchomień arkusza bądź datę do której ma działać to trudniejsze do złamania. Jakby wyglądało przykładowe makro tak jak Ty napisałeś wyżej?
#8 17241095 26 Maj 2018 06:59

adamas_nt adamas_nt

VIP Zasłużony dla elektroda

Posty: 5320

Pomógł: 1508

Ocena: 659
Pomocny post? (0)

Post #8
17241095 26 Maj 2018 06:59

Pomysł wart przemyślenia... Trochę Tutaj na ten temat.

Tylko jak to ukryć przed oczami, skoro usunięcie hasła VBA, to 5 min "googlowania"
#9 17241310 26 Maj 2018 10:33

lanzul lanzul

Poziom 30

Posty: 1023

Pomógł: 199

Ocena: 123
Pomocny post? (0)

Post #9
17241310 26 Maj 2018 10:33

Można by wypróbować tego typu rozwiązania:
Link
ale wszystko ma swoje wady i ograniczenia.
#10 17241465 26 Maj 2018 12:27

pawelus222 pawelus222

Poziom 4

Posty: 367

Ocena: 20
Autor tematu Pomocny post? (0)

Post #10
17241465 26 Maj 2018 12:27

adamas_nt powiedz jak byś to rozwiązał bez kombinowania z rejestrem. Tzn. pierwsza opcja to załóżmy jeśli arkusz był otwarty 10 razy to 11 raz się nie otworzy. Druga opcja jeśli mam y określoną datę to arkusz się nie włączy.
Pomocny post

#11 17241512 26 Maj 2018 12:51

clubs clubs

Poziom 38

Posty: 2219

Pomógł: 629

Ocena: 406
Pomocny post? (+1)

Pomocny post
Post #11
17241512 26 Maj 2018 12:51

@lanzul Odpada na pewno konwertowanie do exe-a bo wtedy skoroszyt będzie bez możliwości modyfikacji (tak jak read only)

pawelus222 napisał:
Tzn. pierwsza opcja to załóżmy jeśli arkusz był otwarty 10 razy to 11 raz się nie otworzy. Druga opcja jeśli mam y określoną datę to arkusz się nie włączy

To tak jak adamas wspomniał Workbooks_Open ale łatwe do obejścia
REKLAMA
#12 17241538 26 Maj 2018 13:07

pawelus222 pawelus222

Poziom 4

Posty: 367

Ocena: 20
Autor tematu Pomocny post? (0)

Post #12
17241538 26 Maj 2018 13:07

Tak wiem że w Workbooks_Open tylko jak ma to wyglądać?
#13 17241545 26 Maj 2018 13:12

clubs clubs

Poziom 38

Posty: 2219

Pomógł: 629

Ocena: 406
Pomocny post? (0)

Post #13
17241545 26 Maj 2018 13:12

pawelus222 napisał:
Tak wiem że w Workbooks_Open tylko jak ma to wyglądać?

taki przykład (zamykaj otwieraj patrz a1)
Kod: VBScript
Zaloguj się, aby zobaczyć kod
#14 17242640 27 Maj 2018 07:22

pawelus222 pawelus222

Poziom 4

Posty: 367

Ocena: 20
Autor tematu Pomocny post? (0)

Post #14
17242640 27 Maj 2018 07:22

Dzięki za pomoc
Zarejestruj konto, Zaloguj się i bądź aktywny na forum, a wtedy reklamy nie będą się pojawiać. Otrzymaj punkty za rejestrację oraz odpowiedzi.

Zainstaluj aplikację Elektroda

| Nowy temat

Zgłoś naruszenie prawa

Podsumowanie tematu

✨ Użytkownik poszukiwał pomocy w przerobieniu makra VBA w Excelu, aby mogło ono przetwarzać wybrane zakresy danych z kolumny AQ, zamiast całej kolumny. Odpowiedzi sugerowały użycie tablicy do zdefiniowania stałych zakresów, co pozwoliło na iterację przez te zakresy i kopiowanie wartości do arkusza "Klient". Użytkownik uzyskał również pomoc w kwestii ograniczenia liczby uruchomień arkusza oraz wprowadzenia zabezpieczeń, jednak zauważono, że takie metody mogą być łatwe do obejścia. Wskazówki obejmowały użycie zdarzeń Workbook_Open oraz przechowywanie liczby uruchomień w komórkach arkusza.
Wygenerowane przez model językowy.

REKLAMA