Transfer characters to cell by Userform

The code below allows you to edit the contents of a cell by typing, and preserves the fonts when a character is typed.

The fonts are thrown out in the following two cases.
1. If you press several keys in quick succession (different characters).
2. If you press and hold a key.

I've tried counters and boolean expressions but these are not processed in logical order in the above two cases (for example, 2 KeyDown events are recorded followed by 2 KeyUp events ... instead of 1 Down, 1 Up, 1 Down, 1 Up).

The resolution so far is to use a Timer function, if a character is entered too quickly, then nothing happens.

I was wondering if there was another way instead of a Timer?


Call Sub

Please Login or Register  to view this content.

ClassTyping

Please Login or Register  to view this content.

Form Code

Please Login or Register  to view this content.