|
▼感想 さん:
おはようございます。
午後から出社します。会社で表を作っていますので、下記で教えて頂いたことを
確認します。
>(質問1に関して)
>作って下さいではなく、詰まっている点を具体的に質問したほうがいいでしょう。
そうですね、私の言い方が間違っていました。すみませんでした。
>
>4月以降と未満で場合分けすることになりますが、
>月に応じて、何列目に書き込むかは組み立てることができますよね。
申し訳ないのですが、どう作っていいかわかりません、
>金額を入れる箇所は、次のような考え方をもとにして、できると思います。
>
> 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
>
>(質問2に関して)
>[考え方のヒント]
> そのコードが標準モジュールに書かれているか、シートモジュールに
> 書かれているかによって状況が変わります。
コードの書かれている場所違いでエラーが出たのかも知れませんね、
出社して確認をします。
>このスタイル(他人の発言との区別は "> " の有無だけ)で統一してもらえば、
>もっと読みやすくなります。
私は、>の有無の区別を知らなかったので、回答者が過去に言った事と
私が言っている事とを分離した方が回答者にわかりやすいだろうと思って投稿者の愛子が発言していますよとの意味で愛子と書きました。
|
|