|
▼kanabun さん:
>ともに、ArrayData という名の配列を送っていますが、
>この配列はシートの範囲を配列にしたものではないのですか?
仰るとおり、シート範囲を配列にしたものです。
>もしそうだとしたら、いま、どのようなコードで範囲を配列に入れていますか?
'配列をシートに書き込む
Public Sub Array2Sheet(ArrayData As Variant, BookName As String, SheetName As String)
Dim RowNum As Double
Dim ColNum As Double
RowNum = ArrayRow(ArrayData)
ColNum = ArrayColumn(ArrayData)
With Workbooks(BookName).Sheets(SheetName)
.Cells.Clear
.Range(.Cells(1, 1), .Cells(RowNum, ColNum)) = ArrayData
End With
End Sub
>データ型に注意しましょう。
>以下は2つとも Double ではなく、 Long型整数で十分ですよ
ご指摘ありがとうございます。
|
|