- Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
642 ：デフォルトの名無しさん[sage]：2015/11/03(火) 14:09:19.29 ID:Y3S792fP - Dim t As Single
t = t + 0.1
こんな感じで足していくと丸め誤差ってやつが出てしまうので
Cells(1, 1) = Cells(1, 1) + Cells(r, c)
こんな感じにしようかと思うのですが、処理時間に大きな差がありますか？
| - Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
644 ：デフォルトの名無しさん[sage]：2015/11/03(火) 14:28:23.16 ID:Y3S792fP - >>643
激重でしたか･･･質問してよかったです。
その方法でやってみます。ありがとうございました。
| - Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
650 ：デフォルトの名無しさん[sage]：2015/11/03(火) 20:17:35.40 ID:Y3S792fP - '→1にならない
Dim t As Single '単精度浮動小数点型
For i = 1 To 10
t = t + 0.1
Next i
──────────────
'Cells(9, 1)に0.1 →1になる
For i = 1 To 10
Cells(10, 1) = Cells(10, 1) + Cells(9, 1)
Next i
──────────────
'Range("A1:A10")に0.1 →1になる
Dim H As Variant
H = Range("A1:A10")
For i = 1 To 10
Cells(12, 1) = H(i, 1) + Cells(12, 1)
Next i
>>645-647
自分なりにまとめてみたらこんな感じです。間違ってたらご指摘お願いします。
| - Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
654 ：デフォルトの名無しさん[sage]：2015/11/03(火) 21:40:52.93 ID:Y3S792fP - >>653
１です。
|
|