学习日志 全民一起VBA提高篇 第七回 数据原形轻松识破 四舍五入务必当心

学习日志

全民一起VBA提高篇

第七回 数据原形轻松识破 四舍五入务必当心

相关知识点

一、判断数据类型
isdate()           判断是否为日期
isnumeric()        判断是否为数字
typename()         判断变量类型

二、转换数据类型
cint()
clng()
cstr()
ccur()
cdate()
cbool()
cdbl()
csng()

三、四舍五入
int（x）函数直接取 x 的整数部分
int（x+0.5） 可以对 x 四舍五入

计算时先判断数据类型，涂色并提示

Option Explicit
Sub sumtest()
    Dim s&, i&
    s = 0
    For i = 5 To 9
        If IsNumeric(Cells(i, 8)) Then
            s = s + Cells(i, 8)
        Else
            Cells(i, 8).Interior.Color = vbRed
            MsgBox "第" & i & "行H列不是数字，不纳入统计！"
        End If
    Next i
    Cells(10, 8) = s
End Sub