Что сделать с ComboBox

[Uralmaster]

Как изменить код формы выпадающего списка

Private Sub CommandButton1_Click()
ComboBox1.Value = Format(ComboBox1.Value, "h:mm;0")
ActiveCell = ComboBox1.Value
Unload UserForm_Time
End Sub

чтобы использовались только данные списка (пустое поле,ручной ввод - блокировались) и при закрытии формы (нажав на крестик либо отключить крестик)форма не закрывалась, закрывалась только по нажатию кнопки

[Uralmaster]

# Для того, чтобы убрать кнопку Закрыть, представляющую собой небольшой крестик, расположенный в правом углу заголовка формы, достаточно скопировать весь нижеприведённый код в модуль нужной формы.

Private Declare Function FindWindow _
        Lib "user32.dll" Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong _
        Lib "user32.dll" Alias "GetWindowLongA" ( _
        ByVal hWnd As Long, _
        ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong _
        Lib "user32.dll" Alias "SetWindowLongA" ( _
        ByVal hWnd As Long, _
        ByVal nIndex As Long, _
        ByVal dwNewLong As Long) As Long

Private Sub UserForm_Initialize()
    Dim ihWnd As Long, iStyle As Long

    ihWnd = FindWindow(vbNullString, Me.Caption)
    iStyle = GetWindowLong(ihWnd, -16&)
    SetWindowLong ihWnd, -16&, iStyle And Not &H80000
End Sub

Источник
http://www.msoffice.nm.ru/faq/macros/winapi.htm#faq345

[Uralmaster]

Осталось только чтобы использовались только данные списка (пустое поле,ручной ввод - блокировались)

[alex77755]

А если вообще отказаться от кнопки?
Записать этот код в
Private Sub ComboBox1_Click()
ручной ввод автоматически блокируется.
А пустого не должно там быть

[Uralmaster]

Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Then
ComboBox1.Value = ""
Else
Me.ComboBox1.RemoveItem (Me.ComboBox1.ListIndex)
Me.ComboBox1.Value = ""
ComboBox1.Value = Format(ComboBox1.Value, "h:mm;0")
ActiveCell = ComboBox1.Value
Unload UserForm_Time
End If
End Sub

вот нашел но чтото затыкается на
Me.ComboBox1.RemoveItem (Me.ComboBox1.ListIndex)

[Uralmaster]

Выставляю Style в значение "2" - в свойствах поля ввода формы - блокировка пустого поля и ручной ввод данных блокируется - однако другая бяка вылезла:

Когда в списке текстовые значения - данные в ячейку форма нормально вставляет;
Когда в списке время вставляешь в ячейку - вылетает ошибка
"Run - time error'380' Could not set the Value property.Invalid property value"

При отключении Style в "0" - все нормально ошибок нет но и защиты нет ...

[Uralmaster]

Сообщение от alex77755

А если вообще отказаться от кнопки?
Записать этот код в
Private Sub ComboBox1_Click()
ручной ввод автоматически блокируется.
А пустого не должно там быть

Да изящнее и быстрее получается -СПАСИБО!

[Uralmaster]

Заметил что команда
ComboBox1.Value = Format(ComboBox1.Value, "h:mm;0")
не форматирует ячейку
те если до срабатывания формы отформатировать ячейку в текст или еще как
то после срабатывания формы формат остается прежним
Как правильно написать ComboBox1.Value = Format

[kuklp]

Сообщение от Uralmaster

Заметил что команда
ComboBox1.Value = Format(ComboBox1.Value, "h:mm;0")
не форматирует ячейку
те если до срабатывания формы отформатировать ячейку в текст или еще как
то после срабатывания формы формат остается прежним
Как правильно написать ComboBox1.Value = Format

Ну и правильно. Она форматирует текст в ComboBox1.

Private Sub ComboBox1_Click()
'Private Sub CommandButton1_Click()
ComboBox1.Value = Format(ComboBox1.Value, "h:mm")
ActiveCell = ComboBox1.Value
ActiveCell.NumberFormat = "h:mm;0"
Unload UserForm_Time
' UserForm_Time.Hide ' Это лишнее
Unload Form_SelectDate ' А это?
End Sub

[Uralmaster]

Заработало - чтоб я делал без Вас ...
а ' UserForm_Time.Hide ' Это лишнее нужна она завершает работу после Календаря - без нее завис