今回の練習はコチラ
合計金額を出すのはfor~nextで囲んでやるだけ、ココは調べなくてもできる。
問題は次、フォーマットの変更。
正解はcoulumで列を指定してあげて.numberformatlocalでフォーマットを変更を指示する。
コードはこんな感じ
Columns("D").NumberFormatLocal = "#,##0"
私は解答見るまでfor-next内にループさせて書こうとしてました。
そんなことしなくても列を指定してあげて、フォーマットを変更させればいいだけでした。
VBA、平均値の出し方
今日はこちらの問題。
合計値と平均をメッセージボックスで出す問題。
合計値は前回のlngToalで無事出せました。
平均値の出し方がわからず回答を見ることに
合計値と同じくlngCntを作ってあげて初期値を０に設定
その後下記のコードを入力
lngCnt = lngCnt + 1
合計値の時もそうだったけどFor~Nextの間でlngCntが＋１されていくのが理解できてない感じ。
調べてたら他にも困ってる人がいました。
参考にしたページはコチラ
後はメッセージボックスに出すだけ。
これも調べました。
文字列は””で囲う
変数は&&で囲う
改行は& vbLf &
その後は
, ボタン形態 , タイトル
となる。
道は長い
VBA超初心者
今日はVBAの勉強。勉強し始めてもうすぐ1年というのに理解がかなり遅いです。
休日に１時間弱の勉強、それもやったりやらなかったりなので...
今までの勉強の流れとしては
たてばやし 淳 さんの『Excel VBA 脱初心者のための集中講座』を一通り終えて、
サイトExcelとVBAの入門解説｜エクセルの神髄の練習問題を進めてます。
今日やったのはコチラ。練習問題6（変数を使っての合計の練習）｜VBA練習問題
自力で出来なかったのは以下
１，金額の合計値を最終行の一行下に計算すること
２，合計値の出し方
調べた結果
最終行の一行下は
n = Cells(Rows.Count, "B").End(xlUp).Row + 1
これで追加できるらしい。
合計値は調べても関数を利用するものしかhitせず、解答をみました。
lngTotalをつくり、初期値を０にする。
そこにCells(i, "D")をどんどん足していく方法みたいでした。
私が書いたコードはこちら
Option Explicit
Sub 合計金額()
Dim i As Long
Dim lastRow As Long
Dim n As Long
Dim lngtotal As Long
n = Cells(Rows.Count, "D").End(xlUp).Row + 1
lngtotal = 0
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastRow
Cells(i, "D") = Cells(i, "B") * Cells(i, "C")
lngtotal = lngtotal + Cells(i, "D")
Next i
Cells(n, "D") = lngtotal
End Sub
なんとも不格好。恥ずかしい。いつか笑い話にできるように証拠残しときます。
最終行の１行下にデータを追加する方法は、模範解答では
Cells(lastRow + 1, 4) = lngTotal
なんともシンプル。
自分の発想力のなさが恥ずかしい。
精進します。
なかなか難しい…
BizRobo!の事を記事にしようと思っていたのですが、なかなかむずかしいです。
会社で触って、上手くいかないたびに調べるのですが、それをスクショ取って、記事にする時間がない！
仕事終わりはヘロヘロになっているし…
違うジャンルの事を書こうかしら？
