teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

ソースコードを追記

2017/02/02 06:08

投稿

motuo
motuo

スコア3027

answer CHANGED
@@ -1,1 +1,31 @@
1
+ ```
2
+ Worksheets("Sheet1")
3
+ ```
4
+ ではなく、
5
+ ```
6
+ Worksheets("To-Do リスト")
7
+ ```
8
+ としてみたら如何でしょうか?
9
+
10
+ ###追記
11
+ 下記の様に、worksheetsを定義してあげると良いのではないでしょうか。
12
+ ```VBA
13
+ Sub gantt_chart()
14
+ Dim project_name
15
+ Dim gantt_num As Integer
16
+ 'ここを追記
17
+ Dim sheet1 As Worksheet
18
+ Set sheet1 = Worksheets("sheet1")
19
+ 'ここを追記
20
+
21
+ gantt_num = 1
22
+ project_name = Cells(7, 2)
23
+ Worksheets("Sheet1").Cells(1, 1).Value = project_name
24
+
25
+ 'セル着色【エラー箇所↓】
26
+ 'ここを変更
27
+ sheet1.Range(Cells(1, 2), Cells(1, 4)).Interior.Color = RGB(255, 0, 0)
28
+ 'セル着色【エラー箇所↑】
1
- ```Worksheets("Sheet1")```ではなく、```Worksheets("To-Do リスト")```としてみたら如何でしょうか?
29
+ Worksheets("Sheet1").Cells(1, 5).Interior.Color = RGB(0, 0, 255)
30
+ End Sub
31
+ ```