Pergunta : Retornos do controle de Excel somente uma corda

Eu tenho uma caixa combinado de activex lig a uma pilha que seja formatada para ser um número.  A lista é forçada para indicar como uma data mas o retorno é a #.  Continua a aparecer enquanto o número formatou como o texto na pilha lig.  Se eu bato ENTRAR na pilha que lig muda rapidamente á # e todos meus fórmulas a seguir trabalho muito bem.  A única maneira que eu começ em torno dela está abaixo.  Toda a melhor maneira ou o que são mim missing.

B124 na folha de controle é a pilha lig.  Outra vez é formatado # cell.
F_startDate tem uma lista de datas que eu forço para mostrar como xx/xx/xx

thanks experts
class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do
1:
2:
3:
4:
>Private notpretty F_StartDate_Change secundário " do class= " do id= " codeSnippet840029 do
           
class= do

Resposta : Retornos do controle de Excel somente uma corda

Desde que um combobox retorna uma corda, não é surprising que a pilha lig está começ sujado acima. Eu sugiro não lig o combobox a uma pilha, mas using o código de VBA para atualizar preferivelmente o valor.

A pequena notícia abaixo mostra um submarino de KeyUp e de LostFocus assim que a pilha da data (A1 no código) é atualizado quando você é dactilografia feita no combobox.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
Submarino confidencial ComboBox1_KeyUp (ByVal KeyCode como MSForms.ReturnInteger, deslocamento de ByVal como o inteiro)
V não ofuscante como a variação
Se KeyCode <> 13 retira então o submarino
No resumo do erro em seguida
v = CDate (ComboBox1.Value)
Se não IsError (v) varia então (“A1”). Valor = v
No erro 0 empreendedores
Escala (“A1”). Seleto
Submarino da extremidade

Submarino confidencial ComboBox1_LostFocus ()
V não ofuscante como a variação
No resumo do erro em seguida
v = CDate (ComboBox1.Value)
Se não IsError (v) varia então (“A1”). Valor = v
No erro 0 empreendedores
Submarino da extremidade
Outras soluções  
 
programming4us programming4us