マクロ 計算式

質問

エクセルでマクロを使い、計算式をと結果を表示したいのですが、教えてください。

Ａ１に　２００　　　Ｂ１に　１０　　Ｃ１でＡ１＊Ｂ１の結果を出し、且つ、結果に円という文字をつける場合のマクロの書き方をお願いします

この状態では答えは　２００×１０　で　２０００としか出ないのと、他のセルで実行させた場合でも、例えばＡ６に　２００　　　Ｂ６に　１０とした場合、　Ｃ６で答えが欲しいのです。

説明がへたくそですみません
お解りの方、お願いします。

回答No.4

Wendy02 · ベストアンサー

こんばんは。

シートのタブを右クリック、コードの表示で開いたら、以下を貼り付けます。

使い方は、C列をダブルクリックします。A列、B列に数字が入っていれば、同行の計算式と円が入ります。
片方のセルが空の状態でダブルクリックすると、数式も円も消えます。

一括で入れるなら、別のマクロになります。
'----------------------------------------------------------------

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　Cancel = True
　　If Target.Column <> 3 Then Exit Sub　'C列
　　If (IsNumeric(Target.Offset(, -2)) And IsNumeric(Target.Offset(, -1))) And _
　　　　Not (IsEmpty(Target.Offset(, -2)) Or IsEmpty(Target.Offset(, -1))) Then
　　　　Target.FormulaLocal = "=RC[-2]*RC[-1]"
　　　　Target.NumberFormatLocal = "#,##0円"
　　Else
　　　　Target.Clear
　　End If
End Sub

お礼

ありがとうございます
うまくいきました

回答No.3

山路 独（@j59fmk53jh）

Range("C1").Value = Range("A1").Value * Range("B1").Value & "円"
とか？
Ｃ列のほうは、使うイベントが不明ですが、
Activecell.Rows.Row　で列番号は出せます。どうですか？

お礼

ありがとうございます
とりあえず、試してみます

回答No.2

mt2008

質問が判りにくいですね。
C1に式と結果と単位（円）を表示したいと言う事でしょうか?
例：A1に「200」、B1に「10」と入っている場合、C1に「200×10＝2000円」　

通常この程度ではマクロは使いません。演算式を使います。
C1に以下の式を入れて見てください
=A1&"×"&B1&"="&A1*B1&"円"

C1をコピーしてC6に貼り付ければ、A5とB6を掛けた結果になります。

お礼

ありがとうございます

現在は、関数を使用していますが、Ｃの欄に、今までは”円”の計算だけだったのですが、その他の文字を入れることもあるようになり、関数では難しくなりました。

回答No.1

kkaamm

関数の方が簡単だと思います。
=CONCATENATE(A1*B1,"円")
もしくは
=YEN(A1*B1,0)
あとはオートフィルで必要なところまでコピーをすれば使えます。

お礼

ありがとうございます

現在は、関数を使用していますが、Ｃの欄に、今までは”円”の計算だけだったのですが、その他の文字を入れることもあるようになり、関数では難しくなりました。