Formattare colonna di celle con APICE

Question

Ciao a tutti,

mi serve una mano per formattare delle celle con apice.

Ho una colonna di celle che contengono dei numeri con 3 cifre decimali.

In queste celle devo mettere a fianco la lettera A in formato apice.

Non posso farlo manualmente perché devo applicarlo a centinaia di celle.

E' possibile inserire una formula che mi consenta di inserire l'apice automaticamente.

Ho allegato un file per farmi capire meglio.

http://sdrv.ms/18GBXdr

Grazie e buona domenica a tutti

Answer 1

Ciao a tutti,

mi serve una mano per formattare delle celle con apice.

Ho una colonna di celle che contengono dei numeri con 3 cifre decimali.

In queste celle devo mettere a fianco la lettera A in formato apice.

Non posso farlo manualmente perché devo applicarlo a centinaia di celle.

E' possibile inserire una formula che mi consenta di inserire l'apice automaticamente.

Ho allegato un file per farmi capire meglio.

http://sdrv.ms/18GBXdr

Grazie e buona domenica a tutti

Ciao Paolo,

prova con questa macro, dopo aver modificato gli intervalli.

Andrea.

---

Sub aggiungiApice()

Dim rSource As Range, rTarget As Range, cel As Range

Dim lLen As Long, i As Long

'---------- definisci qui gli intervalli sui quali lavorare

With ThisWorkbook.Worksheets("Foglio1")

Set rSource = .Range("A2:A502")

Set rTarget = .Range("B2:B502")

End With

For i = 1 To rSource.Cells.Count

lLen = Len(rSource.Cells(i, 1).Text)

If lLen Then

rTarget.Cells(i, 1).Value = rSource.Cells(i, 1).Text & "A"

rTarget.Cells(i, 1).Characters(Start:=lLen + 1, Length:=1).Font.Superscript = True

End If

Next

End Sub

---

Answer 2

Ciao a tutti,

mi serve una mano per formattare delle celle con apice.

Ho una colonna di celle che contengono dei numeri con 3 cifre decimali.

In queste celle devo mettere a fianco la lettera A in formato apice.

Non posso farlo manualmente perché devo applicarlo a centinaia di celle.

E' possibile inserire una formula che mi consenta di inserire l'apice automaticamente.

Ho allegato un file per farmi capire meglio.

http://sdrv.ms/18GBXdr

Grazie e buona domenica a tutti

Ciao Paolo,

prova con questa macro, dopo aver modificato gli intervalli.

Andrea.

---

Sub aggiungiApice()

Dim rSource As Range, rTarget As Range, cel As Range

Dim lLen As Long, i As Long

'---------- definisci qui gli intervalli sui quali lavorare

With ThisWorkbook.Worksheets("Foglio1")

Set rSource = .Range("A2:A502")

Set rTarget = .Range("B2:B502")

End With

For i = 1 To rSource.Cells.Count

lLen = Len(rSource.Cells(i, 1).Text)

If lLen Then

rTarget.Cells(i, 1).Value = rSource.Cells(i, 1).Text & "A"

rTarget.Cells(i, 1).Characters(Start:=lLen + 1, Length:=1).Font.Superscript = True

End If

Next

End Sub

---

grazie andrea, come al solito funziona.

Ho prodotto i risultati in un foglio di lavoro vuoto, e poi ho copiato i risultati nel foslio di lavoro che mi interessa. Però quando vado a salvare il file mi da il seguente errore:

avviso per la privacy: questo documento contiene macro, controlli Active X, informazioni del pacchetto di espansione XML........Potrebbero essere presenti informazioni personali che non possono essere rimosse tramite Controllo documento.

 

Cosa significa? E' un problema?

Ciao Paolo,

in questo caso specifico, direi proprio di no.

Il messaggio che ricevi è un messaggio di avvertimento dovuto al livello di sicurezza impostato nel tuo office: (Pulsante Office/Opzioni Office/Centro Protezione/Impostazioni Centro Protezione).

Maggiore attenzione va prestata, invece, nel caso scarichi materiale dalla rete, del quale non conosci a priori il contenuto o l'autore. In questo caso ci potrebbe essere del codice malevolo che potrebbe arrecarti danni al computer.

Andrea.

capito,

grazie

Answer 3

Ciao a tutti,

mi serve una mano per formattare delle celle con apice.

Ho una colonna di celle che contengono dei numeri con 3 cifre decimali.

In queste celle devo mettere a fianco la lettera A in formato apice.

Non posso farlo manualmente perché devo applicarlo a centinaia di celle.

E' possibile inserire una formula che mi consenta di inserire l'apice automaticamente.

Ho allegato un file per farmi capire meglio.

http://sdrv.ms/18GBXdr

Grazie e buona domenica a tutti

Ciao Paolo,

prova con questa macro, dopo aver modificato gli intervalli.

Andrea.

---

Sub aggiungiApice()

Dim rSource As Range, rTarget As Range, cel As Range

Dim lLen As Long, i As Long

'---------- definisci qui gli intervalli sui quali lavorare

With ThisWorkbook.Worksheets("Foglio1")

Set rSource = .Range("A2:A502")

Set rTarget = .Range("B2:B502")

End With

For i = 1 To rSource.Cells.Count

lLen = Len(rSource.Cells(i, 1).Text)

If lLen Then

rTarget.Cells(i, 1).Value = rSource.Cells(i, 1).Text & "A"

rTarget.Cells(i, 1).Characters(Start:=lLen + 1, Length:=1).Font.Superscript = True

End If

Next

End Sub

---

grazie andrea, come al solito funziona.

Ho prodotto i risultati in un foglio di lavoro vuoto, e poi ho copiato i risultati nel foslio di lavoro che mi interessa. Però quando vado a salvare il file mi da il seguente errore:

avviso per la privacy: questo documento contiene macro, controlli Active X, informazioni del pacchetto di espansione XML........Potrebbero essere presenti informazioni personali che non possono essere rimosse tramite Controllo documento.

 

Cosa significa? E' un problema?

Ciao Paolo,

in questo caso specifico, direi proprio di no.

Il messaggio che ricevi è un messaggio di avvertimento dovuto al livello di sicurezza impostato nel tuo office: (Pulsante Office/Opzioni Office/Centro Protezione/Impostazioni Centro Protezione).

Maggiore attenzione va prestata, invece, nel caso scarichi materiale dalla rete, del quale non conosci a priori il contenuto o l'autore. In questo caso ci potrebbe essere del codice malevolo che potrebbe arrecarti danni al computer.

Andrea.

Answer 4

Ciao a tutti,

mi serve una mano per formattare delle celle con apice.

Ho una colonna di celle che contengono dei numeri con 3 cifre decimali.

In queste celle devo mettere a fianco la lettera A in formato apice.

Non posso farlo manualmente perché devo applicarlo a centinaia di celle.

E' possibile inserire una formula che mi consenta di inserire l'apice automaticamente.

Ho allegato un file per farmi capire meglio.

http://sdrv.ms/18GBXdr

Grazie e buona domenica a tutti

Ciao Paolo,

prova con questa macro, dopo aver modificato gli intervalli.

Andrea.

---

Sub aggiungiApice()

Dim rSource As Range, rTarget As Range, cel As Range

Dim lLen As Long, i As Long

'---------- definisci qui gli intervalli sui quali lavorare

With ThisWorkbook.Worksheets("Foglio1")

Set rSource = .Range("A2:A502")

Set rTarget = .Range("B2:B502")

End With

For i = 1 To rSource.Cells.Count

lLen = Len(rSource.Cells(i, 1).Text)

If lLen Then

rTarget.Cells(i, 1).Value = rSource.Cells(i, 1).Text & "A"

rTarget.Cells(i, 1).Characters(Start:=lLen + 1, Length:=1).Font.Superscript = True

End If

Next

End Sub

---

grazie andrea, come al solito funziona.

Ho prodotto i risultati in un foglio di lavoro vuoto, e poi ho copiato i risultati nel foslio di lavoro che mi interessa. Però quando vado a salvare il file mi da il seguente errore:

avviso per la privacy: questo documento contiene macro, controlli Active X, informazioni del pacchetto di espansione XML........Potrebbero essere presenti informazioni personali che non possono essere rimosse tramite Controllo documento.

Cosa significa? E' un problema?