Automatiskt konvertera positivt tal till negativt tal?

Anonym
2019-08-11T14:16:21+00:00

Hej!

Jag undrar hur man får ett inskrivet positivt tal att automatiskt konverteras till ett negativt tal? Alltså slippa skriva minustecken (-) före talet.

Vill ha denna funktion för bokföring jag använder Excel till, arbetet går då lite snabbare. 

//

Microsoft 365 och Office | Excel | För hemanvändning | Windows

Låst fråga. Den här frågan har migrerats från Microsoft Support Community. Du kan rösta på om det är till hjälp, men du kan inte lägga till kommentarer eller svar eller följa frågan.

0 kommentarer
Svar godkänt av frågeställaren
Anonym
2019-08-11T17:16:04+00:00

Den kan jag ge dig.

Beroende på vilka celler som ska omfattas av konverteringen får du justera i koden så dina egna cellområden gäller.

Att lägga in makrokoden:

Högerklicka på bladnamnet längst ned för det blad som gäller.

Välj sen "Visa kod".

VB-editorn öppnas med ett tomt vitt fönster. Klistra in nedanstående kod där.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Range("F3:F50"), Target) Is Nothing Then

        Application.EnableEvents = False

        Target = -1 * Target

        Application.EnableEvents = True

    End If

End Sub

Andra raden i koden har cellområdet F3:F50, vilket betyder att om något ändras i detta sammanhängande cellområde kommer -1 att appliceras på det inmatade värdet. Byt ut till ditt eget/egna område(n). OBS, tänk på att det är ett sammanhängande område. Vill du ha flera kolumner, som dina röda exempel i bilden vilka inte är sammanhängande, så kan man inte skriva typ F3:M50. Då kommer alla kolumner från F till M påverkas, även de som ska positiva värden.

För flera kolumner som ej hänger ihop kan du använda:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Union(Range("F3:F50"), Range("H3:H50")), Target) Is Nothing Then

        Application.EnableEvents = False

        Target = -1 * Target

        Application.EnableEvents = True

    End If

End Sub

Här har jag listat två kolumner (F och H) från rad 3 till 50. Välj egna kolumner och rader, och behöver du fler kolumner lägger du till dessa områden på samma sätt som i koden, t ex för tre kolumner

...Union(Range("A1:A100"), Range("C1:C100"), Range("E1:E100")), Target ...

När du sparar filen måste du välja Spara som, och sen välja att excelfilen är makroaktiverad, dvs ändelsen på filen ska vara filnamn.xlsm, där m betyder att filen innehåller makro. Sparar du med vanlig exceländelse (xlsx) kommer makrot raderas och nästa gång du öppnar finns ingen kod.

Det kan hända att första gången du öppnar filen med kod så dyker en gul notering upp, välj bara att det ska aktiveras.

Vid minsta frågetecken eller fundering, hör av dig.

Var det här svaret till hjälp?

2 personer tyckte att det här svaret var användbart.
0 kommentarer

20 ytterligare svar

Sortera efter: Mest användbara
Mest användbara Nyast Äldst
  1. Anonym
    2019-08-11T14:42:44+00:00

    Vi använder en översättningstjänst för att hjälpa våra användare. Ursäkta grammatiska fel.

    Hej

    Jag är Anna, en oberoende rådgivare som försöker hjälpa till.

    Använd klistra in Special multiplicera operation:

    1. typ-1 i en tom cell på kalkylbladet.
    2. Välj den cell som innehåller-1 och kopiera den.
    3. Välj de celler som innehåller de siffror du vill vända.
    4. öppna klistra in Special-menyn: Högerklicka på > Klistra in Special
    5. Klicka på "multiplicera" radioknappen i avsnittet operation i klistra in Special-menyn.
    6. Tryck på OK.

    Alla värden i de valda cellerna kommer att multipliceras med-1. Resultatet är att tecknen kommer att vändas för varje cellvärde.

    Jag hoppas att detta hjälper dig.

    Vänliga hälsningar

    Anna

    Var det här svaret till hjälp?

    3 personer tyckte att det här svaret var användbart.
    0 kommentarer
  2. Anonym
    2019-08-11T15:29:15+00:00

    Hi Stringence,

    I apologize for the poor translation.

    1. Type -1 in a blank cell on the worksheet.
    2. Select the cell that contains the -1 and copy it.
    3. Select the cell(s) that contain the numbers you want to reverse.
    4. Open the Paste Special menu: Right-click > Paste Special
    5. Click the “Multiply” radio button in the Operation section of the Paste Special menu.
    6. Press OK.

    Please see screenshot.

    Thank you.

    Regards,

    Anna

    Var det här svaret till hjälp?

    0 kommentarer
  3. Anonym
    2019-08-11T15:19:11+00:00

    Hello DaveM121 and annabee01!

    Thanx for trying to help me. The community badly translates your answers to my Swedish language.  I can't fully understand the operations / process.

    DaveM121

    I have the following choices under Formatera celler, -allmänt does not exist. Which one can I use in my list below?

    annabee01

    I follow your procedure:

    1. type -1 in a cell'
    2. copy
    3. select the cells I want to change positive to negative
    4. right click and choose "Klistra in special"
    5. select radio button "Multiplicera"
    6. 0,00 appears in all selected cells
    7. I type "777", and it doesn't change to "-700"

    //

    Var det här svaret till hjälp?

    0 kommentarer
  4. DaveM121 939.6K Ryktespoäng Oberoende rådgivare
    2019-08-11T14:35:37+00:00

    Vi använder en översättningstjänst för att hjälpa våra användare. Ursäkta grammatiska fel.

    Hej Stringence

    Högerklicka på dessa celler, välj Formatera celler

    På den resulterande dialogen bog, ställa in cellformatet till anpassad, sedan ange-allmänt

    -Allmänt kommer att konvertera cellinnehåll till ett minus nummer automatiskt

    Var det här svaret till hjälp?

    0 kommentarer