|
▼角田 さん:
>>Dim s As Byte, g As Byte, a As Byte
>Byteは数値用としては普通は使いません。Integer型が良いです。
>
>>x(13000, 5, 3) As Variant, y(13000, 5, 3) As Variant,
>>xy(13000, 5, 3) As Variant
>>xmax(50, 5, 3) As Variant, ymax(50, 5, 3) As Variant,
>>xymax(50, 5, 3) As Variant
>↑の中には数値以外のデータが入る事があるのですか?
>数値だけならSingleとかDoubleとかの数値型で宣言した方が良いです。
>
>>セル範囲を取り込む方法で、個々のセルの値を選択して計算することは出来るんですか?
>>>Dim vntCell As Variant
>>>vntCell = Worksheets("Sheet1").Range("A1:C50005").Value
>これで取り込んでおけば
>> y(n, g, a) = 〜 + b21 * Cells(n + 4, a).Value + b22 * Cells(n + 5, a).Value)
> ↓
>y(n, g, a) = 〜 + b21 * vntCell(n + 4, a).Value + b22 * vntCell(n + 5, a).Value)
これらは、
x(13000, 5, 3) As Variant, y(13000, 5, 3) As Variant,
>>xy(13000, 5, 3) As Variant
>>xmax(50, 5, 3) As Variant, ymax(50, 5, 3) As Variant,
>>xymax(50, 5, 3) As Variant
数値だけです。
いろいろとお世話になりました。角田さんの方法で作り直してみます。
|
|