Excel VBA質問箱 IV

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

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


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

45404 / 76732

←次へ　｜　前へ→


	【36321】Re:35行９列に仕上げる

とおりすがり - 06/3/28(火) 21:50 -


	引用なし

	パスワード

▼gako さん：
>約100枚のシートの個人別積み立て表があります。
>この100枚のシートの表を1枚の集計表に仕上げたいのです。
>
>個々の積み立て表は次のような内容です。
>　　　A 　　　B　　　　C　　　　D
>1　コード　氏名
>2　 001　　 AAA
>3
>4
>5　日付　　備考　　金額　　合計　　　
>6　1/31　　　　　　　　100　　　 300
>7　2/28　　　　　　　　100
>8　3/31　　　　　　　　100
>9
>
>
>集計表に集計するため次のようなコードを書いています。
>このコードでは、集計表のAからC列(コード、氏名、金額）に100行にまたがりデータが張り込まれます。
>Sub 集計 ()
> Dim Ws as Worksheet
> Dim LngR as long
>　 For Each Ws In Worksheets
>　　If Ws.Name<>集計表 And Ws.Name<>XYZ Then
>
>　　 With Sheets("集計表")
>　　　　LngR=.Range("A65536").End(xlUp).Offset(1).Row
>　　　 .Range("A"&LngR)=Ws.Range("A2")
>　　　 .Range("B"&LngR)=Ws.Range("B2")
>　　　 .Range("C"&LngR)=Ws.Range("D6")
>　　 End With
>
>　　End If
>　Next
>End Sub
>
>
>これを下のような表の『３５行９列の仕上げ』にしたいのですが、コードのチェックを
>お願いできませんでしょうか。　
>
>１　コード　氏名　合計　 | コード　氏名　合計　　｜コード　氏名　合計
>２　　001　　AAA　300 　｜036　　　aaa　　1000　　｜071　　　xxx　 1500
>３　　002　　BBB　400 　｜　　　　　　　　　　　　｜
>：　 003　　CCC　700
>：
>35
>
>

なぜ自分でチェックできない？
100行にまたがりデータが張り込まれるって？
集計表シートに書き込んでるコードはたった３行しかないんだから、それぞれ書き込みをするときの変数をチェックすればいいでしょ？

それと、　If Ws.Name<>集計表 And Ws.Name<>XYZ Then
ここも　集計表とXYZはシート名の集計表とXYZじゃないから。
シート名の集計表とXYZにしたいなら、それぞれを””で括らないとダメ

1 hits

▼

【36318】35行９列に仕上げる gako 06/3/28(火) 21:05