Excel VBA：双击触发用户窗体时避免ListBox选项误选的方案

给你几个实用的落地解决办法：

方法1：强制窗体加载时ListBox失焦 #

双击弹出窗体时，系统会自动让鼠标位置对应的控件获取焦点并选中选项。我们可以在窗体激活时，把焦点转移到窗体本身或者隐藏控件上，避开ListBox。

Private Sub UserForm_Activate()
    ' 把焦点移到窗体本身，阻止ListBox自动选中
    Me.SetFocus
    
    ' 也可以提前在窗体上放一个隐藏的命令按钮（比如cmdDummy），用下面的代码
    ' cmdDummy.SetFocus
End Sub

方法2：初始化时清空ListBox选中状态 #

就算ListBox不小心获取了焦点，强制让它没有选中项，必须用户主动选择才会生效，双重保险。

Private Sub UserForm_Initialize()
    ' 先加载你的ListBox数据，比如从工作表导入
    ' ListBox1.List = Sheet1.Range("A1:A100").Value
    
    ' 强制取消所有选中项
    ListBox1.ListIndex = -1
End Sub

方法3：偏移窗体弹出位置 #

不让窗体刚好在鼠标双击的位置弹出，往下或往右挪一点，这样鼠标就不会落在ListBox的选项区域里。

在工作表的双击事件代码里调整位置：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 假设只针对第2列（B列）触发窗体
    If Target.Column = 2 Then
        Cancel = True ' 取消默认的双击进入单元格编辑
        
        With UserForm1
            .StartUpPosition = 0 ' 关闭自动定位，手动设置位置
            .Left = Application.MousePosition.X ' 鼠标X坐标不变
            .Top = Application.MousePosition.Y + 30 ' 往下偏移30像素
            .Show
        End With
    End If
End Sub

方法4：加个临时遮罩层 #

在窗体上放一个和ListBox一样大的Label控件当遮罩，窗体刚弹出时遮罩盖住ListBox，用户点击遮罩后再隐藏，这样双击的第二次点击只会触发遮罩，不会误选ListBox选项。

步骤：

1. 在用户窗体上添加Label控件，命名为lblMask，调整大小和ListBox完全重合，ZOrder设为1（确保在ListBox上方），可以把背景色设为浅灰色或者透明。
2. 添加以下代码：

Private Sub UserForm_Initialize()
    ' 加载ListBox数据
    ' ListBox1.List = Sheet2.Range("C1:C200").Value
    
    ' 弹出时显示遮罩
    lblMask.Visible = True
End Sub

Private Sub lblMask_Click()
    ' 点击遮罩后隐藏，允许操作ListBox
    lblMask.Visible = False
    Me.SetFocus
End Sub

Private Sub UserForm_Click()
    ' 点击窗体其他区域也隐藏遮罩
    lblMask.Visible = False
End Sub

内容的提问来源于stack exchange，提问作者bmfy131