| |
不具合ありました
紛らわしいのですが、
特定シート追加で独自メニュが出る
は
"操作画面", "登録DT一覧"以外のシートが追加されたら
です
というわけで
シートが追加される都度
独自メニュ"JOB担当登録一覧表"が登録されてしまいました
で
独自メニュ"JOB担当登録一覧表"が
登録されていたら、登録しない
としたかったのですが、
このコードがわかりませんでした。
アドバイスありましたらよろしくお願いいたします
現状は、上記のコードのうち、下記を修正して
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
で強制的に、独自メニューがあれば削除することで
見かけ、希望の操作は出来ているように思えますが・・・
自信がありません
また、もう少し、スッキリした記述も可能なような気がしています
何かありましたらよろしくお願いいたします
|
|
操否
- 08/6/24(火) 14:24 -
