Witam wszystkich, Chciałem wykorzystać kalendarz w swoim arkuszu z Przypisałem go do przycisku. Chciałem, żeby makro nie wpisywało mi daty w aktywnej komórce, tylko w komórce gdzie znajduję się przycisk. Chciałem stworzyć kilkadziesiąt - około 70, takich przycisków w jednym skoroszycie. Czy nie...

Załącznik był podmieniony po 5min. Zaciągnij jeszcze raz. Lub popraw: if not intersect ... is nothing then

Wywołuj formularz przy zdarzeniu arkusza BeforeDoubleClick w zakresach z datą i nie będą potrzebne żadne przyciski. Reszta do przerobienia w module klasy clsInfo. Jeśli nie ma być aktywowana nst. komórka w pionie, wystarczy zaremować linie z offsetami.

Zamiast BeforeDoubleClick skorzystam z SelectionChange, gdyż po dwukrotnym klikniecie nie mogłem wybrać daty w formularzu. Teraz pytanie: 1. W jaki sposób ustawić to tylko dla pewnego zakresu? 2. Po wybraniu daty chciałbym, żeby formularz się zamykał, jak również po wybraniu komórki z poza zakresu. To są moje początki w VBA:)

Ad 1. Określasz to w procedurze zdarzeniowej arkusza. W załączniku przykład ograniczający otwarcie formularza przez podwójne kliknięcie dla żółtych zakresów. Ad 2. Kod w module klasy. Przy BeforeDoubleClick trzeba wyłączyć edycję: Cancel=True

Wielkie dzięki za załącznik. Nie wiem czy to tylko u mnie, ale po dwukrotnym kliknięciu w inną komórkę (nie z zakresu) wyskakuje błąd: Object variable not set (Error 91)

REKLAMA

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

[Excel] Jak makro może wpisywać datę w komórce z przyciskiem?

Gamblee 25 Paź 2011 19:08 1666 6

REKLAMA

Zgłoś naruszenie prawa

| Nowy temat

#1 10065147 25 Paź 2011 19:08

Gamblee Gamblee

Poziom 9

Posty: 41

Ocena: 2
Autor tematu

Post #1
10065147 25 Paź 2011 19:08

Witam wszystkich,

Chciałem wykorzystać kalendarz w swoim arkuszu z https://www.elektroda.pl/rtvforum/topic1460712.html. Przypisałem go do przycisku. Chciałem, żeby makro nie wpisywało mi daty w aktywnej komórce, tylko w komórce gdzie znajduję się przycisk.

Chciałem stworzyć kilkadziesiąt - około 70, takich przycisków w jednym skoroszycie. Czy nie będzie to zbytnio wpływać na wagę pliku, jak i na jego działanie?

Liczę na Waszą pomoc
REKLAMA
#2 10065374 25 Paź 2011 19:48

adamas_nt adamas_nt

VIP Zasłużony dla elektroda

Posty: 5320

Pomógł: 1508

Ocena: 658
Pomocny post? (0)

Post #2
10065374 25 Paź 2011 19:48

Wywołuj formularz przy zdarzeniu arkusza "BeforeDoubleClick" w zakresach z datą i nie będą potrzebne żadne przyciski. Reszta do przerobienia w module klasy "clsInfo". Jeśli nie ma być aktywowana nst. komórka w pionie, wystarczy "zaremować" linie z offsetami.
REKLAMA
#3 10078841 29 Paź 2011 19:56

Gamblee Gamblee

Poziom 9

Posty: 41

Ocena: 2
Autor tematu Pomocny post? (0)

Post #3
10078841 29 Paź 2011 19:56

Zamiast "BeforeDoubleClick" skorzystam z "SelectionChange", gdyż po dwukrotnym klikniecie nie mogłem wybrać daty w formularzu.

Teraz pytanie:
1. W jaki sposób ustawić to tylko dla pewnego zakresu?
2. Po wybraniu daty chciałbym, żeby formularz się zamykał, jak również po wybraniu komórki z poza zakresu.

To są moje początki w VBA:)
#4 10079332 29 Paź 2011 22:04

adamas_nt adamas_nt

VIP Zasłużony dla elektroda

Posty: 5320

Pomógł: 1508

Ocena: 658
Pomocny post? (0)

Post #4
10079332 29 Paź 2011 22:04

Ad 1. Określasz to w procedurze zdarzeniowej arkusza. W załączniku przykład ograniczający otwarcie formularza przez podwójne kliknięcie dla żółtych zakresów.

Ad 2. Kod w module klasy.

Przy "BeforeDoubleClick" trzeba wyłączyć edycję: Cancel=True

Załączniki:

Gamblee.xls (76 KB) Musisz być zalogowany, aby pobrać ten załącznik.
REKLAMA
#5 10079433 29 Paź 2011 22:28

Gamblee Gamblee

Poziom 9

Posty: 41

Ocena: 2
Autor tematu Pomocny post? (0)

Post #5
10079433 29 Paź 2011 22:28

Wielkie dzięki za załącznik.

Nie wiem czy to tylko u mnie, ale po dwukrotnym kliknięciu w inną komórkę (nie z zakresu) wyskakuje błąd:
Object variable not set (Error 91)
REKLAMA
Pomocny post

#6 10080009 30 Paź 2011 06:34

adamas_nt adamas_nt

VIP Zasłużony dla elektroda

Posty: 5320

Pomógł: 1508

Ocena: 658
Pomocny post? (+1)

Pomocny post
Post #6
10080009 30 Paź 2011 06:34

Załącznik był podmieniony po 5min. Zaciągnij jeszcze raz. Lub popraw: if not intersect ... is nothing then
#7 10080905 30 Paź 2011 12:10

Gamblee Gamblee

Poziom 9

Posty: 41

Ocena: 2
Autor tematu Pomocny post? (0)

Post #7
10080905 30 Paź 2011 12:10

Dzięki o to mi chodziło
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

✨ W dyskusji poruszono temat wykorzystania makr w Excelu do wprowadzania daty w komórkach za pomocą przycisków. Użytkownik chciał, aby makro wpisywało datę w komórce, w której znajduje się przycisk, a nie w aktywnej komórce. Zasugerowano użycie zdarzenia "SelectionChange" zamiast "BeforeDoubleClick" dla lepszej funkcjonalności. Użytkownicy podzielili się przykładami kodu oraz wskazówkami dotyczącymi ograniczenia działania formularza do określonych zakresów komórek. Wskazano również na problemy z błędami w kodzie, które można rozwiązać poprzez odpowiednie sprawdzenie zakresów.
Wygenerowane przez model językowy.

REKLAMA