[已解决]怎么用代码表示绝对值

mmc998

怎么用代码表示绝对值

最佳答案

月排行榜 / 总排行榜

爱疯

2015-6-5 22:33

Sub sujsjg()
Rng = Range("A3", Cells(Rows.Count, 2).End(3))
ReDim arr(1 To UBound(Rng), 1 To UBound(Rng) - 1)
For i = UBound(Rng) To 2 Step -1
    For j = i - 1 To 1 Step -1
        n = n + 1
        arr(i, n) = Rng(i, 1) - Rng(j, 2)
        arr(i, n) = abs(arr(i, n))
    Next
    n = 0
Next
Range("D3").Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

跳转到最佳答案楼层

七彩屋

Abs(  )

mmc998

七彩屋 发表于 2015-6-5 08:30
Abs(  )

在vba里面

冥王

sub demo()
  a=-100
  msgbox abs(a)
end sub

mmc998

冥王 发表于 2015-6-5 08:52
sub demo()
  a=-100
  msgbox abs(a)

Sub sujsjg()
Rng = Range("A3", Cells(Rows.Count, 2).End(3))
ReDim arr(1 To UBound(Rng), 1 To UBound(Rng) - 1)
For i = UBound(Rng) To 2 Step -1
    For j = i - 1 To 1 Step -1
        n = n + 1
        arr(i, n) = Rng(i, 1) - Rng(j, 2)
    Next
    n = 0
Next
Range("D3").Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub
结果改成绝对值

爱疯

Sub sujsjg()
Rng = Range("A3", Cells(Rows.Count, 2).End(3))
ReDim arr(1 To UBound(Rng), 1 To UBound(Rng) - 1)
For i = UBound(Rng) To 2 Step -1
    For j = i - 1 To 1 Step -1
        n = n + 1
        arr(i, n) = Rng(i, 1) - Rng(j, 2)
        arr(i, n) = abs(arr(i, n))
    Next
    n = 0
Next
Range("D3").Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub