Le parole in grassetto

Un'altra proposta dopo una breve discussione sul forum di Excel VBA. La richiesta era di poter estrarre il testo in grassetto da una selezione di celle. Al richiedente interessavano le parole intere, il che ha reso più semplice la funzione che segue. Ecco il codice della mia soluzione, get_bold_words. Le si passa un range di celle e restituisce una stringa con le sole parole in grassetto che compaiono nella selezione, separate da spazio.
Function get_bold_words(cella As Range) As String
Dim i As Integer, s As String

    For Each v In Split(cella, " ")
        s = s & IIf(cella.Characters(InStr(cella, v), Len(v)).Font.Bold, _
                Trim(v) & " ", "")
    Next
    
    get_bold_words = Trim(s)
End Function

posted @ venerdì 23 novembre 2012 10:46

Print

Comments on this entry:

No comments posted yet.

Your comment:



 (will not be displayed)


 
 
 
Please add 1 and 3 and type the answer here:
 

Live Comment Preview: