Question

如何利用excel的vba，自动插入时间？

需要实现一下功能，请高手帮忙。
有2个工作表，sheet1, sheet2
1. sheet1 中A列的任意数据变动，sheet2中的C1单元格自动生成时间，并随着数据变动而变动
2. sheet1中A列数据全部删除时，sheet2中的C1单元格自动生成时间也随着消失。

Answer 1

• 打开EXCEL，按ALT+F11，进入VB编辑，右击插入模块

  

  请点击输入图片描述

• 在模块中输入如图语句

  

  请点击输入图片描述

• 再点击工作表输入如图语句

  

  请点击输入图片描述

• 关闭编辑页面，进入EXCEL页面，点击视图－宏，选中biao,单击执行

  

  请点击输入图片描述

• 单击工作表中，任意单元格，就出来了，开始自动跳。

  

  请点击输入图片描述

注意事项

如需指定单元格，可把模块语句中的a1改成指定单元格

追问

你可能没有理解我的意思，我的要求是sheet1中的A列发生数据变动，sheet2中指定的单元格C1自动生成时间。当SHEET1的A列没有数据时，SHEET2的C1中的时间自动清空。
这个应该是工作表变化事件，你用的是工作表打开事件，任意单元格，而且还要手工点击宏才能运行，与我想实现的功能不一样。

Answer 2

把以下代码写入sheet1中
Private Sub Worksheet_Change(ByVal Target As Range)
if application.WorksheetFunction.CountA(columns("a")) = 0 then

ThisWorkbook.Sheets(2).Range("c1") = “”
elseIf Target.Column = 1 Then
ThisWorkbook.Sheets(2).Range("c1") = Now()
End If
End Sub
代码以测试满足你需求，就是我没早点看到你的提问···

Answer 3

在C列前添加一空白列，原C列右移
Columns(3).EntireColumn.Insert

Answer 4

可以看一看说明书，
说明书上面写写的是非常的详细的。
看说明书里面的一些专业的词语，
这些专业的词语可能不好明白。
这些专业的词语弄明白了，
也就容易理解了，
另外可以看一看中文版的说明书。