Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7931 / 76734

←次へ　｜　前へ→


	【74384】Re:月ごとの転記

愛子 - 13/5/28(火) 14:36 -


	引用なし

	パスワード

▼UO3 さん：
こんにちは、
完成しました。有難うございます。

>皆さんからのアドバイスは、ぜひ、今後に生かしていってくださいね。

はい。皆様の言う事は、叱咤激励と思っています。誰がこんなに私の事を
思って言ってくれるでしょうか？有り難いです、意識していきます。

>Ｂ列（合計列）には数式が入っているのでしょうか？

Ｂ列に４月から３月までをＳＵＭ関数で入れています。

　　　質問1.：下記Ｅ2のデータは２行目なのでＬ１もデータは２行目だと
　　　　　　　思いますのでＬ１をＬ２に変えてみるとシート名：一致に転記後、
　　　　　　　集計の金額と比較すれば、1行目の金額は、転記されませんで
　　　　　　　した。そこでＬ１に戻し、Ｅ２をＥ１に変えたのですが、
　　　　　　　変化は見られませんでした。改めて下記コードの意味を教えて頂け
　　　　　　　ますか？
　　　　　　
　　　　　　For Each c In .Range("E2", .Range("E" & .Rows.Count).End　　　　　　　　　(xlUp))
　　　　　　 dic(c.Value) = dic(c.Value) + c.EntireRow.Range("L1").Valu　　　　

　　　　　　　　　　　　　　　　
　　質問2.：下記コードの変数が理解しようと思っているのですが、
　　　　　　　もう一つわからりません。教えて下さい。　　　　　　　　　　　　　　　　　
　　
　　　　nameV = .Value　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　mmV = .Offset(, mm - 2).Value　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　For i = 1 To UBound(nameV, 1)　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　　　If dic.exists(nameV(i, 1)) Then mmV(i, 1) = dic(nameV(i, 　　　　　　　　1))
　　　　　　　Next　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　.Offset(, mm - 2).Value = mmV

1 hits

▼

【74361】月ごとの転記 愛子 13/5/26(日) 21:06