请高手解析下FLW，FLW1，FLW2函数

xiejiamei516 · 发表于 2010-3-20 21:44

请高手解析下FLW，FLW1，FLW2函数，举例说明下，今天看到这公式，就是看不懂，在网上又找不到这相关的网页

cflood · 发表于 2010-3-20 21:52

自定义函数吧

wangyuhu · 发表于 2010-3-20 21:56

自定义函数或名称吧

xiejiamei516 · 发表于 2010-3-21 09:36

有谁能举例解释下吗

cflood · 发表于 2010-3-21 10:02

自己编的函数怎么举例，把附件传上来才知道这几个函数是干什么的。

xiejiamei516 · 发表于 2010-3-21 22:07

是EXCEL里面有的函数啊，不是自己编的，不是自定义的呢

yfan17 · 发表于 2010-3-21 22:32

自定义函数，ALT+F11可以查看代码：
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

xiejiamei516 · 发表于 2010-3-21 22:38

哦，谢谢了，我在EXCEL的函数里找到有这个函数还以为不是自定义的

lemon8366 · 发表于 2010-6-24 15:40

为什么我在使用FLW函数的时候，会出现#NAME?

wangyuhu · 发表于 2010-6-24 19:11

要插入代码的

		自动登录	找回密码
密码			免费注册

[讨论] 请高手解析下FLW，FLW1，FLW2函数