En familj av Microsoft-kalkylbladsprogram med verktyg för att analysera, kartlägga och kommunicera data.
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.