楠の満開

城北公園、クスノキ満開

対戦表

今日は東海大会での組合せが抽選され対戦相手が決まります。
私は一昨年からエクセルでVBAマクロを利用して組合せ対戦表を作成しています。
エクセルマクロは教則本を図書館で借りマネしてできるシリーズを
見よう見まねで試行錯誤を繰り返しマクロでできることは自動化し
マクロではできない事は手作業で行っていて、それでも改良をしています。
野球観戦から波及した趣味の世界であるVBAマクロは現在の所
個人成績表作成と対戦表の二つだけですが奇抜なアイデアがあれば順次増えていくことでしょう。
以下は櫓を作成した後学校名を櫓に埋め込む作業を自動化した部分です。
シート参加校にN列に学校名、M列には番号をあらかじめ準備しておきます。
これは県大会の対戦用に応用したもので　Do While　の数値を参加校に合わせ
変更すれば地区大会、選手権にも応用できます。

Sub 学校名コピー()
'
' 学校名コピー Macro
' 2012.3.5作成、学校名コピー
Sheets("参加校").Select
Dim i As Integer
Dim j As Integer
i = 2
j = 2
' 参加校数プラスONE
Do While j <= 25
Sheets("参加校").Select
Range("N" & j).Select
Selection.Copy
Sheets("春県大会").Select
Range(Cells(13, i), Cells(13, i + 3)).Select
ActiveSheet.Paste
Selection.Font.Bold = True
Sheets("参加校").Select
Range("M" & j).Select
Selection.Copy
Sheets("春県大会").Select
Range(Cells(14, i), Cells(14, i + 3)).Select
ActiveSheet.Paste
Selection.Font.Bold = True
i = i + 6
j = j + 1
Loop
End Sub