' ****************************************************** ' 固定列指定 ' ****************************************************** Public Sub SetFixColumn(ByVal nCol As Integer) Me.Columns(nCol).Frozen = True End Sub