Gange brugerdefineret talformat med 100

Hej Mile

Jeg kender ikke til et brugerdefineret format, som kan løse denne opgave for dig eller din kunde. Du kan løse det med en makro eller to - alt efter temperament.

Løsning 1
Denne makro kopieres ind i arkets kode modul og Range("D2:D50) tilpasses

Private Sub Worksheet_Change(ByVal Target As Range)
    ' Det område hvor indtastning skal ganges med 100
    Dim rHundred As Range
    Set rHundred = Range("D2:D50")
   
    If Not Intersect(Target, rHundred) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = Target.Value * 100
        Application.EnableEvents = True
    End If
End Sub


Løsning 2
Denne funktion kopieres ind i et almindeligt kodemodul

Public Function Times100(ByRef Value As Double) As Double
    ' I en celle skrives f.eks.=Times100(A1) eller =Times100(2)
    Times100 = Value * 100
End Function

/Flemming

Hvis ikke tallene skal bruges til at regne videre på, men udelukkende er til aflæsning, kan du bruge dette brugerdefineret format 

#"00"

Bemærk at f.eks tallet 8, vil blive formatteret som 800, men talværdien vil forblive 8.

blackadder> Hvad bliver 8,5 så til ?

Doh!
Ja, den vælger jo så at runde det op til 9....
Glem det  :-)

Hej Flemming

Det må blive din løsning nummer 1. Tak for hjælpen.

Godt valg Mile - det ville også være mit valg.
N.B. Der kan godt stå:

rHundred = Range("D2:D50,E2:E50,F120:F150")

Range-sætningen må dog max være 255 karakter

Fint nok. Hun har dog ikke meldt tilbage endnu, men godt nok med den ekstra oplysning. Jeg har dog på fornemmelsen at det er kolonnevis, og så er din makro jo kanon....

Hmm - Flemming. Nu kan jeg sgu ikke få koden til at virke, hverken hos mig eller hos kunden. Jeg har ændret til at den skulle tage flere intervaller, men den vil bare ingen ting.

Det er faktisk i kolonne D hun skal have lavet det. Men data er adskilt af tomme celler og celler med Tekst, eks.: "Jan". Hvis vi kan få koden til at virke, hvordan vil det så påvirke celler med Tekst ?

Nu har jeg fundet ud af, at det virker, hvis der ikke på forhånd er tekst i cellerne. Men er der tekst i dem før makroen lægges på, så virker den ikke.

Hvad er grunden til at en kolonne med en formel ikke kan bruges ? Det virker som den mest enkle løsning. Kolonnerne kan jo skjules efter behov.

Det var naturligvis det første jeg foreslog. Men hun ville ikke have så store filer. Jeg foreslog så efterflg. at afbryde kæderne og slette de ellers skjulte kolonner, men de var desværre referencer til andre filer også. Det hele er endt med at hun BLIVER NØDT TIL at anvende formler som du er inde på Blackadder.... Men ellers tak for hjælpen.