こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

VBA実行後、キー入力ができない

こんにちは。エクセル2007を使用しています。
下記の行削除のコードを実行した直後、
Enterキー以外はどのキーを押しても反応せず、
一度どこかのセルをクリックすると、ようやく全ての
キーが反応します。どこかコードに問題はあるでしょうか。
よろしくお願いいたします。

Private Sub cmd行削除_Click()
Application.EnableEvents = False
Application.ScreenUpdating = False
If Selection.Row = 1 Then
Range("A1").Select
MsgBox "削除したい行にカーソルを合わせてください。", vbOKOnly, _
"指定したカーソル行が削除されます。"
Exit Sub
End If
If Selection.Row > 1 Then
Selection.EntireRow.Delete Shift:=xlUp
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

投稿日時 - 2012-05-02 09:25:49

QNo.7452751

困ってます

質問者が選んだベストアンサー

ActiveCell.Activate を付け加えてください

Private Sub cmd行削除_Click()
  ActiveCell.Activate
  Application.EnableEvents = False
  Application.ScreenUpdating = False

投稿日時 - 2012-05-02 09:38:11

お礼

7452751さん、こんにちは。
早速の回答いただき、無事解決しました!
どうもありがとうございました。

投稿日時 - 2012-05-02 10:30:45

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問