Excel VBA質問箱 IV

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

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


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

39143 / 76738

←次へ　｜　前へ→


	【42714】Re:VBA動作後Enter・矢印きー動作不能

hori - 06/9/20(水) 1:26 -


	引用なし

	パスワード

▼ichinose さん：
返事遅くなりすみません。
動作不能になるのは、Commandbutton1とCommandbutton3押して
Commandbutton2で終了させた直後です。

ちなみにユーザーフォーム１に下記コードも書き込んでありますが
これには全然さわらずに
現象は発生します。下記参照
Private Sub CommandButton4_Click()
　　Dim oldPrinter As String

　　' 設定する前に今のプリンタを覚える
　　oldPrinter = Application.ActivePrinter
　　' 任意のプリンタに変更
　　Application.ActivePrinter = "Canon LBP-2810 on Ne06:"
　　' 変更があったか確認
　　If Application.ActivePrinter <> oldPrinter Then
　　　　MsgBox "2810にプリンタが変更されました。"
　　End If
End Sub

Private Sub CommandButton5_Click()
　　Dim oldPrinter As String

　　' 設定する前に今のプリンタを覚える
　　oldPrinter = Application.ActivePrinter
　　' 任意のプリンタに変更
　　Application.ActivePrinter = "Canon LBP5800 LIPS on Ne05:"
　　' 変更があったか確認
　　If Application.ActivePrinter <> oldPrinter Then
　　　　MsgBox "5800にプリンタが変更されました。"
　　End If
End Sub

Private Sub UserForm_Activate()
　Do
　　Label3.Caption = Now
　　DoEvents '←★ここがポイント
　Loop
End Sub

Private Sub UserForm_Terminate()
　End
End Sub

いかがでしょうか。

>これは、コードを提示されただけです。
>「矢印キー、Enterキーが動作不能になる」という現象が起こすためには
>どうすればよいのですか？
>excel2002でCommandbutton1とCommandbutton3をクリックしてみましたが、
>特に「矢印キー、Enterキーが動作不能になる」という現象は発生しませんでした。

0 hits

▼

【42699】VBA動作後Enter・矢印きー動作不能 hori 06/9/19(火) 17:31