Excel VBA質問箱 IV

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

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


53694 / 76738 ←次へ | 前へ→

【27853】Re:ユーザーフォームとワークシートの切...
発言  ichinose  - 05/8/22(月) 13:14 -

引用なし
パスワード
   ▼わさび さん:
こんにちは。

>いたせりつくせりのご回答、本当にありがとうございます。
>早速試してみたのですが、どうしても1箇所だけうまくいきません。
>
>ユーザーフォームからワークシートに切り替える際、
>Ctrl+aを押すと、ユーザーフォームは非アクティブになるのですが、
>ワークシートはアクティブにならず、操作できません。
>その状態でまたCtrl+aを押しても、ユーザーフォームがアクティブになるわけでもなく、
>どちらも機能しないまま、立ち往生状態となってしまいます。
>
>ワークシートがアクティブな状態からユーザーフォームへの切替は大丈夫です。
>
>私なりにいろいろ考えていじってみましたがよくわかりません。
>もし何か思い当たる節がありましたら、ぜひ教えていただければ幸いです。
>よろしくお願い致します。
一箇所訂正です。
Userform1のモジュールに

'================================================================
>Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
>  If Shift = 2 And KeyCode = 65 Then
    AppActivate Application.Caption
>    End If
>End Sub


私のほうでは、
  Win98+Excel2000
  Win2000+Excel2002で
確認しましたが、これでアクティブ・非アクティブが
正常に作動しています。
(実は、訂正前でも作動するときもあるんですが、
エラーになる場合もあったので・・)

>どちらも機能しないまま、立ち往生状態となってしまいます。
とのことなので心配ですが・・・。

0 hits

【27795】ユーザーフォームとワークシートの切替え... わさび 05/8/19(金) 16:40 質問
【27796】Re:ユーザーフォームとワークシートの切替... m2m10 05/8/19(金) 17:00 回答
【27797】Re:ユーザーフォームとワークシートの切... わさび 05/8/19(金) 17:31 質問
【27802】Re:ユーザーフォームとワークシートの切... m2m10 05/8/19(金) 18:43 回答
【27804】Re:ユーザーフォームとワークシートの切... m2m10 05/8/19(金) 19:30 回答
【27805】Re:ユーザーフォームとワークシートの切... わさび 05/8/19(金) 19:56 お礼
【27806】Re:ユーザーフォームとワークシートの切替... ichinose 05/8/19(金) 20:59 発言
【27849】Re:ユーザーフォームとワークシートの切... わさび 05/8/22(月) 11:42 質問
【27850】Re:ユーザーフォームとワークシートの切... m2m10 05/8/22(月) 11:49 回答
【27854】Re:ユーザーフォームとワークシートの切... わさび 05/8/22(月) 13:19 質問
【27853】Re:ユーザーフォームとワークシートの切... ichinose 05/8/22(月) 13:14 発言
【27856】Re:ユーザーフォームとワークシートの切... わさび 05/8/22(月) 13:26 お礼
【27843】Re:ユーザーフォームとワークシートの切替... m2m10 05/8/22(月) 8:18 回答
【27845】Re:ユーザーフォームとワークシートの切替... わさび 05/8/22(月) 9:41 お礼

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