|
楼主 |
发表于 2010-10-18 20:35
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
回复 6楼 zhaogang1960 的帖子
zhaogang1960 大师:
您做的没有问题,我把您给的代码拷贝到我的正在使用的工作薄中后发现一个问题,烦请您看看是什么原因!谢谢!!
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Value = temp Then Exit Sub
Dim cnn As New ADODB.Connection,这一句出现“用户定义类型未定义”
Dim rst As ADODB.Recordset
Dim strSql$, shn$, cel$, coun%
shn = Sh.Name & "记录"
cel = Target.Address(0, 0)
...............................................
................................. |
|