excel: trasferimento numeri con macro non mi riporta i decimali.

Question

Buon giorno.. ho un problema: sto creando una macro che mi legga dati da una cella di un foglio che contine numeri conb 2 decimali... detto valore debbo riportarlo in una cella di un altro foglio ed ho notato che mi riporta i numeri arrotondati alla cifra intera. premetto: la variabile è definita "long", acquisiscei i dati da una cella definita come numero con 2 decimali, la cella di destinazione è ugualmente definita numerica con 2 decimali.... come faccio per far riportare le cifre complete dei decimali originali? ringrazio molto e saluto cordialmente. vito cecchetto

Answer 1

Ciao Vito,

ho un problema: sto creando una macro che mi legga dati da una cella di un foglio che contine numeri conb 2 decimali... detto valore debbo riportarlo in una cella di un altro foglio ed ho notato che mi riporta i numeri arrotondati alla cifra intera. premetto: la variabile è definita "long", acquisiscei i dati da una cella definita come numero con 2 decimali, la cella di destinazione è ugualmente definita numerica con 2 decimali.... come faccio per far riportare le cifre complete dei decimali originali? 

E' probabile che tu abbia dichiarato la variabile di interesse come tipo Long o Integer.

Ad ogni modo prova qualcosa del genere:

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

Option Explicit

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

Public Sub Tester()

    Dim WB As Workbook

    Dim srcSH As Worksheet, destSH As Worksheet

    Dim srcRng As Range, destRng As Range

    Dim dVal As Double

    Const sFoglioSorgente As String = "Foglio1"             '<<=== Modifica

    Const sFoglioDestinazione As String = "Foglio2"      '<<=== Modifica

    Const sCellaSorgente As String = "A1"                       '<<=== Modifica

    Const sCellaDestinazione As String = "B10"              '<<=== Modifica

    Set WB = ThisWorkbook

    With WB

        Set srcSH = .Sheets(sFoglioSorgente)

        Set destSH = .Sheets(sFoglioDestinazione)

    End With

    Set srcRng = srcSH.Range(sCellaSorgente)

    Set destRng = destSH.Range(sCellaDestinazione)

    dVal = srcRng.Value * Application.Pi

    With destRng

        .Value = dVal

        .NumberFormat = "0.00"

    End With

End Sub

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

===

Regards,

Norman