エクセル小僧：Range型、Worksheet型配列を引数として渡す

Range型、Worksheet型配列を引数として渡す方法が分からなかったのですが、なんとなくわかったような。。

Sub sample()
    Dim MyRange(1) As Range
    Dim mySheet(1) As Worksheet
    Set mySheet(0) = Worksheets("Sheet2")
    Set mySheet(1) = ActiveSheet
    mySheet(0).Activate
    Set MyRange(0) = Range("A1")
    Set MyRange(1) = Range("B1")
    Call sample2(MyRange, mySheet)
    MyRange(0).Value = 2
    mySheet(1).Activate
End Sub

Sub sample2(ByRef MyRange() As Range, ByRef mySheet() As Worksheet)
    MyRange(0).Value = 1
    Set MyRange(0) = Range("A2")
End Sub

解説は後日。。。

タグ：エクセル VBA Range型 Worksheet型 引数

コメント 1

ヤバイぜ!　ありがとうございます[__猫]
by cheese999 (2016-02-14 05:48)