Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

68488 / 76738

←次へ　｜　前へ→


	【12787】Re:keyのイベントプロシージャーは？

三四郎

- 04/4/14(水) 21:00 -


	引用なし

	パスワード

▼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

0 hits

▼

【12723】keyのイベントプロシージャーは？ 三四郎 04/4/13(火) 13:37