Excel VBA質問箱 IV

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

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


67679 / 76738 ←次へ | 前へ→

【13613】Re:検索したデータを特定のシートへ貼り付ける
回答  Hirofumi E-MAIL  - 04/5/9(日) 18:23 -

引用なし
パスワード
   ゴメン、私も善く見ないで回答してしまった

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

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

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

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

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

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


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

として下さい

また、

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

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

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

のSheet1の部分

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

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

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

0 hits

【13588】検索したデータを特定のシートへ貼り付ける ハルコ 04/5/8(土) 15:29 質問
【13597】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/9(日) 11:39 回答
【13608】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/9(日) 16:20 質問
【13613】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/9(日) 18:23 回答
【13617】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/9(日) 20:02 質問
【13618】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/9(日) 20:44 回答
【13620】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/9(日) 21:21 質問
【13664】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/10(月) 20:06 回答
【13666】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/10(月) 21:24 質問
【13668】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/10(月) 21:48 回答
【13669】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/10(月) 23:12 質問
【13719】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/11(火) 20:18 回答
【13721】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/11(火) 21:10 回答
【13722】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/11(火) 22:24 質問
【13755】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/12(水) 19:50 回答
【13760】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/12(水) 22:17 質問
【13801】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/13(木) 21:49 回答
【13845】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/15(土) 1:31 質問
【13849】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/15(土) 7:31 回答
【13889】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/15(土) 19:20 質問
【13895】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/15(土) 20:56 回答
【13900】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/15(土) 23:29 質問
【13901】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/16(日) 0:23 質問
【13903】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/16(日) 1:45 回答
【13909】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/16(日) 19:07 質問
【13910】Re:検索したデータを特定のシートへ貼り付... Hirofumi 04/5/16(日) 21:07 回答
【13911】Re:検索したデータを特定のシートへ貼り付... ハルコ 04/5/16(日) 22:48 お礼

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