Excelで超シンプルなはがき印刷ソフトを作ってみよう

Option Explicit

Private Sub ExSort(scol As String, mode As Integer)
    Dim lrow As Long
    Dim n As Long
    Dim jyun As Integer
    
    lrow = ActiveSheet.Range("B65536").End(xlUp).Row
    n = ActiveSheet.Range("C65536").End(xlUp).Row
    If n > lrow Then lrow = n
    n = ActiveSheet.Range("D65536").End(xlUp).Row
    If n > lrow Then lrow = n
    n = ActiveSheet.Range("E65536").End(xlUp).Row
    If n > lrow Then lrow = n
    n = ActiveSheet.Range("F65536").End(xlUp).Row
    If n > lrow Then lrow = n
    n = ActiveSheet.Range("G65536").End(xlUp).Row
    If n > lrow Then lrow = n
    
    If mode = 0 Then
        jyun = xlAscending
    Else
        jyun = xlDescending
    End If
    
    ActiveSheet.Range("B9:G" & lrow).Sort _
         Key1:=Range(scol & "1"), Order1:=jyun _
        , Header:=xlYes _
        , MatchCase:=False _
        , Orientation:=xlTopToBottom _
        , SortMethod:=xlPinYin
End Sub

Private Sub Label1_Click()
    ExSort "B", 1
End Sub

Private Sub Label10_Click()
    ExSort "F", 0
End Sub

Private Sub Label11_Click()
    ExSort "G", 1
End Sub

Private Sub Label12_Click()
    ExSort "G", 0
End Sub

Private Sub Label2_Click()
    ExSort "B", 0
End Sub

Private Sub Label3_Click()
    ExSort "C", 1
End Sub

Private Sub Label4_Click()
    ExSort "C", 0
End Sub

Private Sub Label5_Click()
    ExSort "D", 1
End Sub

Private Sub Label6_Click()
    ExSort "D", 0
End Sub

Private Sub Label7_Click()
    ExSort "E", 1
End Sub

Private Sub Label8_Click()
    ExSort "E", 0
End Sub

Private Sub Label9_Click()
    ExSort "F", 1
End Sub