Excel VBA質問箱 IV

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

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


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

40731 / 76732

←次へ　｜　前へ→


	【41092】検索について

しげ - 06/7/28(金) 22:20 -


	引用なし

	パスワード

こんにちは。
検索について色々前の投稿を見させて頂き、書いていたのですが
初心者のため、分からない事が出てきたので質問させてください。

ＢＯＯＫ１
シート１には
プロジェクト名　　　　　期間　　　　　　　
プロジェクト１　2005/10/1～2006/4/30　　
プロジェクト２　2006/4/30～2006/9/30
プロジェクト３　2006/12/1～2006/5/30

シート２には
　　　　　　　　2006/4月　 5月　 6月　 7月　 8月　 9月・・・ 2007/3月
プロジェクト１　
プロジェクト２　
プロジェクト３　

ＢＯＯＫ２（プロジェクト１）
10月　　11月　　 12月　　 1月　　 2月　　 3月　　 4月
120　　 130　　　140　　　150　　 160　　170　　 180

ＢＯＯＫ３（プロジェクト２）
4月　　　5月　　　6月　　　7月　　　8月　　　9月
100　　　120　　　120　　　140　　　150　　　120

ＢＯＯＫ４（プロジェクト３）
12月　　 1月　　 2月　　 3月　　 4月　　 5月
120　　 130　　　140　　 150　　160 　　 170

ＢＯＯＫ２、３、４の情報をＢＯＯＫ１のシート２に転記したいのです。
ただ、１期が2006/4～2007/3のため　2005年の情報は転記する必要がないのです。
プロジェクト１は4月のみ、プロジェクト２は4月から9月すべて
プロジェクト３は4月と5月　という具合です。

sub 転記()
　　dim II as variant
　　dim BRow as range
　　set II =workbook("プロジェクト１").range("A1:A12").find(what:="4月",
　　　　　　lookin:=values,lookat:=xlwhole)
　　if not II is nothing then
　　 BRow=workbook(1).sheets(2).range("B65536").end(xlup).row
　　 workbook(1).sheets(2).range("B" & BRow+1) =II.offset(1).value
　　else
　　　BRow=workbook(1).sheets(2).range("B65536").end(xlup).row
　　　workbook(1).sheets(2).range("B" & BRow+1)="0"
　　end if
End sub

どう変えていけばよいのでしょうか？
ご教授お願いします。
いくつかの質問とかぶっているところが有ると思うのですが・・・申し訳ないです。

0 hits

▼

【41092】検索について しげ 06/7/28(金) 22:20

≪