エクセルの作表について

質問

普通、数式が入っているセルに数字を入力すると、数式が無視されて入力した数字が表示されますが、セルに入力した時にその数字×3,000等の値を表示させることは可能でしょうか？

例えば、Ａ１に3,000、Ｂ１に2,500、Ｃ１に4,000と入力している場合、Ａ２に3と入力すればＡ２が9,000、Ｂ２に5と入力すればＢ２が12,500、Ｃ２に10と入力すればＣ２が40,000という感じです。

回答No.1

ja7awu · ベストアンサー

可能ですが、VBAを使用することになると思います。

使用しているシートのシート名タブを右クリックして「コードの表示」を指定し、
表示されたコードウィンドウに下記コードを貼り付けます。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range
Dim Rng As Range
Set R = Intersect(Range("A2:C2"), Target)
If Not R Is Nothing Then
　　Application.EnableEvents = False
　　For Each Rng In R
　　　　If IsNumeric(Rng) And IsNumeric(Rng.Offset(-1)) Then _
　　　　　　Rng.Value = Rng.Value * Rng.Offset(-1).Value
　　Next Rng
　　Application.EnableEvents = True
End If
Set R = Nothing
End Sub

お礼

ご回答ありがとうございます。
試してみたところ、出来ました！！
ＶＢＡなど使ったことがない、じゃなく使い方も知らないので出来たときは感動しました^^
ただ、Set R = Intersect(Range("A2:C2"), Target)のセルの設定で、セルをとばす時はどのように設定すればよいのでしょうか？
例えばA2:C2、D2をとばしてE2:X2のような感じで何ヶ所かとばしたいのです。

回答No.4

ja7awu

> 例えばA2:C2、D2をとばしてE2:X2のような感じで何ヶ所かとばしたいのです。

Set R = Intersect(Range("A2:C2, E2:X2"), Target)

で如何でしょうか。

お礼

できました！
ja7awu様のおかげで表が完成しそうです。
ＶＢＡにも興味がわきましたのでいろいろ勉強しようと思います。
ありがとうございました。

回答No.3

takafun55

No1さんの言うようにVBAならば可能です。
でも、このような使い方は賛成しません。

A1に3,000、B1に3、C1に＝A1*B1として3,000と表示した方が良いです。

印刷に困るというのでしたら、列を非表示にするとか印刷範囲の設定等ですれば良い事です。

入力値と表示値が違えば、あとあと面倒なことになってきますよ。

お礼

アドバイスありがとうございます。

>入力値と表示値が違えば、あとあと面倒なことになってきますよ。
それも考えたのですが、列が結構多い、毎日数字を入れ替えなければならない 、入れ替えたものを至急送付しなければならないなど、時間が限られていますので、入力すれば勝手に決められた値をかけてくれると助かるな～と思ったんです。

回答No.2

mu2011

通常の関数、書式設定では不可能です。
手動方式であれば、Ａ１～Ｃ１をコピーし、Ａ２～Ｃ２に「形式を選択貼り付け→乗算」貼り付けで可能です。

お礼

アドバイスありがとうございます。
こういう方法があったんですね。
勉強になりました。