Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

25467 / 76735

←次へ　｜　前へ→


	【56607】Re:特定のシートに独自メニュを組み込む方法

操否 - 08/6/24(火) 11:53 -


	引用なし

	パスワード

>ＥＲＲＯＲ：本文に禁止語句が含まれています。
は、URLが入力禁止になってます。
でした

再掲させて頂きます

▼りんさん
こんにちは　ありがとうございます

なるほどと思ったのですが
実際に試してみると、思ったのと違いました

りんさんはこちらがどんな操作してるか？だと思います
申し訳ありませんでした

アドバイスから下記のようにして希望の操作かないました
ちなみに
別Ｑ　▼【56473】指定シート以外削除　if文ですが　から
IF文はSelect Case文に置き換えています

動作
元ブックで、特定シート追加で独自メニュが出る
他シートに移ると独自メニューは消える
独自メニュ付き特定シートから新規ブックを開いても独自メニューは付かない

Private Sub Workbook_SheetActivate(ByVal Sh As Object)　　
　　　　Select Case ActiveSheet.Name　　　　
　　　　　　Case "操作画面", "登録DT一覧"　　　　　　
　　　　　　Case Else　　　　　　
　　　　　　　　my_menu　　　　
　　　　End Select
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)　　
　　　　Select Case ActiveSheet.Name　　　　
　　　　　　Case "操作画面", "登録DT一覧"　　　　　　
　　　　　　　　On Error Resume Next
　　　　　　　　RemoveMenu
　　　　　　　　On Error GoTo 0　　　　　　
　　　　　　Case Else　　　　
　　　　End Select
End Sub

Private Sub Workbook_Activate()
　　　　Select Case ActiveSheet.Name　　　　
　　　　　　Case "操作画面", "登録DT一覧"　　　　　　
　　　　　　Case Else　　　　　　
　　　　　　　　my_menu　　　　
　　　　End Select
End Sub

Private Sub Workbook_Deactivate()
　　On Error Resume Next
　　RemoveMenu
　　On Error GoTo 0
End Sub

何かありましたらよろしくお願いいたします

0 hits

▼

【56598】特定のシートに独自メニュを組み込む方法 操否 08/6/23(月) 17:32