配列の参照渡しで配列の先頭要素以外を渡したいときは? (ID:109819)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Public Sub Foo(ByRef Buffer() as BYTE) を Public Sub Foo(ByRef Buffer() as BYTE, , ByVal Start As Integer) とするのが、一番いいと思うのですが、 Private Sub Command1_Click() Dim i As Integer Dim b(99) As Byte 'ダミーdata作成 For i = 0 To 99 b(i) = i Next For i = 0 To 9 Foo MidB(b, i * 10 + 1, 10) Debug.Print String$(10, "-") Next End Sub Private Sub Foo(ByRef Buffer() As Byte) Dim i As Integer For i = 0 To 9 Debug.Print Buffer(i) Next End Sub というトリッキーな書き方もなくはないです。 副作用は知りません(^^;