Excel VBA質問箱 IV

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

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


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

67673 / 76732

←次へ　｜　前へ→


	【13613】Re:検索したデータを特定のシートへ貼り付ける

Hirofumi

- 04/5/9(日) 18:23 -


	引用なし

	パスワード

ゴメン、私も善く見ないで回答してしまった

>>　　'最初にIndexに追加されたシート番号に就いて
>>　　With Worksheets(lngSheetNo)

ここで、エラーが出るのは、指定セル位置が日付と認められる転記先のシートが無い事に因ると思われます
詰まり、lngSheetNoが0の値だと思います

>転記先のシートに日付と認められるセルは「E１」なので、これも訂正したのですが、

これは何処を訂正されたのですか？
この修正場所は、以下の部分ですので以下の様に修正して下さい

「B1セルに日付の有るシートのIndexを作成」と書いて有るプロシージャの中で、

　　　　　　'シートiのB1の値を取得
　　　　　　vntDate = .Item(i).Cells(1, "B").Value
を

　　　　　　'シートiのB1の値を取得
　　　　　　vntDate = .Item(i).Cells(1, "E").Value

として下さい

また、

>　前回の質問では、データがあるシート名を「シート１」として現しましたが、
>実は、実際のファイルでは違うシート名なのです。
>ですので、"シート１"という部分は、実際のシート名に変えたのですが、
>これがまずかったのでしょうか？

これは、以下の部分を修正されたのなら問題有りません

　　'データの有るシートに就いて
　　With Worksheets("Sheet1")

のSheet1の部分

>併せて、次の意味を簡単に教えていただけないでしょうか？
>'コピーフラグをTrueに
>　　　blnCopy = True

の意味は、もし、Sheet1のB列の日付が転記先に無い場合、
其の日付以降で次の日付までのデータを転記させない為の処理です
詰まり、blnCopy = Trueの時は、転記が行われ、
blnCopy = Falseに成ると、転記が行われ無く成ります

PS：
　コードを色々いじる事は、賛成です（いじらなければ解らない）
　ただ、動かない場合、コードをいじっているなら、其の部分を具体的に書いて下さい

0 hits

▼

【13588】検索したデータを特定のシートへ貼り付ける ハルコ 04/5/8(土) 15:29