作者:乔山办公网日期:
返回目录:excel表格制作
你所说的情况只能使用宏。按 alt + F11 启动VBA, 在左边的小窗口,显示有你需要输入数据的工作表名称知,双击这个工作表名称,然后在右边的空大窗口输入如下代码就可以了道:
Public Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
'遇到错误继续运行代码版
If Target.Column = 1 And Target.Text <> "" Then
'用if函数,如权果活动单元格为A列(1就是A列,这里你可以更改为任意列,比如2=B列,3=C列,4=D列等等)且单元格内容为空,则执行下列动作
Target.Offset(0, 1) = Now
Selection.NumberFormatLocal = "yyyy-m-d h:mm;@"
'活动单元格的后一列自动填充时间,格式为"yyyy-m-d h:mm;@"
End If
'完成判断
End Sub
'代码执行完毕
操作步copy骤:
1、ctrl+a 全选工作表----右键--设置单元格格式--保护--取消勾选的 "保护"和"隐藏百"
2、CTRL+G ---定位--条件--点选公式--确认(选中了所有含有公度式的单元格)
---右键--设置单元格格式--勾选“保护”和“隐藏”--确定问
3、2003--工具--保护--保护工作表(设置密码)答--确定即可。
2007版本--审阅--更改--保护工作表(设置密码)--确定即可。
单元格只要zhidao保护了,无论宏还是手工都无法专更改,但是可以在需要用宏修改的时候取消保属护
ActiveSheet.Unprotect
更改完后在加保护:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True