SetJournalProperty

説明

SetJournalProperty()は、現在開いている仕訳の指定されたプロパティを設定します。

構文

Function SetJournalProperty(

sheetName As String,

props() As String,

propVals() As String

) As Long

パラメータ

sheetName: 入力引数。仕訳が開いているシートの名前を指定します。

props: 入力引数。プロパティのリストを文字列の配列として指定します。

propVals: 入力引数。プロパティ値のリストを文字列の配列として指定します。

戻り値

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

例

Public Declare Function HypRetrieve Lib "HsAddin" (ByVal vtSheetName As Variant) As Long
Sub SetJournalProperty()
    
    Dim props(6) As String
    props(0) = HFM_JOURNALPROP_LABEL
    props(1) = HFM_JOURNALPROP_DESCRIPTION
    props(2) = HFM_JOURNALPROP_TYPE
    props(3) = HFM_JOURNALPROP_BALANCE_TYPE
    props(4) = HFM_JOURNALPROP_GROUP
    props(5) = HFM_JOURNALPROP_SECURITY
    props(6) = HFM_JOURNALPROP_READONLY
    
    Dim propVals(6) As String
    propVals(0) = "J001"
    propVals(1) = "Test1"
    propVals(2) = HFM_JOURNALPROP_TYPE_REGULAR
    propVals(3) = HFM_JOURNALPROP_BALANCETYPE_BALANCED
    propVals(4) = HFM_JOURNALPROP_GROUP_ALLOCATION
    propVals(5) = HFM_JOURNALPROP_SECURITY_ACCOUNTS
    propVals(6) = "0"
    
    Dim retVal As Long
    Set jObj = New JournalVBA
    retVal = jObj.SetJournalProperty("Sheet1", props, propVals)
    
    If retVal = 0 Then
        Debug.Print "SetJournalProperty Succeeded"
        
        Dim status As Long
        status = HypRetrieve(Empty)
        Debug.Print "HypRetrieve returned Status as "; status
    Else
        Debug.Print "SetJournalProperty Failed"
    End If
    
End Sub