大学進学者が多い高校では3月になると，
恐ろしい数の入試結果を入力しなければならない。
このとき，大学-学部-学科-入試方式で
大学コードを入力するのだが，
これが大変。
コードを探すのに時間がかかる。
そこで，リスト形式で入力できるようにした。
大学コードは，どこかから手に入れる。
次のようなリスト作る
| 区分 |
地方 |
| 関東私立 |
北関東S |
| 関東私立 |
埼玉S |
| 公立 |
北海道K |
| 公立 |
東北K |
| 公立 |
関東K |
上の表を下の表のようにするには？
| |
国公私 |
0 |
1 |
2 |
| 3 |
公立 |
北海道K |
東北K |
関東K |
| 2 |
関東私立 |
北関東S |
埼玉S |
|
A列には横方向のデータ数
1段目には0から始まるデータ番号
C2に次の関数を入力
=IF(C$1>=$A2,"aa",INDEX($地方,MATCH($B2,$区分,0)+C$1,1))
C2の内容を
aaを""と置換する
カーソルをB2にする
次のマクロで範囲に名前をつける
| For i = 1 To 縦のデータ数 |
| Range(Selection,Selection.End(xlToRight)).Select |
| Selection.CreateNamesTop:=False,Left:=True,Bottom:=False,Right:= |
| False |
| ActiveCell.Offset(1, 0).Activate |
| Next i |
| End Sub |
[データ]-[入力規制]-リストを適応
[データ]-[入力規制]-=indirect()を適応
同じようなことを
地域－大学，
大学－学部・学科，
学部・学科－入試方式
でもやる。
マクロを使わなくてもできるが，空白のリストが長くなる。