自动生成日期时间和防修改

袋袋长老 · 发表于 2010-9-6 21:21

自动生成日期时间和防修改
请二个问题请教：
①如何在序号、录入日期时间中自动生存？因为是流水账，只要我把C到L列的内容输入完毕，换行再输入另一项内容时序号和录入日期时间自动生成就省事很多。
②序号和录入日期时间这两项生成后，不允许修改。该如何操作？
谢谢

yxw爱琴海 · 发表于 2010-9-6 22:28

仓库进销存.rar (3.2 KB, 下载次数: 56)

袋袋长老 · 发表于 2010-9-7 06:17

有点不明白。
=IF(C8<>"",TODAY(),"")，函数中TODAY(), 如果是3月1 日那所有的数据日期都成了3 月1 日。此前2月份录入的数据日期都变成了3 月1 日。到3 月2 日时，所有的数据又都是3月2 日。不符合流水账的要求。

另外，表中单据日期是个手工要录入的，每份单据的日期可能都不一样或一样。比如在2月5 日可能有8份单据，此后一直到2月10日才有5份。只有表中的M列“录入日期时间”可自动生成。

我想，如果是设置工作表保护要达到这个效果，即没有录入数据的位置可自由输入不受限制。当一行数据录入完成后，该行即被保护起来。

如何操作，请继续赐教

山风 · 发表于 2010-9-7 08:28

Private Sub Worksheet_Change(ByVal Target As Range) '单元格触发事件
If Target.Row > 2 And Target.Column > 2 And Target.Column < 13 And Cells(Target.Row, 13) = "" Then
Sheet1.Unprotect ("123") '解除保护
Cells(Target.Row, 13) = Date '写入日期
Sheet1.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True '重新保护
End If
End Sub

仓库进销存.rar (8.37 KB, 下载次数: 61)

wuxiang_123 · 发表于 2010-9-7 12:56

参考:
http://club.excelhome.net/viewth ... 7461&highlight=

袋袋长老 · 发表于 2010-9-7 22:04

附件密码123
打开后看不到有什么效果？VBA我不懂，你要写明白些，最好是操作步骤，谢谢

袋袋长老 · 发表于 2010-9-7 22:14

确实是提供了一个好东东，学习中
还是没解决我的问题，请多多指教

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

[求助] 自动生成日期时间和防修改

回复 1楼袋袋长老的帖子

附件中看不到有什么不同？

确实是提供了一个好东东

[求助] 自动生成日期时间和防修改

回复 1楼 袋袋长老 的帖子

附件中看不到有什么不同？

确实是提供了一个好东东

回复 1楼袋袋长老的帖子