Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

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

Автор Uralmaster, 08.02.2011, 03:09

« назад - далее »

Uralmaster

Код:


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

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


GWolf

Цитата: Uralmaster от 08.02.2011, 03:09
Код:


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

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

Доброго дня!

Ну так она и не должна! Вы же, насколько я понял, хотите передать из формы в активную ячейку значение, при этом отформатировав последнюю под него?

Если так, то: ActiveCell = Format(ComboBox1.Value, "h:mm;0")

и код должен выглядеть примерно так (ГДЕ ПРИМЕР?????   :-\ )

Private Sub ComboBox1_Click()
     ActiveCell = Format(ComboBox1.Value, "h:mm;0")
     Unload UserForm_Time
End Sub
Путей к вершине - множество. Этот один из многих!