请求：ComboBox1 处理写入状态时，只要标走光标就不显示

wally926

求助：

双击[C4:C1000]任间一个单元格，ComboBox1 处于写于状态
当光标，移动到别的单元时ComboBox1仍处理写入状态，一定要双击才会退出，
请求：ComboBox1 处理写入状态时，只要标走光标就不显示ComboBox1

原代码：
Option Explicit
Private Sub ComboBox1_Change()
    ActiveCell.Value = ComboBox1.Value
    ComboBox1.Visible = False
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Me.ComboBox1
        If Not Application.Intersect(Target, [C4:C1000]) Is Nothing Then
            .Visible = True
            .Top = Target.Top
            .Left = Target.Left
            .Width = Target.Width + 30
            .Height = Target.Height
            .List = Array("1.正常收發", "2.盤點", "3.退料", "4.發料")
        Else
            .Visible = False
        End If
    End With
End Sub

YZC51

请参考

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Row < 4 Or Target.Row > 1000 Then Exit Sub

    With Me.ComboBox1
    If Target.Column = 3 Then ' Exit Sub
'       If Not Application.Intersect(Target, [C4:C1000]) Is Nothing Then
        
            .Visible = True
            .Top = Target.Top
            .Left = Target.Left
            .Width = Target.Width + 30
            .Height = Target.Height
            .List = Array("1.正常收發", "2.盤點", "3.退料", "4.發料")
        Else
            .Visible = False
        End If
    End With

End Sub

一指禅62

如果菜单项目不多，可考虑用弹出式菜单



放大下拉清单.zip (17.12 KB, 下载次数: 4)

2020-2-25 11:14 上传

点击文件名下载附件