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