Excel VBA質問箱 IV

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

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


45358 / 76732 ←次へ | 前へ→

【36367】Re:プラスマイナスの値の抽出
質問  ponpon  - 06/3/29(水) 23:02 -

引用なし
パスワード
   ▼みなさんこんばんは。
横から失礼します。

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

>
>このシートの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

0 hits

【36352】プラスマイナスの値の抽出 とろり 06/3/29(水) 19:12 質問
【36353】Re:プラスマイナスの値の抽出 Hirofumi 06/3/29(水) 20:12 回答
【36354】Re:プラスマイナスの値の抽出 ichinose 06/3/29(水) 20:14 発言
【36355】Re:プラスマイナスの値の抽出 とろり 06/3/29(水) 20:31 質問
【36356】Re:プラスマイナスの値の抽出 Hirofumi 06/3/29(水) 20:44 回答
【36357】Re:プラスマイナスの値の抽出 ichinose 06/3/29(水) 20:49 発言
【36358】Re:プラスマイナスの値の抽出 とろり 06/3/29(水) 21:02 質問
【36361】Re:プラスマイナスの値の抽出 ichinose 06/3/29(水) 22:07 発言
【36367】Re:プラスマイナスの値の抽出 ponpon 06/3/29(水) 23:02 質問
【36372】Re:プラスマイナスの値の抽出 ichinose 06/3/30(木) 7:06 発言
【36373】Re:プラスマイナスの値の抽出 ponpon 06/3/30(木) 7:32 発言
【36359】Re:プラスマイナスの値の抽出 Kein 06/3/29(水) 21:15 回答

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