请帮忙修改下,Excel VBA代码

Question

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect([a1:a3], Target) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Select Case Target.Value
Case Is = "二开"
Call 二开门窗
Case Is = "四开"
Call 四开内容
End Select

End Sub

Answer 1

'通常没有问题，但是当同时修改多个单元格时
'Target区域不能取值，修改为Target.Cells(1, 1)，取第一个单元格的值。
Private Sub Worksheet_Change(ByVal Target As Range)
    If Application.Intersect([a1:a3], Target) Is Nothing Then Exit Sub
    If Target.Cells(1, 1) = "" Then Exit Sub
    Select Case Target.Cells(1, 1).Value
        Case "二开"
            Call äºŒå¼€é—¨çª—
        Case "四开"
            Call å››å¼€å†…容
    End Select
End Sub追问

请问如何让宏跟在后面单元格插入。谢谢

我想用数据有效性做序列

Answer 2

看着没问题