Excel VBA質問箱 IV

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

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


36265 / 76732 ←次へ | 前へ→

【45650】Re:年度情報を集約ファイルに書き込むには?
発言  かみちゃん  - 07/1/8(月) 18:48 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>最終行の判断とは、B列やH列にどこまでデータが入っているのか、どこまでの
>>行を集約表.xlsに転記したいのかということです。
>>  A B C
>>1  あ
>>2  い
>>3  う
>>4
>>(以下B列には値は入っていない)
>>のようなデータのときは、3
>>
>>  A B C
>>1  あ
>>2  い
>>3  う
>>4
>>5  え
>>6
>>(以下B列には値は入っていない)
>>のようなデータのときは、5
>>というような感じです。
>>
>この説明から下記コードのどこが変更必要なのでしょうか。

上記の3とか5は、
Cells(Rows.Count, 2).End(xlUp).Row
で取得される値のことです。
これは、B列(2列目)の値が入っている最終行という意味です。

>>>  If .Cells(Rows.Count, 2).End(xlUp).Row > 3 Then
>>>  .Range("H3", .Cells(Rows.Count, 8).End(xlUp)).Resize(, 1).Copy _
>
>H列だから8,H列のみだから1というのは分かる

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

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

>>それであれば、逆にどこまでを転記したのかという情報を「店所情報.xls」に
>>持たせておく必要があると思いますよ。
>>そのような情報がない場合、1行ずつ転記したかどうかを判断して、転記して
>>いなかったら、それは新しく追加したものとして、転記するというような面倒
>>なコードを書かないといけません。
>>どうしますか?
>
>難しいコードを組まなくてはならないようなので
>以前のような考えはなくなりました。

それであれば、対応は、まったく変わります。

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

>>何度も、申し上げているのですが、
>>1つの年度の情報を何回か転記する場合は、店所情報.xlsと集約表.xlsのどち
>>らかに、転記済みのフラグのようなものが必要かと思います。
>
>また難しい事が・・・。フラグをつけるような能力が私にはありません(泣)

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

0 hits

【45528】年度情報を集約ファイルに書き込むには? vang 06/12/29(金) 14:42 質問
【45532】Re:年度情報を集約ファイルに書き込むには? かみちゃん 06/12/29(金) 17:24 発言
【45533】Re:年度情報を集約ファイルに書き込むには? vang 06/12/29(金) 19:14 質問
【45535】Re:年度情報を集約ファイルに書き込むには? かみちゃん 06/12/29(金) 21:26 発言
【45538】Re:年度情報を集約ファイルに書き込むには? vang 06/12/30(土) 15:27 発言
【45539】Re:年度情報を集約ファイルに書き込むには? かみちゃん 06/12/30(土) 17:56 発言
【45553】Re:年度情報を集約ファイルに書き込むには? vang 06/12/31(日) 20:55 発言
【45558】Re:年度情報を集約ファイルに書き込むには? かみちゃん 06/12/31(日) 22:10 発言
【45625】Re:年度情報を集約ファイルに書き込むには? vang 07/1/7(日) 11:46 発言
【45626】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/7(日) 11:59 発言
【45627】Re:年度情報を集約ファイルに書き込むには? vang 07/1/7(日) 12:49 発言
【45628】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/7(日) 13:17 発言
【45629】Re:年度情報を集約ファイルに書き込むには? vang 07/1/7(日) 13:33 発言
【45630】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/7(日) 18:34 発言
【45636】Re:年度情報を集約ファイルに書き込むには? vang 07/1/8(月) 8:53 発言
【45638】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/8(月) 11:20 発言
【45640】Re:年度情報を集約ファイルに書き込むには? vang 07/1/8(月) 13:25 発言
【45641】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/8(月) 13:51 発言
【45644】Re:年度情報を集約ファイルに書き込むには? vang 07/1/8(月) 14:33 発言
【45646】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/8(月) 14:55 発言
【45649】Re:年度情報を集約ファイルに書き込むには? vang 07/1/8(月) 15:39 発言
【45650】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/8(月) 18:48 発言
【45652】Re:年度情報を集約ファイルに書き込むには? vang 07/1/8(月) 19:16 発言
【45653】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/8(月) 19:34 発言
【45654】Re:年度情報を集約ファイルに書き込むには? vang 07/1/9(火) 9:55 発言
【45655】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/9(火) 10:11 発言
【45657】Re:年度情報を集約ファイルに書き込むには? vang 07/1/9(火) 11:44 発言
【45658】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/9(火) 12:16 発言
【45660】Re:年度情報を集約ファイルに書き込むには? vang 07/1/9(火) 13:07 発言
【45661】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/9(火) 13:36 発言
【45663】Re:年度情報を集約ファイルに書き込むには? vang 07/1/9(火) 14:28 発言
【45664】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/9(火) 14:40 発言
【45665】Re:年度情報を集約ファイルに書き込むには? vang 07/1/9(火) 14:56 発言
【45666】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/9(火) 15:20 発言
【45667】Re:年度情報を集約ファイルに書き込むには? vang 07/1/9(火) 15:34 発言
【45668】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/9(火) 16:38 発言
【45669】Re:年度情報を集約ファイルに書き込むには? vang 07/1/9(火) 16:47 お礼
【45670】Re:年度情報を集約ファイルに書き込むには? かみちゃん 07/1/9(火) 16:57 発言
【45672】Re:年度情報を集約ファイルに書き込むには? vang 07/1/9(火) 18:26 お礼

36265 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free