VBA でプログラミング入門 第2回

変数

2回目は、3月17日。
今回は、1人休みで、3人でした。

2018年10月~12月の講座の時も、
変数 は、わかったようで、いまいちだったところ。
予習していて、6ページ目で、つまづきました。

【セルに、2、4、6・・・と表示させる方法
この  の右辺のみ書き換えて、
2から始まる偶数を表示させましょう】

Sub sample()
 Dim i
 For i = 1 To 5
  Cells(5, i).Value = i  
 Next
End Sub

予習していた時は、全くわかりませんでした。
7ページ目にあった回答例も見てきたのですが、
何と書いてあったのか、忘れてしまいました。
ようするに、身についてないということ。

「ヒント、出しましょう。
1 に何をかけると2 になりますか?
えっ、1×2 →  i * 2 
これは、目からうろこでしたね!

 

 

練習3) 1、3、5・・・と表示させるには?

それで、帰ってから考えたんです。
1から始まる奇数を順に表示させるには?
当てずっぽうで、  i * 2 – 1 にしたら、
1、3、5,7・・・が表示されました。

 

 

練習4)  10、9、8・・・と表示させるには?

この問題もわかりませんでした。
セルに、10、9,8,7・・・を表示させるには?
もう、 i  のうしろをいじることしか考えてないので、
「そのやり方だと、いくらやっても到達できないです。
ヒント、
何から1を引くと、10になりますか?」
11-1 → 11 – i   

 

家に戻ってから復習していて、
だんだん、わかってきたので、いろいろ遊んでみました。
セルに、10、8,6,4・・・と表示させたり、
(6 – i) * 2 
9,7,5、3・・・と表示させるのもやってみました。
(6 – i) * 2 – 1 

Sub renshu3()
 Dim i
 For i = 1 To 5
  Cells(7, i).Value = i * 2 
  Cells(9, i).Value = i * 2 – 1 
  Cells(11, i).Value = 11 – i 
  Cells(13, i).Value = (6 – i) * 2 
  Cells(15, i).Value = (6 – i) * 2 – 1 
 Next
End Sub

 

 

お楽しみの時間

「やないさんは、前回、やってますね」
と、ああ、あれ(『計算の練習.xlsm』)のこと?
So-net ブログ に克明に書いていたのに、完全に忘れていました。

今回は、『計算の練習・完成例と手順.xlsm』となってましたが、
内容は同じでしょう。
これ、けっこう難しいので、
まだ、さいごまでやってないままでした。
あとで、やってみたら、記事 に書きます。

 

 

サイトマップ