Fråga : Excel kontrollerar retur endast en stränga

Jag har en combo activex att boxas att anknyta till en cell som formateras för att vara en numrera.  Lista tvingas för att visa som en datera, men returen är a nr.  Den fortsätter för att visa upp som numrerar formaterat som text i den anknöt cellen.  Om jag slår, SKRIV IN i den anknöt cellen som den ändrar snabbt till a nr. och all min formler då arbetsbot.  Det enda långt jag får runt om det är nedanför.  Några förbättrar långt eller vilken förmiddag jag missing.

B124 på kontrollera täcker är den anknöt cellen.  Igen den är formaterad nr. cell.
F_startDate har en lista av daterar att jag tvingar för att visa som xx/xx/xx

thanks experts > för

1:
2:
3:
4:

" codeBody " " >Private underF_StartDate_Change för class= " för " klar "

Svar : Excel kontrollerar retur endast en stränga

Sedan en combobox går en stränga tillbaka, den förvånar inte att den anknöt cellen får röra upp. Jag föreslår att inte anknyta comboboxen till en cell, men using VBA kodifierar i stället för att uppdatera värdera.

De nedanföra showsna för snippeten både en KeyUp och LostFocus sub så dateracellen (A1 i kodifiera) uppdateras, när du är gjord maskinskrivning i comboboxen.

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

Privat Sub ComboBox1_KeyUp (ByVal KeyCode som MSForms.ReturnInteger, den ByVal förskjutningen som heltal) Dunkelt v som Variant Om KeyCode <> 13 går ut därefter suben På felmeritförteckning därefter v = CDate (ComboBox1.Value) Om inte IsError (v) spänner därefter (”A1”). Värdera = v På fel GoTo 0 Spänna (”A1”). Välj Avsluta suben Privat Sub ComboBox1_LostFocus () Dunkelt v som Variant På felmeritförteckning därefter v = CDate (ComboBox1.Value) Om inte IsError (v) spänner därefter (”A1”). Värdera = v På fel GoTo 0 Avsluta suben