042. Rilevare carattere corsivo

Download PDF

Domanda:

Buonasera. Congratulazioni per la vostra pagina WEB.
Premettendo di non essere molto esperto di programmazione vi presento il mio problema.
Ho un documento in Excel 2003 con le celle che contengono solo testo composto da parole in formato normale e da altre in corsivo.
Ho la necessità di estrarre e copiare in altre celle solo le parole in corsivo.

Risposta:

La proprietà della cella che identifica il tipo di carattere è “Font”.

L’attirbuto della proprietà Font che identifica il carattere corsivo è “Italic”

Detto ciò, con un ciclo analizzo tutte le celle contenute nella tabella d’esempio

e se il carattere è “corsivo” copio il valore della cella in un’alta colonna.

Last_Row = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row Last_Col = 3
For i = 2 To Last_Row
   For y = 1 To Last_Col
      If Cells(i, y).Font.Italic = True Then
         Cells(i, Last_Col + 2) = Cells(i, y)
      End If
   Next y
Next i

A voi il file:
APRI

Riccardo Vincenti

The following two tabs change content below.