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

Question

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

Answer 1

If Target.count = 3 Or Target.count = 6 Then本回答被提问者采纳