统计桥架支架的数量

 

 

 

Function FUN_zhijia(ByVal i_zhijia As String) As String
    ' 定义变量和对象
    Dim Sht_ZhiJia_Style As Worksheet
    Dim SZ_ZJ() As String
    Dim sz_zj_Style() As String
    Dim tem_S As String
    Dim I As Long, J As Long
    
    ' 设置工作表对象为“支架型号”工作表
    Set Sht_ZhiJia_Style = ThisWorkbook.Sheets("支架型号")
    
    ' 初始化输出字符串为空
    tem_S = ""
    
    ' 将输入字符串按照“，”分割
    SZ_ZJ = Split(i_zhijia, "，")
    
    ' 遍历所有由“，”分隔的子串
    For I = LBound(SZ_ZJ) To UBound(SZ_ZJ)
        ' 将当前子串按照“*”再次分割
        sz_zj_Style = Split(SZ_ZJ(I), "*")
        
        ' 在工作表的第一列查找分割后的第一个元素
        For J = 1 To Sht_ZhiJia_Style.Rows.Count
            If Sht_ZhiJia_Style.Cells(J, 1).Value = sz_zj_Style(0) Then
                ' 如果找到，则从第三列读取值并拼接到输出字符串中
                tem_S = tem_S & "+" & Sht_ZhiJia_Style.Cells(J, 3).Value & "*" & sz_zj_Style(1)
                ' 找到后立即退出循环
                Exit For
            End If
            
            ' 检查是否已遍历完所有行但仍未找到
            If J >= Sht_ZhiJia_Style.Rows.Count Then
                ' 如果未找到，则设置输出字符串为“未找到”
                tem_S = "未找到"
                ' 退出内层循环
                Exit For
            End If
        Next J
        
        ' 如果在任何一行都没有找到，则立即结束外层循环
        If tem_S = "未找到" Then
            Exit For
        End If
    Next I
    
    ' 删除输出字符串开头的"+"
    tem_S = Right(tem_S, Len(tem_S) - 1)
    
    ' 返回处理后的字符串
    FUN_zhijia = tem_S
End Function