本文目录一览：
- 1、EXCEL函数公式FLW2我的怎么没得啊？怎么弄出来？谢谢回答
- 2、excel2003中的求和函数FLW2突然显示#NAME?了，求教
- 3、Excel =if=0，""，flw2是什么意思
- 4、请帮忙解答这个EXCEL函数，一定要清楚到我可以掌握，谢谢指教
EXCEL函数公式FLW2我的怎么没得啊？怎么弄出来？谢谢回答
那是自定义函数，需要进入vba模块中编写代码，然后才能在表格执行自定义函数
excel2003中的求和函数FLW2突然显示#NAME?了，求教
从楼主的叙述中可以看出,FLW2为自定义函数,因为EXCEL自带的求和函数为SUM(),而不是FLW2
至于自定义函数出错的原因,我估计没人能够给你正确答案,因为无法看到自定义函数体,楼主可尝试按ALT+F11来对自定义函数进行编辑,以达到目的.
显示#NAME?表示,EXCEL不认识该函数.
Excel =if=0，""，flw2是什么意思
这个是if函数的使用
=if (A1=0，""，flw2) 完整的写法是这样的，如果A1等于0，那么就是取空值，否则取flw2的值
请帮忙解答这个EXCEL函数，一定要清楚到我可以掌握，谢谢指教
Function FL(x As Range)
For i = 1 To Len(x)
If Val(Mid(x, i, 1)) 0 Or Mid(x, i, 1) = "0" Then
FL = FL Mid(x, i, 1)
End If
Next i
End Function
Function FLW(x As Range, Y As Integer)
If Y = 1 Then
For i = 1 To Len(x)
If Val(Mid(x, i, 1)) 0 Or Mid(x, i, 1) = "0" Or Mid(x, i, 1) = "." Then
FLW = FLW Mid(x, i, 1)
End If
Next i
ElseIf Y = 2 Then
For M = 1 To Len(x)
a = Application.WorksheetFunction.Substitute(x.Value, 0, "")
b = Application.WorksheetFunction.Substitute(a, 1, "")
C = Application.WorksheetFunction.Substitute(b, 2, "")
D = Application.WorksheetFunction.Substitute(C, 3, "")
E = Application.WorksheetFunction.Substitute(D, 4, "")
F = Application.WorksheetFunction.Substitute(E, 5, "")
G = Application.WorksheetFunction.Substitute(F, 6, "")
H = Application.WorksheetFunction.Substitute(G, 7, "")
i = Application.WorksheetFunction.Substitute(H, 8, "")
J = Application.WorksheetFunction.Substitute(i, 9, "")
Next M
FLW = J
End If
End Function
Function FLW1(x As Range, Y As Integer)
If Y = 1 Then
For i = 1 To Len(x)
If Val(Mid(x, i, 1)) 0 Or Mid(x, i, 1) = "0" Or Mid(x, i, 1) = "+" Or Mid(x, i, 1) = "-" Or Mid(x, i, 1) = "*" Or Mid(x, i, 1) = "/" Or Mid(x, i, 1) = "^" Or Mid(x, i, 1) = "mod" Or Mid(x, i, 1) = "." Then
FLW1 = FLW1 Mid(x, i, 1)
End If
Next i
ElseIf Y = 2 Then
For M = 1 To Len(x)
a = Application.WorksheetFunction.Substitute(x.Value, 0, "")
b = Application.WorksheetFunction.Substitute(a, 1, "")
C = Application.WorksheetFunction.Substitute(b, 2, "")
D = Application.WorksheetFunction.Substitute(C, 3, "")
E = Application.WorksheetFunction.Substitute(D, 4, "")
F = Application.WorksheetFunction.Substitute(E, 5, "")
G = Application.WorksheetFunction.Substitute(F, 6, "")
H = Application.WorksheetFunction.Substitute(G, 7, "")
i = Application.WorksheetFunction.Substitute(H, 8, "")
J = Application.WorksheetFunction.Substitute(i, 9, "")
Next M
FLW1 = J
End If
End Function
Function FLW2(x As Range, Y As Integer)
Dim q As String
If Y = 1 Then
For i = 1 To Len(x)
If Val(Mid(x, i, 1)) 0 Or Mid(x, i, 1) = "0" Or Mid(x, i, 1) = "+" Or Mid(x, i, 1) = "-" Or Mid(x, i, 1) = "*" Or Mid(x, i, 1) = "/" Or Mid(x, i, 1) = "^" Or Mid(x, i, 1) = "mod" Or Mid(x, i, 1) = "." Or Mid(x, i, 1) = "(" Or Mid(x, i, 1) = ")" Then
q = q Mid(x, i, 1)
End If
FLW2 = Application.Evaluate("(" q ")")
Next i
ElseIf Y = 2 Then
For M = 1 To Len(x)
a = Application.WorksheetFunction.Substitute(x.Value, 0, "")
b = Application.WorksheetFunction.Substitute(a, 1, "")
C = Application.WorksheetFunction.Substitute(b, 2, "")
D = Application.WorksheetFunction.Substitute(C, 3, "")
E = Application.WorksheetFunction.Substitute(D, 4, "")
F = Application.WorksheetFunction.Substitute(E, 5, "")
G = Application.WorksheetFunction.Substitute(F, 6, "")
H = Application.WorksheetFunction.Substitute(G, 7, "")
i = Application.WorksheetFunction.Substitute(H, 8, "")
J = Application.WorksheetFunction.Substitute(i, 9, "")
Next M
FLW2 = J
End If
End Function
Function flw3(x As Range)
flw3 = Application.Evaluate(x.Value)
End Function
Sub nn()
End Sub
FLW2是个自定义函数，里面有两个参数，一个是单元格，一个是1或2。为1时，计算C5值；
单元格的值一般为运算式，没有结果，比如：白点区域与未标注区域2.83*111.3+未标注区域与蓝色区域1.7*69.74+未标注区域与黄色区域1.7*49.6+黄色区域与白斜纹区域0.56*22+蓝色区域与黄色区域1.41*12.9+绿色区域与红色区域1.41*62.5+黄色区域与白斜纹区域1.34*23+黄色区域与绿色区域1.84*（48.74+9.6）+黄色区域与蓝色区域1.41*17.5+绿色区域与白斜纹区域0.57*13.68
；为2时，去掉所有数字，只留符号。
查看代码的话，就在宏里面。