HypKeepOnly

Cloudデータ・プロバイダ・タイプ: Oracle Analytics Cloud - Essbase、Oracle Planning and Budgeting Cloud (アド・ホックのみ)

オンプレミス・データ・プロバイダ・タイプ: Oracle Essbase、Oracle Hyperion Planning (アド・ホックのみ)、Oracle Hyperion Financial Management (アド・ホックのみ)

説明

HypKeepOnly()は、シート内で選択されたメンバーのみを保持し、選択されていないメンバーを削除します。

選択にはメンバー・セルのみを含め、データ・セルを含めることはできません。

構文

HypKeepOnly(vtSheetName, vtSelection)

ByVal vtSheetName As Variant

ByVal vtSelection As Variant

パラメータ

vtSheetName: 関数を実行するワークシートの名前。vtSheetNameがNullまたはEmptyの場合、アクティブなワークシートが使用されます。

vtSelection: 保持するメンバーを参照する範囲オブジェクト。選択がNullまたはEmptyの場合、アクティブなセルが使用されます。

戻り値

正常に終了した場合は0を戻し、それ以外の場合は該当するエラー・コードを戻します。

例

1つのメンバー名のみを保持するには:

Public Declare Function HypKeepOnly Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtSelection As Variant) As Long

Sub Example_HypKeepOnly()
   X=HypKeepOnly(Empty, RANGE("D2"))
   If X = 0 Then
      MsgBox("Keep Only successful.")
   Else
      MsgBox("Keep Only failed." + X)
   End If
End Sub

複数のメンバー名を保持するには:

Public Declare Function HypKeepOnly Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtSelection As Variant) As Long

Sub Example_HypKeepOnly
   X=HypKeepOnly(Empty, RANGE("D2:A5"))
   If X = 0 Then
      MsgBox("Keep Only successful.")
   Else
      MsgBox("Keep Only failed." + X)
   End If
End Sub