copiare le cifre decimali non mostrate

Question

Buongiorno,

in Excel si possono scrivere numeri con alcune cifre decimali e poi mostrarne un numero inferiore. Ad esempio posso scrivere 3.5454 e mostrare soltanto 3.5.

Quando copio il contenuto della cella e lo incollo in un qualunque altro applicativo, mi aspetterei di incollare 3.5454 e non 3.5.

Si può in qualche modo ovviare a questa situazione?

Grazie

Giorgio

Answer 1

Ciao Giorgio,

Per quanto riguarda il codice della macro CopiaValoriSottostanti suggerita nella mia risposta precedente, preferisco la seguente versione. Quest'ultima versione sfrutta una o più colonne temporanee piuttosto che un foglio di lavoro temporaneo e, pertanto, credo sia più semplice e più efficiente:

'==========>>

Option Explicit

'--------->>

Public Sub CopiaValoriSottostanti2()

    Dim Rng As Range, Rng2 As Range

    On Error Resume Next

    Set Rng = Application.InputBox(Prompt:="Seleziona l'intervallo da copiare", _

                                   Title:="Intervallo da Copiare", _

                                   Default:=Selection.Address, _

                                   Type:=8)

    On Error GoTo 0

    If Rng Is Nothing Then

        Call MsgBox(Prompt:="Hai Cancellato!", _

                    Buttons:=vbInformation, _

                    Title:="OPERAZIONE CANCELLATA!")

        Exit Sub

    End If

    If Rng.Areas.Count > 1 Then

        Call MsgBox(Prompt:="Si può eseguire questa operazione solo su " _

        & "un'intervallo contiguo - Riprova!", _

                    Buttons:=vbCritical, _

                    Title:="ERRORE!")

        Exit Sub

    End If

    On Error GoTo XIT

    Application.ScreenUpdating = False

    With Rng

        .EntireColumn.Insert

        Set Rng2 = .Offset(0, -.Columns.Count)

    End With

    With Rng2

        .NumberFormat = "General"

        .Value = Rng.Value

        .Copy

        Call MsgBox(Prompt:="Incolla i dati nell'applicativo di scelta" _

                          & " e poi premi OK", _

                    Buttons:=vbOKOnly, _

                    Title:="INCOLLA DATI")

        .EntireColumn.Delete

    End With

XIT:

    Application.ScreenUpdating = True

End Sub

'<<=========

===

Regards,

Norman

Answer 2

Ciao Giorgio,

Per aggirare il problema, in modo da essere in grado di copiare i valori  sottostanti piuttosto che i valori visualizzati prova qualcosa del genere:

Se non hai già una cartella di lavoro PE RSONAL.XLSB, segui le istruzioni riportate nel seguente articolo per crearla:

https://support.office.com/it-it/article/Creare-e-salvare-tutte-le-macro-personali-in-una-singola-cartella-di-lavoro-aa439b90-f836-4381-97f0-6e4c3f5ee566?ui=it-IT&rs=it-IT&ad=IT

• Alt+F11 per aprire l'editor di VBA
• Premi CTRL+R per attivare la finestra Esplora progetti
• Fai doppio clic sul P rogetto VBA (PERSONAL.XLSB)
• Alt-IM per inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

'==========>>

Option Explicit

'--------->>

Public Sub CopiaValoriSottostanti()

    Dim WB As Workbook

    Dim SH As Worksheet, SH2 As Worksheet

    Dim Rng As Range, Rng2 As Range

    Set Rng = Selection

    Set SH = Rng.Parent

    Set WB = SH.Parent

    With WB

        SH.Copy After:=.Sheets(.Sheets.Count)

        Set SH2 = ActiveSheet

        Set Rng2 = SH2.Range(Rng.Address)

    End With

    With Rng2

        .NumberFormat = "General"

        .Copy

    End With

    Call MsgBox(Prompt:="Incolla i dati nel applicativo e poi premi OK", _

                Buttons:=vbOKOnly, _

                Title:="Icolladati")

    With Application

        .DisplayAlerts = False

        SH2.Delete

        .DisplayAlerts = True

    End With

    SH.Activate

End Sub

'<<=========

Adesso, al fine di rendere questa macro facilmente disponibili per tutte le cartelle, suggerisco che la nuova macro sia aggiunta alla barra di accesso rapido. Pertanto, prova come segue:

Fai clic sulla freccia    della barra di accesso rapido (in altro a sinistra sulla barra del titolo).

Dal menu Personalizza barra di accesso rapido, seleziona la voce Altri comandi

Fai clic sul il menu a discesa  Scegli comandi da:

Seleziona la voce Macro.

Dall'elenco seleziona PERSONAL.XLSB!CopiaValoriSottostanti

Quindi clicca sul tasto Aggiungi >> per aggiungere la macro alla Barra di accesso rapido

Fai clic sul il menu a discesa  Personalizza barra di accesso rapido

Seleziona la voce Per tutti i documenti (impostazione predefinita)

Conferma l'operazione cliccando sul pulsante OK

Alt-Q per chiudere l'editor di VBA e tornare a Excel.

Chiudi Excel, salvando le modifiche al file PERSONAL.XLSB.

Da ora in poi, per qualsiasi workbook, quando vuoi copiare  i valori sottostanti, seleziona le celle da copiare e fai clic sull'icona della macro CopiaValoriSottostanti sulla barra di accesso rapido. In questo modo, i valori sottostanti verranno copiati negli appunti e possono essere incollati in un altro applicativo.

===

Regards,

Norman

Answer 3

Grazie Paolo.

In Excel funziona.

Ma se ad esempio voglio incollare i valori in Word, devo per forza compiere questa operazione prima in Excel?

Cioè quando copio un valore, in generale, sto copiando solo ciò che appare a schermo o quello che è contenuto nella cella?

Grazie

Giorgio

Per quanto ne so negli altri applicativi viene copiato solo ciò che si vede nella cella. Non conosco alternative.

Answer 4

Grazie Paolo.

In Excel funziona.

Ma se ad esempio voglio incollare i valori in Word, devo per forza compiere questa operazione prima in Excel?

Cioè quando copio un valore, in generale, sto copiando solo ciò che appare a schermo o quello che è contenuto nella cella?

Grazie

Giorgio

Answer 5

Buongiorno,

in Excel si possono scrivere numeri con alcune cifre decimali e poi mostrarne un numero inferiore. Ad esempio posso scrivere 3.5454 e mostrare soltanto 3.5.

Quando copio il contenuto della cella e lo incollo in un qualunque altro applicativo, mi aspetterei di incollare 3.5454 e non 3.5.

Si può in qualche modo ovviare a questa situazione?

Grazie

Giorgio

In effetti è ciò che succede.

Per vederlo è sufficiente usare il Copia/Incolla Speciale/Valori.