MS Excel

Iba z tabletu, inšpirujte sa z tohoto kódu zo stackoverflow
Public Sub UserForm_Initialize()
TextBox6.Text = Format(Number, "0.0000")
End Sub

Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox6.Value) Then
TextBox6.Text = Format(TextBox6, "0.0000")
End If
End Sub

Private Sub TextBox6_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'// Disregard keys other than 0-9/period/minus sign.
If Shift Then KeyCode = 0
Select Case KeyCode
Case 8, 13, 46, 48 To 57, 96 To 105, 109, 110, 189, 190
Case Else
KeyCode = 0
End Select
End Sub
Je z formulára, ale to snáď jasné.citovat

Obecně povolovat znaky je velmi nepraktické. Lepší je testovat, zda nový obsah je jakékoliv "číslo" a v tom případě změnu povolit.citovat

Pokládám za svou povinnost omluvit se za chyby, kterých jsem se dopustil při hodnocení kódu, který zaslal elninoslov. Dosud nikdy jsem nepoužil událost KeyDown pro vyhodnocení hodnot stisknutých kláves. Tiše jsem ale předpokládal, že nemohu dostat nic jiného, než ASCII hodnotu znaku, zobrazeného stiskem. Z toho pak plynuly moje výhrady k výčtu jejich hodnot.
Druhá verze kódu od elninoslov mne ale varovala, že je někde něco jinak. Napsal jsem si proto jednoduchý test na vznikající hodnoty KeyCode.
Výsledek mne dost vyděsil, protože rozvrátil můj předpoklad o obsahu předávaných KeyCode. V příloze je můj test, tady moje omluva. Z výsledku testu pro mne plynou dva závěry:
- každý soud bez ověření je riskantní soud,
- událost KeyDown jsem potkal, otestoval a nikdy ji sám nepoužiji, protože mi vnáší zmatek do míst, která mám jinak docela dobře zmapovaná.citovat

@elninoslov
Nemusel. Stačí použít nápovědu.
https://msdn.microsoft.com/en-us/library/aa243025%28v=vs.60%29.aspx

edit:
asi byste opravdu neměl o půlnoci ten excel otevírat ;)))

Namátkou:
vknullstring
"#.##0"citovat

Je poněkud neobvyklé hledat podporu pro Excel v nápovědě pro Visual Studio 6. Tam bych asi pro informaci k Excelu nezabrousil. Ke svému překvapení jsem ale v zabudované nápovědě k Excelu našel třídu KeyCodeConstants s úplným výčtem hodnot stisknutých kláves, a to i s jejich logickými jmény.
Nenašel jsem tam ale žádné logické vysvětlení, proč mají klávesy numerické klávesnice jiné hodnoty KeyCode než jejich "dvojčata" z velké klávesnice. Rovněž tak nic pro fakt, že malá i velká písmena produkují stejný KeyCode. Připadá mi to, jako kdybych vlezl do jiné zoologické zahrady. Takže z ní zase tiše odcházím, když jsem se bez ní obešel dosavadních patnáct let života s Excelem.
Dobré ale je, když ted vím, co na mne číhá za rohem. Je dobré vědět, že vbKey3 je úplně jiný než vbKeyNumpad3 a že např. vbKeyNumpad2 poskytuje ASCII hodnotu pro znak "b", přestože produkuje znak "2". Takhle nějak vypadají arménské hádanky z rádia Jerevan.
Můj závěr se tentokrát plně shoduje s hodnocením od elCHa: "Obecně povolovat znaky je velmi nepraktické. Lepší je testovat, zda nový obsah je jakékoliv "číslo" a v tom případě změnu povolit."citovat