Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64673 Skopiuj do schowka Makro zdarzeniowe a zmiana koloru w komórce
Autor Wiadomość
beret
ExcelGaduła 500+


Pomógł: 3 razy
Posty: 571
Wysłany: 07-04-2019, 07:55   Makro zdarzeniowe a zmiana koloru w komórce

Jak zmienić poniższe makro:
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$A$2" Then
   MsgBox "Jest "
   End If
End Sub
aby działało przy zmianie koloru komórki (nie zmieniamy wartości tylko kolor).
ID posta: 365600 Skopiuj do schowka
 
 
ąćęłńóś
Excel Expert


Pomógł: 195 razy
Posty: 885
Wysłany: 07-04-2019, 11:52   

???
Może np.:

1. Moduł ThisWorkbook
Kod:
Private Sub Workbook_Open()
    kolorciu = ThisWorkbook.Sheets("Arkusz1").Range("A2").Interior.Color
    kolorciu_w_pamieciu = kolorciu
End Sub

2. Moduł Arkusza1
Kod:
Private Sub Worksheet_Activate()
    kolorciu = Range("A2").Interior.Color
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells(1).Address = "$A$2" Then
        If kolorciu <> kolorciu_w_pamieciu Then
            kolorciu_w_pamieciu = Target.Cells(1).Interior.Color
            MsgBox "Kolorystyka scholastyka"
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells(1).Address = "$A$2" Then kolorciu = Target.Cells(1).Interior.Color
End Sub

3. Moduł standardowy 'Module1'
Kod:
Option Explicit

Public kolorciu, kolorciu_w_pamieciu



Edycja:

Będzie jednak działać tylko przy zmianie wartości ... : ( ... w końcu procedura wyzwalana jest zmianą wartości komórki właśnie ...
... no i pytanie czy ten kolorek to ma być zwykły, czy z formatowania warunkowego ?
  
ID posta: 365603 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 279 razy
Posty: 1525
Wysłany: 07-04-2019, 12:52   

Kod z sieci + moja modyfikacja. Sprawdź.

Info1: działa na wszystkie komórki - jeśli ma dotyczyć tylko wybranej: do modyfikacji "od ręki".
Info2: kod w pewnym momencie blokuje Narzędzia - "za chwilę" sprawdzę dlaczego.
Info3: nie działa na formatowanie warunkowe.
.

Zmina_koloru.xlsm
Pobierz Plik ściągnięto 16 raz(y) 25.07 KB

_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
I dbajmy - proszę - o poprawną polszczyznę.
ID posta: 365605 Skopiuj do schowka
 
 
beret
ExcelGaduła 500+


Pomógł: 3 razy
Posty: 571
Wysłany: 07-04-2019, 14:03   

Cytat:
Będzie jednak działać tylko przy zmianie wartości
To ja wiem.
Mnie chodzi o to, aby działało także tylko przy zmianie koloru komórki (bez zmiany wartości, w komórce nie ma żadnej wartości).
ID posta: 365610 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 279 razy
Posty: 1525
Wysłany: 07-04-2019, 14:43   

"Mój" kod właśnie tak działa. Sprawdzałeś?

FYI: kod uruchamiany jest przy otwarciu pliku i "czuwający" (nie zdarzenie: "ws_Change")

Zmina_koloru.xlsm
Pobierz Plik ściągnięto 5 raz(y) 25.54 KB

_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
I dbajmy - proszę - o poprawną polszczyznę.
Ostatnio zmieniony przez umiejead 08-04-2019, 09:52, w całości zmieniany 1 raz  
ID posta: 365611 Skopiuj do schowka
 
 
beret
ExcelGaduła 500+


Pomógł: 3 razy
Posty: 571
Wysłany: 08-04-2019, 07:44   

Dzięki, powyższe wyjaśnienia mi wystarczą.
ID posta: 365626 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 2625 razy
Posty: 8661
Wysłany: 09-04-2019, 00:55   

umiejead napisał/a:
"Mój" kod właśnie tak działa. Sprawdzałeś?
Sprawdziłem. Totalny zwis Excela. :-(

Tutaj dwa sposoby rozwiązania tego typu problemów. Pierwszy oparty na zdarzeniu OnUpdate obiektu CommandBars. Ale wzbudza się na byle kichnięcie.
Drugi szalony. Wydaje się być nieco spokojniejszy.

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 365664 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe