気になる

アフェリエイト旅行

自動車

家庭菜園

« ハウス ジャワカレー 中辛 美味しい | トップページ | エクセル VBA お勉強に良いサイト(書籍化された)を発見。挑戦 »

2019/09/02

エクセル VBA 練習問題 (途中断念、無念w)

エクセル2級での関数は以前学習しました。

今回はちょっとレベルアップしてVBAを勉強しています。

練習問題は下記サイトさんのを利用させて頂いています。

約20年前から進化が止まっていると噂のエクセルVBAですが

止まっているならそれはそれで今後10年も進化が無くて

壊れなくていいだろう。なーんて思ってたらしっかりと

進化しているようで、ちょっとガッカリ。w

私の開発環境はエクセル2013です。
(2016買えばよかったのかなぁと思ったりw)

VBAは初心者なので、下記の方法で取り組んでます。

  1. 問題文を読む
  2. 関数が浮かぶなら、直接セル内に直接記述してテスト=結果OKなら
  3. モジュールに記述していく

<解答のメモ>

練習1

Sub ren1()
'=B2/C2
'Cells(2, 4) = Cells(2, 2) / Cells(2, 3)

Dim i As Long
For i = 2 To 11
Cells(i, 4) = Cells(i, 2) / Cells(i, 3)
Next

End Sub

 

練習2

Sub ren2()
'=B2*C2
'Cells(2, 4) = Cells(2, 2) * Cells(2, 3)

'Rows.Count:シートの一番下の行のセル値を取得出来る
Dim a As Long
a = ActiveSheet.Cells(Rows.Count, 1)
Debug.Print a '//0

'Rows.Count.Row:シートの一番下の行番号を取得出来る
Dim b As Long
b = ActiveSheet.Cells(Rows.Count, 1).Row
Debug.Print b '//1048576

'End(xlDown):Ctrl + ↓のキーボード操作
'End(xlUp):Ctrl + ↑のキーボード操作

'イメージ:
'A1からA5まで数値が入っているとする。A1セル上をマウス選択して
'Ctrl + ↓とするとA5セルに移動して選択状態になるw

'失敗例:シートの一番最後まで集計が入っちゃったw
Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp)
Cells(i, 4) = Cells(i, 2) * Cells(i, 3)
Next

Dim ii As Long
For ii = 2 To Cells(Rows.Count, 1).End(xlUp)
Cells(ii, 4) = "" '←取りあえず空白に戻したw
Next

'正解w
Dim iii As Long
For iii = 2 To Cells(Rows.Count, 1).End(xlUp).Row '←行番号取得
Cells(iii, 4) = Cells(iii, 2) * Cells(iii, 3)
Next

End Sub

 

練習3

Sub ren()
'=$A2*B$1

Dim i As Long
Dim j As Long

For i = 2 To 11
For j = 2 To 11
Cells(i, j) = Cells(i, 1) * Cells(1, j)
Next
Next

End Sub

 

練習4。。。
延々と問題を解いて行ったんだけど、途中から解答として紹介されているコード自体が読めないことに。w

解説文も最小限すぎて私にはヒントが足りず、調べる作業に時間を取られすぎることに気づき途中で諦め。残念。

« ハウス ジャワカレー 中辛 美味しい | トップページ | エクセル VBA お勉強に良いサイト(書籍化された)を発見。挑戦 »

お勉強」カテゴリの記事

コメント

コメントを書く

(ウェブ上には掲載しません)

« ハウス ジャワカレー 中辛 美味しい | トップページ | エクセル VBA お勉強に良いサイト(書籍化された)を発見。挑戦 »

google検索

  • Google


    このブログを検索
    ウェブ全体から検索

カテゴリー

ニュース

  • 日経平均(長期)

    株価ミニチャートのブログパーツ
  • 経済指標(発表と内容)へのリンク
    http://jp.investing.com/economic-calendar/
  • 経済指標
  • . . .
  • 日経平均チャート
    by 株価チャート「ストチャ」
  • 株指標
2019年11月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30