Excel VBA質問箱 IV

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

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


67381 / 76732 ←次へ | 前へ→

【13909】Re:検索したデータを特定のシートへ貼り付ける
質問  ハルコ  - 04/5/16(日) 19:07 -

引用なし
パスワード
   ▼Hirofumi さん、ありがとうございます。回答内容のとおり変更し、試行してみたら、うまくいきました。更に、集計表シートへ5月1日〜31日分ということで、各日にちのデータに全支店分のデータを仮入力したものを試行してみましたところ、問題なく処理されました。長い道のりでしたが、本当にありがとうございました。
それで、私もHirohumiさんのコードを元に、更に勉強していこうと思っているのですが、どうしても分からない内容があります。最後に、以下のものだけ、ご教授いただければと思います。私の場合、「インデックス」のところが良く理解できていないと思うので、以下の質問も、それが解決しないと理解できないのかなっと思います。流れだけは、つかめるのですが、分からないコードが多すぎて、一つ一つ勉強して理解できるようにします。ので、宜しくお願いいたします。

1.Private Function MakeSheetsIndeの以下の内容についてですが、全てのシートのなかで、除外したシートがある場合は、Forループを終了するというところまでは、分かるのですが、「除外フラグ」というのが、いまいち理解できません。

 For i = 1 To .Count
      '除外フラグをFalseに
      blnExclude = False '★この行追加
      '除外するシート名の先頭〜最終まで繰り返し
      For j = 0 To UBound(vntExclude) '★この行追加
        'もしi番目のシート名が除外するシート名と一致するなら
        If .Item(i).Name = vntExclude(j) Then '★この行追加
          ''除外フラグをTrueの
          blnExclude = True '★この行追加
          'Forを抜ける
          Exit For '★この行追加
        End If '★この行追加
      Next j '★この行追加

また、シートのindexに、シートiのセルE1と同一の日付がある場合、メッセージが出るような内容だと思いますが、これは例えば、どういう場合に、このようなメッセージが出るのか分からないので、申し訳ありませんが、またご教授願います。

      'シートのIndexにこの日付が有る場合
          If dicSheets.Exists(vntDate) Then
            Beep
            MsgBox "同一の日付が有ります"
            Exit Function


2.これは、Functionプロシージャでシートインデックスが作られなかったら、と言いますか、シートインデックスがない場合は、ExitHandler:へ飛び、マクロを終了する、いう理解でよろしいのでしょうか?

 'シートのIndexを作成
  If Not MakeSheetsIndex(dicSheets, lngSheetNo) Then
    GoTo ExitHandler
  End If


  
4 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 お礼

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