帮看下，下列VBA代码：我要加一个条件 If Target.count = 6 Then 该怎样加进去呢?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
If Target.count = 3 Then
If Target.Column = 5 And Target.Row = 3 Then
With Me.TextBox1
.Visible = True
.Top = Target.Top
.Left = Target.Left
.Width = Target.Width
.Height = Target.Height
.Activate
End With
With Me.ListBox1
.Visible = True
.Top = Target.Top
.Left = Target.Left + Target.Width
.Width = Target.Width * 1.5
.Height = Target.Height * 6
.Clear
For i = 2 To Sheet3.Range("A65536").End(xlUp).Row
.AddItem Sheet3.Cells(i, 1).Value
Next
End With

ElseIf Target.Column = 10 And Target.Row = 3 Then
With Me.TextBox1
.Visible = True
.Top = Target.Top
.Left = Target.Left
.Width = Target.Width
.Height = Target.Height
.Activate
End With
With Me.ListBox1
.Visible = True
.Top = Target.Top
.Left = Target.Left + Target.Width
.Width = Target.Width * 1.6
.Height = Target.Height * 6
.Clear
For i = 2 To Sheet3.Range("L65536").End(xlUp).Row
.AddItem Sheet3.Cells(i, 12).Value
Next
End With
Else
Me.ListBox1.Clear
Me.TextBox1 = ""
Me.ListBox1.Visible = False
Me.TextBox1.Visible = False
End If
End If
End Sub

If Target.count = 3 Or Target.count = 6 Then

set xl = getobject(, "excel.application") 在vb中 建立一个 excel对象 然后用 xl.target.count>1 表示，就是涉及excel里面的特有关键字 都用xl. 前缀