第３講　For文を学ぼう

第３話 国語の合計の計算
前話問題解答例
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
参考ダウンロード添付ファイル

実行画面
実行を押すと、

消去を押すと、


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

消去ボタンを押すと、


第２話へ　第４話へ

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