Excel VBA質問箱 IV

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

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


52946 / 76736 ←次へ | 前へ→

【28615】Re:検索該当行の複数セル値の取得について
発言  ponpon  - 05/9/10(土) 11:27 -

引用なし
パスワード
   こんにちは。
kobasanからちゃんとしたコードが出ているので、
私のは、どうでも良いのですが、
シートレイアウトと、指定したセルが違っているのかもしれません。
こちらでは、きちんと抽出されています。
両シートのセル位置を確認してください。

Sub test()
   Dim SH1 As Worksheet, SH2 As Worksheet
   Dim myR As Range, myR2 As Range
   Dim r As Range, c As Range
  
  ’両シートの1行目には、見出しがあるものとしています。 
   Set SH1 = Worksheets("単価マスタ")
   Set SH2 = Worksheets("代価表シート")
   Set myR = SH1.Range("A2", SH1.Range("A65536").End(xlUp)) ’A列
   Set myR2 = SH2.Range("A2", SH2.Range("A65536").End(xlUp)) ’A列
  
  ’代価表シートのA列の2行目から順に 
   For Each r In myR2 
  
  ’tを0に
    t = 0

  ’単価マスタシートのA列から順に 
    For Each c In myR

    ’代価表シートA列の値とマスタシートのA列の値が同じならば、 
     If r.Value = c.Value Then
   
     ’マスタシートのK列の値と代価表シートB列の値がおなじならば、 
      If c.Offset(0, 10).Value = r.Offset(0, 1).Value Then
       
       ’tに1をたして、もし、2になれば(同じ組み合わせが、
       ’2つ以上あれば)、msgを出して、検索をやめる。
       t = t + 1
       If t > 1 Then
        MsgBox "規格" & c.Offset(0, 10).Value & _
            "(" & c.Offset(0, 10).Address(0, 0) & ")" & _
            vbCrLf & "が重複しています"
       Exit For
       End If

       ’tが1ならば、代価表シートC列にマスタシートのM列の値を
       r.Offset(0, 2).Value = c.Offset(0, 12).Value

       ’代価表シートE列にマスタシートのN列の値を
       r.Offset(0, 4).Value = c.Offset(0, 13).Value
      End If
     End If
    Next
   Next

End Sub
0 hits

【28486】検索該当行の複数セル値の取得について BON8021 05/9/7(水) 19:56 質問
【28487】Re:検索該当行の複数セル値の取得について ponpon 05/9/7(水) 21:25 発言
【28525】Re:検索該当行の複数セル値の取得について BON8021 05/9/8(木) 16:19 質問
【28540】Re:検索該当行の複数セル値の取得について ponpon 05/9/8(木) 21:22 発言
【28611】Re:検索該当行の複数セル値の取得について BON8021 05/9/10(土) 10:29 質問
【28615】Re:検索該当行の複数セル値の取得について ponpon 05/9/10(土) 11:27 発言
【28619】Re:検索該当行の複数セル値の取得について BON8021 05/9/10(土) 12:10 質問
【28636】Re:検索該当行の複数セル値の取得について ponpon 05/9/10(土) 21:40 発言
【28498】Re:検索該当行の複数セル値の取得について kobasan 05/9/8(木) 7:52 回答
【28609】Re:検索該当行の複数セル値の取得について BON8021 05/9/10(土) 9:44 質問
【28612】Re:検索該当行の複数セル値の取得について kobasan 05/9/10(土) 10:30 回答
【28613】Re:検索該当行の複数セル値の取得について kobasan 05/9/10(土) 10:36 回答
【28616】Re:検索該当行の複数セル値の取得について BON8021 05/9/10(土) 11:31 質問
【28623】Re:検索該当行の複数セル値の取得について kobasan 05/9/10(土) 14:16 回答
【28627】Re:検索該当行の複数セル値の取得について BON8021 05/9/10(土) 15:15 質問
【28628】Re:検索該当行の複数セル値の取得について kobasan 05/9/10(土) 15:35 回答
【28630】Re:検索該当行の複数セル値の取得について BON8021 05/9/10(土) 16:21 お礼
【28614】Re:検索該当行の複数セル値の取得について kobasan 05/9/10(土) 10:40 回答
【28617】Re:検索該当行の複数セル値の取得について BON8021 05/9/10(土) 12:05 質問
【28622】Re:検索該当行の複数セル値の取得について kobasan 05/9/10(土) 14:02 回答
【28624】Re:検索該当行の複数セル値の取得について BON8021 05/9/10(土) 14:48 お礼
【28631】Re:検索該当行の複数セル値の取得について BON8021 05/9/10(土) 17:16 質問
【28632】Re:検索該当行の複数セル値の取得について kobasan 05/9/10(土) 19:35 回答

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