' ******************************************************
' 行ヘッダ変更
' ******************************************************
Public Sub SetRowHeaderText(ByVal nRow As Integer, _
  ByVal strText As String)

	Me.Rows(nRow).HeaderCell.Value = strText

End Sub
Public Sub SetRowHeaderText(ByVal strText As String)

	Me.Rows(nCurrentRow).HeaderCell.Value = strText

End Sub