|
こんにちは
>85 ??←16を表引きで得たい。
>それぞれの数値以下で見る →
という部分が良く分からないのですが、重量に例えば「250」とか入った場合どうすれば
いいのでしょうか?
先ほどの数式は「それぞれの数値以上」を見てます。
「Sheet1」のシートタブを右クリックして「コードの表示」でシートモジュールを
出して下記コードを貼り付けて下さい。
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim hRng As Range
Dim col As Variant
With Target
If .Count > 1 Then Exit Sub
If Intersect(.Cells, Range("A2,C2")) Is Nothing Then Exit Sub
If IsEmpty(Range("A2").Value) Or _
IsEmpty(Range("C2").Value) Then
Exit Sub
End If
With Worksheets("Sheet2")
Set hRng = .Range("A2", .Range("A65536").End(xlUp)).Find( _
Range("A2").Value, , xlFormulas, xlWhole)
If hRng Is Nothing Then
MsgBox "品名コード該当無し。", 64
Exit Sub
End If
col = Application.Match(Range("C2").Value, .Rows(1), 1)
Application.EnableEvents = False
If .Cells(1, col).Value <> Range("C2").Value Then
Range("D2").Value = hRng.Offset(, col).Value
Else
Range("D2").Value = hRng.Offset(, col - 1).Value
End If
Application.EnableEvents = True
End With
End With
End Sub
|
|