OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

Zdravím, potřeboval bych prosím kdo se vyzná a umí programovat v LibreOffice Calc. Bohužel jsem nováček a vím tady prd.
Potřeboval bych ale převést vzorec / funkci z MC Office Excel do LibreOffice Calc. Bohužel jsem zkusil otevřít excel v LibreOffice a nešlo mi to . Budu rád za veškerou radu či pomoc !

Přikládám níže:

Function SoucetBarev1(samplecell As Range, BOblast As Range) As Long

    Dim OblastBA As Range
    Dim VyplnBa As Long
    Dim PocetBa As Long
   
   
    VyplnBa = samplecell.Interior.Color
    For Each OblastBA In BOblast
        If OblastBA.Interior.Color = VyplnBa Then
            PocetBa = PocetBa + 1
        End If
    Next OblastBA
   
    SoucetBarev1 = PocetBa
   
End Function

Děkuji za veškerou radu !

Zdravím,

potřeboval bych prosím poradit. Několik hodin jsem hledal a nenašel jsem.

Mám tabulku a ve sloupci A a B mám jednotlivé barvy , ve sloupci D,E,F,G mám jednotlivý celkový počet od každé barvy.

Potřeboval bych prosím vědět jak toho mám docílit a sestavit vzorec aby mi to automaticky sčítalo podle barev ve sloupci a i po změně barev se mi automaticky upravila tabulka celkových počtu.

Přikládám snímek : https://prnt.sc/GlJY09Ymfv1O

Moc děkuji za radu !