И снова здравствуйте, уважаемые гуру VBA!
Столкнулся со странным, скажем так, поведением combobox на пользовательской форме. При инициализации формы устанавливаю курсор на combobox, и с ним же использую метод DropDown, дабы список разворачивался сразу при вызове формы. Он таки разворачивается, но за пределами формы.
Как говорится "Звезда в шоке"
Вот код:
Private Sub UserForm_Initialize()
Dim N_CntC As Integer
Dim C_Ctrl As Control
N_CntC = 1
For Each C_Ctrl In Controls
' Перебор контролов в форме UF_PRO
If Left(C_Ctrl.Name, 3) = "CmB" Then
Set PAO_Ctrl(N_CntC).Ch_Controls = Me.Controls(C_Ctrl.Name)
N_CntC = N_CntC + 1
End If
Next
' Установка курсора в комбобокс CMB_ORG
CmB_Org.SetFocus
End Sub
Private Sub CmB_Org_Enter()
CmB_Org.DropDown
End Sub
Я даже не знаю, как сформулировать вопрос. То ли это странный глюк Excel, то ли мои "шаловливые ручки", то ли недостойное поведение представителя славного семейства CONTROL?
Прошу прощения за низкое качество изображения, пришлось ужать его до безобразия, что бы соответсвовать требованиям форума.