打开EXCEL,按ALT+F11,进入VB编辑,右击插入模块
在模块中输入如图语句
再点击工作表输入如图语句
关闭编辑页面,进入EXCEL页面,点击视图-宏,选中biao,单击执行
单击工作表中,任意单元格,就出来了,开始自动跳。
注意事项
如需指定单元格,可把模块语句中的a1改成指定单元格
把以下代码写入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
代码以测试满足你需求,就是我没早点看到你的提问···
在C列前添加一空白列,原C列右移
Columns(3).EntireColumn.Insert
可以看一看说明书,
说明书上面写写的是非常的详细的。
看说明书里面的一些专业的词语,
这些专业的词语可能不好明白。
这些专业的词语弄明白了,
也就容易理解了,
另外可以看一看中文版的说明书。