请教，如何让两个程序代码在同一个工作表中执行？

光头土豆

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
'录入林场发文时间
If Target.Offset(0, 1) <> "" Then Exit Sub
If Target.Column = 2 And Target <> "" Then
Target.Offset(0, 1) = VBA.Date
End If
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
'录入发文企划时间
'On Error Resume Next
'If Target.Offset(0, -1) <> "" Then Exit Sub
'If Target.Column = 8 And Target <> "" Then
'Target.Offset(0, -1) = VBA.Date
'End If
'End Sub

兰色幻想

if  Target.Offset(0, -1) <> "" or Target.Offset(0, 1) <> "" Then Exit Sub
If Target.Column = 2 And Target <> "" Then
Target.Offset(0, 1) = VBA.Date
elseif Target.Column = 8 And Target <> "" then
'Target.Offset(0, -1) = VBA.Date
End If

lucking551

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3. On Error Resume Next
   
4. '录入林场发文时间
   
5. If Target.Offset(0, 1) <> "" Then Exit Sub
   
6. If Target.Column = 2 And Target <> "" Then
   
7. Target.Offset(0, 1) = VBA.Date
   
8. If Target.Column = 8 And Target <> "" Then
   
9. Target.Offset(0, -1) = VBA.Date
   
10. End If
    
11. end if
    
12. End Sub
    

复制代码

这样可以吗？

光头土豆

回兰老师：第7列，好像只有11行是灵的，C列没问题

光头土豆

而且，清除多单元格和下拉复制时就会出错

光头土豆

纠结~~~~~~~~~~~~~

兰色幻想

你上传一个表格

光头土豆

光头土豆1.xls (284 KB, 下载次数: 2)

2012-5-30 18:58 上传

点击文件名下载附件 Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
'如果改动的是第二列并且第三列为空值，那么第三列显示日期
  If Target.Column = 2 And Target <> "" And Target.Offset(0, 1) = "" Then
     Target.Offset(0, 1) = VBA.Date
  End If
'如果改动的是第8列或第11列或第14列或第17列，并且前一列为空值，那么前一列显示日期
  If (Target.Column = 8 Or Target.Column = 11 Or Target.Column = 14 Or Target.Column = 17) And Target <> "" And Target.Offset(0, -1) = "" Then
      Target.Offset(0, -1) = VBA.Date
  End If
End Sub

光头土豆

就这个，我看了很久，不知道如何处理，我加了个错误处理，可以用，但是清除内容的时候就出错