AccessからExcelを出力時にsum関数をセルに埋め込みたいです。

Question

ネットで探したのですが見つからなかったため

ご教授いただきたく思います。

よろしくお願い致します。

AccessからExcelを出力する時にsum関数をセルに埋め込みたいです。

そしてExcelを開いた時に計算されている状態を求めています。

じかに配列に　vArray(1, 1) = "=SUM(A1:A5)"

としエクセル出力時にセルに配列を代入すると、

Excelを開いた時に自動で計算されず

セルをダブルクリックして対応しています。

ダブルクリックしないで良い方法はありませんでしょうか。

また合計数値をじかにセルに代入ではなく

sum関数を残して使用したいです。

対処方わかる方いらっしゃいましたら

どうぞよろしくお願い致します。

Answer 1

> 出力されたExcelのセルには> 『=SUM(M12:M15)』のように表示されます。> そのセルをダブルクリックして> カーソルを他のセルを選ぶと> M12からM15からの数値が再計算されます。> sh.Cells(i, 14).Value = rs!項目小計

----------------------------------------------

sh.Cells(i, 14).Formula = rs![項目小計].Value

----------------------------------------------

以上のように修正してみても同様の結果となるのでしょうか。

Answer 2

できました！！本当にすごいですね！！

流石です！！

どうもありがとうございますm(_ _ )m

×　sh.Cells(i, 14).Value = rs!項目小計

×　sh.Cells(i, 14).Formula = rs!項目小計

○　sh.Cells(i, 14).Formula = rs![項目小計].Value

rs!項目小計 →　rs![項目小計].Value

できるだけ上記のように[]と.valueを

つけた方が良いのでしょうか？

本当に助かりました！どうもありがとうございました！

Answer 3

sk.exe様

早速のお返事どうもありがとうございます。

大変心強いです。

vArray(arraynum, 14) = "=SUM(M" & amounttotal + 11 & ":M" & arraynum + 10 & ")"

上記のようにvArray（配列変数）に一度格納し

rs.AddNew

rs!項目小計 = vArray(arraynum, 14)

rs.Update

一度テーブルに保存した後に

Set xlApp = CreateObject("Excel.Application")

Set Wb = xlApp.Workbooks.Open(vPath)

Set sh = Wb.Worksheets(1)

sh.Cells(i, 14).Value = rs!項目小計

Wb.Save

Set xlApp = Nothing

上記のようにExcelに出力しています。

そして出力されたExcelのセルには

『=SUM(M12:M15)』のように表示されます。

そのセルをダブルクリックして

カーソルを他のセルを選ぶと

M12からM15からの数値が再計算されます。

その時のダブルクリック→カーソルを他にの

作業をなくしたく思っております。

理解しづらかったら申し訳ございません。

また説明不足ございましたらお気軽にメッセージいただきたく思います。

よろしくお願い致します。

Answer 4

> AccessからExcelを出力する時にsum関数をセルに埋め込みたいです。> じかに配列に　vArray(1, 1) = "=SUM(A1:A5)"> としエクセル出力時にセルに配列を代入すると、> Excelを開いた時に自動で計算されず> セルをダブルクリックして対応しています。

・代入先のセルに、数式がそのまま表示される。

・SUM 関数の集計範囲に含まれるいずれかのセルの値を変更しても、
　数式セルの再計算が実行されない。

どちらの意味でおっしゃっているのでしょうか。

また、vArray はどのデータ型の配列変数なのでしょうか。

いずれにしても、VBA に関するご質問なのであれば、
その処理を実行するプロシージャ全体の記述内容を
そのまま明記されることをお勧めします。