VBA: ひな形シートを児童数４０人分コピーして、目次に戻れるようにしたVBAシート

通信簿等でシートを４０枚作ると、シートタブで全体を見れません。

シートタブを右クリックしてシート一覧を出しても、スクロールしたりと面倒くさいです。目次シートにリンク一覧を作成し、それぞれのシートに行けるリンクがあれば・・・シートを行ったり来たりがワンタッチでできますね。

そんなシートを考えてみました。

 【目次】

①indexシートを作ります。

Ｋ１セルに作りたい枚数を入れます。

②ひな形シートを作ります。

今回は成績個票を作ってみました。

・Ｇ１セルに「戻る」のハイパーリンクを作ります。（右クリック→リンクで作れます。）

・Ａ４セルの数式を、=SHEET()-2  にします。

・Ｂ４セルの数式は、=INDIRECT(CONCATENATE("index!","B",$A$4+2))　にします。

・Ｃ４～Ｆ４セルの数式は、上の数式の”Ｂ”の部分を変えます。

Indirect関数は便利です。

③indexシートに戻り、Ｋ１セルに枚数を入れます。（１００人でも１０００人でもＯＫ。）→赤ボタンをクリックします。

ひな形シートのコピーが４０人分作成されました。下のシートタブでは１４までしか見えません(^-^;

④「４０番へ飛ぶ」をクリックすると・・・

⑤一気に４０番シートに行けます。データも差し込まれています。

「戻る」リンクをクリックすると・・・

⑥indexシートのＡ１セルに戻れます。

青の「削除する」ボタンを押すと、数字番号シートだけが削除されます。

⑦データはそのまま残るので安心

１００人でも１０００人でも、こんな感じで作れます。

Ｋ列のリンクは、枚数に応じて自動的に可変されて、罫線も引かれます。

何となく応用できそうなマクロなので、備忘録として置いておきます。

遊んでみたい方は、サンプルブックでどうぞ！（いないかな(^-^;）

ＶＢＡはエクセルがあれば、すぐに作ることができるので、

すごく楽です。ＶＢＡは、アプリケーションに直結している言語なので、いろいろ言われますが、学校現場では最強の言語ではないでしょうか。

もちろん、単純な計算などは数式で十分です。

数式とマクロのいいところを融合させながら、便利なシートを今後も作っていきたいと思います。

⓼サンプルブックです。

↓

お盆が明けますね。さあ、月曜日から頑張ろう！

では、また(^^)/