Temps Excel VBA Format en décimal avec Combobox

Question

solution très basique, et très ennuyeux, je l'ai cherché pendant de nombreuses heures sans aide ...

Problème: Je suis peuplant Combobox de plage nommée, la gamme est la liste des fois (formaté en temps :-), Combo semble bien, menu déroulant montre mes temps comme ils le devraient, mais lorsque le temps sélectionné est formaté comme un nombre décimal ...

Voici le code (réduit au strict minimum):

Private Sub UserForm_Initialize() 
    ComboBoxTime.RowSource = "Help!Time" 
End Sub 

« Aide » est le nom de la feuille de calcul contenant plage nommée « Time » J'ai essayé de formater différentes manières sans chance ...

ComboBoxTime = Format(ComboBoxTime, "hhmm") 

Voici le lien à l'échantillon. http://www.equstom.fi/dateproblem.html

(Et oui je besoin de remplir de plage nommée, au lieu de chaque boucle, et je mis .value avec le code, tout le document est en fait assez complexe, mais je compris que la partie de problème ...)

Answer 1

Le problème est nommé plage que j'utilise, quand les valeurs sont formatées en temps que cela ne fonctionnera pas. Je l'ai eu pour travailler si les valeurs étaient Texte! Le problème a quelque chose à voir avec excel étant en finnois et VBA en anglais ... J'ai ajouté la deuxième colonne à côté de la gamme qui copie les valeurs de texte à cette deuxième plage nommée formatée en temps. Rapide et sale! (Merci pour votre contribution Belisarius)

Answer 2

Essayez quelque chose comme ceci:

Private Sub ComboBox1_Change() 
With ComboBox1 
    .Value = Format(.Value, "hh:mm:ss AMPM") 

End With 
End Sub 

HTH!

Édition Voici ce que je vois en quittant votre combo. L'affichage de l'heure fonctionne bien.

Edit 2

trouvé l'erreur "propriété non valide":

Vous devez définir "match requiered" à FAUX dans la zone de liste déroulante. Si vous considérez que cela devrait être "VRAI" vous devrez valider manuellement ...