返回列表 上一主題 發帖

無條件捨去問題

如確實按無條件捨去處理, 不能用 round
  1. Sub zz()
  2. Dim a, c
  3. a = [a1].CurrentRegion
  4. For Each c In a
  5.     Debug.Print Int(c * 100) / 100
  6. Next
  7. End Sub
複製代碼

TOP

        靜思自在 : 難行能行,難捨能捨,難為能為,才能昇華自我的人格。
返回列表 上一主題