ұ༭µӱ湤,ҿؿ.
¹ֵôע:
1ʽ빫ʽֱӵó
2ʽпĵעͣӰ
3עѡбͨʽѡǶԻǴ

*ܼСѾˡ

еFLW2£

Function FLW2(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) = "(" 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) = "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" 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


иԶ庯FLW2λѿڱӱ񣬾ɲøԶ庯ҪѿԽɼغԺ󶼿ʹˡǺ

һͱȽ


