[[20120509154931]]　『マクロで数式を入れるとセルの表示形式がクリアさ』（なら）　ページの最後に飛ぶ

『マクロで数式を入れるとセルの表示形式がクリアされ、値でなく数式が表示される』（なら）

あるシートのボタンを押すと他のシートに数式が入力される、下記のようなマクロを作成しています。

    Sub 数式入力()  'ボタンのマクロ
        Dim i As Integer

        Application.ScreenUpdating = False

        For i = 1 To 10
            With Sheets("シート" & i)
                .Range("A1").Formula = "=情報!D10"
                .Range("B1").Formula = "=情報!E15"
                .Range("C1").Formula = "=情報!F20"
            End With
        Next

        Application.ScreenUpdating = True

    End Sub

ところが上のマクロを実行すると、C1セルのみ、値ではなく数式が表示されてしまいます。

数式で表示されること自体の原因はセルの表示形式のようです。
マクロ実行前は、A1,B1,C1セルともに形式は標準で、何か数式を入力すれば、当然値が表示されます。
ところがマクロを実行すると、A1セル、B1セルの表示形式は標準のままなのに、C1セルの表示形式のみがクリアされてしまうようなのです。
セルの書式設定で表示形式を確認すると、C1セルのみ、マクロ実行後は何も表示形式が選択されていない状態になっています。A1,B1セルは標準が選択されたままの状態です。

再度C1セルを標準形式に戻して数式を入れ直してみると値は表示されますが、
マクロを実行すると再び数式が表示されてしまいます。

考えられる原因について教えてください。
よろしくお願いします。

 こちらに掲載されているのは全てのコードですか？
 抜粋のコードのみですか？
 もし抜粋のみでしたら、その前後に問題が有るかもしれないですが。。
 　　　　　　　　　　　　　　　　　　　　　　　　　(通行人)

通行人さん。ありがとうございます。

こちらに掲載されているのは全てのコードですか？抜粋のコードのみですか？もし抜粋のみでしたら、その前後に問題が有るかもしれないですが。。

抜粋コードです。
ご指摘を受けて抜粋した部分以外をすべてコメントアウトして実行してみましたが、同じ現象が起きました。

抜粋した部分自体は、シート名とセルのアドレス以外、実際のコードと同じです。（なら）

 Q&Aラウンジはマルチポスト禁止なのであちらで質疑を行うつもりならばこちらはその旨書いて解決済みにしましょう。

http://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+201205/12050020.txt

 (マルチーズ)

マルチーズさん　

ご指摘ありがとうございます。
マナーを知らず、大変を失礼しました。

マルチーズさんのリンク先で質問をしましたので
こちらでは解決済みとさせていただきます。

通行人さんも改めてありがとうございました。
失礼しました。（なら）

コメント返信：

[ 一覧(最新更新順) ]

[[20120509154931]] 『マクロで数式を入れるとセルの表示形式がクリアさ』（なら） ページの最後に飛ぶ

[[20120509154931]]　『マクロで数式を入れるとセルの表示形式がクリアさ』（なら）　ページの最後に飛ぶ