kan je een numeriek toetsenbord maken in excel?

[vandenhoeckg]

Hallo

Mijn vraag is of je een numeriek toetsenbord kan maken in excel. Of, dat dit reeds bestaat binnen excel.
Ik zou dit graag gebruiken voor in m'n kassa ticket werkblad.
Zo kan ik makkelijk werken met een touchscreen.

Dank je

gregory

 

[edmoor]

Als je Windows 10 draait zit dat er gewoon in:
https://www.makeuseof.com/tag/get-numeric-keypad-windows/

 

[jkpieterse]

Misschien dit installeren: https://sourceforge.net/projects/numpad-emulator/

 

[vandenhoeckg]

Ok, bedankt.
Ik ben gegaan voor de numpad-emulator. Werkt prima.
Iemand een idee hoe ik deze automatisch kan laten openen bij opstarten van mijn werkblad?

 

[Gijsbert1]

Met een Macro:

Private Sub Workbook_Open()
    Dim x As Variant
    Dim Path As String
    Path = "C:\Program Files\numpad-emuladinges\numpad-emuladinges.exe" [COLOR="#FF0000"]'zelf aanpassen[/COLOR]
    x = Shell(Path, vbNormalFocus)
End Sub

 

[vandenhoeckg]

Waar moet ik deze macro plaatsen?
In mijn module of in ThisWorkbook

Ik heb het nu in mijn module van ticket geplaatst maar het opent niet.

Kan ik het ook in een bepaalde samengevoegde cel laten openen?

 

[edmoor]

In de ThisWorkbook, zoals al blijkt uit de naam van de event routine

 

[vandenhoeckg]

Hallo, ok staat op de juiste plaats.

Nu, het numpad opent zich maar blijft zo onderaan staan in mijn werkbalk. Rechts onder bij mijn wifi symbool krijg ik de groene N. Maar open op mijn scherm komt het niet.
Waar zit ik verkeerd?

 

[vandenhoeckg]

Kan ik dit ook laten openen in een bepaalde cel van het werkblad?

 

[edmoor]

Nee, het is een los programma, geen Excel formulier.

 

[vandenhoeckg]

Jammer,
Maar hoe komt het dat het niet opengaat, dat het enkel beneden opent in de takenbalk en niet op het scherm

 

[edmoor]

Het programma wordt kennelijk alleen geladen.
Er zal best een toetscombinatie of zoiets zijn om hem te openen.
Ik ken het programma niet, dus klik er eens met rechts op.

 

[vandenhoeckg]

om te openen moet je op F9 drukken.
Kan ik dit in de code verwerken?

 

[edmoor]

Zoiets:

Private Sub Workbook_Open()
    Dim x As Variant
    Dim Path As String
    Path = "C:\Program Files\numpad-emuladinges\numpad-emuladinges.exe" [COLOR="#008000"]'zelf aanpassen[/COLOR]
    x = Shell(Path, vbNormalFocus)
    Application.SendKeys ("{F9}"), True
End Sub

 

[alphamax]

Er is ook nog het windows on-screen-keyboard, zie https://support.microsoft.com/en-us/help/10762/windows-use-on-screen-keyboard

 

[vandenhoeckg]

Ja hoor dat weet ik. Maar dit is een volledig keypad en heb enkel het numerieke gedeelte nodig

 

[vandenhoeckg]

Het werk nu en komt open.

Juist jammer dat ik het niet kan plakken in een bepaalde cel. Nu moet ik hem wel telkens op de juiste plaats zetten. Maar daar kan ik nog wel mee leven

 

[edmoor]

Wat bedoel je precies met "plakken in een bepaalde cel"?
En heb je alleen de cijfers nodig?

 

[vandenhoeckg]

Hallo,
Ja heb alleen de cijfers nodig van 0 tot 9 en dan ook een enter toets, backspace (voor als ik verkeerd ben) en een komma.
Is voor een waarde in te geven in een kassaticket.

Zie document in bijlage

 

[edmoor]

En dan alleen in het blad Kasticket?