エクセルの学校：全文検索：Hyper Estraier：リスト

Results of 1 - 1 of about 8930 for リスト (0.006 sec.)

[[20140803103734]]: #score: 2746; @digest: cf6e03640a92aa1b02e422479e1fd60d; @id: 65784; @mdate: 2014-08-03T04:44:19Z; @size: 5465; @type: text/plain; #keywords: 品行 (96631), 社列 (62140), 特取 (44989), 社コ (31425), 取" (27823), 然請 (15497), 特50 (15241), 加条 (14161), 参l (13911), 格セ (13442), ズ価 (13353), ドas (13187), 囲di (12583), cz500 (12470), 索") (11943), ド, (11819), 別価 (11255), ト特 (10731), ・ェ (10401), ・ou (10224), 品コ (10186), ト. (9927), ドセ (9822), ェ・ (9701), ド検 (9065), ド= (8579), 列). (6050), 行, (6003), 商品 (5402), 行' (5216), 未登 (5180), 録" (5159); 『エクセルマクロで複数条件での検索方法 2』（もみじ坂）
先日大変お世話になりました。教えていただいたコードが大活躍で大変助かりました。使用しているうちにもう一つの条件を追加したいのですが。うまくいきませんでした原因がわかりましたら教えてください。よろしくお願いします。 [[20140709193057]] 【検索】 [A] [B] [C] [D] [2] 028963 「3」 NO 商品名前サイズ価格「4」 A01 人参 L 401 「5」 A03 トマト特 503 【list】 [C] [D] [E] [f] [g [h] [i] [j] [k] [l] [m] [n] [o] サイズ価格2 027021 027638 028023 028963 033732 A01 人参 L 501 101 201 301 401 A02 きゅうり M 502 102 202 302 402 A03 トマト特 503 103 203 303 A04 なす N 504 104 204 304 404 コード Dim リスト As Range '価格セル範囲 Dim 会社コード As Range '会社コードセル範囲 Dim 商品コード As Range '商品コードセル範囲 Dim 商品行 '商品コード検索結果（行） Dim 会社列 '会社コード検索結果（列） Dim r As Long Set リスト = Worksheets("list").Range("L3:CZ500") Set 会社コード = リスト.Rows(1).Offset(-1) Set 商品コード = リスト.Columns(1).Offset(, -10) With Worksheets("検索") For r = 4 To 38 商品行 = Application.Match(.Cells(r, "A"), 商品コード, 0) 会社列 = Application.Match(.Cells(2, 1), 会社コード, 0) '=======★追加条件の部分======= '★検索結果が空欄の時リストシートの11行目の価格を引っ張ってくる '★検索結果ある時は会社別価格を引っ張ってくる If IsNumeric(商品行) And IsNumeric(会社列)="" Then .Cells(r, "D").Value = リスト.Cells(商品行, "K").Value ' 価格 Else .Cells(r, "D").Value = リスト.Cells(商品行, 会社列).Value'会社別価格 End If Next End With '======追加条件2====== '検索シート M5 に '特取'がある場合 '検索シートの最終行 +1 に特取と記載する IF Worksheets("検索").Range("M5")="特取" Then i = Worksheets("検索").Cells(Rows.Count, 1).End(xlUp).Row Worksheets("検索").Cells(i, "A").Value = "000" Worksheets("検索").Cells(i, "B").Value = "特取" End If コードの考え方がずれているんでしょうかすみません ≧≦ 実行したところ「形が一致しませんと。。。。。」＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- 追加条件2のほうは、突然請求書シートがでてきてよくわかりません。追加条件1のみ。 if文のところは、 1）商品コードが見つかったかどうか 2）会社コードがみつかったかどうかの2段階で評価するとよいです。また★の行もを修正する必要があります。＞リスト.Cells(商品行, "K").Value は、リスト内の相対的な位置なので リスト.Cells(商品行, "A").Value とします。 Sub 計算() Dim リスト As Range '価格セル範囲 Dim 会社コード As Range '会社コードセル範囲 Dim 商品コード As Range '商品コードセル範囲 Dim 商品行 '商品コード検索結果（行） Dim 会社列 '会社コード検索結果（列） Dim r As Long Set リスト = Worksheets("list").Range("K3:CZ500") '★ Set 会社コード = リスト.Rows(1).Offset(-1) Set 商品コード = リスト.Columns(1).Offset(, -9) '★ With Worksheets("検索") For r = 4 To 38 商品行 = Application.Match(.Cells(r, "A"), 商品コード, 0) 会社列 = Application.Match(.Cells(2, "A"), 会社コード, 0) If IsNumeric(商品行) Then If IsNumeric(会社列) Then .Cells(r, "D").Value = リスト.Cells(商品行, 会社列).Value Else .Cells(r, "D").Value = リスト.Cells(商品行, "A").Value End If Else .Cells(r, "D").Value = "未登録" End If End If Next End With End Sub （マナ） 2014/08/03(日) 11:59 ---- （マナ）様度々ありがとうございます。お陰様で今回も無事に欲しい結果を得ることができました大変勉強になりました。また何かありましたらよろしくお願いします。商品行 = Application.Match(.Cells(r, "A"), 商品コード, 0) 会社列 = Application.Match(.Cells(2, "A"), 会社コード, 0) ★IF関数の場合すべて条件を入れてから最後に欲しい結果を入力すればうまくいくんですね感激で本当に大変助かりました。ﾟ・:,。☆Uo・ェ・oU/‾♪了└|力"├ テ"ス ♪‾\Uo・ェ・oU ☆,。・:・ﾟ If IsNumeric(商品行) Then If IsNumeric(会社列) Then If リスト.Cells(商品行, 会社列).Value = "" Then .Cells(r, "D").Value = リスト.Cells(商品行, 1).Value '範囲がRange("K3:CZ500") のため K=1列目 Else .Cells(r, "D").Value = リスト.Cells(商品行, 会社列).Value End If End If Else .Cells(r, "D").Value = "未登録" End If Next If .Range("M5") = "特取" Then i = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Cells(i, "A").Value = "000" .Cells(i, "B").Value = "特取" End If ＞追加条件2のほうは、突然請求書シートがでてきてよくわかりません。はすみませんコピペ—で使用していたのでそのままついてきちゃいました (*´ノД｀) （もみじ坂） 2014/08/03(日) 13:43 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201408/20140803103734.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ