Question

尝试为我正在处理的电子表格制作代码，我没有先前的经验并在网上找到了一个示例。代码的第一部分工作正常，但当我尝试引入第二部分“if not”时，我的代码无法运行。任何帮助将不胜感激。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range"Adv1Monday"), Target) Is Nothing Then
        With Range("Adv1Monday")
            .Copy Destination:=Sheets("Adventure 1").Range("C2")
            If Not Intersect(Range("Adv2Monday"), Target) Is Nothing Then
                With Range("Adv2Monday")
                   .Copy Destination:=Sheets("Adventure 2").Range("C2")
                End With
            End If
        End With
    End If
End Sub

Answer 1

如果....结束如果和使用...结束。他们没有正确关闭：

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range"Adv1Monday"), Target) Is Nothing Then
   With Range("Adv1Monday")
    .Copy Destination:=Sheets("Adventure 1").Range("C2")
   End With
  End If
  If Not Intersect(Range("Adv2Monday"), Target) Is Nothing Then
   With Range("Adv2Monday")
     .Copy Destination:=Sheets("Adventure 2").Range("C2")
   End With
  End If
End Sub

尝试使用VBA为excel创建代码

1 个答案: