エクセルの学校：全文検索：Hyper Estraier： 20��...

Results of 1 - 1 of about 19659 for 20��... (0.004 sec.)

[[20190120134755]]: #score: 2681; @digest: 051d4f526d58fb990e5b4fe8e8453c4e; @id: 78391; @mdate: 2019-01-20T12:25:00Z; @size: 15570; @type: text/plain; #keywords: 品デ (62678), 式備 (57707), 玉1 (44889), 品発 (33694), 阪1 (25071), 京1 (24425), 型式 (18404), 型番 (13288), 注書 (10676), 埼玉 (8930), 商品 (8823), 隠居 (8398), 111 (7333), オレ (7022), 備考 (5691), メロ (5332), 居じ (4784), じー (4615), ・d (4077), 発注 (3995), 日) (3764), （co (3597), 東京 (3575), 大阪 (3550), 注文 (3503), 品名 (3200), ロン (3128), 依頼 (3092), myrng (2896), myrow (2780), 2019 (2647), 変申 (2411); 『注文依頼内容の抽出方法についって、』（Cou）
商品データー表を基に別シートの注文依頼書に依頼情報を抽出し注文しています。マクロでJ列にID番号を入力すると、C列に商品名・D列に型番・E列に型式等入るようにと思っています。 ID番号は、商品データー表では、B列に入っていて、それ以降に商品情報が入っています。注文依頼書にVlookupをマクロで出来たらと思い、いろいろ調べて下記マクロを作ったのですが、これで行くと注文書は約20行有るのですが、20行分のマクロを入力しなければなりません。出来れば、J列にID番号を入力すれば、同じ行のC列・D列・E列・・・と入力できる事は、出来るのでしょうか、データー表の中には、ID番号が無い物もあり関数上に直接入力する場合がありますので、マクロで出来ればと考えています。マクロは難しくよく分かりません。ご迷惑をお掛けすると思いますが、宜しくご教授をお願いします。 Sub VLookup() Dim tbl As Range Set tbl = Sheets("sheet1").Range("b1:k700") Dim key As Long key = Range("j1").Value key1 = Range("j2").Value key2 = Range("j3").Value key3 = Range("j4").Value On Error Resume Next Dim ret As String ret = WorksheetFunction.VLookup(key, tbl, 3, False) ret1 = WorksheetFunction.VLookup(key, tbl, 5, False) ret2 = WorksheetFunction.VLookup(key, tbl, 7, False) ret3 = WorksheetFunction.VLookup(key, tbl, 10, False) ret4 = WorksheetFunction.VLookup(key1, tbl, 3, False) ret5 = WorksheetFunction.VLookup(key1, tbl, 5, False) ret6 = WorksheetFunction.VLookup(key1, tbl, 7, False) ret7 = WorksheetFunction.VLookup(key1, tbl, 10, False) On Error GoTo 0 Range("B1").Value = ret Range("c1").Value = ret1 Range("d1").Value = ret2 Range("e1").Value = ret3 Range("B2").Value = ret4 Range("c2").Value = ret5 Range("d2").Value = ret6 Range("e2").Value = ret7 If Cells(2, 3) = "" Then MsgBox "該当データーがありませんでした。" End If End Sub 宜しくお願いします。＜使用 Excel:Excel2008(Mac)、使用 OS:WindowsXP ＞ ---- こんにちは ^^ 気が付いた点だけで、恐縮ですが。。。せっかくマクロをおつかいなら、vlookupも便利ですが直接テーブルから条件文で引っ張ってくるのも一手かとあとコードだけでデーターの詳細が分かりにくいので具体的にシート名、セルアドレス、（型）書式、など情報の中身はダミーで代替でもよいかと思いますが、現状、得たい結果と振り分けてわかりやすくさらにご説明いただくと、多数アドバイスがあるかもしれませんね。でわ（隠居じーさん） 2019/01/20(日) 14:39 ---- 隠居じーさん様ご返事有難うございます。＞シート名、セルアドレス、（型）書式、シート名は、商品データー表です。同じブックの別シートで注文依頼書を作成しようと思っています。別ブックで注文依頼書を作ろうと思ったのですが旨く行きませんでした。商品データー表には、元表はC列にID番号（数字）・D列に商品名（文字）・E列に型番（英数）・F列に型式（英数）とG、H、I・・なっております。質問の説明になっているのか分かりませんが、説明不足で申し訳ありません。宜しくお願いします。（Cou） 2019/01/20(日) 15:12 ---- 隠居じーさん様すみませんm(__)m ＞元表はC列にID番号（数字）・D列に商品名（文字）・E列に型番（英数）・F列に型式（英数）とG、H、I・・なっております訂正・・D列に商品名・F列に型番（英数）・H列に型式等になっています。申し訳ありません。（Cou） 2019/01/20(日) 15:18 ---- お世話になります。やりたいことを表にしました。宜しくお願いします。商品データー A B C D E F G 1 ID 商品名産地型番寸法型式備考 2 11 りんご東京 1-111-1 10 G-11-1 3 12 みかん埼玉 1-111-2 11 G-11-2 4 13 イチゴ大阪 1-111-3 12 G-11-3 5 14 ぶどう東京 1-111-4 13 G-11-4 6 15 オレンジ埼玉 1-111-5 14 G-11-5 7 16 メロン大阪 1-111-6 15 G-11-6 8 17 西瓜東京 1-111-7 16 G-11-7 9 18 栗埼玉 1-111-8 17 G-11-8 上の表から抽出し下記表に必要項目を取り込みたいのです。出来るでしょうか。現在VLookup関数で行っているのですが、IDに載っていない商品がありますその場合、関数の上から入力しています。入力した古い記録が残っていいる場合があり困っています。商品発注書 A B C D J 1 商品名型番型式備考 ID 2 みかん 1-111-2 G-11-2 12 3 メロン 1-111-6 G-11-6 16 4 オレンジ 1-111-5 G11-5 15 5 6 7 宜しくお願いします。（Cou） 2019/01/20(日) 15:57 ---- Couさんすみません。出かけておりまして今拝見いたしております。暫時御猶予を ^^; わかるかどぉか解りませんがご回答出来るか出来ないかくらいはわかるかと思いますので。とりあえずご一報まで m(_ _)m （隠居じーさん） 2019/01/20(日) 17:07 ---- 隠居じーさん様忙しい所大変申し訳ありません。お返事頂けただけで有難く思います。有難うございます。（Cou） 2019/01/20(日) 17:18 ---- 回答ではないし、余計なお世話かもしれないけどこのサイトで表を再現する場合は、全角スペースやタブは使わない方がより、思った形に製表しやすいとおもいます。【商品データ】シート ___A_____B________C______D______E_____F______G___ 1 ID 商品名産地型番寸法型式備考 2 11 りんご東京 1-111-1 10 G-11-1 3 12 みかん埼玉 1-111-2 11 G-11-2 4 13 イチゴ大阪 1-111-3 12 G-11-3 5 14 ぶどう東京 1-111-4 13 G-11-4 6 15 オレンジ埼玉 1-111-5 14 G-11-5 7 16 メロン大阪 1-111-6 15 G-11-6 8 17 西瓜東京 1-111-7 16 G-11-7 9 18 栗埼玉 1-111-8 17 G-11-8 【商品発注書】 ______A_________B_______C_______D_____E___ 1 商品名型番型式備考 ID 2 みかん 1-111-2 G-11-2 12 3 メロン 1-111-6 G-11-6 16 4 オレンジ 1-111-5 G-11-5 15 5 （もこな2） 2019/01/20(日) 17:40 ---- もこな2様お世話になります。申し訳ありません。慣れないもので、次回からきを付けます。ご指摘有難うございました。（Cou） 2019/01/20(日) 17:50 ---- こんばんはもっとスマートな方法がきっとあると思いますが。 ^^ 年寄りの力技で ^^; ご提示の通りシート名商品データ A B C D E F G 1 ID 商品名産地型番寸法型式備考 2 11 りんご東京 1-111-1 10 G-11-1 3 12 みかん埼玉 1-111-2 11 G-11-2 4 13 イチゴ大阪 1-111-3 12 G-11-3 5 14 ぶどう東京 1-111-4 13 G-11-4 6 15 オレンジ埼玉 1-111-5 14 G-11-5 7 16 メロン大阪 1-111-6 15 G-11-6 8 17 西瓜東京 1-111-7 16 G-11-7 9 18 栗埼玉 1-111-8 17 G-11-8 シート名商品発注書（空） j2 以降にIDを入力後、下記マクロを実行してください。バックアップ必須ですので、新規BOOKにてお試しください。 Option Explicit Sub main() Dim s_in As Worksheet Dim s_out As Worksheet Dim i As Long Dim j As Long Set s_in = Worksheets("商品データ") Set s_out = Worksheets("商品発注書") With s_in s_out.Range("A:I,J1").Clear s_out.Cells(1, 1).Resize(1, 4) = Array("商品名", "型番", "型式", "備考") s_out.Cells(1, 10) = "ID" For i = 1 To s_out.Cells(s_out.Rows.Count, 10).End(xlUp).Row For j = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row If s_out.Cells(i, 10) = .Cells(j, 1) Then s_out.Cells(i, 1) = .Cells(j, 2) s_out.Cells(i, 2) = .Cells(j, 4) s_out.Cells(i, 3) = .Cells(j, 6) s_out.Cells(i, 4) = .Cells(j, 7) End If Next Next End With End Sub シートのイベントをマクロ起動スイッチにすればもっと便利かもです。 m(_ _)m （隠居じーさん） 2019/01/20(日) 17:55 ---- 私が投稿した表が微妙に表がまちがっていたので修正【商品データ】シート ___A_____B________C______D______E_____F______G___ 1 ID 商品名産地型番寸法型式備考 2 11 りんご東京 1-111-1 10 G-11-1 3 12 みかん埼玉 1-111-2 11 G-11-2 4 13 イチゴ大阪 1-111-3 12 G-11-3 5 14 ぶどう東京 1-111-4 13 G-11-4 6 15 オレンジ埼玉 1-111-5 14 G-11-5 7 16 メロン大阪 1-111-6 15 G-11-6 8 17 西瓜東京 1-111-7 16 G-11-7 9 18 栗埼玉 1-111-8 17 G-11-8 【商品発注書】シート ______A_________B_______C_______D____...__J_ 1 商品名型番型式備考 ID 2 みかん 1-111-2 G-11-2 12 3 メロン 1-111-6 G-11-6 16 4 オレンジ 1-111-5 G-11-5 15 5 そして、マクロではなくとりあえず数式案。（備考欄は文字列が入るものとする） (1)【商品発注書】シートのA2セルに以下の数式を設定 =IFERROR(INDEX(商品データ!$A$1:$G$1000,MATCH($J2,商品データ!$A$1:$A$1000,FALSE),MATCH(A$1,商品データ!$A$1:$G$1,FALSE))&"","") (2)(1)をB2〜D2にフィルコピー (3)(2)を3行目〜必要なだけフィルコピー（もこな2） 2019/01/20(日) 18:07 ---- 隠居じーさん様もこな2様お世話になります。隠居じーさん様実行時エラー9でインデックスが有効範囲でありませんと出ます。テストBOOKで行っているのですが、テストの商品データー範囲が間違っているのでしょうか。マクロが分かっていなくて申し訳ありません。ご指導のほど宜しくお願いします。（Cou） 2019/01/20(日) 18:25 ---- （もこな2） 2019/01/20(日) 18:07 のつづき。マクロでやるなら、隠居じーさんさんが仰るとおりChangイベントで処理するのが良さそうですね。 Private Sub Worksheet_Change(ByVal Target As Range) Dim MyRNG As Range, MyROW As Variant Dim tmp As Variant, buf(3) As Variant, i As Long Stop '←ここで止まるからステップ実行して研究のこと '変更があったセルにJ列のセルが含まれていなければ即終了 If Intersect(Target, Range("J:J")) Is Nothing Then Exit Sub Application.EnableEvents = False 'イベント抑制する '変更があったセルのうちJ列のものを1セルずつ処理 For Each MyRNG In Intersect(Target, Range("J:J")) With Worksheets("商品データ") MyROW = Application.Match(MyRNG.Value, .Range("A:A"), False) 'MATCH関数がエラーになるか判定 If IsError(MyROW) Then 'エラーになりかつ、ブランクセルに変更（値がクリア）された場合 If MyRNG = "" Then Cells(MyRNG.Row, "A").Resize(, 4).ClearContents Else 'エラーにならない場合 For Each tmp In Array("B", "D", "F", "G") buf(i) = .Cells(MyROW, tmp).Value i = i + 1 Next tmp Cells(MyRNG.Row, "A").Resize(, 4).Value = buf End If End With Next MyRNG Application.EnableEvents = True 'イベント再開 End Sub （もこな2） 2019/01/20(日) 18:54 ---- もなこ2様お世話になります。＞ With Worksheets("商品データー")でデバッグになります。シート名に問題がありそうなので、見ていきます。分からないところを再度ご教授をお願いします。隠居ジー様もなこ2様有難うございます。（Cou） 2019/01/20(日) 19:26 ---- ＞＞ With Worksheets("商品データー")でデバッグになります。シート名に問題がありそうなので、見ていきます。分からないところを再度ご教授をお願いします。細かい話ですが「デバッグになる」ではなく、「実行時エラーが発生して、デバッグ（作業）するか、そのまま終わらせるのか聞かれている」状態です。そして、そこでエラーが発生するのであれば、推察されているとおりそのブックに「商品データー」というシートが存在しないのでは? 一文字たりとも違っていてはダメなので、たとえば「商品データ」というシートが存在していても、「商品データー」という名前のシートを操作しようとすると失敗（エラーが発生）します。（もこな2） 2019/01/20(日) 19:38 ---- こんばんは ^^ え〜と。。。もこな2さんの、ご説明とおなじことかもしれませんね。実際のシート名がマクロコードのシート名と違っていませんでしょうか? ご確認お願いいたします。もし違っていればマクロコードのシート名を実際のシート名に変えて下さいね。 Set s_in = Worksheets("商品データ") Set s_out = Worksheets("商品発注書") 多分この部分ではないかと推測いたします。でわ m(_ _)m （隠居じーさん） 2019/01/20(日) 19:45 ---- もこな2様隠居じーさん様お世話になります。＞違っていればマクロコードのシート名を実際のシート名に変えて下さいね。申し訳ありませんでした。シート名が間違っていました。シート名を変更し操作しましたが、うまく操作しませんでした。新しく表を作り操作しましたが、もこな2様のコードをシートモジュールに貼り付けましたが、変化がありませんでした、どこを直せばよいのか分かりません。大変申し訳ありません。隠居じーさん様のマクロを実行すると、J3にコードを入力すると、下記の表の様に商品データの項目が二行目に表示されます。C列は空白です。申し訳ありませんが、引き続きご教授願えませんでしょうかm(__)m A B C D J 1 2 商品名形空白型式 3 ID番号入力宜しくお願いします。（Cou） 2019/01/20(日) 20:37 ---- あ。。。はい。。。しらべてみます。 m(_ _)m （隠居じーさん） 2019/01/20(日) 20:43 ---- もこな2様お世話になります。＞ MyROW = Application.Match(MyRNG.Value, .Range("A:A"), False)を MyROW = Application.Match(MyRNG.Value, .Range("b:b"), False)に変えれば行けました。大変申し訳ありませんでした。今回ご提示頂いたコードのどこを変更すれば、抽出列を変えられるのでしょうか、申し訳ありませんが、ご教授願えませんでしょうか。m(__)m宜しくお願いします。隠居じーさん様お世話をお掛けし、大変申し訳ありません。（Cou） 2019/01/20(日) 20:52 ---- ＞＞ MyROW = Application.Match(MyRNG.Value, .Range("A:A"), False)を＞ MyROW = Application.Match(MyRNG.Value, .Range("b:b"), False)に変えれば行けました。あれ。。。B列を対象にしちゃったら逆にうまくいかなくなるはずですけどなんでうまくいっているんでしょう・・・・【商品データ】シートでIDが書いてあるのってA列ですよね? ＞今回ご提示頂いたコードのどこを変更すれば、抽出列を変えられるのでしょうか、申し訳ありませんが、＞ご教授願えませんでしょうか。m(__)m宜しくお願いします。使っているのは、ワークシート関数のMatch関数です。なので、ちょっと自力で調べて（ネット検索して）みましょう。それでもわからければ改めて質問すればどなたか解説してくださると思いますよ。（もこな2） 2019/01/20(日) 21:03 ---- A B C D E F G H I J 1 商品名型番型式備考 ID 2 3 りんご 1-111-1 G-11-1 11 こんばんは ^^ こちらでは上記のようになりますが。 2行目はIDが有りませんので何も表示されませんずれてはいませんが。 C列も表示されています。シート名商品データの内容は合っていますでしょうか。また表示されている商品名と型式と入力したIDは合っていますでしょうか（隠居じーさん） 2019/01/20(日) 21:08 ---- もなこ2様大変お世話になり有難うございました。＞【商品データ】シートでIDが書いてあるのってA列ですよね? 説明不足で申し訳ありません。IDはB列に入力しておりました。＞自力で調べて（ネット検索して）みましょう。有難うございます。勉強します。隠居じーさん様大変申し訳ありませんでした。＞商品名と型式と入力したIDは合っていますでしょうか間違っておりました。大変失礼いたしました。改めて、隠居じーさん様もなこ2様本当に有難うございました。感謝感謝です。有難うございました。m(__)m （Cou） 2019/01/20(日) 21:25 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201901/20190120134755.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ