2010-01-28から1日間の記事一覧
Function isval(str As String) As Boolean Dim ret As Boolean Dim ret1, ret2 As Variant ret1 = InStr(1, str, "#VALUE!", vbBinaryCompare) ret2 = InStr(1, str, "#DIV/0!", vbBinaryCompare) If (ret1 <> 0 And IsNull(ret1) = False) Or (ret2 <> 0 A…