请帮忙解答这个EXCEL函数，一定要清楚到我可以掌握，谢谢指教=IF(ISERROR(IF(FLW2(F7,1)=0,&&,FLW2(F7,1))),&&,IF(FLW2(F7,1)=0,&&,FLW2(F7,1)))这是一个可以把有文字和公式共存的单元格中，计算公式的自定义_百度作业帮
拍照搜题，秒出答案
请帮忙解答这个EXCEL函数，一定要清楚到我可以掌握，谢谢指教=IF(ISERROR(IF(FLW2(F7,1)=0,"",FLW2(F7,1))),"",IF(FLW2(F7,1)=0,"",FLW2(F7,1)))这是一个可以把有文字和公式共存的单元格中，计算公式的自定义
请帮忙解答这个EXCEL函数，一定要清楚到我可以掌握，谢谢指教=IF(ISERROR(IF(FLW2(F7,1)=0,"",FLW2(F7,1))),"",IF(FLW2(F7,1)=0,"",FLW2(F7,1)))这是一个可以把有文字和公式共存的单元格中，计算公式的自定义函数，以下是计算单元格F7的内容：白点区域与未标注区域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
Function FL(x As Range)For i = 1 To Len(x)If Val(Mid(x, i, 1)) > 0 Or Mid(x, i, 1) = "0" ThenFL = FL & Mid(x, i, 1)End IfNext iEnd FunctionFunction 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)
Next iElseIf 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 = JEnd IfEnd FunctionFunction 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)
Next iElseIf 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 = JEnd IfEnd FunctionFunction FLW2(x As Range, Y As Integer)Dim q As StringIf 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)
FLW2 = Application.Evaluate("(" & q & ")")
Next iElseIf 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 = JEnd IfEnd FunctionFunction flw3(x As Range)flw3 = Application.Evaluate(x.Value)End FunctionSub nn()End SubFLW2是个自定义函数，里面有两个参数，一个是单元格，一个是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时，去掉所有数字，只留符号。查看代码的话，就在宏里面。
FLW2的定义呢，在哪？查看: 3109|回复: 4
如何消除随机函数公式，保留随机数值，一个工作簿有不同工作表，相互联系的情况下
阅读权限10
在线时间 小时
如何消除随机函数公式，保留随机数值。在一个工作簿里有不同工作表，相互联系的情况下，我尝试用复制-选择性粘-数值的方法，结果是复制的那张表保留了数值，其它表中随机数又发生了变化。
阅读权限95
在线时间 小时
如果是不同工作表,相同单元格,就做成工作组,一起复制粘贴为数值,如果不是相同单元格在复制粘贴前改为手动重算试试
阅读权限10
在线时间 小时
醉舞街头 发表于
如果是不同工作表,相同单元格,就做成工作组,一起复制粘贴为数值,如果不是相同单元格在复制粘贴前改为手动重 ...
您好，怎么才能更改为手动重算？谢谢
阅读权限10
在线时间 小时
醉舞街头 发表于
如果是不同工作表,相同单元格,就做成工作组,一起复制粘贴为数值,如果不是相同单元格在复制粘贴前改为手动重 ...
该不会是用手一个个敲进去吧？！
阅读权限95
在线时间 小时
海化青年 发表于
您好，怎么才能更改为手动重算？谢谢
工具&选项&重新计算,选择手动重算
玩命加载中，请稍候
玩命加载中，请稍候
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
本站特聘法律顾问：徐怀玉律师 李志群律师
Powered by你好，我想要一份， excel上制作工资表用函数或者公式可以自动生成工资条._百度知道
你好，我想要一份， excel上制作工资表用函数或者公式可以自动生成工资条.
发到我邮箱可以吗？
提问者采纳
给你发了一份示例，有多种情况。只是不清楚是否有适合你的。
提问者评价
其他类似问题
您可能关注的推广
工资条的相关知识
其他2条回答
你的工资条是怎样的格式？
发送了，希望对你有帮助！！
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁老师好，可以发一份仓库进销存excel表格，带函数公式 带入库，出库，库存自动计算的明细表和仓库月报表给我吗？公司刚成立，需要一些实用的表格，谢谢您！
老师好，可以发一份仓库进销存excel表格，带函数公式 带入库，出库，库存自动计算的明细表和仓库月报表给我吗？公司刚成立，需要一些实用的表格，谢谢您！
已经发送。、
的感言：谢谢老师辛苦了！
其他回答 (1)
.//////////////////////////////////
呵呵呵我急用不知道老师能不能给个
相关知识等待您来回答
微软专区领域专家可不可以发一份excel函数公式大全给我 邮箱： 谢谢~_百度知道
可不可以发一份excel函数公式大全给我 邮箱： 谢谢~
去下载我发的文档吧
~~忽忽`~谢谢你~
呵呵，不用谢!!!
其他类似问题
您可能关注的推广回答者：
excel函数的相关知识
按默认排序
其他1条回答
你可发按F1键查看帮助就行，那里有详细的例子及说明
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁