教えて頂いたマクに注釈をつけておきたいのですが・・

質問

度々の質問となり申し訳ございません。

kkkkkmさんにご教示頂いたvbaマクロに、
担当が変わった時のために注釈をつけておきたいのですが、
いろいろ調べたのですが、下記の部分が私の頭ではよくわかりませんでした。
どの様に注釈をつけておけばよいか教えて頂けますでしょうか。

宜しくお願い致します。

「 If Trim(StrConv(Ws1.Cells(i, j).Value, vbNarrow)) = Trim(StrConv(List(1)(k, 1), vbNarrow)) Then
mTotal(1) = mTotal(1) + Ws1.Cells(i, j).Offset(0, 2).Value」

回答No.1

kkkkkm · ベストアンサー

If Trim(StrConv(Ws1.Cells(i, j).Value, vbNarrow)) = Trim(StrConv(List(1)(k, 1), vbNarrow)) Then
mTotal(1) = mTotal(1) + Ws1.Cells(i, j).Offset(0, 2).Value

比較対象のどちらに全角や前後のスペースが存在するのか不明なので、両方とも半角にし前後のスペースを削除して同じ条件にして比較しています。

StrConv(対象, vbNarrow)
対象を半角にします。

Office TANAKA
StrConv
http://officetanaka.net/excel/vba/function/strconv.htm

Trim(対象)
対象の前後のスペースを削除します

Office TANAKA
Trim
http://officetanaka.net/excel/vba/function/Trim.htm

mTotal(1) = mTotal(1) + Ws1.Cells(i, j).Offset(0, 2).Value

費目コード,項目名,金額

なので
Ws1.Cells(i, j)が費目コードで、金額のセルは2列右側のセルになりますので.Offset(0, 2)になります。

これだけはおさえるセル操作（1）－Offsetで自由自在
https://www.moug.net/tech/exvba/0050057.html

お礼

ご回答有難うございます。
単体の意味からなかなか線で繋がらなかったのですが、
文字にして頂いて理解することが出来ました。
とても助かりました。

回答No.2

imogasi

一般論として、経験からの参考に。
（A）コード１行や１行のその部分のやってる意味・目的を解説する。
　　　＜ーーこの部分で何をやってるのだろうか？
（B）塊の２－３行について、
　　　　・やっている目的　や　（例　探す、比較する、修正する、採ってくる、データを変形する、データチェックする、同型の処理を繰り返すなど）
　　　　いろいろなレベルでのもの（目的の表現）が考えられるので、適宜工夫する。
　　　　・採った手段（例　MID関数で文字列の一部をXXするなど）
　　　＜ーーどういう手段で、道具で、例えば関数で、メソッドでやってるのだろうか？
　　　＜ーー繰り返し法やフィルタやFind法のどれを使ったのか
など、
（Ｃ）前提条件はどんなものか。
　　　意外に、他人にも、当然わかると思い込みやすい、ポイントです。
　こんなことを小生は意識してます。

お礼

ご回答有難うございます。大変参考になりました。