Excel VBA質問箱 IV

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

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


53735 / 76732 ←次へ | 前へ→

【27806】Re:ユーザーフォームとワークシートの切替え...
発言  ichinose  - 05/8/19(金) 20:59 -

引用なし
パスワード
   こんばんは。

新規ブックに以下の仕様でユーザーフォームを作成してください。

ユーザーフォーム---Userform1
   テキストボックス Textbox1
   コマンドボタン  Commandbutton1

つまり、テキストボックスとコマンドボタンをそれぞれ一つ配置した
ユーザーフォームです。
このフォームを表示した後、Ctrl+aでアクティブ・非アクティブの切り替え
を行うことを考えます。


コードは、標準モジュールに

'===============================================================
Sub main()
  UserForm1.Show vbModeless
End Sub
'=================================================================
Sub app_form()
  AppActivate UserForm1.Caption
End Sub
'================================================================
Sub settei()
  Application.OnKey "^a", "app_form"
End Sub


Userform1のモジュールに

'================================================================
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If Shift = 2 And KeyCode = 65 Then
    AppActivate Application.ActiveWindow.Caption
    End If
End Sub
'================================================================
Private Sub UserForm_Initialize()
  With CommandButton1
    .TabStop = False
    .TakeFocusOnClick = False
    End With
End Sub


これで、事前にプロシジャー「settei」を実行した後、

プロシジャー「main」を実行して、ユーザーフォームを表示させた後に

Ctrl+aでアクティブ・非アクティブになるか確認してください。

尚、標準モジュールに

'=============================================================
Sub kaijo()
  Application.OnKey "^a", ""
End Sub

で割り当てたマクロ実行を解除できます。

試してみてください。
2 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 お礼

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