为什么使用命名范围不返回任何值？

Question

我有一本包含几张纸的工作簿。我填充第二张表上的列表框（从单元格中提取静态数据），单击按钮，它运行良好。

当我使用命名范围填充列表框时，列表框会按照我想要的方式填充，但我收到错误，因为代码认为我没有选择列表框中的任何内容，即使我选择了。因此它通过 "" 而不是 "title"。

这是一个常见问题吗？命名范围不是问题，因为它将数据传递到列表框，并且我知道它正在选择数据，因为一旦列表框失去焦点，它就会将单元格的内容吐出到单元格 A1 。

更奇怪的是，我将列表框的内容设置为 Msg1。因此，A1 填充了 Msg1（我在列表框中实际选择的内容）。但是当我尝试在代码中使用 Msg1 时，它告诉我 Msg1 是 ""。同样，这种情况仅在我使用动态命名范围时发生，而不是在单元格 K1:K9 中使用静态数据时发生。

Private Function strEndSQL1 As String

Dim strSQL As String

    strSQL = ""
            'Create SQL statement
        strSQL = "FROM (SELECT * FROM dbo.Filter WHERE ID = " & TextBox1.Text & " And Source IN (" & Msg1 & ")) a FULL OUTER JOIN "
        strSQL = strSQL & "(SELECT * FROM dbo.Filters WHERE ID = " & TextBox2.Text & " And Source IN (" & Msg1 & ")) b "
        strSQL = strSQL & "ON a.Group = b.Group    
    strEndSQL = strSQL

End Function

Answer 1

我不确定您如何填充列表框，或者列表框是来自表单工具栏还是控件工具箱。如果是后者，下面是填充和检索值的示例。

Sub FillListBox()

    Sheet1.ListBox1.List = Sheet1.Range("MyNamedRange").Value

End Sub

Sub MakeSQL()

    Dim sSql As String
    Dim Msg1 As String

    With Sheet1.ListBox1
        If .ListIndex > -1 Then
            Msg1 = .Value
        End If
    End With

    sSql = "SELECT * FROM MyTable WHERE ID=" & Msg1

    Debug.Print sSql

End Sub

请注意，Value 属性将取决于您在 BoundColumn 属性中设置的内容。