| 
    
     |  | こんにちは。 
 そのボタンのコードを、現在の「一行挿入」から
 「数式削除→一行挿入→数式入力」に変更すればいいかと思います。
 平均を出す数式がH1セルに入っているとして、こんな感じで
 Dim myFormula As String
 myFormula = Range("H1").Formula
 Range("H1").ClearContents
 '一行挿入のコード
 Range("H1").Formula = myFormula
 
 
 ▼shouw さん:
 >いつもこちらのサイトをいろいろ参考にさせて頂きお世話になっております。
 >
 >平均値の計算についての質問ですが、あるデータベース上の数値の平均をだしたいと考えております。
 >
 >そのデータベースの値はマクロで更新ボタンを作り、ボタンを押すことによって他のシートの記録用紙から必要な数値のみの最新のデータが一行挿入され記録されるように組んであります。(例:2月13日の数値がA1:G1ある。本日のデータを更新する際はA1:G1に2月14日分の数値が入り、2月13日分はA2:G2になる。)
 >
 >そこでA列の平均値を出す際に、通常の計算式で組むと更新ボタンを押し一行挿入されると平均値の計算式も一行下がってしまい、最新のデータを含む平均値の自動計算ができません。
 >
 >どなたかどのようにすればよいか教えて頂けますか。
 >
 >よろしくお願い致します。
 
 |  |