' ******************************************************
' カラム背景色設定
' ******************************************************
Public Sub SetColumnBackColor(ByVal nRow As Integer, _
 ByVal strName As String, ByVal Color As System.Drawing.Color)

	Me(strName, nRow).Style.BackColor = Color

End Sub
Public Sub SetColumnBackColor(ByVal nRow As Integer, _
 ByVal nCol As Integer, ByVal Color As System.Drawing.Color)

	Me(nCol, nRow).Style.BackColor = Color

End Sub
Public Sub SetColumnBackColor(ByVal strName As String, ByVal Color As System.Drawing.Color)

	Me.Rows(nCurrentRow).Cells(strName).Style.BackColor = Color

End Sub
Public Sub SetColumnBackColor(ByVal nCol As Integer, ByVal Color As System.Drawing.Color)

	Me.Rows(nCurrentRow).Cells(nCol).Style.BackColor = Color

End Sub