Excel表中，要实现这个功能怎么弄？VBA代码我已写好了，请指错批正。 - C/C++

社区导航: 专家门诊网络技术操作系统数据库程序设计系统应用考试认证 CIO及信息化站长交流综合交流下载基地 51CTO产品服务

【设为首页 | 收藏本站】

51CTO技术论坛» C/C++ » Excel表中，要实现这个功能怎么弄？VBA代码我已写好了，请指错批正。 [ 打印] [ 订阅] [ 收藏] [ 推荐给朋友] [ 本帖文本页]

论坛跳转:

wurunduo
新新人类

帖子 4
精华 0
无忧币 26
积分 16
阅读权限 20

注册日期 2007-9-9

最后登录 2007-9-12

离线

[查看资料] [发短消息] [Blog]

发表于:2007-9-12 23:38　　标题：Excel表中，要实现这个功能怎么弄？VBA代码我已写好了，请指错批正。
＜上一帖 | 下一帖＞

功能描述：在一个表中，如果B1里一输入内容，就自动在A1里写入当前时间，而B2有内容，就自动把当前时间写入A2，以此类推。用VBA实现。

代码：
Private Sub Worksheet_Change(ByVal Target As Range)

Dim flag As Integer
flag = 0

If Target.Column = 2 And Len(Target.Cells) > 0 Then
Target.Offset(0, -1) = Time
flag = 1
Target.Offset(0, 1) = flag
End If

If Target.Column = 2 And Len(Target.Cells) = 0 Then
Target.Offset(0, -1) = Null
flag = 0
Target.Offset(0, 1) = flag
End If

End Sub

代码说明：A列是时间列，B列一有内容，A列就更新当前时间，但只更新一次，C为标识列。删除B时则删A。

讨论：这个代码有误，如果一选多个单元格，一删就出错了，请更正一下，谢谢。