Negatif Rakamları Pozitif Hale Getirme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub removeNegativeSign()
Dim rng As Range
Selection.Value = Selection.Value
For Each rng In Selection
If WorksheetFunction.IsNumber(rng) Then
rng.Value = Abs(rng)
End If
Next rng
End Sub
Açıklama
Bir sayfa üzerinde yer alan bir alandaki negatif sayıların tamamını hızlı bir şekilde pozitif sayı yapmak için, bu kodumuzu kullanmak yeterli olacaktır.Faydalanılması temennisiyle
Ekli dosyalar