回答編集履歴
1
指摘を受け、正しいロジックへ
answer
CHANGED
|
@@ -15,19 +15,26 @@
|
|
|
15
15
|
Next
|
|
16
16
|
|
|
17
17
|
|
|
18
|
+
'指摘事項修正
|
|
18
|
-
|
|
19
|
+
i = 0
|
|
19
|
-
|
|
20
|
+
With DataGridView1
|
|
20
|
-
|
|
21
|
+
For j = 0 To 11
|
|
21
|
-
|
|
22
|
+
.Columns.Add(0, addstr(0, j)) '指摘事項修正:列は一つずつ作られる
|
|
23
|
+
|
|
24
|
+
If j = 0 Then
|
|
25
|
+
.Rows.Add() '指摘事項修正:行は1行ずつ作られる
|
|
26
|
+
.Rows.Add()
|
|
27
|
+
End If
|
|
28
|
+
|
|
29
|
+
For i = 1 To 2
|
|
30
|
+
.Rows(i - 1).Cells(j).Value = addstr(i, j) '作ってから値を入れる
|
|
22
31
|
Next
|
|
23
|
-
.Rows.Add()
|
|
24
|
-
For j = 0 To 10
|
|
25
|
-
.Rows(i).Cells(j).Value = addstr(i, j)
|
|
26
|
-
|
|
32
|
+
Next
|
|
27
|
-
|
|
33
|
+
End With
|
|
28
|
-
Next
|
|
29
34
|
|
|
30
35
|
DataGridView1.AllowUserToAddRows = False
|
|
36
|
+
|
|
37
|
+
'作る数が正しければ、特に列・行の制御はいらない
|
|
31
|
-
DataGridView1.RowCount = 3
|
|
38
|
+
'DataGridView1.RowCount = 3
|
|
32
|
-
DataGridView1.ColumnCount = 11
|
|
39
|
+
'DataGridView1.ColumnCount = 11
|
|
33
40
|
```
|