第３講　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
　　
　　a = 0
　　
　　For i = 5 To 10
　　　　a = a + Cells(i, 4)
　　Next
　　
　　Cells(11, 4) = a

　　a = 0
　　
　　For i = 5 To 10
　　　　a = a + Cells(i, 4)
　　Next

　　
　　Cells(11, 5) = a
　　　　
End Sub

Private Sub CommandButton2_Click()

　　Range("C11:E11").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言語入門 基礎から応用まで
本サイトトップへ