6日目　相関表を作ろう【30日間1日1本マクロ生活】

2017年10月4日

相関表

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

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

マクロを書く準備早速マクロを書こうと思ったんですが、マクロって何？食えんの？って人もいると思うんで、丁寧に行こうかな、と。マクロってのは、通常は人間の手でやるような作業を、プログラムを書くことで機械に自動的にやらせるってことです。Excelの場合はVBA(Visual Basic for Application)という言語を使ってマクロを書きます。まずはその準備を。Excelを起動すると、ワークシートが現れます。ここでキーボードの「ALT+」を押してください。はキーボードの上方にあるファンクションキーの11番です。すると、このウィンドウが開...

今日のネタは、相関表。

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

氏名	数学	英語
堀田由美	4	1
滝口省三	2	2
中島当麻	4	1
永島華絵	2	2
小坂新一郎	3	4
五十嵐治郎	1	2
武内美千代	2	4
佐竹絢子	5	4
川本祐子	4	3
酒井麗華	5	2
片桐由紀子	2	4
池谷沙菜	1	2
尾上龍五	1	3
本山辰二	2	2
野島健之	4	3
赤塚公男	4	1
片山愛菜	5	1
森岡竹雄	2	2
松田峻輝	2	3
坂田孝太郎	2	2

氏名、数学の成績、英語の成績のデータ20人分です。

ちなみに、氏名はダミーの名前です。4日目にも紹介した「疑似個人情報データ生成サービス」を利用しました。

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

主にアプリケーションの開発／試験の際のテストデータとしての使用を目的とした、架空の個人情報データ（疑似個人情報）を生成することができる実験的サービスです。

この情報から、縦に数学の成績、横に英語の成績を並べ、相関表を作ります。

さっそくコードを


Sub 相関表()
    y = 2
    Do While Cells(y, 1) <> ""
        sx = 12 - Cells(y, 3)
        sy = 7 - Cells(y, 2)
        sn = Cells(y, 1)
        
        If Cells(sy, sx) = "" Then
            Cells(sy, sx) = sn
        Else
            txt = Cells(sy, sx) & vbCrLf & sn
            Cells(sy, sx) = txt
        End If
        y = y + 1
    Loop        
End Sub

では、解説します。