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

• #42072 Fferi50 Topikgazda karlkani #42069

  Új Válasz 2019-11-01 23:24:52 #42072

  Ú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 karlkani #42069 üzenetére

  Szia!
  Mivel feltételes formázás van, ezért a DisplayFormat tulajdonságot kell használni, ezt viszont függvényben sajnos nem tudja a VBA (a 2016-os legalábbis). Ezért nem függvényt, hanem Sub-ot kell használni:
  Public Sub CountColor(pRange1 As Range, pRange2 As Range)
Dim rng As Range, xcolor As Long, CountColor As Integer
xcolor = pRange2.DisplayFormat.Font.color
For Each rng In pRange1
    If rng.DisplayFormat.Font.color = xcolor Then
        CountColor = CountColor + 1
    End If
Next
Range("A1").Value = CountColor 'ide azt a cella címet írd, ahová az eredményt szeretnéd
End Sub
  Ezt viszont nem lehet felhasználói függvényként meghívni. A két paraméter ugyanaz, mint az általad leírt függvényben, pRange1 amiben keressük a cellákat, pRange2 aminek a színét számoljuk. Azért talán ezzel is tudsz ügyeskedni.
  Más ötlet. Talán mégsem a színek szerinti összesítés a nyerő. Feltételezem, hogy a feltételes formázásnak a feltételei valamilyen táblázat alapján működnek (jó kis mondat lett a feltételek halmozásával... ), mivel írtad, hogy pl. ünnepnapok. Ez alapján is lehetne a számolást elvégezni makró nélkül, valamilyen számláló képlettel, ami megvizsgálja, hogy az adott dátum benne van-e a "táblázatban". Szóval én nem vetném el ny.janos ötletét sem.

  Üdv.

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