Excel VBA質問箱 IV

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

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


67486 / 76732 ←次へ | 前へ→

【13801】Re:検索したデータを特定のシートへ貼り付ける
回答  Hirofumi E-MAIL  - 04/5/13(木) 21:49 -

引用なし
パスワード
   >▼Hirofumi さん、こんばんは。ご指摘のとおりコードを入力しましたが、
>だめみたいです。私もコードの内容について勉強しているのですが、わかりません。
>それで、参考までに今現在のコードを添付致します。それでも判明できなかったら、
>非常に残念ですが、ここであきらめるしかないです。
>これ以上、ご迷惑をおかけすることはできないので、
>後は、私で、Hirohumiさんのコードを元に勉強して、
>解明してみます。

別に、大して迷惑では有りませんが、土日ぐらいしか頻繁に回答できなくて
ご迷惑をお掛けしています
ただ、私もこのコードが動かないのが癪に障りますので
もし、ハルコさんに試して見る気が有れば、デバグの方法をお教えしますので
此れを試して見て下さい

現在の状態は、「同一の店名が有ります」と言う所で引っ掛かっているのですよね?
これは、どのシートの店舗名を読んでこうなって居るのかを調べます

1、コードの実行を途中で止めるので
 先ず、「Sub Classification2」の中の

  '画面更新を停止
'  Application.ScreenUpdating = False

  '画面更新を再開
'  Application.ScreenUpdating = True

 をコメントアウトして下さい
 コメントアウトとは、上記の様に先頭に"'"アポストロフィーを付け
 コメント行にする事です

2、次に、「Function MakeStoreIndex」プロシージャを出します
 
  '最初にIndexに追加されたシート番号に就いて
  With Worksheets(lngSheetNo)

 の位置で、Worksheets(lngSheetNo)をドラッグして反転表示にします

3、此れを、マウスでポイントして、右クリックします
 メニューが出ますので、ウォッチ式の追加をクリックします
 ウォッチ式の追加のダイアログが出て、式の所に

 Worksheets(lngSheetNo)

 が入って表示されるはずです
 此れを
 
 Worksheets(lngSheetNo).Name

 に替え、Okを出します
 画面下側に、ウォッチウインドウが出て、ここに、今入れた「Worksheets(lngSheetNo).Name」
 が表示されているはずです

4、同様に「For i = 」のiを反転表示して、ウォッチ式の追加を行い、ウォッチウインドウに追加します
5、同様に、「'店舗名の先頭から終まで繰り返し」以下のコード中の「vntData(i, 1)」も、
 ウォッチウインドウに追加します
6、次に、

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

 のWithの左側のウィンドウ枠の幅広の部分をクリックします、
 枠に●が表示され、「With Worksheets(lngSheetNo)」が反転表示されます
 私の環境では、反転表示、●共に茶色の色が付いています
 これは、ここにブレークポイントを設定したと言います
7、これで準備が出来ました、表示をVBEからシートにし、マクロを実行します
8、マクロを実行すると、先ほど設定したブレークポイントの位置で実行が中断します
 この時、ウォッチウインドウの「Worksheets(lngSheetNo).Name」の右側の値の所を見ると
 店舗を読みに行っているシートのシート名が表示されています
 まず、此れが転記先のシートの1枚かどうか確認して下さい
9、次に、ファンクションキーのF8を押すと、私の環境では、黄色の反転表示が現れます
 此れは、スッテプ実行と言って、1行づつコードを実行していきます
 F8を何回か押して、黄色の反転表示を「If Right(vntData(i, 1), 1) <> "店" Then」
 の所まで持って行きます、この時、ウォッチウインドウのiの値、vntData(i, 1)の値
 を見て下さい、この様にF8を押す毎に1行づつ実行され、黄色の反転表示の前の行まで
 に変更された、iの値とvntData(i, 1)の値を見ることが出来ます
10、F8を繰り返していくと、何処かで「Beep」の所に反転表示が移ります
 この時のiの値、vntData(i, 1)の値がハルコさんの心当たりの有る値かどうか確認してください
11、もし、シート名が転記先シートの1枚で無ければ、そのシートのE1の日付が有るはずです
 また、シート名が転記先シートの1枚で有れば、vntData(i, 1)の値が店舗名で有るのかを
 確認して下さい、有るなら、vntData(i, 1)の値に重複が有るか確認して下さい
12、ここら辺の事が解ったら報告して下さい
13、全てを確認したら、VBEのメニュバーの「実行」→「リセット」を選択して実行を中止します
 次に、VBEのメニュバーの「デバッグ」→「すべてのブレークポントの解除」を選択して
 すべてのブレークポントを解除して置きます
5 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 お礼

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