excel - 用户表单列表框点击代码不会触发

Question

我使用工具菜单在 Excel 2016 中创建了一个带有两个列表框的用户表单。我双击它们以创建 subs 并插入代码以检查何时选择一个。

这是代码:

Private sub SaleType_Click () 
    If SaleType.Value ="Core" then
        'make sale label visible
        QTDV.visible =true
        ' show core option btn
        Core.Visible = true
    End if
End sub

当我从工具箱创建一个 ListBox 时，这是可行的，但是每隔一次运行表单时，saletype ListBox 的值就会为 null，这是一个问题，因为我有一个检查以确保 ListBox 不为空。代码如下:

If saletype = "" then  
    Dim msg as string Msg = " please select sale type"  
    Msgbox msg, and vbcritical
End if

如果 ListBox 显示值 null如果我尝试 saletype = null，它不会将其视为空并跳过检查它仍然跳过它。

我搜索了一下，似乎在工具箱上创建 ListBoxes 很奇怪，因为 Excel 不知道它是什么类型的控件。我选择在 VBA 中创建 ListBoxes。

Private sub userform_initialize()
    Dim saletype as msforms.Listbox
    Set saletype = me.Controls.Add("Forms.ListBox.1", "SaleType") 

但是当运行表单并选择 ListBox 上的任何选项时， SaleType_Click sub 不会触发。

Answer 1

如果要实现事件处理(如 SaleType_Click)，则需要使用 WithEvents 关键字声明对象:

Dim WithEvents saletype as msforms.Listbox

如果未设置变量/属性，则其值不存在，因此您需要验证 NULL 而不是空字符串 ("") - IsNull 函数可以做到这一点(= NULL 不起作用，因为 = 仅适用带值):

If IsNull (saletype.Value) then