| |
▼syugyoutyu さん：ありがとうございます。今はぜんぜん分かりませんが勉強させていただきます。分からないところはまた質問させてくださいm(_ _)m
>▼（。。ｊ） さん：
>
>私は、ここに回答が出来るほどのレベルではありませんが、マクロを勉強中ならVLooK UP もマクロでやってみたらどうでしょう。つい最近、ここでのレスを参考に作ったものです。
>
>Sub VLookの代わり()
>Dim sh1 As Worksheet 'Sheets("Sheet1")VLooK UP を入れるシート
>Dim sh2 As Worksheet 'Sheets("Sheet2")データが入ってるシート
>Dim dsuu1 As Long 'Sheets("Sheet1")が何行あるか
>Dim dsuu2 As Long 'Sheets("Sheet2")が何行あるか
>Dim kensaku As String '検索値
>Dim xyz As Range
>
>Set sh1 = Sheets("Sheet1")
>Set sh2 = Sheets("Sheet2")
>
>'Sheets("Sheet1")が何列あるか （検索値が何点あるか）
>With sh1.UsedRange
> dsuu1 = .SpecialCells(xlLastCell).Row
>End With
>
>'Sheets("Sheet2")が何列あるか
>With sh2.UsedRange
> dsuu2 = .SpecialCells(xlLastCell).Row
>End With
>
>For i = 2 To dsuu1
> kensaku = sh1.Range("A" & i) ’kensakuの値のループ開始
> For y = 1 To dsuu2 ’kensakuの値を探すループ開始
> Set xyz = sh2.Range("A" & y)
> If kensaku = xyz Then ’見つけたら
> sh1.Range("B" & i) = xyz.Offset(0, 1)
> sh1.Range("C" & i) = xyz.Offset(0, 2)
> sh1.Range("D" & i) = xyz.Offset(0, 3)
> End If
> Next ’kensakuの値を探すループ終了
>Next i ’kensakuの値のループ終了
> MsgBox "在庫数反映完了"
>End Sub
>
>こんなコードです。一応出来てますが私も勉強中です。どなたか、もっと良いコードが有れば教えて下さい。
|
|
（。。ｊ）
- 07/7/4(水) 14:41 -
