Se...in base alla formattazione

Question

Buongiorno a tutti,

dovrei fare una determinata operazione in base allo stile del testo contenuto in una cella.

ad esempio in A1 ho il testo Pippo in grasseto, ora in B1 vorrei che ci sia una funziona SE( A1 è in grassettto; fai questo; altrimenti quest'altro);

è possibile?

grazie

Answer 1

Buongiorno a tutti,

dovrei fare una determinata operazione in base allo stile del testo contenuto in una cella.

ad esempio in A1 ho il testo Pippo in grasseto, ora in B1 vorrei che ci sia una funziona SE( A1 è in grassettto; fai questo; altrimenti quest'altro);

è possibile?

grazie

Ciao Pietro,

prima possibilità - poco flessibile a dire il vero - ma la segnalo lo stesso per ravvivare le vecchie funzioni macro 4.0.

Inserisci questo nome definito:

isBold=INFO.CELLA(20;SCARTO(INDIRETTO("RC";FALSO); 0; -1))

In una colonna qualsiasi formatta alcune celle in grassetto e non, nella colonna immediatamente a destra digita una delle seguenti formule e trascina verso il basso:

=isBold

=SE(isBold;"Grassetto";"")

E' poco flessibile perché controlla solo la cella immediatamente a sinistra della cella nella quale è stata digitata, per controllare intervalli diversi, puoi intervenire sui numeri evidenziati che rappresentano rispettivamente la riga e la colonna (vedi help della funzione scarto)

Altra possibilità più flessibile, che prevede, però, l'uso del vba. Incolla questo codice in un modulo generale:

---

Public Function Grassetto(ref As Range) As Variant

Grassetto = ref.Font.Bold

End Function

---

e utilizza la funzione in questo modo:

=SE(Grassetto(CellaDaControllare);"Grassetto";"")

Andrea

Answer 2

Grazie mille!!!!

Di niente.

Andrea.

Answer 3

Grazie mille!!!!