|
▼操否 さん:
>不具合ありました
>紛らわしいのですが、
>特定シート追加で独自メニュが出る
>は
> "操作画面", "登録DT一覧"以外のシートが追加されたら
>です
昔書いた奴ですが、必要なところだけとって使えませんか?
Sub t()
Dim bar As CommandBar
Dim ctrl As CommandBarControl
Dim i As Long, r As Long, col As Long
Dim wksheet As Worksheet
Set wksheet = Worksheets("Sheet1")
For Each bar In Application.CommandBars
r = r + 1
col = 1
Cells(r, col).Value = "Name : " & bar.Name & " index : " & bar.Index
i = 0
For Each ctrl In bar.Controls
wksheet.Cells(r, col + 1).Value = "Caption : " & ctrl.Caption
wksheet.Cells(r, col + 2).Value = "ID : " & ctrl.ID
r = r + 1
Next
Next
Set wksheet = Nothing
End Sub
若しくは
on error resume next
Set mnu= mymenu.Controls("メニュー名")
if err.number<>0 then
mesgbox "ないよ"
end if
on error goto 0
とかも有りですかね。(確認してません。m(_ _)m)
>独自メニュ"JOB担当登録一覧表"が
>登録されていたら、登録しない
>としたかったのですが、
いちいち登録するのではなく、使用不可にするのでは駄目ですか?
長い間書いた事無いので忘れましたが、メニューで非表示って出来ましたっけ?
出来ればこちらの方が楽チンと思います。
|
|