- 487 名前：デフォルトの名無しさん [2011/12/29(木) 18:43:31.84 ]
- ありがとうございます。
Private Sub CommandButton1_Click()
Dim a, b, c, d As Single
c = 0
d = 1
For b = 1 To 5
For a = 1 To 5
c = c + 3
Sheets("Sheet1").Cell(a, b).Value = c
d = d + 1
Sheets("Sheet1").Cell(a + 10, b + 10).Value = d
Next
Next
End Sub
上記のとおりにやりましたが、それでも、
Sheets("Sheet1").Cell(a, b).Value = c
の部分にエラーが出てしまいます；
