お客さんからもらったEXCELのフォーマットに沿って集計ツールを EXCEL VBAで作成していますが、下記で詰まってしまいました。 表示されているシートを順に選択して、それ毎に「結果」と「実施日」と 入力されているセルがあるか探して、無ければとばして、あれば 処理していくという流れで作成しています。 ★の行が無い状態では動くのですが、それだとシート内で「結果」「実施日」を 見つけて処理した後に、次のシートへ行ってしまいます。 シートによっては複数の「結果」「実施日」があり（この２つはセット）、 それを全て拾って処理したいと考えて、繰り返す為に★の行を追加して実行すると、 一つ目の★の行で「オブジェクトが必要です」というエラーではじかれてしまいます。 自分としては、２つ目の★の行でオブジェクトを用意しているつもりですが。。。 For Each、、、に拘りは特に無いので、他の方法も含めて どなたかご教示いただきたいです。 For Each Sh In Worksheets Sh.Activate If Sh.Visible = True Then Set Kekka = Sh.Cells.Find(What:="結果") If Not Kekka Is Nothing Then Set jissibi = Sh.Cells.Find(What:="実施日") If Not jissibi Is Nothing Then For Each rg In UsedRange ★ Set rg = Range("kekka") ★ Day_Col = jissibi.Column Day_Col_Last_Row = Cells(Rows.Count, Day_Col).End(xlUp).Row Result_Col = rg.Column Call Count(A_count, B_count, C_count) Next rg ★ Else End If Else End If Else End If Next Sh
↧