16. december 2002 - 14:22Der er
22 kommentarer og 1 løsning
Fjerne kommatal fra en celle
Hvordan fjerner man et kommatal fra en celle i en kolonne.D.v.s. at alle heltal står tilbage, og de celler hvori der har stået et tal med decimaler nu er tomt? Det drejer sig om både positive tal og negative tal.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Kan du ikke markerer cellerne, og derefter højreklikke of vælger formater. Der inden under kan du lave formatet for hver eneste celle eller flere ad gangen.
Det hedder formater celle, punktet fra højre klik du skal vælge , herefter vælger du fanebladet tal og vælger tal i scroll menuen, og angvier hvormange decimaler.
Det afhænger af, om tallet skal helt slettes fra cellen eller bare ikke vises, om du kan brugre en hjælpekolonne eller om det skal ske i den kolonnem, hvor tallene står fra begyndelsen.
Hvis de skal slettes og du ikke kan bruge en hjælpekolonne skal du bruge en makro.
Skal de skjules, kan du bruge betinger formatering.
Kan du bruge en hjælpekolonne kan problemet løses med en formel i fx b-kolonnen,
Det er en kolonne med mange måleresultater. Alle heltal skal blive stående f.eks. -3 og 2 osv De celler hvor måleresultatet er et decimaltal f.eks. 0,03 skal blankstilles, så alle celler i kolonnen hvor der står et decimaltal skal blive tomme. Så vil der i kolonnen være tomme celler og resten kun heltal.
Du kan bruge denne let modificerede makro fra sidste gang. Marker dine data og kør makroen.
Sub ConvertToInt() Dim c As Range For Each c In Selection If Not IsEmpty(c.Value) Then With c If Int(.Value) = 0 Then .Value = "" Else .Value = Int(.Value) End With End If Next End Sub
Hvis du vil lave om så du ikke ser eks. 2,00 så lav bak's makro om med denne
Sub ConvertToInt() Dim c As Range For Each c In Selection If Not IsEmpty(c.Value) Then With c If Int(.Value) = 0 Then .Value = "" Else .Value = Int(.Value) Selection.NumberFormat = "#,##0" End With End If Next End Sub
Til: jkrons Umiddebart vil funktionen: =HVIS(A1-Heltal(A1<>0;"";A1) kunne løse problemet, men den kommer ud med fejl. Ellers bak's makro problemet. Tak for hjælpen.
Det er da også rigtig, arnvig. Beklager, jeg har da læst spørgsmålet helt forkert :-)
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.