エクセルで楽々校務

時間割編成ソフト「コマ割りくん」の半自動版

ここまで作ってくると、自動でコマ割りができるようにしたくなりました。 が、全て自動は無理でした。理科は1時間ー2時間で組んでいるので、少し不規則です。ですが、このことを利用して、理科を決めて、ある程度コマを埋めると、 チェックと重複コマ移動までは、自動でできるソフトにしてみました。 最後にサンプルファイルを載せてみました。 特別教室設定シートを開きます。 黒いボタン「①A週・B週別の同時間の重複チェック」を押すと、同時間帯のコマ重複をA、B週別にチェックできます。重複していると赤塗りつぶしになります。 上の写真では、31が赤くなっています。 つづいて、赤ボタン「②重複コマ自動移動」を押すと、3…

2020/09/27 03:45

【有料ソフト】時間割編成ソフト「コマ割りくん」の機能増強版

結論から言うと、機能を増強しました。 ①同時間コマの重複を、同画面でチェックできるようにしました。 ②空き時間の教員名を表示できるようにしました。 最後に評価版のZIPファイルがあります。 では、操作説明です。 【目次】 ①スタートファイルを開きます。 ②AB週の時数設定をする。（教務設定1） ③担任名、専科等を入力する。（教務設定2） ④チェックをかけながら、コマを入力していく。（教務設定3） ⑤専科のコマを事前に検討する。（教務設定4） ⑥学級担任に教科を入力してもらう。 ⑦【印刷面2】に各クラスの時間割が集約されます。空き時間表も作成されます。 ⓼【印刷面1】で特別教室使用表も作成されま…

2020/09/23 00:58

【VBA】奇数行範囲で重複チェックをするマクロ

時間割編成等で、AB週混合で時間割表を作成した場合に役に立ちそうです。 範囲が飛び飛びだと、worksheetfunction.countif(範囲,検索値)>1 はうまく動作しません。 またfindは補助記述が多くてあまり使いたくありません。 発想を変えて、for nextループ内でoffsetでセルをずらせていき、同一な値の場合、赤で塗りつぶすマクロを組んでみました。 offsetを使うと、ほとんど処理速度も落ちない気がします。 ↓コード（備忘録） Sub 奇数行の重複チェック() Dim rng, rng2 As VariantDim c, r, rr As Long Range("E3…

2020/09/20 15:01

【VBA】指定フォルダー内の全ブック・全シートを残らず縦に合体できるマクロ

🔶データ開始行を手動で設定できるように改良しました。 まるまま合体させたり、見出しは1回だけであとはデータ行だけ合体させたり、単一ブックの複数シートを合体させたりと、ほとんどの場合に対応できるようにしました。 研究会の参加者名簿の取りまとめで50校くらいから名簿が返ってきたとします。 手動で貼り合わせてフィルターかけて・・・面倒です。 ワンボタンでシートを縦に合体できるマクロを紹介します。 ①合体させたいブックを1つのフォルダーに全部入れます。 ②このマクロシートを立ち上げ、P6セルにデータ開始行の数字を入れます。 ③赤ボタンをクリックします。 ④ ①で作ったフォルダーを指定して、OKをクリッ…

2020/09/13 15:00

【VBA】選択したブックの全シートを縦に合体できるマクロ

研究会の参加者名簿の取りまとめで50校くらいから名簿が返ってきたとします。 手動で貼り合わせてフィルターかけて・・・面倒です。 ワンボタンでシートを縦に合体できるマクロを紹介します。 赤いボタンを押すと、フォルダーの場所を聞いてきます。 選択してOKを押すと、出来上がりです。 こんな感じに1行目だけ見出しであとは縦に結合されます。 かなり楽になると思います。 ↓サンプルファイル（備忘録） 下の方にある青いボタンは、同一ファイルの全シートを1行目から全部縦に合体できるマクロです。 例えば、年カリを縦に貼り合わせるのとかにも使えると思います。 では、また(^^)/

2020/09/13 03:52

【VBA】セル塗りつぶし色は、RGBやcolorindexを使わず凡例でもよい

運動会特別時間割作成シートで使った手法です。 凡例を作り、同じように塗りつぶしをかければ、RGB等でコードを書く必要がなく、色も自由に変えられます。 【コード】標準モジュール Sub 塗りつぶしフォントカラー凡例コピー() Dim rng, rngR As RangeDim c, r As Integer Set rng = Range("C1") '凡例 For c = 0 To 10 Step 2 For r = 0 To 10 Step 2 Set rngR = Range("C6").Offset(r, c) '適用先 With rngR .Interior.Color = rng.I…

2020/09/12 15:38

【VBA】e週案の機能アップを行いました

現在も稼働しているe週案。2年ほど前から使ってきて、先生方の声も取り入れて機能追加を行ってきました。今回は、指導内容を読み込む機能を別ファイルにコピーできるようにしました。 例えば、昨年度6年担任だった先生の指導内容を読み込むことができるので、指導進度の目安がワンタッチで分かります。 右の赤いボタンを押すと、指導内容シートをコピーできます。 終わりにサンプルファイルを置いています。 この週案の代表的な機能としては、 🔶「■指導内容」シートに書いた内容を、ボタン1つで読み込むことができる。 🔶モジュールのカウントもできる。 🔶7時間・6時間目の表示を切り替えできる。 🔶学期ごとの使用を想定してい…

2020/09/12 02:21

【自作シート】特別時間割作成シート（運動会版）

運動会のシーズンがやってきますね。15年くらい前に教務主任をしていた頃、特別時間割を組むのに使っていたソフトです。少しリニューアルしました。 これはマクロの出番です。・・・私は数式では作れませんでした。 【目次】 ①元の時間割表を貼ります。 ②隣のチェックシートの同範囲にも、同じ時間割を貼ります。 ③学年練習コマとの重複をチェックする。 ④移動させたコマが、同一学級で被っていないかチェックできます。 ⑤おまけとして、元の時間割と、組んだ特別時間割を照合できます。 ⑥サンプルファイル（備忘録） ①元の時間割表を貼ります。 運動会練習の割り当てコマを入れて貼ります。 ②隣のチェックシートの同範囲に…

2020/09/06 15:11

【自作ソフト】戻るリンク自動作成目次シート（完成版）

自校で使ってみると、なんやこれ！！！って大好評だったので、 少し改良しました。通信簿や会計ブックなどにモジュールコピーすると、 即使えます。コピーもダイアログ型に改良しました。 改良点は、 全てのシートの1行目に「目次に戻る」というリンクを張れますが、 A列などは非表示にしている場合がありますから、上図のF15、16セルで リンクを張る範囲を手動で設定できるように改良しました。 例えば、E列以降に張りたいなら、5～10くらいに設定します。 「目次を更新します」の赤ボタンを押すと、古いリンクは一旦消されて、張りなおせるようにしました。既存のデータは一切壊しません。 他のブックに標準モジュールをコ…

2020/09/06 02:46

【自作ソフト】自由度が高い自動席替えソフト「せきがえる」

男女枠を設定してボタンを押すだけ。男女別名簿があれば名前も入って全自動で席替えできます。現場で実際に使える仕様にしました。 でも、子どもたちはくじを引くのが楽しみです。男女の場所だけ決めて、くじを引くやり方でも使えます。 【目次】 ①男女の場所を決めてボタンを押すと、数字が入ります。 ②男女別名簿を入れておけば、名前も入ります。 ③青枠のパーツを自由にレイアウトできます。これは楽です。 ④特別教室ももちろんOK！ ⑤サンプルファイル（備忘録） ①男女の場所を決めてボタンを押すと、数字が入ります。 ②男女別名簿を入れておけば、名前も入ります。 ③青枠のパーツを自由にレイアウトできます。これは楽で…

2020/09/01 00:19