명명 된 범위 나누기 코드

Question

여러 장의 통합 문서가 하나 있습니다. 두 번째 시트의 목록 상자 (셀에서 정적 데이터 가져 오기)를 채우고 단추를 클릭하면 제대로 실행됩니다.

목록 상자에 명명 된 범위를 채우면 목록 상자에 원하는 방식으로 채워지지만 코드에서 목록 상자에서 아무 것도 선택하지 않았다고 생각하기 때문에 오류가 발생합니다. 따라서 "title"대신 ""를 통과합니다.

이것은 일반적인 문제입니까? 명명 된 범위는 데이터를 목록 상자로 전달하기 때문에 문제가되지 않으며 목록 상자에 포커스가 없어지면 셀의 내용을 셀 A1에 내뱉기 때문에 데이터를 선택한다는 것을 알았습니다.

목록 상자의 내용을 Msg1로 설정 한 것이 낯선 것은 무엇입니까? 그래서 A1은 Msg1 (실제로 목록 상자에서 선택한 것)으로 채워집니다. 하지만 코드에서 Msg1을 사용하려고하면 Msg1이 ""라고 알려줍니다. 다시 말하지만, 이것은 동적 명명 된 범위를 사용할 때만 발생하며 K1 : K9 셀의 정적 데이터와는 다릅니다. 문자열

희미한 STRSQL로

개인 기능 strEndSQL1로 문자열

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 

최종 기능

Answer 1

난 당신이 목록 상자가에서인지 목록 상자를 작성, 또는있는 방법을 잘 모르겠어요 양식 도구 모음 또는 제어 도구 상자. 후자의 경우 여기에 값을 채우고 가져 오는 예제가 있습니다. Value 속성을 사용하면 BoundColumn 속성에 설정 한 내용에 따라 달라집니다

는

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 

참고.