C# と VB.NET の質問掲示板

>>B2:B11をC2:C11のように変えることができず、つまずいています。
> 
> Excel.Range オブジェクトの Offset プロパティを試してみてください。

いろいろ試してみているんですが、"オブジェクトが必要です"とエラーがでてしまいます、、、

For i = 1 To n
    
res(i) = t.test(worksheetsfunctionOffset(A2, 0, 0, x, 1), worksheetsfunction.Offset(c2, 0, i, x, 1), 1, 1)

Next i

Excel VBAで書くと下のようになると思います。

Sub test()
    Dim n As Integer
    n = 10
    Dim res() As String
    ReDim res(n)
    Dim i As Integer
    For i = 1 To n
        res(i) = t_test(ActiveSheet.Range("A2:A11").Offset(0, i - 1))
        Debug.Print (res(i))
    Next
End Sub

Public Function t_test(r As Range) As String
    t_test = r.Address
End Function

結果
$A$2:$A$11
$B$2:$B$11
$C$2:$C$11
$D$2:$D$11
$E$2:$E$11
$F$2:$F$11
$G$2:$G$11
$H$2:$H$11
$I$2:$I$11
$J$2:$J$11

■No86629 (YAS さん) に返信
> 2018/02/22(Thu) 21:06:06 編集(投稿者)
> 
> Excel VBAで書くと下のようになると思います。
> 

回答ありがとうございます。
示していただいたソースは確かに参照範囲を能動的に変えることができていますが、エクセルのt.test関数の引数にres(i)を使用しようとすると「オブジェクトが必要です」というエラーになってしまいます。これでは本題が解決しないのですが解決策をご存知なら教えていただきたいです。

t.test関数は，VBAで使うときにはT_Test()になります。

Sub test()
    Dim n As Integer
    n = 10
    Dim res() As Double
    ReDim res(n)
    Dim i As Integer
    For i = 1 To n
        res(i) = WorksheetFunction.T_Test(Range("A2:A11"), Range("A2:A11").Offset(0, i), 2, 1)
    Next
End Sub