求值，自定义函数给单元格赋值

huangyanqiang

目标是根据自定义函数“单位”给J列赋值
如果E2包含"冷轧板"，J2显示“kg”
如果E2包含"亚克力板"，J2显示“平方米”
否则显示空值

自己写了一个如下，不能实现，请大神帮忙修改，谢谢。


Function 单位(品名材质 As String, 规格 As String) As Range
   
    If (InStr(品名材质, "亚克力板") + InStr(品名材质, "铁线网") + InStr(品名材质, "冲孔网板")) > 0 Then
        
        单位.Value = 平方米
   
    ElseIf (InStr(品名材质, "冷轧板") + InStr(品名材质, "不锈钢板")) > 0 Then
        
        单位.Value = kg
    Else
        单位.Value = ""
    End If
   
End Function

gufengaoyue

1. Function 单位(品名材质 As String, 规格 As String)
   
2.    
   
3.     If (InStr(品名材质, "亚克力板") + InStr(品名材质, "铁线网") + InStr(品名材质, "冲孔网板")) > 0 Then
   
4.         
   
5.         单位 = "平方米"
   
6.    
   
7.     ElseIf (InStr(品名材质, "冷轧板") + InStr(品名材质, "不锈钢板")) > 0 Then
   
8.         
   
9.         单位 = "kg"
   
10.     Else
    
11.    
    
12.         单位 = ""
    
13.         
    
14.     End If
    
15.    
    
16. End Function
    

复制代码

huangyanqiang

gufengaoyue 发表于 2024-3-27 11:23

谢谢，搞定