第3講 For文を学ぼう

第3話 国語の合計の計算
前話問題解答例
Private Sub CommandButton1_Click()
  
  Dim a As Integer, i As Integer
  
  a = 0
  
  For i = 5 To 10
    a = a + Cells(i, 3)
  Next
  
  Cells(11, 3) = a
    
End Sub

Private Sub CommandButton2_Click()

  Range("C11").Select
  Selection.ClearContents
  Cells(1, 1).Select
  
End Sub
参考ダウンロード
添付ファイル

実行画面
実行を押すと、

23
消去を押すと、
9

では、次ぎに実行ボタンを押すと、
さらに、
教科合計と合計の合計も表示できるようにプログラムを変更しましょう。
実行ボタンを押すと、
57
消去ボタンを押すと、
9

第2話へ 第4話へ

004

eclipse c++ 入門
魔方陣 数独で学ぶ VBA 入門
数独のシンプルな解き方・簡単な解法の研究
vc++講義へ
excel 2013 2010 2007 vba入門へ
VB講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
専門用語なしの C言語 C++ 入門(Visual C++ 2010で学ぶ C言語 C++ 入門)
専門用語なしの excel vba マクロ 入門 2013 2010 2007 対応講義 第1部
eclipse java 入門へ
excel 2016 vba 入門へ第2部へ
小学生からエンジニアまでのRuby入門へ
小学生からエンジニアまでのC言語入門 基礎から応用まで
本サイトトップへ