エクセルで中学校の成績処理を行っています。

質問

エクセルで中学校の成績処理を行っています。
　ブックはシート３枚構成で、シート１はメニュー画面、シート２には生徒番号（1組1番の生徒は１０１）、学年、組、氏名、各教科の成績データが入力されており、シート３は、特定のセルに入力した値（生徒番号）を参照するvlookup関数を使った個票形式になっています。
マクロを使って、メニューシートにクラスを入力し、そのクラスの生徒の個票が連続で印刷されるプログラムを使っています。生徒数は学級によって違います。また、生徒番号は転出等により途中欠番があります。
　今まで次のようなプログラムを使っていました。

Sheets("menu").Select
For 行 = Range("E１７").Value To Range("G１７").Value
Sheets("個票").Select
Range("ak5").Value = 行
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
Sheets("menu").Select

　Ｅ１７セルには開始生徒番号（1組の場合は１０１）、Ｇ１７セルには最終生徒番号が自動計算で出てくるようにしています。

　この方法だと欠番のところに1つ前の生徒のデータが重複して印刷されます。
そこで、メニューシートに入力した組を、データシートの組列の上から順番に検索し、一致するセルの行を開始行とし、その行の生徒番号の値を個票シートにコピーし、個票を印刷。次にその行の１つ下の行の生徒番号をコピーし印刷。これを該当クラスだけ続けて、組が別の組になったら終了するというような形に変えたいと思います。
　たぶんｄｏ　ｌｏｏｐなどでできると思うんですが。よろしく御願いします

回答No.2

keithin · ベストアンサー

アイデア次第で，いろんな取り組みが考えられます。
ところで「重要な」状況説明の不足として，いま一つ問題になっている「欠番の生徒」の，シート２の実際の行のデータがどうなっているのかですが。

状況から推測すると「空行が１行入っている」か，もしくは最低でも「（不明の列番号の）該当の行に番号の数字が記入されていない」と思われます。

すると，ひとつの簡単なやり口としては

For　行 = 始まりの番号 to 終わりの番号
　If workshseets("Sheet2").cells(行，番号列)<>"" then
　　worksheets("個票").Range("ak5").Value = 行
　　worksheets("個票").PrintOut copies:=1, collate:=true
　end if
next 行

のようにして，実際にデータが有れば印刷するし，なければその番号はスキップするという仕込みが考えられます。

次の課題として「クラス番号だけを指定して印刷対象データをすくい上げたい」ですが。
こちらも，具体的なサンプルマクロを誰かに書いて貰うにも，「クラスって何列ですか，どんなデータで記入してあるのですか」といった具体的な事実が情報提供されていません。

まぁ，最低でも「同じクラスの子供達はヒトカタマリの行範囲にまとめて並べてある（途中に抜け等はあるにせよ）」というお話しで間違い無ければ
・「開始行」はクラス番号が「最初に出てきた行」である
・「終了行」はクラス番号が「最後に出てきた行」である
といった工夫が出来そうです。

仮にシート２のA列にクラス番号。menuのA1セルにクラス番号として

　dim 開始行 as range
　dim 終了号 as range

　if application.countif(Worksheets("Sheet2").range("A:A"), worksheets("menu").range("A1")) = 0 then
　　msgobox "class name is not exist in data list"
　　exit sub
　end if

　set 開始行 = worksheets("Sheet2").range("A:A").find(what:=worksheets("menu").range("A1"))
　set 終了行 = worksheets("Sheet2").range("A:A").findprevious(開始行)

のような所でしょうか。
すると，前述のマクロにつないでみるなら

　始まりの番号 = 開始行.value
　終わりの番号 = 終了行.value

といった具合になります。

補足

欠番生徒のデータは削除されています。たとえば１組の９番の生徒が転出したとすると、データシートは生徒番号１０８のデータの下の行は１１０の生徒データの行になります。
データシートの並びはＡ列が生徒番号、Ｂ列が組、Ｃ列が出席番号、Ｄ列が氏名、Ｅ列が性、Ｆ列からが各教科の成績になっています。１組のデータの下に２組データ、３組データと組ごとに生徒番号順にデータがあります。

回答No.3

Saturn5

他の方が書いておられますが、欠番かどうかを判定する文を
入れるのが楽でしょう。

全く違ったアプローチとしては、印刷用シートのＶＬＯＯＫＵＰを
完全一致にするのです。
VLOOKUP(検索値,範囲,列番号,検索の型)
の検索の型に［true］を入力してください。
省略されていると範囲内の一番大きな値になるので、
出席番号が１つ前の生徒のデータが出るのです。

回答No.1

mt2008

なるべく今のまま手を加えない方法で……
シート2の生徒番号の列（A列？）に、該当する生徒番号があるかを確認しましょう。
シート名や列は実際の物に合わせてください。

Sheets("menu").Select
For 行 = Range("E17").Value To Range("G17").Value
　rtn = Application.WorksheetFunction.CountIf(Worksheets("Sheet2").Range("A:A"), 行)　'Sheet2のA列に該当生徒番号があるか確認
　If rtn > 0 Then　'Sheet2に生徒番号がある場合処理続行
　　Sheets("個票").Select
　　Range("ak5").Value = 行
　　ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
　End If
Next
Sheets("menu").Select