Office中国论坛/Access中国论坛

标题: 把几个问题汇总了一下，有扰各位指点！ [打印本页]

作者: lonovo 时间: 2005-12-13 20:18
标题: 把几个问题汇总了一下，有扰各位指点！
[attach]14728[/attach]

请看附件！！

作者: 情比金坚 时间: 2005-12-14 09:05
问题1用这样的公式：=TEXT(B2,"0.00")&"*"&TEXT(C2,"0.00")&"*"&TEXT(D2,"0.00")&"*"&TEXT(E2,"0")

问题2 用这样的函数：

Function f(s As String)
For n = 1 To Len(s)
      s1 = Mid(s, n, 1)
      k = InStr("1234567890.+/*-()", s1)
      If k > 0 Then
         s2 = s2 & Mid(s, n, 1)
      End If
Next
f = Evaluate(s2)
End Function

问题3 要完全自动解决起来太麻烦，半自动就可以了

作者: lonovo 时间: 2005-12-14 18:23
谢谢“情比金坚”！！！

问题已基本解决，现做了个半自动的，

还请大家多指教，看能否再简化点？？[attach]14748[/attach]

[此贴子已经被作者于2005-12-14 10:23:37编辑过]

作者: grzhu 时间: 2005-12-17 00:35
请看附件,

试试看.[attach]14813[/attach]

作者: lonovo 时间: 2005-12-17 19:57
谢谢“grzhu”！！！

你的方法很好，学习ing……

作者: lonovo 时间: 2005-12-17 21:29
TO:grzhu

1、“条件格式”用得很好，解决了边框的问题。

2、“COUNTA函数”换“AND函数”也用得很好，方便很多。

3、但用“VLOOKUP函数”好像没有直接调用来得方便呀，有点不解？？

作者: grzhu 时间: 2005-12-17 22:44
是的,同意您的说法,用“VLOOKUP函数”没有直接调用来得方便,我开始制此表时多虑了.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)