VBA Getal naar tekst

Status
Niet open voor verdere reacties.
T

Tweety1

Gebruiker
Lid geworden
6 mrt 2013
Berichten
637
Onderstaande VBA gebruik ik om getallen op te slaan als tekst.
Graag zou ik nog volgende nog aan willen toevoegen.
Getallen die meer dan 1 decimaal hebben wil ik terug brengen naar 1 decimaal waarvan de 10,0 als 10 wordt weergeven. Ik heb al met de cel opmaak geprobeerd ([<10]#,0;#0) alleen onthoud hij de gegevens niet.


Code: 
Sub NumToText()
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    
Dim cell As Object

    
' Convert the selected Excel numbers value to Excel text by changing format
For Each cell In Selection
If Not IsEmpty(cell.Value) And IsNumeric(cell.Value) Then
Dim Temp As Double
Temp = cell.Value
cell.ClearContents
cell.NumberFormat = "@"
cell.Value = CStr(Temp)
End If
Next cell

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub

mvg

Kasper
 
Indrukwekkende code voor zoiets simpels.

Code: 
Sub M_snb()
   ActiveCell = "'" & ActiveCell
End Sub
of
Code: 
Sub M_snb()
   ActiveCell = Format(ActiveCell)
End Sub

en gereduceerd to 1 decimaal:
Code: 
Sub M_snb()
   ActiveCell = Format(FormatNumber(ActiveCell.Value, 1))
End Sub


Het is mij niet duidelijk of het je om de weergave gaat van de waarde in de cel of om de waarde in de cel zelf.
 
Laatst bewerkt:
De laatste VBA werkt goed alleen zou ik de gehele getallen met een decimaal willen en het getal 10 als 10
 
De zin en logica daarvan ontgaan me.
 
Gehele getallen omzetten naar decimaal

1 = 1,0
2 = 2,0
10 = 10
 
snb heeft gelijk: wat is hier wat jou betreft logisch aan?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan