4日目　県別に整列しよう【30日間1日1本マクロ生活】

県別の名簿

30日間1日1本マクロ生活、4日目です。

マクロを書く準備は、0日目に記事を書きました。

今日のネタは、データの分別です。

こんなデータを準備してみました。

氏名　性別　住所
布施清次郎　男　長崎県
竹原勇次　男　宮崎県
川本和佳　女　佐賀県
北村新太郎　男　熊本県
島袋蓮　女　佐賀県
田端茉央　女　沖縄県
香坂悠里　女　鹿児島県
江藤百香　女　福岡県
日比野汎平　男　大分県
山田唯衣　女　熊本県
高橋有沙　女　熊本県
坂本宏美　女　福岡県
林晴　女　宮崎県
西岡三男　男　大分県
相馬直也　男　大分県
大淵昭夫　男　長崎県
丸山俊哉　男　熊本県
岡部花穂　女　熊本県
河合敏男　男　長崎県
白井清助　男　福岡県
白石咲来　女　宮崎県
芦田昭　男　熊本県
板垣陽一郎　男　沖縄県
小畑誠二　男　福岡県
土肥武史　男　大分県
永山菜々実　女　鹿児島県
紺野忠志　男　大分県
露木義哉　男　長崎県
秋元萌花　女　長崎県
横尾楓花　女　福岡県
福岡悦夫　男　鹿児島県
倉田美奈江　女　佐賀県
寺本毅雄　男　宮崎県
柳原常雄　男　熊本県
山崎奈央　女　大分県
辻本光義　男　福岡県
大原花帆　女　鹿児島県
赤坂貞子　女　長崎県
柳田佳織　女　鹿児島県
小山英俊　男　佐賀県

氏名、性別、住所のデータ40人分です。

ちなみに、氏名はダミーの名前です。住所は九州・沖縄の8県限定です。

疑似個人情報データ生成サービス

こんなサイトがあるんですよ。すごくないですか？

ダミーの個人情報をランダムに作ってくれるサイトです。

マクロの勉強するときなんか、めっちゃ便利ですね。

この個人情報から、県別の名簿を作りたい時ってありますよね。今日はこれをやります。

C列に入っている住所に応じて、A列の名前を右側の各県の欄に整列させます。

さっそくコードを

Sub 県別に整列()
    Dim ky(8)
    For i = 0 To 8
        ky(i) = 2
    Next i
    y = 2
    Do While Cells(y, 1) <> ""
        Select Case Cells(y, 3)
            Case "福岡県"
                x = 5
            Case "佐賀県"
                x = 6
            Case "長崎県"
                x = 7
            Case "大分県"
                x = 8
            Case "熊本県"
                x = 9
            Case "宮崎県"
                x = 10
            Case "鹿児島県"
                x = 11
            Case "沖縄県"
                x = 12
            Case Else
                x = 13
        End Select
        
        Cells(ky(x - 5), x) = Cells(y, 1)
        ky(x - 5) = ky(x - 5) + 1
        y = y + 1
    Loop
End Sub

では、解説します。

Dim

2行目の「Dim」です。

配列変数と言います。

通常の変数は「a=2」とか「x=5」とか、文字の中に値を格納します。

言ってみれば、「aという箱に2のカードを入れる」とか、「xという箱に5のカードを入れる」というイメージです。

配列変数は、その箱の中が仕切られているイメージです。

こんな感じで、箱全体の名前が「ky」で、その中が1番、2番、3番というように仕切られています。

この番号の所に値を入れていくイメージです。

ちなみに、配列変数の番号は0番から始まります。

2行目の「Dim(8)」は、「『ky』っていう、0番から8番までの9つに仕切られた箱を準備してくれよ！」っていう命令です。

この準備をしないと、配列変数は使えません。

各県に入る人のy座標

上から順に一人ずつ整列させていきますので、各県に入っている人数が違います。

福岡は3人入ったけど、佐賀には4人入ってる。次の人が福岡だったら5段目に入れるけど、佐賀だったら6段目に入れなきゃならない。

こんな感じで、県ごとに次の人が入るy座標が違います。

そこで、ky(0)は福岡の次の人のy座標、ky(1)は佐賀の次の人のy座標・・・というように、次の人のy座標をkyの箱に入れておくと便利なんです。

初期化

Dimの次の行からは、配列の初期化です。

最初はどの県も2段目に入れなきゃですから、全て2にします。

VBAの場合、配列の初期化を一気にやっちゃう方法は無いようなので、ループで全てに2を代入します。

Select Case

8行目の「Select Case」は、いわゆる「場合分け」です。

「Select Case ～」で「～について場合分けします」と読みます。

次の行からの「Case ○○」は、「～が○○の場合」と読み、条件を満たすものについて、その下の行から次の「Case」までが実行されます。

場合分けが被ってはいけないのですが、被っているときは上に書いてあるものが優先されます。

ここでは、「Cells(y,3)」に入っている値が「福岡県」であるときは、「x=5」が代入されます。

他の値のときも同様です。

実際に振り分け

福岡県のメンバーを並べる場所は、x座標が5の列です。

だからx=5を代入しますが、kyの箱の福岡県の番号は0です。

他の県も同様に、並べるx座標から5を引いたものが箱の番号になっているので、y座標はky(x-5)です。

Cells(ky(x - 5), x) = Cells(y, 1)
ky(x - 5) = ky(x - 5) + 1

対象のセルに名前を格納し、その県のy座標を1増やします。

実行結果

マクロを記述するウィンドウの「Sub」と「End Sub」の間にカーソルを置いて、画面上方の再生ボタン的なアイコン(右向きの三角形)をクリックするか、[F5]キーを押します。

はい、このように各県のメンバーがそれぞれのプラカードの下に整列しました。

Excelは便利

悔しいですが、Excelは便利です。

Microsoftにお金を払うのは癪でしょうがないんですが、Excelばかりは仕方がない。

マクロを書くようになると、Excelからは離れられないですね。

30日間、頑張ります。