30. april 2009 - 10:42Der er
5 kommentarer og 1 løsning
Makro virker kun på Integer og ikke på decimal
Hej alle,
Jeg bruger nedenstående makro til at ændre en masse celler fra at have et tal, til at have et tal gange en celle. Eks: Værdi før: 22 Værdi efter: =22*A1
Dog virker den kun på hele tal og ikke decimaltal.
Sub modificerVærdi() For Each celle In Selection.Cells værdi = celle.Value If værdi <> "" And IsNumeric(værdi) = True Then celle.Formula = "=" & værdi & "* A1" End If Next End Sub
rexden1: God pointe. Har du en idé til hvordan jeg tager højde for det i makroen? Jeg har ikke mulighed for at ændre mine tal, for de skal fremstå med komma før decimalerne.
Sub modificerVærdi() For Each celle In Selection.Cells værdi = celle.Value If værdi <> "" And IsNumeric(værdi) = True Then celle.Formula = "=" & Application.WorksheetFunction.Substitute(værdi, ",", ".") & "* A1" End If Next End Sub
Jeg lukker den og tager selv point da der ikke er givet svar.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
