在一个工作薄里的工作表修改内容，而在另一个工作薄中的工作表中自动记录下修改内容

jqg1959 · 发表于 2010-10-17 20:42

我在《表》中作修改内容，就会在工作薄《修改内容》中反映出所修改的内容、修改时间、修改的单元格等。谢谢各位老师帮忙！！

zhaogang1960 · 发表于 2010-10-17 22:16

试试看:

附件.rar (14.04 KB, 下载次数: 198)

jqg1959 · 发表于 2010-10-17 22:49

zhaogang1960 大师：您好！
我准备测试、试用、试用.............先谢谢您！！！

jqg1959 · 发表于 2010-10-17 23:10

zhaogang1960 大师：您好！
我大概测试了一下，发现我只要点击单元格在《自动记录工作表的修改内容》中就会有修改记录，实际我还没有修改内容。也就是说，只有我真正的修改了内容才能记录下修改内容。烦请您再看看，谢谢！！！

jqg1959 · 发表于 2010-10-18 07:12

zhaogang1960 大师：早安！
请您抽空再看看是什么原因。谢谢！

zhaogang1960 · 发表于 2010-10-18 09:02

加了一个判断：

附件.rar (11.46 KB, 下载次数: 289)

[ 本帖最后由 zhaogang1960 于 2010-10-18 09:10 编辑 ]

jqg1959 · 发表于 2010-10-18 20:05

zhaogang1960 大师：您好！
谢谢您了！！我测试测试.......................

jqg1959 · 发表于 2010-10-18 20:35

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)
...............................................
.................................

zhaogang1960 · 发表于 2010-10-18 20:46

第一、代码最上面有一句：'引用Microsoft ActiveX Data Objects 2.x Library
进入ThisWorkbook代码区——工具——引用，找到Microsoft ActiveX Data Objects 2.5Library（或者2.8等）左边打勾，确定
第二、请确认接受数据的工作簿各个工作表名称应该是活动工作簿工作表名+ "记录"

[ 本帖最后由 zhaogang1960 于 2010-10-18 20:59 编辑 ]

jqg1959 · 发表于 2010-10-18 20:52

zhaogang1960 大师：
谢谢！好的，我按您提出的建议，我试试看............

		自动登录	找回密码
密码			免费注册

[求助] 在一个工作薄里的工作表修改内容，而在另一个工作薄中的工作表中自动记录下修改内容

回复 2楼 zhaogang1960 的帖子

回复 2楼 zhaogang1960 的帖子

回复 2楼 zhaogang1960 的帖子

回复 4楼 jqg1959 的帖子

回复 6楼 zhaogang1960 的帖子

回复 6楼 zhaogang1960 的帖子

回复 8楼 jqg1959 的帖子

回复 9楼 zhaogang1960 的帖子

最新热点 /1