Excelのヘッダーをクリックして列データを並べ替える方法は？

ある範囲のデータがあるとします。次に、列ヘッダーをクリックしてデータを昇順または降順で並べ替え、次のスクリーンショットを表示します。 この仕事をExcelでどのように解決できますか？

VBAコードを含む列ヘッダーをクリックしてデータを並べ替えます

VBAコードを含む列ヘッダーをクリックしてデータを並べ替えます

通常、Excelでは、並べ替え機能を適用してデータをすばやく簡単に並べ替えることができますが、セルをクリックするだけでデータを並べ替えるには、次のVBAコードを使用すると便利です。

1。 セルをクリックしてデータを並べ替えるシートタブを右クリックし、 コードを表示 コンテキストメニューから、開いた状態で アプリケーション用のMicrosoftVisual Basic ウィンドウで、次のコードをコピーして空のモジュールに貼り付けます。

VBAコード：セルまたは列ヘッダーをクリックしてデータを並べ替えます。

Public blnToggle As Boolean
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
Dim LastColumn As Long, keyColumn As Long, LastRow As Long
Dim SortRange As Range
LastColumn = _
Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
keyColumn = Target.Column
If keyColumn > LastColumn Then Exit Sub
Application.ScreenUpdating = False
Cancel = True
LastRow = Cells(Rows.Count, keyColumn).End(xlUp).Row
Set SortRange = Target.CurrentRegion
blnToggle = Not blnToggle
If blnToggle = True Then
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlAscending, Header:=xlYes
Else
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlDescending, Header:=xlYes
End If
Set SortRange = Nothing
Application.ScreenUpdating = True
End Sub

2。 次に、コードウィンドウを保存して閉じます。データ範囲内のセルまたは列ヘッダーをダブルクリックすると、列が昇順で並べ替えられます。もう一度ダブルクリックすると、列が一度に降順で並べ替えられます。

その他の関連記事：

セルをクリックしてセル値を変更するにはどうすればよいですか？

Excelでセルの内容をクリックするだけでデータをフィルタリングするにはどうすればよいですか？