Excel VBA林木冠幅、分枝胸径字符串的拆解

一、功能

• diacrown_dia(Rng, front=True)函数：将记录林木冠幅的字符串Rng（如“5×7”或“5*7”）拆解为东西冠幅（如5）和南北冠幅（如7）。front参数为真时，获取字符串的前半部分（5），否则获取后半部分（7）。
• DBH_dia(Rng, main=True)函数：将记录林木胸径的字符串Rng（如“5+5+5+5”或“5*4”，代表有4个分枝，其中第一个是主枝，其他为分枝）拆解为主枝胸径（如5）和分枝胸径（如“5+5+5”）。main参数为真时，获取主枝胸径，否则获取分枝胸径。

二、代码

Function decrown_dia(Rng, Optional front As Boolean = True)
    If TypeName(Rng) = "String" Then
        decrown_dia = Rng
    ElseIf TypeName(Rng) = "Range" Then
        decrown_dia = Rng.Value
    Else
        decrown_dia = CVErr(xlErrValue)
        GoTo fail
    End If
    
    If InStr(1, decrown_dia, "×") > 0 Then
        If front Then
            decrown_dia = Val(Mid(decrown_dia, 1, InStr(1, decrown_dia, "×") - 1))
        Else
            decrown_dia = Val(Mid(decrown_dia, InStr(1, decrown_dia, "×") + 1))
        End If
    ElseIf InStr(1, decrown_dia, "*") > 0 Then
        If front Then
            decrown_dia = Val(Mid(decrown_dia, 1, InStr(1, decrown_dia, "*") - 1))
        Else
            decrown_dia = Val(Mid(decrown_dia, InStr(1, decrown_dia, "*") + 1))
        End If
    Else
        decrown_dia = CVErr(xlErrName)
    End If
fail:
End Function


Function DBH_dia(Rng, Optional main As Boolean = True)
    If TypeName(Rng) = "String" Then
        DBH_dia = Rng
    ElseIf TypeName(Rng) = "Range" Then
        DBH_dia = Rng.Value
    Else
        DBH_dia = CVErr(xlErrValue)
        GoTo fail
    End If
    
    If InStr(1, DBH_dia, "+") > 0 Then
        If main Then
            DBH_dia = Val(Mid(DBH_dia, 1, InStr(1, DBH_dia, "+") - 1))
        Else
            DBH_dia = Mid(DBH_dia, InStr(1, DBH_dia, "+") + 1)
        End If
    ElseIf InStr(1, DBH_dia, ",") > 0 Then
        If main Then
            DBH_dia = Val(Mid(DBH_dia, 1, InStr(1, DBH_dia, ",") - 1))
        Else
            DBH_dia = Mid(DBH_dia, InStr(1, DBH_dia, ",") + 1)
        End If
    ElseIf InStr(1, DBH_dia, "*") > 0 Then
        If main Then
            DBH_dia = Val(Mid(DBH_dia, 1, InStr(1, DBH_dia, "*") - 1))
        Else
            main_str = Mid(DBH_dia, 1, InStr(1, DBH_dia, "*") - 1)
            times = Val(Mid(DBH_dia, InStr(1, DBH_dia, "*") + 1)) - 2
            res = main_str
            For i = 1 To times
                res = res + "+" + main_str
            Next i
            DBH_dia = res
        End If
    ElseIf InStr(1, DBH_dia, "×") > 0 Then
        If main Then
            DBH_dia = Val(Mid(DBH_dia, 1, InStr(1, DBH_dia, "×") - 1))
        Else
            main_str = Mid(DBH_dia, 1, InStr(1, DBH_dia, "×") - 1)
            times = Val(Mid(DBH_dia, InStr(1, DBH_dia, "×") + 1)) - 2
            res = main_str
            For i = 1 To times
                res = res + "+" + main_str
            Next i
            DBH_dia = res
        End If
    Else
        DBH_dia = ""
    End If
fail:
End Function