- 485 名前：デフォルトの名無しさん [2011/12/29(木) 16:48:54.26 ]
- Private Sub CommandButton1_Click()
Dim a, b, c As Single
c = 0
For b = 1 To 5
For a = 1 To 5
c = c + 3
Sheet.Cells(a, b).Value = c
Next
Next
d = 1
For b = 1 To 5
For a = 1 To 5
d = d + 1
Sheet.Cells(a + 10, b + 10).Value = d
Next
Next
End Sub
非常に簡単なんですが、シートに書き込むことができません。どうすれば
書き込めますか？
フォームを作って、クリックボタンを一つ作っています。
