' ******************************************************
' 行数取得
' ******************************************************
Public Function GetRowCount() As Integer

	GetRowCount = Me.Rows.Count

End Function