Mi sa che mi conviene operare con il menu, carattere dopo carattere, con molta pazienza..io non riesco a trovare alternative
La pazienza non e' il tuo forte...
Prova questa macro:
- Codice: Seleziona tutto
'Mette tutti i numeri della cella in Subscript
Sub FormP()
'1) Si formatta la cella a "standard"; SCOMMENTARE e MODIFICARE gli argomenti
' se si vuole formattare la cella in modalita' particolare
With Selection.Font
' .Name = "Arial"
' .FontStyle = "Normale"
' .Size = 12
' .Strikethrough = False
.Superscript = False
.Subscript = False
' .OutlineFont = False
' .Shadow = False
' .Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
'2) Si modificano i numeri in Pendice
CCont = ActiveCell.Value
If CCont = "" Then GoTo Usci
For i = 1 To Len(CCont)
If IsNumeric(Mid(CCont, i, 1)) Then
With ActiveCell.Characters(Start:=i, Length:=1).Font
.Subscript = True
' .Name = "Arial"
' .FontStyle = "Normale"
' .Size = 11 '<<<< Scommentare e modificare per settare un size
' .ColorIndex = xlAutomatic '<<<< Idem per settare un Colore
End With
End If
Next i
Usci:
End Sub
Guarda i commenti, perche' e' possibile anche formattare in modalita' particolare le celle che vengono manipolate; basta che scommenti le linee e cambi i parametri come preferisci (ad esempio puoi mettere il pendice in grassetto e lo standard in normale, o altre cose a piacere).
Poi assegnale un tasto breve: Menu ->Strumenti ->Macro ->Macro; selezioni FormP; pigi Opzioni; alla voce Tasto di scelta rapida scrivi P (maiuscolo); Ok; chiudi la finestra Macro.
Vai sulla cella che contiene la tua formula con i pendici da settare, premi <Contr><Maiusc>p.
Dimmi che succede...
Ciao,
. C'è una scorciatoia?
............ sono stata chiara?
