Il calibri e' un font piu' piccolo ad esempio dell' arial.
Se lanciate Mappa caratteri (Accessori /Utilita' di sistema), scegliete Visualizzazione estesa, Raggruppa per... Sottocategora Unicode e infine Apice/Pedice potete esplorare quali caratteri sono supportati dai singoli font. Interessanti anche i simboli per operatori matematici.
Quello che non ho capito e' come si possono inserire facilmente questi caratteri, perche' con Inserisci /Simbolo la vedo ...lunga.
All' uopo mi sono sviluppato quest "funzione", che converte
tutti i numeri in una stringa in "unicode pedice"; si scrive la formula in una cella (es in A2) e poi si usa la formula
=chemical(A2)- Codice: Seleziona tutto
Function chemical(ByVal Stringa As String) As String
Dim I As Integer, LB As Long
LB = 8320
For I = 1 To Len(Stringa)
If IsNumeric(Mid(Stringa, I, 1)) Then
chemical = chemical & ChrW(LB + Mid(Stringa, I, 1))
Else
chemical = chemical & Mid(Stringa, I, 1)
End If
Next I
End Function
Mentre questa Worksheet_Change potrebbe convertire al volo (mentre si digita) seguendo la stessa regola:
- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
CheckA = "A1:A10" '<<< Area esaminata
Application.EnableEvents = False
For Each sCell In Target
If Not Intersect(sCell, Range(CheckA)) Is Nothing Then sCell.Value = chemical(sCell)
Next sCell
Application.EnableEvents = True
End Sub
Lavora sull' area A1:A10
Spero sia di qualche utilita'.