VBA自定义函数应用

wangfen1002

如果有效果显示会让人看得更明白一些。期待！

wangfen1002

ctp_119 发表于 2010-4-28 10:39
'提取数字
Function 提取数字(a As String)
Dim i As Integer, j As Integer

谢谢楼主：能否单独将文字提取出来？"cm2021咖啡壶RSDE“、”WK8210KAUE带表电水壶UADE“等，我只要将“咖啡壶”、“带表电水壶”字样提取出来。

ctp_119

wangfen1002 发表于 2013-8-23 10:46
谢谢楼主：能否单独将文字提取出来？"cm2021咖啡壶RSDE“、”WK8210KAUE带表电水壶UADE“等，我只要将“咖 ...

你没有仔细看吧，有提取汉字的。。。你再看看

ctp_119

请看22楼的自定义函数。。。。里面有就。。。

wangfen1002

好人，没有认真往下看，谢谢，收录了。

comuyou

学习了, 楼主厉害

平平淡淡的天使

1. Function 数据查询1(sql As String, r As Integer, c As Integer)
   
2. 'TextBox1.SetFocus
   
3. Dim lj As 类1
   
4. Set lj = New 类1
   
5. Application.ScreenUpdating = False
   
6. On Error GoTo A
   
7. lj.zz
   
8. Range("a4:Z66536").Cells.ClearContents
   
9. Set rst = cn.Execute(sql)
   
10. Cells(r, c).CopyFromRecordset rst
    
11. rst.Close
    
12. cn.Close
    
13. Set rst = Nothing
    
14. Set cn = Nothing
    
15. Application.ScreenUpdating = True
    
16. Exit Function
    
17. A:
    
18. MsgBox " '" & Err.Description & " '", vbInformation, "错误提示"
    
19. End Function

复制代码

大师啊，，这是我做的自定义函数，是ADO查询用的，，查询用的 在（参数 as xx) as   在外面 用什么数据类型好点啊？请大师指点！我之前用类的  我觉得有时候自定义函数比类好用点。。

平平淡淡的天使

平平淡淡的天使 发表于 2013-12-10 10:12
大师啊，，这是我做的自定义函数，是ADO查询用的，，查询用的 在（参数 as xx) as   在外面 用什么数据类 ...

是的  没有问题啊。。类1  我用类模块 主要连接字符串 写的麻烦。。

ctp_119

平平淡淡的天使 发表于 2013-12-13 12:56
是的  没有问题啊。。类1  我用类模块 主要连接字符串 写的麻烦。。

你类1的代码没有贴出来吧，所以看得我一头雾水！！！

平平淡淡的天使

ctp_119 发表于 2013-12-14 09:32
你类1的代码没有贴出来吧，所以看得我一头雾水！！！

1. Public lianjie As String
   
2. Public Sub zz()
   
3. Set cn = CreateObject("adodb.connection")
   
4. Set rst = CreateObject("ADODB.recordset")
   
5. lianjie = "Provider=SQLOLEDB; User ID=xxxxx;Password =xxxxxx;Data Source=xxxxxxxx,xxxx;Initial Catalog=xxxxx"
   
6.    cn.Open lianjie
   
7. End Sub
   

复制代码