第4講 同じこと(同様なこと)の繰り返し
第6話 等差数列の積


前話問題解答例
Private Sub CommandButton1_Click()
  Dim w As Long, i As Long
  w = 1
  Dim a As Long, b As Long, c As Long
  a = Cells(6, 2)
  b = Cells(7, 2)
  c = Cells(8, 2)
  For i = a To b Step c
    w = w * i
  Next
  Cells(9, 1) = "のときの積"
  Cells(9, 2) = w
End Sub
Private Sub CommandButton2_Click()
  Range("B6:B8").Select
  Selection.ClearContents
  Range("A9:B9").Select
  Selection.ClearContents
  Cells(1, 1).Select
End Sub


解説
かけ算の場合w = 1とすることがミソです。

次話の課題です。
まず、エクセルのシート側に
を作っておきます。
そして、実行ボタンを押すと国語の合計が計算され、
となり、消去ボタンを押すと、
と戻るマクロを組んでください。
ヒントを書いておくと、CellsはCells(5 + i, 3)のような使い方もできるということです。
(出席番号については、後で実行ボタンを押すと発生できるようにします。)

第5話へ 第7話へ

トップ

vc++講義へ

初心者のための世界で一番わかりやすいVisual C++入門基礎講座
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
vb講義へ
VB講義基礎へ
初心者のためのJava 入門 基礎から応用まで
数学研究室に戻る