Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
ok
parto io con un esempio dopo vedrai che lo migliorano
esempio ANITA[C]
Sub carica1()
Dim CL As Object
For Each CL In Range("A1:A200")
With CL.Characters(Start:=InStrRev(CL, "[") + 1, Length:=1).Font
.Name = "Bodoni MT"
.FontStyle = "Normale"
.Size = 12
End With
Next
End Sub
esempio
PALLINO C
Sub carica1()
Dim CL As Object
For Each CL In Range("A1:A200")
With CL.Characters(Start:=InStrRev(CL, " ") + 1, Length:=1).Font
.Name = "Bodoni MT"
.FontStyle = "Normale"
.Size = 12
End With
Next
End Sub
ora è chiaro cle lo dovremo legare ad un evento
se alleghi un file oppure la struttura del file vediamo come fare