求助日期时间生成问题

nalo · 发表于 2008-10-28 13:16

我是初学者，想在表中的每一行最后都有一个确定按钮，一旦点击确定，就会在旁边生成当时的时间，而且不可更改，怎么才能做到呢？先谢谢大家

zhzhang9756 · 发表于 2008-10-28 14:19

不需要按钮的。用VBA Worksheet_Change事件编写一个简单的程序就可实现。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(0, 1) = Now
End If
End Sub

ctleh · 发表于 2008-10-28 14:29

也可以利用数据有效性来做

nalo · 发表于 2008-10-28 15:44

谢谢二位了，我先试一下，有问题再请教。这里真好。

nalo · 发表于 2008-10-28 15:51

原帖由 zhzhang9756 于 2008-10-28 14:19 发表
不需要按钮的。用VBA Worksheet_Change事件编写一个简单的程序就可实现。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(0, 1) = Now
End If
End Sub

您给我的代码，我不会用，汗颜

nalo · 发表于 2008-10-28 15:59

我用的excel2007是不是不行呢？数据有效性，再次打开的时候，时间还是会变得，而且下拉框的时间一旦选了，就出现了一大串数字，而不是时间。另外我想要的是，当一个人在这个表格中在a1中填写了一个数据，那么在b1中立即生成当时的时间，而且是不可修改的，作为证据时间保留下来，给主管看的时候，就是当时填写a1这个数据的时间。，能做到么？

zhzhang9756 · 发表于 2008-10-28 16:40

1.打开你的Excel文件，在表格左下角的标签处点右键，选择"View Code（查看代码）"
2.把这段代码复制粘贴过去
3.回到原表格，试一下在A列的某个格输入数据，回车。

说明，
a. Target.Column = 1，这个“1”代表如果你在第1列（也就是A列）输入数据，可以根据你自己的情况输入其他的列号。1-A，2-B，3-C....IV-256。
b. Target.Offset(0, 1) = Now，代表在在输入数据那列后面的一列（本例中是B列）自动生成日期时间。

nalo · 发表于 2008-10-30 08:06

兄台，小弟我感激涕零,真厉害哦
还想问一下，如果想单独当w6输入结束，x6得到日期应该怎么改写下?

[ 本帖最后由 nalo 于 2008-10-30 09:33 编辑 ]

zhzhang9756 · 发表于 2008-10-30 14:33

Target.Column = 1改成Target.Column = 23就可以了。

歌盛 · 发表于 2008-10-30 15:18

如果结合工作表保护可以实现你要的效果：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = [w6].column Then
ActiveSheet.Unprotect
Target.Offset(0, 1) = Now
ActiveSheet.Protect
ActiveSheet.EnableSelection = xlUnlockedCells
End If
End Sub

[ 本帖最后由歌盛于 2008-10-30 15:36 编辑 ]

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

求助 日期时间生成问题

数据有效性

求助日期时间生成问题