投稿日	： 2003/04/10(Thu) 11:50
投稿者	： ヨッシー
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^2: 名前定義したセルの存在確認？

> > 名前定義されたセルが存在するのかまたどのシートに存在しているのか
> WorkbookオブジェクトのNamesコレクション、および
> WorksheetオブジェクトのNamesコレクションが使えるかも。

ありがとうございます。
なんとか以下のようにしてシート名を抽出することができました。
なにか他にいい方法がありましたら教えて下さい。

    Dim strCource   As String
    Dim xlsSheet    As Excel.Worksheet
    Dim kk As Integer
    Dim strSheet As String        'シート名
    Dim intPos As Integer

    Set xlsSheet = xlsBook.Worksheets(wwExcel.SheetName)

    strCource = "定義1"
    
    'BOOK全体での名前定義確認
    kk = xlsBook.Names.Count            'BOOK全体の名前定義数
    For ii = 1 To kk
        If xlsBook.Names.Item(ii).Name = strCource Then
            'セルの範囲からシート名抽出
            intPos = InStr(1, xlsBook.Names.Item(ii).Value, "!")
            strtt = Mid(xlsBook.Names.Item(ii).Value, 1, intPos - 1)
            'セルの範囲に"'"があるばあいがあるので"'"をなくす
            strtt = Replace(strtt, "'", "", 1)
            strSheet = Mid(strtt, 2, Len(strtt) - 1)
            Exit For
        End If
    Next ii

★ - 名前定義したセルの存在確認？ - ヨッシー 04/10-09:15No.3512
• Re: 名前定義したセルの存在確認？ - 魔界の仮面弁士 04/10-09:57 No.3516
  • Re^2: 名前定義したセルの存在確認？ - ヨッシー 04/10-11:50 No.3519
    • Re^3: 名前定義したセルの存在確認？ - 魔界の仮面弁士 04/10-12:41 No.3520
      • Re^4: 名前定義したセルの存在確認？ - ヨッシー 04/10-13:28 No.3521
        • Re^5: 名前定義したセルの存在確認？ - 魔界の仮面弁士 04/10-15:39 No.3527
          • Re^6: 名前定義したセルの存在確認？ - ヨッシー 04/10-16:53 No.3528