Excel VBA質問箱 IV

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

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


36281 / 76738 ←次へ | 前へ→

【45640】Re:年度情報を集約ファイルに書き込むには?
発言  vang  - 07/1/8(月) 13:25 -

引用なし
パスワード
   かみちゃん様
こんにちは。以前教えていただいたコードを参考に現在取り組んでいるのですが
うまく行かない箇所がありましたので教えてください。


>店所情報.xlsで何も情報がない時に集約表から取込を行うと、2行目にある題字が
>取り込まれてしまうのですが、これを改善する方法はないのでしょうか。もうひとつ
>すいません。H19年度にファイルを変更する場合、> With WS1
>>  .Range("B3", .Cells(Rows.Count, 2).End(xlUp)).Resize(, 4).Copy _
>>   Workbooks("集約表.xls").ActiveSheet.Range("B6")

>以下のような感じでできるかと思います。
> With WS1
>  If .Cells(Rows.Count, 2).End(xlUp).Row > 3 Then
>   .Range("B3", .Cells(Rows.Count, 2).End(xlUp)).Resize(, 4).Copy _
>    Workbooks("集約表.xls").ActiveSheet.Range("B6")
>  End If
> End With
>
これと同じく店所情報.xlsのH列の入力を同じように集約表.xlsのE列に取り込みたい
のですが、上記のコードを参考に

With ws1
  If .Cells(Rows.Count, 2).End(xlUp).Row > 3 Then
  .Range("B3", .Cells(Rows.Count, 2).End(xlUp)).Resize(, 2).Copy _
   Workbooks("集約表.xls").ActiveSheet.Range("B2")
  End If
  End With
 
  With ws1
  If .Cells(Rows.Count, 2).End(xlUp).Row > 3 Then
  
  .Range("H3", .Cells(Rows.Count, 8).End(xlUp)).Resize(, 1).Copy _
   Workbooks("集約表.xls").ActiveSheet.Range("E2")
 End If
 End With
 WB1.Close
End Sub

と作ってみたのですが店所情報.xlsのH列に何も書かれていないとH列に
どうしても題字が入ってきてしまいます。
これを解決するにはどこを改善すればよいのでしょうか。

>> H18年度に8行目まで埋まっていたとしたらH19年度には9行目から入力できる
>
>でも、ここなのですが、
>H18年度に8行目まで埋まっていたとき、
>元の「H18店所情報.xls」に追加削除のような変更があったとします。
>そのときは、上記で言えば、9行目から出力するのではなく、7行目から上書きしたいですよね?
>でも、「H19店所情報.xls」から転記するときは、9行目からしたいですよね?
>元の「H18店所情報.xls」に追加削除はないのでしょうか?
>
>このことについて、[45539]で、以下のようなことを申し上げています。
>おわかりになりませんか?

「H18店所情報」をH19年度になってから変更することはありません。
お手数おかけします。すいません。
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 お礼

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