サンプルコード
Public Function BlankToZero(ByVal s As String, Optional ByVal result As String = "0") As String
    If Not Len(s) = 0 Then
    
        result = s
    End If
    
    BlankToZero = result
End FunctionPublic Function BlankToZero(ByVal s As String, Optional ByVal result As String = "0") As String
    If Not Len(s) = 0 Then
    
        result = s
    End If
    
    BlankToZero = result
End Function Excel VBA
Excel VBA
コメント