Me.ListBox1 选择整行报错问题

liu5806293

With Me.ListBox1
                If Target.Column <= 3 And Target.Row > 1 Then
                        .Visible = True
                        .Top = Target.Offset(1, 5).Top
                        .Left = Target.Left
                        .Width = 200 '此处修改宽度
                        .Height = 300 '此处修改高度
                Else
                        .Visible = False
                End If
    End With

这段代码，我如果整行选择会报错，怎么修改好些！~

扑腾

单就字面看，代码好像没啥问题。

一把小刀闯天下

With Me.ListBox1
  If Target.Column <= 3 And Target.Row > 1 And _
    CDec(Target.Columns.Count) * Target.Rows.Count = 1 Then
    .Visible = True
    .Top = Target.Offset(1, 5).Top
    .Left = Target.Left
    .Width = 200 '此处修改宽度
    .Height = 300 '此处修改高度
  Else
    .Visible = False
  End If
End With

sunhoh3554

前面加上这一句：if Target.cells.count>1 then exit sub

liu5806293

sunhoh3554 发表于 2018-6-9 11:49
前面加上这一句：if Target.cells.count>1 then exit sub

谢谢，问题解决了