Excel VBA質問箱 IV

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

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


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

7951 / 76736

←次へ　｜　前へ→


	【74366】Re:月ごとの転記

愛子 - 13/5/27(月) 9:18 -


	引用なし

	パスワード

▼感想さん：
おはようございます。
午後から出社します。会社で表を作っていますので、下記で教えて頂いたことを
確認します。

>(質問1に関して）
>作って下さいではなく、詰まっている点を具体的に質問したほうがいいでしょう。
そうですね、私の言い方が間違っていました。すみませんでした。
>
>４月以降と未満で場合分けすることになりますが、
>月に応じて、何列目に書き込むかは組み立てることができますよね。
申し訳ないのですが、どう作っていいかわかりません、

>金額を入れる箇所は、次のような考え方をもとにして、できると思います。
>
>　　Dim mat1　　'氏名を入れる配列
>　　Dim mat2　　'金額を入れる配列
>　　With Sheets("xxxx")
>　　　　mat1 = .Range("a2", .Range("a" & .Rows.Count).End(xlUp)).Value
>　　　　ReDim mat2(1 To UBound(mat1, 1), 1 To 1)
>　　　　
>　　　　'''' mat2の値は、今と同じ手法で、Dictionaryとmat1の値を使って算出
>　　　　
>　　　　Cells(2, その月に相当する列番号).Resize(UBound(mat2, 1), 1) = mat2
>　　End With
>
>(質問２に関して）

>[考え方のヒント]
>　そのコードが標準モジュールに書かれているか、シートモジュールに
>　書かれているかによって状況が変わります。
コードの書かれている場所違いでエラーが出たのかも知れませんね、
出社して確認をします。

>このスタイル（他人の発言との区別は "> " の有無だけ）で統一してもらえば、
>もっと読みやすくなります。
私は、＞の有無の区別を知らなかったので、回答者が過去に言った事と
私が言っている事とを分離した方が回答者にわかりやすいだろうと思って投稿者の愛子が発言していますよとの意味で愛子と書きました。

0 hits

▼

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