Office中国论坛/Access中国论坛

标题: excel怎么实现，左侧单元格输入数据。右侧单元格出现左侧单元格的录入时间及日期 [打印本页]

作者: cangqiong 时间: 2006-8-21 17:30
标题: excel怎么实现，左侧单元格输入数据。右侧单元格出现左侧单元格的录入时间及日期
excel怎么实现，左侧单元格输入数据。右侧单元格出现左侧单元格的录入时间及日期

请指教

作者: 老鬼 时间: 2006-8-21 17:44
在单元格的CHANGE事件中写入代码target.offet(0,1)=now()

作者: cangqiong 时间: 2006-8-21 18:54
标题: 具体应该怎么写啊
具体应该怎么写啊。刚才我试了一下。不好使我的是OFFICE 2003

能告诉我一下具体的步骤吗？谢谢了。大侠

作者: 老鬼 时间: 2006-8-22 02:39
按ALT+F11进入VBE，双击左边你要设的工作表，在右边挑选WORKSHEET及其CHANGE事件，在里面写入代码即可.

作者: cangqiong 时间: 2006-8-22 17:13
代码不好使啊。。。能重新写一个吗？

你的代码用不用，声明变量之类的啊！

作者: 老鬼 时间: 2006-8-22 21:02
不用

作者: cangqiong 时间: 2006-8-28 18:39
Private Sub Worksheet_Change(ByVal Target As Range)
Target.offet(0, 1) = Now()
End Sub
是这样吗..这样不好使啊.右侧出不来时间啊. 运行时出现这样的错误

出现错误"运行时错误'438'

对象不支持该属性或方法

作者: LIXIANACCP 时间: 2006-8-29 21:36

以下是引用老鬼在2006-8-21 9:44:00的发言：
在单元格的CHANGE事件中写入代码target.offet(0,1)=now()

怎么写呢？好像没你说的哪种景象出现哦！

作者: cangqiong 时间: 2006-8-30 00:51
按ALT+F11进入VBE

在右边挑选WORKSHEET及其CHANGE事件

写入target.offet(0,1)=now() 然后运行会出现

出现错误"运行时错误'438'

对象不支持该属性或方法

作者: 老鬼 时间: 2006-8-30 05:29
不知道你是怎么不行的，传个附件上来吧

作者: LIXIANACCP 时间: 2006-8-30 05:54

以下是引用老鬼在2006-8-29 21:29:00的发言：

不知道你是怎么不行的，传个附件上来吧

版主:进入VBA后,顶上有通用及声明(有部分是已自定义的函数),没有出现你所说的现象.

怎么行我也想知道怎么在B列录入数据;A列自动填充B列的数据是什么时候录入的,

麻烦你传个附件就解决啊!

[em06][em06]

[此贴子已经被作者于2006-8-29 22:10:48编辑过]

作者: 老鬼 时间: 2006-8-30 07:52
晕

作者: LIXIANACCP 时间: 2006-8-30 08:40

以下是引用老鬼在2006-8-29 23:52:00的发言：

晕

不是对你不敬!确实不知怎么弄!

[attach]20064[/attach]

作者: cangqiong 时间: 2006-8-30 19:07
[attach]20069[/attach]

我用的是EXCEL2003 最好是a1,a2,a3,a4,a5,a6 单元格随便输入.在a7单元格显示日期和时间

或者在a7单元格显示日期,a8单元格显示时间

作者: LIXIANACCP 时间: 2006-8-30 21:19

以下是引用cangqiong在2006-8-30 11:07:00的发言：

[attach]20069[/attach]

我用的是EXCEL2003 最好是a1,a2,a3,a4,a5,a6 单元格随便输入.在a7单元格显示日期和时间

或者在a7单元格显示日期,a8单元格显示时间

奇怪!怎么我的OFFICE2003没有CHANG事件呢?左边只有通用,右边只有声明!

是什么原因??/

[此贴子已经被作者于2006-8-30 13:20:37编辑过]

作者: 老鬼 时间: 2006-8-31 04:35
Target.Offset(0, 1) = Now()

作者: tangqp 时间: 2006-8-31 17:34
实际出现的效果是该单元格右侧的所有单元格都会等于NOW(),还有没有其他方法

作者: cangqiong 时间: 2006-8-31 17:45
根本部门没解决，老鬼你也传个附件上来吧。。

看看你是怎么做的

作者: LIXIANACCP 时间: 2006-8-31 21:23

以下是引用老鬼在2006-8-21 18:39:00的发言：
按ALT+F11进入VBE，双击左边你要设的工作表，在右边挑选WORKSHEET及其CHANGE事件，在里面写入代码即可.

怎么我的OFFICE2003就没你所说的这些呢?[attach]20101[/attach]

作者: 老鬼 时间: 2006-9-1 07:56
在Target.Offset(0, 1) = Now()之前加application.enableevents=false，之后加application.enableevents=true

作者: 老鬼 时间: 2006-9-1 08:10

以下是引用LIXIANACCP在2006-8-31 13:23:00的发言：

怎么我的OFFICE2003就没你所说的这些呢?[attach]20101[/attach]

注意要在工作表模块中，比如SHEET1

作者: LIXIANACCP 时间: 2006-9-1 20:43

以下是引用老鬼在2006-9-1 0:10:00的发言：

注意要在工作表模块中，比如SHEET1

双击桌面的EXCEL进入EXCEL,按ALT+F11进入的介面是不是叫作工作表模块?如果是,就没有嘛,如果不是这样进入,哪该怎么进入??

看一下我的附件吧!

作者: cangqiong 时间: 2006-9-1 20:50
谢谢老鬼......问题基本解决...

但还是有问题...OFFSET是移动的

我不想让我输入的时间和日期移动...

例如我在A1,A2,A3,A4,A5单元格输入数据....想在固定的A7单元格显示日期和时间应该怎么办啊

作者: 老鬼 时间: 2006-9-2 05:53
那你就直接用RANGE("A7")=NOW()就行了

作者: LIXIANACCP 时间: 2006-9-2 20:37

以下是引用老鬼在2006-9-1 21:53:00的发言：
那你就直接用RANGE("A7")=NOW()就行了

真烦!!!!!!

怎么这个问题折腾了这么久还是没能解决呢?我的EXCEL进入(通过ALT+F11)根本就没有CHANG什么的!是没引用哪个?

[attach]20122[/attach]

作者: tangqp 时间: 2006-9-2 21:23
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column < 7 Then
Sh.Cells(Target.Row, 7) = Now()
End If
End Sub

作者: LIXIANACCP 时间: 2006-9-3 02:06

以下是引用tangqp在2006-9-2 13:23:00的发言：
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column < 7 Then
Sh.Cells(Target.Row, 7) = Now()
End If
End Sub

上帝!赐给我智慧吧!!!!!!!!!!

我还是不懂!!!!!!!!!!![em06][em06][em06]

作者: yangjxi 时间: 2006-9-6 10:32
终于看明白啦,感谢各位啊.

作者: cangqiong 时间: 2006-9-6 16:22

以下是引用LIXIANACCP在2006-9-2 12:37:00的发言：

真烦!!!!!!

怎么这个问题折腾了这么久还是没能解决呢?我的EXCEL进入(通过ALT+F11)根本就没有CHANG什么的!是没引用哪个?

用ALT+F11 进入程序状态下。双击左侧的SHEET1 右侧上边出现通用和声明。点通用和声明的下拉菜单就看见了

作者: ly_19811105 时间: 2007-8-11 15:50

我的问题也解决了，多谢了！！！

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