Excel VBA質問箱 IV

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

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


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

36269 / 76738

←次へ　｜　前へ→


	【45652】Re:年度情報を集約ファイルに書き込むには？

vang - 07/1/8(月) 19:16 -


	引用なし

	パスワード

かみちゃん様

>H列の値が入っている最終行を求めるのだから、
>.Cells(Rows.Count, 8).End(xlUp)
>ですよね？
>では、
>If .Cells(Rows.Count, 2).End(xlUp).Row > 3 Then
>は、何の判断をしていると思いますか？

With ws1
　　If .Cells(Rows.Count, 8).End(xlUp).Row > 3 Then
H列だから8としてみたんですけどこれではうまく行かないんですね・・・。
　.Row　>3　に3とは何をさしているんでしょうか。

　 .Range("H3", .Cells(Rows.Count, 8).End(xlUp)).Resize(, 1).Copy _
　　 Workbooks("故障一覧表.xls").ActiveSheet.Range("E2")
　End If

>答えをサラッと書くのは簡単ですが、今後勉強されるのであれば、vangさんのためになりません。
>よく使う処理なので、ぜひきちんと理解していただきたいのです。

ありがとうございます。基礎がないのでなかなか難しくて困っています。
結局今日は完成しそうにありません。

>>難しいコードを組まなくてはならないようなので
>>以前のような考えはなくなりました。
>
>それであれば、対応は、まったく変わります。
>
>Workbooks("集約表.xls").ActiveSheet.Range("B6")
>の部分を
>Workbooks("集約表.xls").ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Offset(1)
>とします。
>なお、このコードにすると、H18年度店所情報.xlsを転記したあとに、
>再度、H18年度店所情報.xlsを転記することはできません。
>エラーが起こるわけではないですが、二重転記になりますので、十分注意してください。
>（そういう考えがなくなったということのようですが、心配です）

ご心配ありがとうございます。
現在は今のコードのまま完成まで行きたいと思っています。

>難しいですか？
>Excelが泣いていますよ。
>今、集約表.xlsに転記されているのは、H18？H19？
>これから転記されてくる店所情報.xlsは、H18？H19？
>これから転記されるのは、ファイル名で判断できるけど、転記されているのは、わからないなぁ～（Excel談）

まだフラグをどのように使っていいかも分かっていないので、
現在は今作っている何回も上書されるようなコードで進めたいと思います。
質問のお答えですが、
現在転記しているのは、H18店所情報です。
4月1日以降はH19店所情報より取り込みます。

0 hits

▼

【45528】年度情報を集約ファイルに書き込むには？ vang 06/12/29(金) 14:42