エクセルのマクロで行いたいのですが。シート１からシート３（ジャンル別の

質問

エクセルのマクロで行いたいのですが。シート１からシート３（ジャンル別の商品データ）にあるデータを入荷した商品名で検索し、その検索結果の行を入荷した数量分コピーして、シート４（印刷）に上から順に貼り付けます。その結果をバーコードラベルで印刷し、商品に貼り付けていきたのですがどなたか教えてください。現在は、いちいちシート毎で「Ctrl＋F」で検索画面を出し、商品名を検索し、なければ別のシートで検索し、該当するものが見つかれば選択して、行をコピーして印刷シートに貼り付けています。とても時間がかかっています。

シート１から３の構成は、ジャンル別で分かれていますが、

A列：商品名、B列：メーカーコード、C列：自社コード、D列：売価、E列：原価、F列：登録日

です。バーコード印刷のマクロは出来てます。
複数のシートから検索し、コピーして、印刷シートに貼り付けるマクロです。
エクセルは2003で、OSはXPのSP3です。

回答No.5

kmetu · ベストアンサー

If mSheet.Name = "Sheet1" Or mSheet.Name = "Sheet2" Or mSheet.Name = "Sheet3" Then

Sheets("印刷シート").Select

上記のシート名はそれぞれ自身のシート名に変更しましたか？

お礼

kmetu様本当にありがとうございました。「Sheet1」が「sheet1」になっていて、「S」が大文字になっていませんでした。直したら出来ました。大変助かりました。

回答No.4

kmetu

> mInputStr = InputBox("検索する商品名")の("検索する商品名")のところが「コンパイルエラー：プロシージャーの外では無効です」と表示されてしまいます。

Sub プロシージャ名()

End Sub

の間に入れてますよね。
もしくはどこか別のところにコピーしたものが残ってないですか。

補足

kmetu様
ありがとうございました。
Sub 検索と印刷()を入れてありませんでした。入れなおして実行したところ、エラーは消えたのですが。検索画面「検索する商品名」に商品名を入れても候補が選択されません。もちろん印刷シートにも貼り付けられていませんでした。FindをSearchに変えてみましたが一緒でした。マクロって本当に難しいのですね。

回答No.3

kmetu

たとえば

Dim mInputStr As String
Dim mSheet As Worksheet
Dim c As Object

mInputStr = InputBox("検索する商品名")

For Each mSheet In ActiveWorkbook.Worksheets

If mSheet.Name = "Sheet1" Or mSheet.Name = "Sheet2" Or mSheet.Name = "Sheet3" Then

With Worksheets(mSheet.Name).Range("A1:A" & mSheet.Range("A" & Rows.Count).End(xlUp).Row)
Set c = .Find(mInputStr, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Sheets(mSheet.Name).Select
ActiveSheet.Rows(c.Row & ":" & c.Row).Copy
Sheets("印刷シート").Select
ActiveSheet.Range("A" & ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

End If

Next

Application.CutCopyMode = False

こんな感じでどうでしょう

補足

kmetu様さっそくの回答ありがとうございます。まだ初心者なもので、よくわからないので教えてもらいたいのですが。kmetu様の回答をコピーしてVBEの標準モジュールにコピーして実行してみたのですが、mInputStr = InputBox("検索する商品名")の("検索する商品名")のところが「コンパイルエラー：プロシージャーの外では無効です」と表示されてしまいます。なぜなんでしょうか。忙しいところ申し訳ありませんが対処方法はあるのでしょうか。

回答No.2

kmetu

ちなみに印刷シートの最終行に貼り付けるのは

Sheets("印刷シート").Select
ActiveSheet.Range("A" & ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial

とかでできます。

回答No.1

kmetu

マクロのHELPでFindを検索してFindメソッドの使用例を参考にしてみたら簡単に出来ると思いますよ。