SpreadForWin 追加删除行后显示固定行

Public   Sub  InsertRow2(AnySs  As  vaSpread,  ByVal  Row & )
    
    AnySs.MaxRows  =   6
    AnySs.Row  =  Row
    AnySs.Action  =  SS_ACTION_INSERT_ROW  ' 行を挿入する。

End Sub

Public   Sub  DeleteRow2(AnySs  As  vaSpread,  ByVal  Row & )

    AnySs.Row  =  Row
    AnySs.Action  =  SS_ACTION_DELETE_ROW  ' 行を削除する。
    AnySs.MaxRows  =   6

End Sub