adunare valori bold-uite -- posibil SF ;)

[cristi_lazarro]

buna seara,

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

se poate realiza acest lucru, in excell?

multumesc,

[Dr.Excel]

da, este sf
dar putem sa-ti facem un UDF (user defined function-evident tot in vba), iar tu sa o folosesti direct in formule ca pe o functie obisnuita

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

[Dr.Windows]

Sau o alta varianta... dar tot cu VBA (ca altfel nu se poate):

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

Functie pe care o poti apela la fel ca si SUM: =SumBold(A1:A6)

[cristi_lazarro]

da, am omis si varianta cu functie in pagina

multumesc!

...ce usor a devenit excell-ul cu acest forum


spor la toata lumea!

[cristi_lazarro]

revin cu o adaugare/rugaminte

s-ar putea sa nu-mi rotunjeasca cifrele de dupa virgula?


ms!

suma bolduit.xlsm

[smcsa]

In loc de Long pune Double (Long e integer)

Nu poti cu functii Excel "din fabrica" pentru ca nu exista nici-o functie care sa-ti returneze font style-ul.

[cristi_lazarro]

ok,

multumesc!

[draz]

cum trebuie salvat codul in Personal.xlsb astfel incat formula sa poata fi folosita in orice workbook?

mi'a mers doar cand am inserat un codul in fiecare workbook

[cristi_lazarro]

la mine e mai bizar, nu mai gasesc unde am bagat functia. am introdus-o cu new macro si cand vreau sa o mai caut, nimic


cum rezolvi ceea ce spui tu, ai optiune in care te intreaba unde sa-l salvezi dar, voi lasa pe cei mai in masura sa te ajute, sper ca nu te superi

[smcsa]

Ca sa vezi o functie trebuie sa deschizi editorul VBA, in lista de la Macro nu apare