ベストアンサー

関数を使わないでそのセルに出力する方法

2005/02/02 01:21

ある計算式が入ったセルがあったとして、その計算された値（見かけ上の数値）をどこか別のセル（空白のセル）に返す方法をご存知でしたら教えてください。返したいセルには関数すら入れないという方法でやりたいので、マクロを使うしかないと思うのですが、どのようなマクロを作ればよいのか見当が付かないのです（計算されてきた見かけ上の値を参照してどっかに出力する方法などあるのでしょうか）。例えば↓みたいな感じ　　A　　 B　　　C　　　　　　D 1 　10 　10 　=SUM(A1:B1) C1のセルは見かけ「20」となりますが、実際には「=SUM(A1:B1)」となっています。この「20」をD1にそのまま抽出したいと考えています（D1のセルには何も関数を入れないで、見かけ上も実際に入っている数値も「20」としたいのです）関数だけでは無理ですよね？

meronbokujou
お礼率80% (4/5)

オフィス系ソフト
回答数5
ありがとう数4

みんなの回答 （5）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

KenKen_SP
ベストアンサー率62% (785/1258)

2005/02/02 14:02 回答No.4

結論から言えば、関数では不可能です。ということで、以下の2つの方法を示します。お勧めはシートの保護による方法です。【方法A: 計算式が見えなければOKだからシート保護】シートを保護しても良いのであれば、計算式の入力されたセルを選択した状態で、 1. [セルの書式設定]-[保護]-[表示しない]にチェック 2. シートを保護するこれで、数式バーに計算式が表示されなくなります。【方法B: シートを保護したくない、計算式は絶対に使いたくないのでVBA】 VBA（マクロ）になりますね。ワークシートイベントで値の変化を監視し、変化があれば計算結果をセルに書き出すようコーディングします。以下はご提示いただいた例の場合のサンプルコードです。ベタベタですみませんが、簡単なコメントを記載しておきましたので、ご参考下さい。 1. EXCELのシート選択タブ上で目的のシートを選択し、右クリック 2. [コードの表示]でVBE起動 3. 以下のコードを貼付け Private Sub Worksheet_Change(ByVal Target As Range) 　　'イベントの二重発生抑止　　Application.EnableEvents = False 　　'データが変更されたのがA1またはB1セルの場合　　If Target = [A1] Or Target = [B1] Then 　　　　'C1セルにA1とB1の合計を書込む　　　　[C1] = Application.WorksheetFunction.Sum([A1], [B1]) 　　End If 　　'イベント抑止を元に戻す（必ず）　　Application.EnableEvents = True End Sub

質問者

お礼 2005/02/03 00:43

丁寧な解説ありがとうございました！明日仕事中にさっそく試してみようと思います。

ログインすると、全ての回答が全文表示されます。

その他の回答 (4)

KenKen_SP
ベストアンサー率62% (785/1258)

2005/02/02 14:28 回答No.5

No.4です。すみません。長々と見当違いな回答をしてしまいました。 C1セルに計算式があって、その値をD1セルに関数を使わず複写したいのですね。私のアップしたコードの下記を訂正します。（誤）[C1] = Application.WorksheetFunction.Sum([A1], [B1]) （正1）[D1] = Application.WorksheetFunction.Sum([A1], [B1]) （正2）[D1]=[C1] 失礼しました。早とちりしました。

ログインすると、全ての回答が全文表示されます。

chiw
ベストアンサー率33% (42/126)

2005/02/02 03:38 回答No.3

そのシートにマクロを組み込みます。 VisualBasicEditerを出して該当シートに以下のようにコーディングします。具体的には SUBが再計算されたときに Worksheet_Calculateイベントが発生しますからそのときに内容をc1からd1へ転送しています。 Private Sub Worksheet_Calculate() Range("d1").Value = Range("c1").Value End Sub

質問者