MSFlexGridで列をクリックしたら並び替えを行うには？ (ID:84722)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 下記ではだめですか？ Private Sub MSHFlexGrid1_Click() With MSHFlexGrid1 If .Col = 0 And .Row = 1 And .MouseRow = 0 Then If .TextMatrix(0, 0) = "項目名 ▲" Then .TextMatrix(0, 0) = "項目名 ▼" .Sort = 7 'flexSortGenericAscending Else .TextMatrix(0, 0) = "項目名 ▲" .Sort = 8 'flexSortGenericDescending End If End If '以下同様に必要な列だけ追加 End With End Sub