[已解决]如何将二个Private Sub Worksheet_Change合成一个代码？

chenzhen0407

如何将以下二个代码合成一个代码，求高手指点！
一：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, j As Integer
i = 1
  For j = 2 To 5 Step 1
  
    If Target.Row = 1 Then
    Exit Sub
    ElseIf Target.Column = j Then
    If Target.Cells <> "" And Cells(Target.Row, j + 4) = "" Then
    Cells(Target.Row, j + 4) = Sheet2.Cells(11, j)
     End If
     End If
  Next j
  
End Sub
二：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Or Target.Column <> 3 Then Exit Sub
If Target.Cells <> "" And Cells(Target.Row, 1) = "" Then
   Cells(Target.Row, 1) = Date
End If
End Sub

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-6-22 12:35

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim i As Integer, j As Integer
   
3.     i = 1
   
4.     For j = 2 To 5 Step 1
   
5.         If Target.Row = 1 Then
   
6.             Exit Sub
   
7.         ElseIf Target.Column = j Then
   
8.             If Target.Cells <> "" And Cells(Target.Row, j + 4) = "" Then
   
9.                 Cells(Target.Row, j + 4) = Sheet2.Cells(11, j)
   
10.             End If
    
11.         End If
    
12.     Next j
    
13.     If Target.Row = 1 Or Target.Column <> 3 Then Exit Sub
    
14.     If Target.Cells <> "" And Cells(Target.Row, 1) = "" Then
    
15.         Cells(Target.Row, 1) = Date
    
16.     End If
    
17. End Sub

复制代码

跳转到最佳答案楼层

那么的帅

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim i As Integer, j As Integer
   
3.     i = 1
   
4.     For j = 2 To 5 Step 1
   
5.         If Target.Row = 1 Then
   
6.             Exit Sub
   
7.         ElseIf Target.Column = j Then
   
8.             If Target.Cells <> "" And Cells(Target.Row, j + 4) = "" Then
   
9.                 Cells(Target.Row, j + 4) = Sheet2.Cells(11, j)
   
10.             End If
    
11.         End If
    
12.     Next j
    
13.     If Target.Row = 1 Or Target.Column <> 3 Then Exit Sub
    
14.     If Target.Cells <> "" And Cells(Target.Row, 1) = "" Then
    
15.         Cells(Target.Row, 1) = Date
    
16.     End If
    
17. End Sub

复制代码

chenzhen0407

非常感谢，可以了！再请教下，这代码错在什么地方了？为什么AND后面加的不出结果？
Dim i As Integer, j As Integer
i = 1

  For j = 2 To 5 Step 1
  
    If Target.Row = 1 Then
    Exit Sub
    ElseIf Target.Column = j Then
    If Target.Cells <> "" And Cells(Target.Row, j + 4) = "" Then
    Cells(Target.Row, j + 4) = Sheet2.Cells(11, j) And Cells(Target.Row, j + 8) = Sheet2.Cells(13, j)     End If
     End If
  Next j

那么的帅

chenzhen0407 发表于 2013-6-22 12:58
非常感谢，可以了！再请教下，这代码错在什么地方了？为什么AND后面加的不出结果？
Dim i As Integer, j A ...

问题解决，设置最佳答案
如果有新问题，重新发帖提问，为了更好解决问题，最好提供数据附件。