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

• #35001 sztanozs veterán Delila_1 #34997

  Új Válasz 2017-04-26 16:06:14 #35001

  Ú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

  

  sztanozs

  veterán

  válasz Delila_1 #34997 üzenetére

  Általánosságban lehet, hogy egy range selctor kellene és akkor lehetne használi azzal az öszes beépített függvényt:

  Function SzinSzerint(mintacella As Range, tartomany As Range) As Range
Set SzinSzerint = Nothing
Dim CV As Object

For Each CV In tartomany.Cells
If CV.Interior.Color = mintacella.Interior.Color Then
If SzinSzerint Is Nothing Then
Set SzinSzerint = CV
Else
Set SzinSzerint = Application.Union(SzinSzerint, CV)
End If
End If
Next
End Function

• #34998 Fferi50 Topikgazda Delila_1 #34997

  Új Válasz 2017-04-26 14:14:51 #34998

  Ú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

  

  Fferi50

  Topikgazda

  válasz Delila_1 #34997 üzenetére

  Szia!

  Remek.
  Viszont gondolva a feltételes formázás lehetőségére, érdemes lenne az Interior.Color helyett a DisplayFormat.Interior.Color tulaljdonságot használni. (Nyilván megfelelő Excel verzió kell hozzá, de a manapság sűrűn használatosok már tartalmazzák.)

  Ezzel akár szabadalmaztathatnád is.

  Üdv.

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