Como posso fazer uma folha de excel classificar automaticamente?

Eu tenho uma folha de excel com os valores na coluna K, e eu quero ele para classificar automaticamente o valor em ordem cada vez que mudar o número, como faço isso?

Resposta

Dependendo se você quer apenas classificar a coluna K, sem levar em conta outras colunas de dados, você pode usar este manipulador de eventos:

Copie o manipulador de eventos para a área de transferência:

Private void Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

Application.ScreenUpdating = False

curCell = ActiveCell.Address (0, 0)

Se Target.Column = 11, então

Columns("K:K").Selecione

Selection.Sort Key1:=Range("K1"), Order1: = xlDescending, _

Cabeçalho: = xlGuess, OrderCustom: = 1, MatchCase: = False, _

Orientação: = xlTopToBottom, _

DataOption1: = xlSortNormal

Range(curCell).Selecione

End If

Application.EnableEvents = True

End Sub

Selecione a planilha que contém a coluna que deseja classificar e clique com o botão direito na guia da planilha de K.

Selecione 'Ver código'.

Cole o manipulador de eventos para a área de edição à direita.

Feche o VBE e retornar à planilha.

Insira um número na coluna k e coluna k vai reclassificar automaticamente.

Agora, se você deseja ordenar todas as colunas da até a última coluna que você está usando, você pode usar este manipulador de eventos em vez disso. Isso pressupõe que a última coluna é a coluna Z.

Private void Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

Application.ScreenUpdating = False

curCell = ActiveCell.Address (0, 0)

Se Target.Column = 11, então

Columns("A:Z").Selecione

Selection.Sort Key1:=Range("K1"), Order1: = xlDescending, _

Cabeçalho: = xlGuess, OrderCustom: = 1, MatchCase: = False, _

Orientação: = xlTopToBottom, _

DataOption1: = xlSortNormal

Range(curCell).Selecione

End If

Application.EnableEvents = True

End Sub

Siga o procedimento acima.