場合行

Question

で名前付き範囲Iは、ユーザーフォームで使用されるコンボボックス、値集合ソースとしてのその使用名前付き範囲を有しています。

すべての私の名前付き範囲をVBAでSelection.CreateNamesのExcelでCreate names from selectionsから製造されました。ここで

コードです：ここでは

Private Sub UserForm_Initialize() 

Dim row As Integer 'In the example, row = 1, but in real life I'll want to create many named ranges from items listed as rows. 
Dim lastCol As Integer 'Needed because my named ranges will vary in length 
Dim ws As Worksheet 'Where my data is 

Set ws = Worksheets("tests") 

row = 1 
lastCol = ws.Cells(row, Columns.Count).End(xlToLeft).Column 

ws.Range(Cells(row, 1), Cells(row, lastCol)).Select 

'Create the named range 
Selection.CreateNames Left:=True 

'Assign the named range (via its name, found in column 1) to the ComboBox RowSource 
ComboBoxSampleForSO.RowSource = ws.Cells(row, 1).Value 

End Sub 

は私のシート内の項目「テスト」

Name managerているすべての私の名前は（すなわち、これらのすべてのリストが正しいの要素）を正しいと言われます：

問題：最初の要素だけがdisplayeありますdをComboBoxに追加します。

この問題はときに発生しません：

• 名前付き範囲は列ではなく行のデータから作成された
• 私が直接（Data validationを使用して）私のワークシートのドロップダウンリストを作成します。

私はこの問題を解決することはできますか？

Answer 1

あなたがExcelの機能に遭遇しました表示されます。

これを行うための唯一の方法は、VBAである - コンボボックスは、ユーザーフォーム上でなければ動作しないことであっても、リストのAddItemメソッド

で値集合ソースを更新 - のいずれかのワークシートをアクティブ機能やボタンで。

' Substitute your range name here 
Const HORIZ_RANGE As String = "Row1Range" 

Dim varListVals As Variant 
Dim intItem As Integer 

' Returns two dimension array from your range of cells 
varListVals = Application.Range(HORIZ_RANGE).Cells 

ComboBox1.Clear 

For intItem = LBound(varListVals, 2) To UBound(varListVals, 2) 
    ComboBox1.AddItem varListVals(1, intItem) 
Next intItem