Excel VBA質問箱 IV

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

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


53448 / 76732 ←次へ | 前へ→

【28098】Re:「呼び出し先は消失し、利用できません。...
回答  Hirofumi  - 05/8/28(日) 17:58 -

引用なし
パスワード
   難しく考えないで、この方が簡単見たい?

'<ThisBook>----------

Option Explicit

Private Sub Workbook_Open()
  
  SCkey
  
End Sub

'<フォーム:A_window>----------

Option Explicit

Private Sub B_dush_Click()

  lngSelect = 1
  Unload Me

End Sub

Private Sub C_dush_Click()

  lngSelect = 2
  Unload Me

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

  If CloseMode = vbFormControlMenu Then
    lngSelect = 0
  End If

End Sub

'<フォーム:B_window>----------

Option Explicit

Private Sub A_project_Click()

  lngSelect = 0
  Unload Me

End Sub

Private Sub C_projecr_Click()

  lngSelect = 2
  Unload Me

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

  If CloseMode = vbFormControlMenu Then
    lngSelect = 1
  End If

End Sub

'<フォーム:C_window>----------

Option Explicit

Private Sub A_cat_Click()

  lngSelect = 0
  Unload Me

End Sub

Private Sub B_cat_Click()

  lngSelect = 1
  Unload Me

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

  If CloseMode = vbFormControlMenu Then
    lngSelect = 2
  End If

End Sub

'<標準モジュール>----------

Option Explicit

Public lngSelect As Long

Sub SCkey()

  Application.OnKey "%^{F12}", "MYshow"

End Sub

Sub MYshow()

  Select Case lngSelect
    Case 0
      A_window.Show
    Case 1
      B_window.Show
    Case 2
      C_window.Show
  End Select
      
End Sub
1 hits

【28027】「呼び出し先は消失し、利用できません。... わさび 05/8/26(金) 19:46 質問
【28085】Re:「呼び出し先は消失し、利用できません... Hirofumi 05/8/28(日) 13:25 発言
【28098】Re:「呼び出し先は消失し、利用できません... Hirofumi 05/8/28(日) 17:58 回答
【28108】Re:「呼び出し先は消失し、利用できません... わさび 05/8/29(月) 10:38 お礼
【28135】Re:「呼び出し先は消失し、利用できません... Hirofumi 05/8/29(月) 19:25 回答
【28136】Re:「呼び出し先は消失し、利用できません... わさび 05/8/29(月) 19:30 お礼

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