' ****************************************************** ' 行追加 ' ****************************************************** Public Sub AddRow() nCurrentRow = Me.Rows.Add(1) End Sub