问一个公式中带标注的问题！

LIXIANACCP

例如,在A1单元格中输入  2[长]*3[宽]*2[厚]*2个+2[长]*1[宽]*2[厚]*2个

在B1单元格中显示上述得数:32  (能显示<SUB>32M3就更好!!!)</SUB>

wang1950317

本栏有位专家给出一个自定义函数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) = "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

在B1中调用这个函数即可。

LIXIANACCP

以下是引用wang1950317在2006-2-7 9:47:00的发言：


本栏有位专家给出一个自定义函数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) = "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

在B1中调用这个函数即可。

我觉得头晕得很！！！！！！！！！！！！！1[em06][em06]

wang1950317

不复杂，在Excel页面，选[工具]/[宏]/VB编制器   在显示的页面中选工具栏[插入]/[模块]，你把这段代码复制过去就大功告成了。使用时和使用其他函数一样。在B1中输入  =FLW2(A1,1)。

scottwang

定义名称Z=EVALUATE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(Sheet1!A65534,"[长]",""),"[宽]",""),"[厚]",""),"个",""))

在B1中输入=Z

ahng

复杂。

fyxhh

我试了一下，可用，但当“[]”内出现数字时就不能用了如：公式“23[1轴]+24[2轴]”显示的结果是“472”非“47”这是什么原因，能改正使“[]”内的数公作为标注吗？

蓝天之下

看不懂啊~唉~