Проблемы с выбором combobox

Question

Я новичок в vba excel, и мне удалось установить условный combobox, который зависит от выбранного списка вниз, проблема, с которой я столкнулся, - это когда я нажимаю на любой элемент в combobox, это не появляется в поле после щелчка.

Может ли кто-нибудь помочь мне в решении этой проблемы.

спасибо

Код я использовал это:

Private Sub ComboBox1_DropButtonClick() 
ComboBox1.Clear 


If Worksheets("Sheet1").Cells(2, 1).Value = "PHE" Then 
With ComboBox1 

For row = 1 To 1300 
.AddItem Sheets("Sheet2").Cells(row, 6) 
Next row 
End With 

End If 

If Worksheets("Sheet1").Cells(2, 1).Value = "HSS" Then 
With ComboBox1 
For row = 2 To 56 
.AddItem Sheets("Sheet2").Cells(row, 8) 
Next row 
End With 

End If 

If Worksheets("Sheet1").Cells(2, 1).Value = "Decanter" Then 
With ComboBox1 
For row = 3 To 249 
.AddItem Sheets("Sheet2").Cells(row, 9) 
Next row 
End With 

End If 

End Sub 

Answer 1

Если вы можете как-то интерпретировать значение, которое было выбрано, возможно, вы могли бы просто сбросить значение ComboBox. Это применимо только в том случае, если значение выбрано правильно, просто не видно в поле со списком.

ComboBox1.Value = something 

Кроме того, это может быть намного чище (здесь написано код, поэтому опечатки могут существовать).

Private Sub ComboBox1_DropButtonClick() 

ComboBox1.Clear 

Select Case Worksheets("Sheet1").Cells(2, 1).Value 
Case "PHE" 
    minrow = 1 
    maxrow = 1300 
    col = 6 
Case "HSS" 
    minrow = 2 
    maxrow = 56 
    col = 8 
Case "Decanter" 
    minrow = 3 
    maxrow = 249 
    col = 9 
Case Else 
    'error handling 
End Select 

With ComboBox1 
    For row = minrow To maxrow 
    .AddItem Sheets("Sheet2").Cells(row, col) 
    Next row 
End With 

End Sub