Daily Archives: 5.5.2015

Negatiiviset luvut nolliksi

Silloin tällöin on ollut tarvetta muuntaa kaikki negatiiviset arvot nolliksi (0).
Se voidaan tehdä esimerkiksi seuraavalla makrolla jos ensin valitaan asianomainen alue ja sitten suoritetaan makro:

Sub ChangeNegativeToZero()     
    Dim c As Range     
    For Each c In Selection
         If c.Value < 0 Then
             c.Value = 0
         End If     
    Next
End Sub

Voit kopioida makron työkirjaan seuraavasti:
Kopioi tämä makro leikepöydälle
Työkirjassa paina Alt+F11
Valitse VBA ikkunassa Insert – Module
Valitse Edit – Paste

Suorita makro:
Valitse alue taulussa jonka haluat muuttaa
Valitse View – Macros – View Macros (Näytä – Makrot – Näytä Makrot)
Valitse ikkunasta juuri liittämäsi makro ja napsauta Run (Suorita)