0

エクセル マクロ（VBA） FindPreviousの使い方がわかりません。 エクセルで成績処理を行っています。ブックはシート３枚で、シート１はメニュー画面、シート２はデータシート（Ａ列が生徒番号（1組1番の生徒は１０１）、Ｂ列が組、Ｃ列が出席番号、Ｄ列が性別、Ｅ列が氏名、Ｆ列からが各教科の成績）、シート３は、特定のセル(AR5)に入力した生徒番号を参照するvlookup関数を使った個票形式になっています。
マクロを使って、メニューシートにクラスを入力（D6セル）し、そのクラスの生徒の個票が連続で印刷されるプログラムをつくります。生徒数は学級によって違います。また、生徒番号は転出等により途中欠番があります。欠番生徒のデータは削除されています。たとえば１組の９番の生徒が転出したとすると、データシートは生徒番号108のデータの下の行は110の生徒データの行になります。データシートの並びは１組のデータの下に２組データ、３組データと組ごとに生徒番号順にデータがあります。
メニューシートに入力した組を、データシートの組列(B列)の上から順番に検索し、一致するセルの行を開始行とし、その行の生徒番号の値（A列）を個票シートのAR5セルにコピーし、個票を印刷。次にその行の１つ下の行の生徒番号をコピーし印刷。これを該当クラスだけ続けて、組が次の組になったら終了するプログラムを次のように書きましたが、うまくいきません。たぶんfindメソッドの使い方がおかしいと思うのですが…、よろしくおねがいします。
Dim 開始行 As Range
Dim 終了号 As Range
If Application.CountIf(Worksheets("データシート").Range("B:B"), Worksheets("menu").Range("D6")) = 0 Then
msgobox "class name is not exist in data list"
Exit Sub
End If
Set 開始行 = Worksheets("データシート").Range("B:B").Find(what:=Worksheets("menu").Range("D6"))
Set 終了行 = Worksheets("データシート").Range("B:B").FindPrevious(開始行)
始まりの番号 = 開始行.Value
終わりの番号 = 終了行.Value
For 行 = 始まりの番号 To 終わりの番号
If workshseets("データシート").Cells(行, A) <> "" Then
Worksheets("個票").Range("ar5").Value = 行
Worksheets("個票").PrintOut copies:=1, collate:=True
End If

質問者が選んだベストソリューション

Yahoo!知恵袋 5140日前