Excel2016 vbaでEvaluateが再計算されません。

Question

Excel2016 vbaでEvaluateが再計算されません。

sub test
Application.Calculation = xlCalculationManual
dim nyu as variant
nyu = worksheets("sheet1").usedrange.formula
for i = 1 to 10
worksheets("sheet1").copy after:=worksheets("sheet1")
activesheet.usedrange.value = [nyu]
next
Application.Calculation = xlCalculationAutomatic
end sub

全て式が残っています。

Sub asdaf()
Application.Calculation = xlCalculationManual
For i = 1 To 10
worksheets("sheet1").Copy after:=worksheets("sheet1")
rg = ActiveSheet.Evaluate(ActiveSheet.UsedRange.Address)
ActiveSheet.UsedRange.Value = rg
Next

Application.Calculation = xlCalculationAutomatic
End Sub

これだと式が消えますが再計算されません。
Excel2010では再計算もされ、式も消えて使いやすかったのにどうして使えないのですか？
Calculateを使ってactivesheet.usedrange.value = activesheet.usedrange.valueよりも
作業自体も早かったので助かっていました。

本当に困っています。

Comments

[mattuwan]

どんな数式が入っているのですか？
データの量は、どれくらいで、
そのうち数式はどれくらいの量ですか？

[ayukko1024]

元々使っていたIFERROR等の数式が行かず、
a1:b1に　１
a2 に =a1
a3:a10　に =a1+a2（式移動有）
b2:b10 に = b1+a2

c1に=CELL("filename",A1) を入れたのですが、それでも計算されませんでした。
Excel2010ではIferror、シート内名前の定義などもしっかり計算されてCalcなしで式も消えていたので…困っています。

[Y.H.]

> 全て式が残っています。
とは具体的にどうなるのですか？
「式が残る」「式が消える」っていう表現がどういう事か読み取れないので
sheet1 の式が入っている部分の画像（画面キャプチャ）と
実行後のsheet(1)の該当部分の画像（画面キャプチャ）を
質問に追加できませんか？

[mattuwan]

回答側でも再現できるよう、説明してください。
あと、追加の説明も本文に書いてください。
誰がみても解るように。その方が、アドバイスしてくれるひとが多くなるかもです。

[ayukko1024]

今エクセル2010を使用できる環境が手元にありませんので、
戻りましたら再現致します。

Answer 1

Excel2010では再計算もされ、式も消えて使いやすかったのにどうして使えないのですか？

計算するかどうかはオプションで指定できますけど、確認されていますか？

Comments

[ayukko1024]

Application.Calculation = xlCalculationManual
のことでしょうか？
Excel2010では入れていましたがしっかり再計算されていました。

[sazi]

xlCalculationManualは「手動」ですけど？
回答したのはエクセル本体のオプションの事です。

[ayukko1024]

エクセル本体のオプションは特に何もいじってはいません。

[ayukko1024]

どこに計算のオプションがあるかもわかりません

[sazi]

弄ったかどうかではなく、設定内容を確認された方が良いという話です。
どこにあるかはググれば直ぐに分かると思います。

[ayukko1024]

検索してもオプション→数式→再計算・手動
リボン→数式→再計算しかでてきません
どちらも児童になっています。
他にｱﾙのなら教えていただけません？