| |
▼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
>データ型に注意しましょう。
>以下は２つとも Double ではなく、 Long型整数で十分ですよ
ご指摘ありがとうございます。
|
|
まり
- 15/6/15(月) 20:28 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
