LWP | 名前定義のスコープ――名前・所属・参照先をセットで読む

コイ丸先輩の使ってきたブックには、同じ「売上」という名前が二つあります。ブック範囲の名前とSheet2固有の名前は、別のセル範囲を指しています。シャケモンと、名前の所属とTakiLibの取得処理を読み直します。表・会話・商品や金額は説明用の例です。

同じ文字の名前でも、ブック範囲とシート範囲では別の定義です。対象ブック・シートと参照先を明示し、名前の存在とRange取得の成功を分けて確認します。

rngNamedRangeOnSheetはブック範囲の名前からAddressを取り、対象シートのRangeとして使い直します。rngGlobalDefinedNameは交差する最初の名前を返し、完全一致や全名前の列挙は行いません。検索入口のApplication.NamesはアクティブなブックのNamesコレクションです。対象Rangeが別のブックにある場合、対象ブックの全名前を検索したとは扱えません。

既存ブックの意図を知るコイ丸先輩と、取得処理を読めるシャケモンが、同じ名前の違いを整理します。「どの名前か」という構造から入り、「何を返すか」という関数の契約へ進みます。

WindowsデスクトップExcelで、TakiLib 3.5.4を導入したブックを前提とします。ブック範囲の「売上」がSheet1!B2:B5を指し、Sheet2が存在する場合の確認例です。VBEのイミディエイトウィンドウまたはプロシージャ内で使う短い断片で、今回の制作ではVBA実機実行はしていません。

Debug.Print rngNamedRangeOnSheet("売上", "Sheet2", ThisWorkbook).Address(External:=True)

Public Function rngNamedRangeOnSheet( _

                        a_global_name, _

                        a_target_sheet, _

                        Optional ByVal a_book) As Range

    Rem @name       rngNamedRangeOnSheet

    Rem @desc       グローバルに定義された名前付き範囲を取得し、

    Rem             同じアドレスを指定シート上の Range として返す。

    Rem @param      a_global_name    参照するグローバルな名前（文字列）

    Rem @param      a_target_sheet   対象シート（シート名または Worksheet オブジェクト）

    Rem @param      a_book           対象ブック（省略時: ThisWorkbook）

    Rem @return     Range            指定シート上の Range オブジェクト

    Rem @note       - グローバル名の参照先アドレスをもとに、指定シートへマッピングする

    Rem             - a_target_sheet には文字列（シート名）または Worksheet を渡せる

    Rem             - a_book を明示すれば、対象ブックを切り替え可能

    Rem @procattr   std_function

    Rem @prochder=================================================================================@

    Call valueSetDefault(a_book, ThisWorkbook)

    If TK3_ASSERT Then Call langAssert( _

                                typeIsObjectOf(a_target_sheet, "Worksheet") Or hasCollKeyAffinity(a_target_sheet), _

                                TK3_ERROR_ARGUMENT)

    Dim xsrc_rng As Range:

        Set xsrc_rng = rngNamedRangeGlobal(a_global_name, a_book)

    Dim xsheet As Worksheet

    If typeIsWorksheet(a_target_sheet) Then

        Set xsheet = a_target_sheet

    Else

        Set xsheet = a_book.Worksheets(a_target_sheet)

    End If

    Set rngNamedRangeOnSheet = xsheet.Range(xsrc_rng.Address)

End Function

この関数のソースには次のMIT Licenseを適用します。記事本文の利用案内とは別に、ソフトウェアの著作権表示と許諾文を保持します。

The MIT License

Copyright (c) 2021 Kazuhiro Yamanaka

Permission is hereby granted, free of charge, to any person obtaining a

copy of this software and associated documentation files (the

"Software"), to deal in the Software without restriction, including

without limitation the rights to use, copy, modify, merge, publish,

distribute, sublicense, and/or sell copies of the Software, and to

permit persons to whom the Software is furnished to do so, subject to

the following conditions:

The above copyright notice and this permission notice shall be

included in all copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,

EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND

NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE

LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION

OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION

WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

元ネタ「名前定義のブック範囲とシート範囲を理解する」を6枚へ再構成し、当日選定したTakiLib公開安定版3.5.4の4関数を読みました。掲載コードと結果は、特記した実測ではなく、ソースと仕様に基づく説明です。

Namesの範囲はMicrosoft Learn：Workbook.NamesとWorksheet.Names、アクティブブックの検索入口はApplication.Namesを参照しました。Rangeを返さない定義では取得が失敗することはName.RefersToRangeで確認しました。

Copyright © LWP 山中 一弘 |