Benvenuto Ospite Cerca | Topic Attivi | Utenti | | Log In | Registra

carattere corsivo da formula Opzioni
albyu2
Inviato: Thursday, March 01, 2007 4:57:01 PM
Rank: Member

Iscritto dal : 2/5/2003
Posts: 0
ciao, ho questo problema:
in una cella di excel concateno una formula a delle stringhe (es. '="testo: "&F353&")"'), pero non riesco a differenziare gli stili dei caratteri ma posso usare solo quello indicato x la cella. Solitamente se si tratta di solo testo, posso evidenziare una parte del testo contenuto nella cella e renderlo grassetto,corsivo ecc... la stessa cosa dovrei farla in questa cella, la parte di testo dovrebbe essere in corsivo, i dati che recupero dalle formule in 'normal'! sapete come posso fare? esiste una formula che setta il corsivo? ci sono altri modi?
spero ti trovare il vostro aiuto!!! grazie a tutti
Sponsor
Inviato: Thursday, March 01, 2007 4:57:01 PM

 
a10n11
Inviato: Friday, March 02, 2007 10:20:47 AM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
salve
ricorrendo a Vba la cosa è possibile.
Prova a vedere l'esempio qui sotto ed adattarlo alle tue esigenze.
Nella macro è stato considerato che in colonna A da riga 4 ci sia l'elenco dei testi e nella colonna C da riga 4 si debba concatenare il valore di "Testo :" con il valore di cella di colonna A formattando la cella come chiedi.
questa è la macro:
Sub FormattaUnaParte()
For Each cl In Range("a4:a100")
If cl.Value () "" Then
cl.Offset(0, 2) = "testo: " & cl.Value
x = InStr(1, cl.Offset(0, 2), ":", vbTextCompare)
y = Len(cl) - x
With cl.Offset(0, 2).Characters(1, x).Font
.FontStyle = "Corsivo"
End With
With cl.Offset(0, 2).Characters(x + 1, y).Font
.FontStyle = "Normale"
End With
Else
Exit For
End If
Next
End Sub
prova e magari adattala alle tue esigenze.
saluti
Andrea


albyu2
Inviato: Monday, March 05, 2007 9:49:45 PM
Rank: Member

Iscritto dal : 2/5/2003
Posts: 0
<BLOCKQUOTE id=quote><font size=1 face="Sans Serif, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>
salve
ricorrendo a Vba la cosa è possibile.
Prova a vedere l'esempio qui sotto ed adattarlo alle tue esigenze.
Nella macro è stato considerato che in colonna A da riga 4 ci sia l'elenco dei testi e nella colonna C da riga 4 si debba concatenare il valore di "Testo :" con il valore di cella di colonna A formattando la cella come chiedi.
questa è la macro:
Sub FormattaUnaParte()
For Each cl In Range("a4:a100")
If cl.Value () "" Then
cl.Offset(0, 2) = "testo: " & cl.Value
x = InStr(1, cl.Offset(0, 2), ":", vbTextCompare)
y = Len(cl) - x
With cl.Offset(0, 2).Characters(1, x).Font
.FontStyle = "Corsivo"
End With
With cl.Offset(0, 2).Characters(x + 1, y).Font
.FontStyle = "Normale"
End With
Else
Exit For
End If
Next
End Sub
prova e magari adattala alle tue esigenze.
saluti
Andrea

<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Sans Serif, Arial, Helvetica" size=2 id=quote>


emmm... non riesco a farlo!!!
tieni conto che io ho tutto in una cella, non in piu celle!
es. nella cella a1 ho questa formula:
="il totale è"&f1

nella cella f1 (nascosta) ho una formula che mi da il risultato.

ma la cella da formattare con il corsivo è solo una.
a10n11
Inviato: Tuesday, March 06, 2007 3:14:51 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
salve
il fatto che la macro deve intervenire solo su una cella non cambia la sostanza. Basta modificare il tutto come segue:

copia la macro in un modulo o meglio ancora nel modulo del foglio su cui lavori. Seleziona la cella sulla quale vuoi che la macro lavori e lancia la macro.

Sub FormattaUnaParte()
ActiveCell = "Il Totale è : " & Range("f11").Value
x = InStr(1, ActiveCell, ":", vbTextCompare)
y = Len(ActiveCell) - x
With ActiveCell.Characters(1, x).Font
.FontStyle = "Corsivo"
End With
With ActiveCell.Characters(x + 1, y).Font
.FontStyle = "Normale"
End With
End Sub

saluti
Andrea

Edited by - a10n11 on 03/06/2007 15:15:58

Utenti presenti in questo topic
Guest


Salta al Forum
Aggiunta nuovi Topic disabilitata in questo forum.
Risposte disabilitate in questo forum.
Eliminazione tuoi Post disabilitata in questo forum.
Modifica dei tuoi post disabilitata in questo forum.
Creazione Sondaggi disabilitata in questo forum.
Voto ai sondaggi disabilitato in questo forum.

Main Forum RSS : RSS

Aiutamici Theme
Powered by Yet Another Forum.net versione 1.9.1.8 (NET v2.0) - 3/29/2008
Copyright © 2003-2008 Yet Another Forum.net. All rights reserved.