投稿/コメントを表示します。

エクセルマクロ・VBA発展編１
発展１講座第５章 - モジュールレベル変数の操作

受講生さんの投稿

(投稿ID: 4071)

似てると言えば、ソートの部分も似ているなぁと思い、G列とA列でソートするために、ソートキーをモジュールレベル変数として宣言してみました。
Option Explicit

Dim Retu As String
Dim Sortkey As String

Sub All()

    Retu = "A"
    Call Numbering
    Sortkey = "G"
    Call Sorting
    Retu = "H"
    Call Numbering
    Sortkey = "A"
    Call Sorting
    
End Sub

Sub Numbering()

    Dim Gyou As Long
    
    For gyou = 2 To Range("B" & Rows.count).End(xlUp).Row
        Range(Retu & Gyou).Value = Gyou - 1
    Next
    
End Sub

Sub Sorting()

    Range("A1:H21").Sort _
        key1:=Range(Sortkey & 1), _
        order1:=xlAscending, _
        Header:=xlYes

End Sub

便利だなぁ。
2018/08/10 06:31