Excel VBA質問箱 IV

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

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


25427 / 76732 ←次へ | 前へ→

【56645】Re:特定のシートに独自メニュを組み込む方法
お礼  操否  - 08/6/26(木) 18:24 -

引用なし
パスワード
   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についてはコメントできません。
了解です
ありがとうございました
0 hits

【56598】特定のシートに独自メニュを組み込む方法 操否 08/6/23(月) 17:32 質問
【56601】Re:特定のシートに独自メニュを組み込む方法 操否 08/6/23(月) 19:49 質問
【56602】Re:特定のシートに独自メニュを組み込む方法 りん 08/6/23(月) 20:26 発言
【56605】Re:特定のシートに独自メニュを組み込む方法 操否 08/6/24(火) 11:34 お礼
【56607】Re:特定のシートに独自メニュを組み込む方法 操否 08/6/24(火) 11:53 お礼
【56608】Re:特定のシートに独自メニュを組み込む方法 操否 08/6/24(火) 14:24 質問
【56616】Re:特定のシートに独自メニュを組み込む方法 neptune 08/6/24(火) 17:56 発言
【56626】Re:特定のシートに独自メニュを組み込む方法 操否 08/6/25(水) 13:20 お礼
【56627】Re:特定のシートに独自メニュを組み込む方法 neptune 08/6/25(水) 13:58 発言
【56645】Re:特定のシートに独自メニュを組み込む方法 操否 08/6/26(木) 18:24 お礼

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