选择字符问题

xsxsxslch

各位老师好:想请问各位一个问题,就是用什么函数可以取出一字段中相应的字符串呢?

如下(就是把"*"两边的字符分别取出):

规格                                长             宽

原字段值                     所求值          所求值

45.15*23.5                  45.15          23.5

42.5*22.35                  42.5            22.35

zlt518

选中A列，点数据--分列--下一步--自定义，输入*，即可。

xsxsxslch

我是要在ACCESS的报表使用!而且楼上所说的是在EXCEL里的,在ACCESS中不能用吧!

zlt518

是ACCESS报表呀！是不是用函数也不行，vba应该能解决。

xsxsxslch

我不知道用哪个函数!!!!

xsxsxslch

谢谢!怎么就没有像EXCEL里的FIND之类的函数呢?

xsxsxslch

有什么方法可以调用EXCEL里的FIND()函数吗?

huanghai2002

要用自定义函数

Function returnSize(WandH As String, I As Integer) As Double
    Dim aSize()  As String
    aSize = Split(WandH, "*")
    returnSize = CDbl(aSize(I - 1))
End Function

用法:

?returnSize("45.15*23.5",1)
 45.15

?returnSize("45.15*23.5",2)
 23.5

huanghai2002

如果你增加了字段,如增加一个高,也是一样的使用,主要是灵活使用参数I.

huanghai2002

不知道这个可不可以实现调用：

dim excel as object

set excel=createobject("excel.application")

excel.find........

如果find是application下面的函数的话