|
▼みなさんこんばんは。
横から失礼します。
私も作ってみたのですが・・・
>
>このシートのJ列に
>
> J
>1 150
>2 160
>3 170
>4 180
>5 190
>6
>
>
>コンボボックスの入力範囲として $J$1:$J$5
> リンクするセルとして $J$6
>
>と設定されているとします。
>
>この場合は、
>
> stdval = 150
>
>の箇所を
>
> stdval = Range("offset(j1,j6-1,0,1,1)").Value
>
ここのところが分かりませんでした。
stdval = Range("offset(j1,j6-1,0,1,1)").Value
この"offset(j1,j6-1,0,1,1)"は、どんな意味なのでしょうか?
何をヘルプで調べるとよいでしょうか?
Sub test()
Dim myR As Range
Dim myNO As Integer
Dim r As Range
Dim i As Long
Dim j As Long
Dim myVal() As String
With Sheets("Sheet1")
myNO = Range("offset(j1,j6-1,0,1,1)").Value
Set myR = .Range("B2", .Range("B65536").End(xlUp))
For Each r In myR
If r.Value <= myNO + 30 And r.Value >= myNO - 30 Then
ReDim Preserve myVal(i)
myVal(i) = r.Offset(, -1).Value
i = i + 1
End If
Next
If UBound(myVal) > 0 Then
.Range("D:D").ClearContents 'D列に書き出す
For j = LBound(myVal) To UBound(myVal)
.Range("D1").Value = "抽出者"
.Cells(j + 2, 4) = myVal(j)
Next
End If
End With
End Sub
|
|