|
▼ichinose さん:
返事遅くなりすみません。
動作不能になるのは、Commandbutton1とCommandbutton3押して
Commandbutton2で終了させた直後です。
ちなみにユーザーフォーム1に下記コードも書き込んでありますが
これには全然さわらずに
現象は発生します。下記参照
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キーが動作不能になる」という現象は発生しませんでした。
|
|