Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


51392 / 76732 ←次へ | 前へ→

【30210】Re:このコードは高速化可能か
お礼  ken  - 05/10/21(金) 19:02 -

引用なし
パスワード
   ▼角田 さん:
>>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
数値だけです。
いろいろとお世話になりました。角田さんの方法で作り直してみます。

2 hits

【30205】このコードは高速化可能か ken 05/10/21(金) 16:34 質問
【30207】Re:このコードは高速化可能か 角田 05/10/21(金) 17:42 回答
【30208】Re:このコードは高速化可能か ken 05/10/21(金) 18:23 質問
【30209】Re:このコードは高速化可能か 角田 05/10/21(金) 18:50 回答
【30210】Re:このコードは高速化可能か ken 05/10/21(金) 19:02 お礼
【30254】Byte型について わさび 05/10/24(月) 8:34 質問
【30280】Re:Byte型について 小僧 05/10/24(月) 13:15 発言
【30293】Re:Byte型について でれすけ 05/10/24(月) 16:48 発言
【30299】Re:Byte型について わさび 05/10/24(月) 18:44 質問
【30301】Re:Byte型について 参加 ichinose 05/10/24(月) 19:49 発言
【30355】Re:Byte型について 参加 わさび 05/10/25(火) 18:24 お礼
【30359】Re:Byte型について 参加 ichinose 05/10/25(火) 19:23 発言
【30368】Re:Byte型について 参加 わさび 05/10/26(水) 8:30 お礼
【30314】Re:Byte型について でれすけ 05/10/25(火) 9:45 発言
【30358】Re:Byte型について わさび 05/10/25(火) 19:04 お礼

51392 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free