excel宏代码

Question

要求实现:在 表1 的C5单元格里输入内容，当鼠标点击任意地方的时候，C5里面的内容会自动保存到 表2里面的E2单元格里面，然后表1的C5里面的内容自动删除，再次输入内容，鼠标点任意地方时，表1的C5里面的内容又自动储存到表2里面的E3单元格里面，如此循环输入，自动保存到表2的内容再E列里面一直往下排然后自动保存。，这个应该可以实现吧，请度友们帮帮忙，谢谢！

Answer 1

虽然可以如您所愿，但如果输入的内容错要改，或误操作等就会“强行”在第sheet2 表中添加内容了，所以，提议当输入后，单击“确认添加”来实现添加。代码很简单如下：

Sub tmp()

    If Sheets("sheet1").Range("C5").Value <> "" Then

        Sheets("sheet2").Range("E65536").End(xlUp).Offset(1, 0).Value = Sheets("sheet1").Range("C5").Value

        Sheets("sheet1").Range("C5").Value = ""

    End If

End Sub

过程如下：

在表名“sheet1"上右击，选”查看代码“，将代码贴入；

在”sheet1"表上插入一个矩形并确认，在矩形上右击，选“编辑文字”，输入如“确认添加”；

在矩形上右击，选定“指定宏”，选择sheet1.tmp.

供参考，祝顺利。

追问

谢谢你的建议与答案，这个就不需要了，因为要看他一天能搞错多少次，所以要查看记录，不过你的建议也很不错，谢谢

不知道怎么感谢你了，只能做你的粉丝了，已经关注

Answer 2

要求实现:在 表1 的C5单元格里输入内容，当鼠标点击任意地方的时候，C5里面的内容会自动保存到 表2里面的E2单元格里面，然后表1的C5里面的内容自动删除，再次输入内容，鼠标点任意地方时，表1的C5里面的内容又自动储存到表2里面的E3单元格里面，如此循环输入，自动保存到表2的内容再E列里面一直往下排然后自动保存。，这个应该可以实现吧，请度友们帮帮忙，谢谢！

Answer 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Worksheets("表1").Range("C5") <> "" Then
Worksheets("表2").Range("E9999").End(xlUp).Offset(1, 0) = Worksheets("表1").Range("C5").Value
Worksheets("表1").Range("C5") = ""
Else
End If
End Sub
在表1用selectionchange事件，非任意位置，只要输入后按enter或者用鼠标单击选择其他任意一个单元格即可实现本回答被提问者和网友采纳