| |
▼if.iserror さん：
みなさんがおっしゃる通りfor〜next文のを使った方がいいかと思います。
>しかし、全くの初心者のため、
>宿題として出された
>if公式の練習として1-10を(1.1)〜(10.1)のセルに埋め
>最後1-10をsumする方法が思いつきません。
スマホから書いてるので動作検証していませんがだいたい次のようになるはずです。
**********************
Sub test '起動するマクロの名前
Dim i As Integer 'ループするための変数
Dim Sum As Integer '合計値を格納するための変数
For i = 1 to 10 'iが1から10になるまで以下を繰り返す(1周毎にiは1増える)
Cells(i, 1).Value = i 'セル(i, 10)にiを記入する
Sum = Sum + i 'Sumに毎回の合計を足していく
Next 'for文の繰返しここまでの意
Cells(11, 10).Value = Sum 'セル(11, 10)に上記の合計を記入する
End Sub 'マクロ"test"の終了
*********************
個人的にははじめに参考書で専門用語さえ覚えれば、あとはネットでなんとかなると思います(専門用語を知らないと検索さえできないので)。
マクロが組めれば効率が格段にアップするので是非この機会に勉強してみてください。
|
|
kamikaya
- 16/6/21(火) 8:43 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
