Új hozzászólás Aktív témák

• #39405 Mutt senior tag BullZeye #39396

  Új Válasz 2018-10-18 15:37:39 #39405

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz BullZeye #39396 üzenetére

  Szia,

  Ha színezni akarod, akkor feltételes formáz marad a kézi színezés mellett.

  Ezt lehet makróval automatizálni:

  

  A szinez gomb alatt ez a makró:

  Sub SzinezdKi()
Const minta_tartomany = "E1:E5" 'itt vannak azok a minták amik alapján a feltételes formázást létre lehet hozni
Dim rngMinta As Range, cell As Range
Dim i As Long

Set rngMinta = Range(minta_tartomany)

'a kijelölt cellákra rádobjuk a formázást
With Selection
'töröljük a lehetséges korábbi feltételes formázásokat
.FormatConditions.Delete

i = 1
For Each cell In rngMinta
'felveszünk egy új szabályt: cella tartalmát figyelve színezünk
.FormatConditions.Add Type:=xlTextString, String:=CStr(cell.Value), TextOperator:=xlContains
'a szín a minta tartományban használt szinnel legyen egyenlő
.FormatConditions(i).Interior.Color = cell.Interior.Color
i = i + 1
Next cell
End With

End Sub

  Használata: előbb a makróban megadod a tartományt ahol van a gyümölcs neve és a hozzá társítandó szín.
  Kijelölöd a cellákat amikre rá akarod ereszteni és mehet a gombra kattintás.

  üdv

Új hozzászólás Aktív témák