Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

45358 / 76732

←次へ　｜　前へ→


	【36367】Re:プラスマイナスの値の抽出

ponpon - 06/3/29(水) 23:02 -


	引用なし

	パスワード

▼みなさんこんばんは。
横から失礼します。

私も作ってみたのですが・・・

>
>このシートのＪ列に
>
>　　　Ｊ
>１　　150
>２　　160
>３　　170
>４　　180
>５　　190
>６　　
>
>
>コンボボックスの入力範囲として　$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

0 hits

▼

【36352】プラスマイナスの値の抽出 とろり 06/3/29(水) 19:12