' ******************************************************
' 固定列指定
' ******************************************************
Public Sub SetFixColumn(ByVal nCol As Integer)

	Me.Columns(nCol).Frozen = True

End Sub