Excel VBA質問箱 IV

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

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


39137 / 76732 ←次へ | 前へ→

【42714】Re:VBA動作後Enter・矢印きー動作不能
発言  hori  - 06/9/20(水) 1:26 -

引用なし
パスワード
   ▼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キーが動作不能になる」という現象は発生しませんでした。
0 hits

【42699】VBA動作後Enter・矢印きー動作不能 hori 06/9/19(火) 17:31 質問
【42705】Re:VBA動作後Enter・矢印きー動作不能 ichinose 06/9/19(火) 20:32 発言
【42707】Re:VBA動作後Enter・矢印きー動作不能 hori 06/9/19(火) 21:04 発言
【42709】Re:VBA動作後Enter・矢印きー動作不能 ichinose 06/9/19(火) 21:17 発言
【42714】Re:VBA動作後Enter・矢印きー動作不能 hori 06/9/20(水) 1:26 発言
【42715】Re:VBA動作後Enter・矢印きー動作不能 hori 06/9/20(水) 1:50 発言
【42717】Re:VBA動作後Enter・矢印きー動作不能 ichinose 06/9/20(水) 7:41 発言
【42726】Re:VBA動作後Enter・矢印きー動作不能 hori 06/9/20(水) 10:23 発言
【42756】Re:VBA動作後Enter・矢印きー動作不能 ichinose 06/9/20(水) 18:50 発言
【42761】Re:VBA動作後Enter・矢印きー動作不能 hori 06/9/20(水) 23:28 お礼

39137 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free