|
neptune さん ありがとうございました
エラー処理については
勉強しなくてはいけないと思っています
いくつかの処理パターンがあるのではという気がして
時折ググッてみたりするのですがいまいち理解しきれていません
コードのご提示ありがとうございました 勉強させていただきます
今回は、
登録先が Worksheet Menu Bar で、JOB担当登録一覧表 の決め打ちでいいかなと
普段は、時間が取れないので動けばいいかな程度が多いです (*o*)\baki
アドバイスから下記であればエラーに会わなくてすみますね
?t41("JOB担当登録一覧表")
Function t41(tg_menu As String) as boolean
Dim bar As CommandBar
Dim ctrl As CommandBarControl
For Each bar In Application.CommandBars
If bar.Name = "Worksheet Menu Bar" Then
'Debug.Print bar.Name
For Each ctrl In bar.Controls
If ctrl.Caption = tg_menu Then
'Debug.Print ctrl.Caption
t41 = True
Exit Function
Else
t41 = False
End If
Next
End If
Next
End Function
>後、↓のサンプルですが、操否 さんには必要ないと思いますが、
ご指摘頂きなるほどです
エラー処理の練習のきっかけがつかめたような気がします
Public Sub ggg2()
Dim wksheet As Worksheet
Dim mnu
On Error Resume Next
Set wksheet = Worksheets("Sheet1")
On Error Resume Next
Set mnu = Application.CommandBars("Worksheet Menu Bar").Controls("JOB担当登録一覧表")
'Debug.Print Err.Number & " : " & Err.Description
'5 : プロシージャの呼び出し、または引数が不正です。
If Err.Number = 5 Then
MsgBox "ないよ"
Else
MsgBox "あるよ"
End If
On Error GoTo 0
End Sub
>2007持ってないので2007についてはコメントできません。
了解です
ありがとうございました
|
|