SumBold fejler

SumBold er det ikke en UDF (brugerdefineret funktion)?

Hvis, må vi se koden?

Hvis det er denne, er der vba-kode et stykke nede (den de sælger i Kutools rykker de nok ikke ud med koden til).

https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html

Desuden er selve funktionaliteten

if you want to sum only the bold numbers in a data range

måske forklaring på, hvorfor det giver noget andet end sammenlægningen.

Hvis det altså er denne SumBold, som Butterfly anvender.

hvis det er denne
Function SumBold(WorkRng As Range)
'Update 20131202
Dim Rng As Range
Dim xSum As Long
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xSum = xSum + Rng.Value
    End If
Next
SumBold = xSum
End Function

prøv at rette til denne.

Function SumBold(WorkRng As Range) as variant
'Update 20131202
Dim Rng As Range
Dim xSum As variant
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xSum = xSum + Rng.Value
    End If
Next
SumBold = xSum
End Function

Hej Jan
Jeg havde den første version og skiftede til den anden, men det hjalp desværre ikke.

Du kan måske tjekke, om der er en "fejl" i formatet i en eller flere af cellerne, således at funktionen ikke får fat i de samme, som når du lægger sammen.

Det simple er, hvis differencen er lig med værdien i én celle.

Der er også nogle muligheder for at udtrække:

https://trumpexcel.com/filter-bold-font-formatting-in-excel/

Hmmm det har nogle gange hos mig været variabeltypen der har generet mig!!

Tænker måden du laver fed skrift på er det betinget formatering (bare en tanke) og om det kan have indvirkning!!

prøv i vba

Function SumBold(WorkRng As Range) as variant
'Update 20131202
Dim Rng As Range
Dim xSum As variant
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xSum = xSum + Rng.Value
        Debug.print Rng.Address &" : "& Rng.Value &" Sum:" & Xsum
    End If
Next
SumBold = xSum
End Function

for at vise debug.print tryk Ctrl+G

på denne måde kan du se hvilke celler den griber hvad de indeholder og udviklingen af xSum

Som Jan er inde på, medregner Kutools funktion ikke celler, som er betinget formateret med fed.

Det dyrkes en del på nettet, hvorledes man konverterer betinget formatering til statisk.

F.eks.

https://excel.tips.net/T001947_Removing_Conditional_Formats_but_Not_the_Effects.html

Ikke helt ligetil, men måske er der noget at hente.

Hej Jan
Det regner desværre også forkert. Min Bold er sat ind, ikke betinget formatering.

Så må vi nok be om en dummy fil med fejlen til analyse

Måske denne:

#10
Du tæller antallet af celler med fed, det indholdet der skal tælles sammen.
Hvis du ændre det, er det som jeg ser det den samme som er foreslået.

Butterfly prøv

Function SumBold(WorkRng As Range) as variant
'Update 20131202
Dim Rng As Range
Dim xSum As variant
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xSum = xSum + (Rng.Value*1)
    End If
Next
SumBold = xSum
End Function

Måske opfatter excel dine tal som tekst
derfor Rng.value*1

Ups...

Jeg er vist træt

Undskyld store-morten men udover Application.Volatile hvad er så forskellen på:

Function SumBold(WorkRng As Range)
'Update 20131202
Dim Rng As Range
Dim xSum As Long
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xSum = xSum + Rng.Value
    End If
Next
SumBold = xSum
End Function

og

Function SumFed(ran As Range) As Double
    Application.Volatile
    cou = 0
    For Each c In ran.Cells
        If c.Font.Bold = True Then
            cou = cou + c.Value
        End If
    Next c
    SumFed = cou
End Function

Undskyld Jan Hansen, jeg var træt og forsøgte at rette min fejl.

Hej
Undskyld det sene svar, men jeg har været på en dejlig "Sommerferie" på den anden side af jorden :-)

Mange tak store-morten det virker perfekt, lige hvad jeg ønskede mig.