am postat acest subiect la excell in speranta ca nu va fi cu vba,

se poate realiza acest lucru, in excell?
multumesc,
Cod: Selectaţi tot
Function ESTE_BOLD(cell) As Boolean
'
' Returneaza TRUE daca celula este bold
ESTE_BOLD = cell.Range("A1").Font.Bold
End Function
Cod: Selectaţi tot
Function SumBold(ByVal interval As Range)
Dim nSuma As Long
nSuma = 0
For Each cell In interval
If cell.Font.Bold = True Then
nSuma = nSuma + cell.Value
End If
Next cell
SumBold = nSuma
End Function