ExcelVBA初心者が別シートの値を検索して合計する方法について困っています

2013/02/02 13:41

このQ&Aのポイント

ExcelVBA初心者が別シートの値を検索して合計する方法について困っています。現在、AAAを検索し、見つかった値を条件分岐させるプログラムを作成していますが、処理が重くなりすぎてうまく動作しません。
私はExcelVBA初心者で、別シートの値を検索して合計する方法について困っています。具体的には、AAAという値を検索し、見つかった値を条件分岐させるプログラムを作成しようとしていますが、処理が重すぎて動作しません。
ExcelVBA初心者です。別シートの値を検索して合計する方法について困っています。現在、AAAを検索し、見つかった値を条件分岐させるプログラムを作成しているのですが、処理が重くなってしまい、うまく動作しません。どなたか助けていただけないでしょうか。

tomytomo
お礼率33% (1/3)

洗濯機
回答数3
ありがとう数3

みんなの回答 （3）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

ap_2
ベストアンサー率64% (70/109)

2013/02/04 08:38 回答No.3

てきとーだけど、分かりやすく書いたつもり・・・ステップ実行やローカルウィンドウ使って、確認してください。「確認用」の行は消していい。VBEのヘルプ（FindNextで検索）にサンプルコード載ってることもあるから、見てみるといいかも。 Sub zzz() 　Dim sh_mst As Sheet, sh As Sheet 　Dim rng As Range, c As Range 　Dim r, n 　Set sh_mst = Sheets("マスター") 　'マスターループ　r = 1 　Do While sh_mst.Cells(r, 1) <> "" 　　skey = sh_mst.Cells(r, 1) 　　n = 0 　　'シートループ　　For Each sh In Sheets 　　　If sh.Name <> "マスター" Then 　　　　sh.Select　　 '確認用　　　　'--> 検索処理　　　　Set rng = sh.Range("A:A") 　　　　Set c = rng.Find(skey, LookIn:=xlValues) 　　　　If Not c Is Nothing Then 　　　　　c.select　　'確認用　　　　　firstAddress = c.Address 　　　　　Do 　　　　　　n = n + c.Offset(0, 1).Value 　　　　　　Set c = rng.FindNext(c) 　　　　　　c.select　'確認用　　　　　Loop While Not c Is Nothing And c.Address <> firstAddress 　　　　End If 　　　　'<-- 検索処理　　　End If 　　Next 'sh 　　sh_mst.Cells(r, 2) = n / 10 　　r = r + 1 　Loop 'sh_mst End Sub

質問者

お礼 2013/02/04 10:15

朝早く回答ありがとうございます。わかりずらい返信に対し理解していただき感謝しております。なにぶんにも、素人なもので。。もっともっと出来るようにならなくてはと。。。今回のいただいたプログラムにより出来そうです。あとは、今作っているやつに自分でアレンジしていけばと思います。今回１列のみの計算ですが、２列を対象にして計算させるにはとか。。まだまだ分かりません。今から勉強することは山積みですが、一度いただいたものをアレンジして挑戦していきたいと思います。どうしても分からない場合は、再度、質問させていただきますのでその時は、よろしくお願い致します。ありがとうございました。

ログインすると、全ての回答が全文表示されます。

その他の回答 (2)

ap_2
ベストアンサー率64% (70/109)

2013/02/04 07:17 回答No.2

手書きでサイズオーバーか・・・がんばりましたね。。。あまり複雑になると、メンテナンスも困難になるので、なるべくループして同じ処理を減らすといいです。繰り返す部分を関数化しちゃう手もあります。記録ベースでも、選択セルとか工夫すれば、Selectionを基準にループできることも多いですよ。 For でも Do でも、同じことできるからお好みで。 '↓よく使うループのパターン Do While Selection <> "" 　Selection.Offset(1, 0).select　'空じゃなければ次 Loop r = 1 Do While Cells(r, 1) <> "" 　Cells(r, 1) = r 　r = r + 2 '2行おきに処理 Loop For r = 1 to 100 　Cells(r, 1) = "1～100行まで処理" Next For each sh in Sheets 　sh.Range("A1").Select '全てのシート　If sh.Name <> "マスター" then 　　sh.Tab.ColorIndex = 1 'マスター以外　End if Next

ログインすると、全ての回答が全文表示されます。

ap_2
ベストアンサー率64% (70/109)

2013/02/03 12:21 回答No.1

> プロシャーシーが大きすぎと言われてできません。「プロシージャ」は、Sub ～ End Sub の処理ブロックのことです。何行あるんだろう、ありえないくらいデカイはず・・・記録は、なるべくムダな操作減らしてシンプルに、ですよ。再記録大変なので、まずはムダな処理を削除してみてください。こーいうの↓で埋め尽くされてませんか？　ActiveWindow.ScrollRow = 数字画面スクロールなので、その行は削除しちゃって大丈夫です。それで動かないかな

質問者

補足 2013/02/03 22:51

回答ありがとうございます自分で一から作ったため、余分なものが入っていないと思います。。自分では、作り方が悪いのかと。。現在、シート１、シート２、シート３、マスターのシートを使っております。マスターの文字を正として、シート１、シート２　で文字が一致するとシート３のセルの指定して位置へ　(シート１＋シート２)/1000で値を入力しようと考えました。この時に、find とif 　then　を使用していますが、条件不一致の時にエラーが出てしまうため、条件分岐がとてつもなく多くなっています。 loopとか？使えればいいのですが。。この部分が未知なもので。。アバウトの書き方なので、いまいち説明できていません。申し訳ありませんお付き合いしていただけたら、幸いです。よろしくお願いいたします。

ログインすると、全ての回答が全文表示されます。