MS Excel

Nie je mi úplne zrejmé, čo chceš dosiahnuť, Tvoje pôvodné zadanie je možné riešiť nasledovne:Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Excel.Selection.Interior.Color = 12611584 Then
Excel.Selection.Interior.Color = 255
MsgBox "Červená - 255"
End If
End SubAkurát si tým svojim pôvodným kódom prekontroluj hodnotu tej modrej, mne to ukazuje hodnotu 12611584, ale možno Ti ide o to, zmeniť na červenú iný odtieň modrejcitovat

Nechcem byť zbytočne uštipačný, ale toto je už tretie iné zadanie . Tu je pokus, budeš si to musieť dorobiť, zatiaľ to mení na červenú tú bunku, ktorú zafarbíš na modro:Option Explicit
Dim LastSelection As Range
Dim LastColor As Double

Private Sub Workbook_Open()
Set LastSelection = Selection
LastColor = Selection.Interior.Color
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
LastColor = LastSelection.Interior.Color
If LastColor = 12611584 Then
LastSelection.Select
Selection.Interior.Color = 255
Else: Set LastSelection = Selection
End If
End Sub
Ďalšie farby si môžeš dodať cez Select Case, môžeš si to upraviť tak, že na Teba bude vyskakovať MsgBox v prípade, že farba použitá vo výbere nie je medzi povolenými v rámci Select Case a odstrániť to prefarbovanie na červenú. Idea tu je, je na Tebe, aby si si to dotvoril. Aby si zistil, ako to funguje, musíš nejakú bunku zafarbiť na modro a odskočiť z nej, počas dobu, v ktorej budeš v danej bunke stáť, sa neudeje nič.citovat

No, meneným zadaním si ma síce potrápil, ale nakoniec Ti to snáď k niečomu bude, to ma teší.citovat