シート名→ コース別VBA に 表示する窓口を設定しました。 そして、クラス出席番号順 というシート名から そのコース別ＶＢＡに表示するという作業です。 表示するのは、番号・名前・住所などです。 一応、下のように打ってみたのですが、 「オブジェクトは、メソッドまたはプロパティをサポートしていません。」 よろしくお願い致します。 Sub コース別表示() Set 窓 = Worksheets("コース別VBA") 引き取り = 窓.Cells(3, 2) Set クラス = Worksheets("クラス出席番号順") 縦 = 6 For 行 = 3 To 351 If クラス.Cells(行, 9) = 引き取り Then 窓.cell(縦, 2) = クラス.Cells(行, 3) 窓.cell(縦, 3) = クラス.Cells(行, 4) 窓.cell(縦, 4) = クラス.Cells(行, 5) 窓.cell(縦, 5) = クラス.Cells(行, 6) 窓.cell(縦, 6) = クラス.Cells(行, 7) 窓.cell(縦, 7) = クラス.Cells(行, 8) 縦 = 縦 + 1 End If Next End Sub
↧