Вопрос : Возвращения управлением Эксел только шнур

Я имею комбинированную рамку activex соединить к клеткой форматирована для того чтобы быть номер.  Список принудителен для показа как дата но возвращение a #.  Оно продолжается показать вверх по мере того как номер форматировал как текст в соединенной клетке.  Если я ударяю, то ВОЙДИТЕ в соединенную клетку, котор он быстро изменяет к a # и полностью мои формулы тогда работа отлично.  Единственная дорога, котор я получаю вокруг его ниже.  Любой более лучшей дорогой или будут мной missing.

B124 на контрольном оттиске будет соединенная клетка.  Опять она форматное # cell.
F_startDate имеет список дат я принуждаю для того чтобы показать как xx/xx/xx

thanks experts class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

1: 2: 3: 4:

>Private Sub F_StartDate_Change " class= " id= " codeSnippet840029

class=

Ответ : Возвращения управлением Эксел только шнур

В виду того что combobox возвращает шнур, оно не удивительно что соединенная клетка получает messed вверх. Я предлагаю не соединить combobox к клетке, но вместо using Кодий VBA для того чтобы уточнить значение.

Фрагмент ниже показывает и подводную лодку KeyUp и LostFocus поэтому клетка даты (A1 в Кодем) обновлена когда вы сделанный печатать на машинке в combobox.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:

Приватная подводная лодка ComboBox1_KeyUp (ByVal KeyCode как MSForms.ReturnInteger, перенос ByVal как интежер) Тусклый v как вариант Если KeyCode <> 13 после этого выходит подводная лодка На резюме ошибки затем v = CDate (ComboBox1.Value) Если не IsError (v) после этого колебается, то («A1»). Значение = v На ошибке переход 0 Ряд («A1»). Отборно Подводная лодка конца Приватная подводная лодка ComboBox1_LostFocus () Тусклый v как вариант На резюме ошибки затем v = CDate (ComboBox1.Value) Если не IsError (v) после этого колебается, то («A1»). Значение = v На ошибке переход 0 Подводная лодка конца