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