Replacement for INKEY$

[JackHouck]

I am collecting EEG data from a patient using a VBA macro reading the data from
a A/D device. Normally it takes data for an hour. However, if the duration is
cut short, I want to have the operator hit ESC or the Space Bar and have the
program (macro) detect that a key stroke was hit so I can then save the file,
as is normally done at the end of the session. In the old days (DOS) I used
K$=INKEY$ and then checked K$ for the charcter number of the key. However, that
statement does not work anymore.
Any idea how to do this would be much appreciated.
(e-mail address removed)

 

[Mark Bigelow]

Try this: Put the code at the bottom in the ThisWorkbook object of your
VBA workbook. Then, in the macro that you've programmed, put in an if
statement that says:

If blnStop <> True Then
<do whatever it was doing>
Else
Exit Sub
End If

Please let me know if you have problems with this.

Mark

Dim blnStop As Boolean
Private Sub Workbook_Open()
blnStop = False
Application.OnKey "{ESC}", "StopMacro"
End Sub
Sub StopMacro()
blnStop = False
End Sub

 

[Tom Ogilvy]

Look in Excel VBA help for EnableCancelKey

Regards,
Tom Ogilvy

 

[DWDubro]

Here is one way to set up a substitute for INKEY$

You add a userform to your sheet. When the form is SHOWing there are calls like the Trials below which detect the event of a keypress.

You display the form with the following sub

Sub Macro1
Userform1.Show
End sub


'TRIAL 1
Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'When a key is pressed while the UserForm is showing, the key is passed to the variable KeyAscii
'You can display the key with the following step
MsgBox Chr(KeyAscii)
‘You can also put in some code here to perform or call another routine
'To avoid an infinite loop, you have to hide the form
UserForm1.Hide
End Sub

‘TRIAL 2
‘When you get better at using this routine, you can leave the form open and have
‘it close when a certain key is pressed, like “Q”, for Quit

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'When a key is pressed while the UserForm is showing, the key is passed to the variable KeyAscii
'You can display the key with the following step
MsgBox Chr(KeyAscii)
'To avoid an infinite loop, you have to hide the form
UserForm1.Hide
End Sub

Finally, as a failsafe, to avoid an infinite loop, you can add a command button to your form which when clicked, will hide your form.