EnumMembersInList

EnumMembersInListサブルーチンを使用して、リストにメンバーを追加します。静的メンバー・リストの場合は、スクリプトにリストのすべてのメンバーをリストします。EnumMembersInList ()サブルーチンでは、次の表に示す構文および関数を使用して、各メンバー・リストのメンバーを定義します。

エンティティ以外のすべてのディメンションでは、HS.AddMemberToList文を使用して、メンバーを指定する必要があります。エンティティ・ディメンションの場合は、HS.AddEntityToList文を使用して、メンバーとその親を指定する必要があります。

表5-1 EnumMembersInListの構文

構文	説明
HS.Dimension = "Element"	Elementはディメンションです。例: If HS.Dimension = "Entity" Then
HS.MemberListID=n	数値IDでメンバー・リストを指定します ここで、nは、EnumMemberListsサブルーチンのメンバー・リストに割り当てられている数値IDです HS.MemberListID = 1
HS.AddEntityToList Member HS.AddMemberToList Member	エンティティ以外のディメンションのリストにメンバーを追加します ここで、Memberはメンバー名です HS.AddEntityToList "UnitedStates", "Maine" HS.AddMemberToList "July"
HS.AddEntityToList Parent, Member	エンティティ・ディメンションのリストにメンバーを追加します ここで、Parentは追加しているメンバーの親で、Memberはエンティティ・ディメンションのメンバーです。 HS.AddEntityToList "UnitedStates", "California"
HS.Entity.List	エンティティ・ディメンションのリストにメンバーを追加します HS.Entity.List("","[Base])
HS.MemberListEntity HS.MemberListScenario HS.MemberListYear HS.MemberListPeriod	動的メンバー・リストの指定に使用します。

ここでは、ファイルのEnumMembersInListセクションのサンプルを示します。この例では、3つのエンティティ・リストのエンティティが定義されています。また、勘定科目リストのメンバーも定義されています。

Sub EnumMembersInList()

If HS.Dimension = “Entity” Then

   If HS.MemberListID = 1 Then

      HS.AddEntityToList “UnitedStates”, “Connecticut”

      HS.AddEntityToList ”UnitedStates”, ”Massachusetts”

      HS.AddEntityToList ”UnitedStates”, ”RhodeIsland”

      HS.AddEntityToList ”UnitedStates”, ”Maine”

   ElseIf HS.MemberListID = 2 Then

      HS.AddEntityToList ”UnitedStates”, ”Connecticut”

   ElseIf HS.MemberListID = 3 Then

      HS.AddEntityToList ”UnitedStates”, ”California”

   End If

ElseIf HS.Dimension = ”Account” Then

   If HS.MemberListID = 1 Then

      HS.AddMemberToList ”Sales”

      HS.AddMemberToList ”Purchases”

      HS.AddMemberToList ”Salaries”

      HS.AddMemberToList ”OtherCosts”

      HS.AddMemberToList ”TotalCosts”

      HS.AddMemberToList ”GrossMargin”

      HS.AddMemberToList ”HeadCount”

      HS.AddMemberToList ”AdminExpenses”

      HS.AddMemberToList ”InterestCharges”

      HS.AddMemberToList ”NetIncome”

      HS.AddMemberToList ”Taxes”

      HS.AddMemberToList ”NetProfit”

   End If

End If

End Sub

注意:

各ディメンションで必要に応じてメンバー・リストをいくつでも作成できます。すべてのディメンションにメンバー・リストを作成する必要はありません。