|
▼IROC さん:
>いまいち使用目的が分からないので、妙なコードですが・・
>
>
>Sub test()
> Application.OnKey "{k}", "sample1"
>End Sub
>
>Sub sample1()
>Dim x As String
> If ActiveCell.Address(False, False) = "A1" Then
> x = "k"
> MsgBox x
> End If
>End Sub
具体的には以下のイベントプロシジャーのDoループの中で、例えばキー[k]を押す
とアクテブにしたセル(例えばC5)に[k]が表示されるのです。
MS-DS上のBasic(VBは調べてありません)ではinkey$ステートメントで解決しますがExcelVBAにはinkey$がありません、inkey$に変わる方法が無いものかと苦労しています、お手数をおかけしますが何か良い方法がありましたら、ご教授ください。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim actRw As Integer, actCl As Integer
actRw = ActiveCell.Row
actCl = ActiveCell.Column
Do
Cells(actRw, actCl) = inkey$
Loop While Cells(actRw, actCl) <> ""
End Sub
|
|