質問: RGB(0, 0, 255) End Sub ### 試したこと 1ステップイン実行でエラー箇所を特定し、1004エラーが掃かれる。 2該当箇所を「sheet2(Sheet1)」に移して単独実行したところ、正常に実行された。 ![イメージ説明](https://teratail.storage.googleapis.com/uploads/contributed_images/9a573455076d25c091a91853e7908a9f.png) 3「Sheet1(To-Do リスト)」上でエラー箇所を別のサブプロシージャとして実行したところ、同じく1004エラーとなる。 ### 補足情報(言語/FW/ツール等のバージョンなど) より詳細な情報 【開発環境】 OS Windows8.1 Excel2013 VBAバージョン 7.1
回答: ``` Worksheets("Sheet1") ``` ではなく、 ``` Worksheets("To-Do リスト") ``` としてみたら如何でしょうか? ### 追記 下記の様に、worksheetsを定義してあげると良いのではないでしょうか。 ``` Sub gantt_chart() Dim project_name Dim gantt_num As Integer 'ここを追記 Dim sheet1 As Worksheet Set sheet1 = Worksheets("sheet1") 'ここを追記 gantt_num = 1 project_name = Cells(7, 2) Worksheets("Sheet1").Cells(1, 1).Value = project_name 'セル着色【エラー箇所↓】 'ここを変更 sheet1.Range(Cells(1, 2), Cells(1, 4)).Interior.Color = RGB(255, 0, 0) 'セル着色【エラー箇所↑】 Worksheets("Sheet1").Cells(1, 5).Interior.Color = RGB(0, 0, 255) End Sub ```