Private Sub opt並替_AfterUpdate() Select Case opt並替 '降順 Case 1: OrderBy = "[ID],[ID]" Case 2: OrderBy = "[AA],[ID]" Case 3: OrderBy = "[BB],[ID]" Case 4: OrderBy = "[CC],[ID]" End Select OrderByOn = True End Sub
下から選んでください: