エクセルで、入力数字を自動的に代入し結果表示させたい

入力した数字を自動的に代入し、その結果をそれぞれ表示させるにはどうしたらよいのでしょうか。具体的には

　　　　　A列 　　　　　　　 B列 　　 　　 　　 C列
1行 　　 10 　　 　　　　　 20 　　　　　　　　　A1またはB1を引っぱって表示
2行 　　 30 　　 　　　 　　40 　　　　　　　　　C1がA1のときA2、C1がB1のときB2を表示
3行 　　C3結果表示　　　C3結果表示　　　C1+C2の計算式

Ａ１、Ａ２、Ｂ１、Ｂ２は手入力します。
Ｃ１でＡ１が代入された場合Ｃ２にはＡ２が代入され、Ｃ３はＣ１＋Ｃ２を計算し、その結果４０をＡ３に表示させる。
また、Ｃ１でＢ１が代入された場合Ｃ２にはＢ２が代入され、Ｃ３は計算結果６０を表示させる。
というようにしたいのです。Ｃ１、Ｃ２、Ａ３、Ｂ３にはどのような計算式を入れればよいのか教えてください。

No.1 回答者： kazuhiko5681 回答日時： 2002/11/07 22:27

初めまして。

Ｃ１にＡ１かＢ１を引っぱってきて表示ということですが、○○という時にＡ１・××という時にＢ１を表示というように○○又は××という条件がないと実行することができません。Ｃ２・Ｃ３・Ａ３・Ｂ３に関しましては、次の式を挿入すれば自動実行することができます。

Ｃ２に挿入する式
=if(C1=A1,a1,if(C1=B1,B1,""))
Ｃ３に挿入する式
=C1+C2
Ａ３に挿入する式
=if(C1=A1,C3,"")
Ｂ３に挿入する式
=if(C1=B1,C3,"")

Ｃ１の挿入する式をお知りになりたい時は、○○・××という条件を教えて下さい。すぐに再回答します。またマクロを組めば、各セルに式を入力するという手間をかけずに自動で実行することができます。もしよろしければサンプルマクロを組んでみたいと思います。もしご希望でしたらその旨もお知らせ下さい。
お手数をおかけいたします。よろしくお願いいたします。

この回答への補足

質問の趣旨がわかりずらいところ、早速のご回答ありがとうございます。
Ａ１：Ｂ２は入力用で任意の数字が入ります。
Ｃ列は計算式が入っている列で、Ａ１、Ａ２の入力を受けてＡ列の計を計算、Ｂ１、Ｂ２の入力を受けてＢ列の計を計算します。そして、それぞれの計算で出た結果をＡ３、Ｂ３に表示する。
この場合のＣ１、Ａ３の計算式をどうした良いのか迷っています。

私のやりたいことは、給与計算で、各人の賃金総額、社会保険料控除額、扶養者の人数がわかっていて、各々の所得税を計算し、その結果を給与明細に転記したいのです。所得税の計算まではシート１を使ってマクロで計算できたのですが、シート２にＡ氏の給与明細、シート３にＢ氏の給与明細をそれぞれ表示したいのです。シート２にＡ氏の賃金総額等必要な数字を入力すると、シート１で所得税を計算し、その結果をシート２のＡ氏の給与明細の所得税欄に表示する。シート３にＢ氏の賃金総額等必要な数字を入力すると、シート１で所得税を計算し、その結果をシート３のＢ氏の給与明細の所得税欄に表示する。というように、計算するシートは１つで、そこに代入する数字が変わると計算結果が異なって出力され、それを他のシートに転記する、そんな計算ができないものか悩んでいるのです。それを単純化したつもりが、かえってわかりずらくしてしまったようですみません。

補足日時：2002/11/08 22:17

No.2 回答者： misatoanna 回答日時： 2002/11/07 22:29

ご質問の例題そのままのケースですと、

A3： =IF(C1=A1,C3,"")
B3： =IF(C1=B1,C3,"")
C2： =HLOOKUP(D1,A1:C2,2,FALSE)
でよいと思うのですが――C1の「A1またはB1を引っぱって表示」という意味がわかりませんので、当然 C1 の式はわかりません。
引っ張ってくる条件というのは何なのでしょうか。

この回答への補足

質問の趣旨がわかりずらいところ、早速のご回答ありがとうございます。
前述したとおりなのですが、教えていただけませんか。

補足日時：2002/11/08 22:19

No.3 回答者： imogasi 回答日時： 2002/11/07 22:30

＞A1またはB1を引っぱって表示

（１）A1やB1は文字列のA1やB1のどちらかをいれるってことか。
（２）A1の値の１０やB1の値の２０が入ればと言うことか。
＞引っ張って
引っ張るとは何か。値A1かB1をいれるセルがあって、たとえばE1として、C1には＝E1となっていると言うことか。
＞C1がA1のときA2、C1がB1のときB2を表示
A2とはA2セルの値３０、B2とはB2の値４０のことか
－－－－
（１）として、
C1セルの演算式は=if(c1="A1",A2,B2)
C2セルの演算式は=C1+C2
A3セルの演算式は＝C3,
B3セルの演算式は＝C3,
これらはあまり疑問・質問になる点は思いつかず、質問の
主旨を捉えてなければすみません。

この回答への補足

質問の趣旨がわかりずらいところ、早速のご回答ありがとうございます。
前述したとおりなのですが、教えていただけませんか。

補足日時：2002/11/08 22:20

No.4 回答者： misatoanna 回答日時： 2002/11/07 22:31

ご質問の例題そのままのケースですと、

A3： =IF(C1=A1,C3,"")
B3： =IF(C1=B1,C3,"")
C2： =HLOOKUP(C1,A1:B2,2,FALSE)
でよいと思うのですが――C1の「A1またはB1を引っぱって表示」という意味がわかりませんので、当然 C1 の式はわかりません。
引っ張ってくる条件というのは何なのでしょうか。

この回答への補足

質問の趣旨がわかりずらいところ、早速のご回答ありがとうございます。
前述したとおりですが、ご回答いただけませんか。

補足日時：2002/11/08 22:23

No.5 回答者： kazuhiko5681 回答日時： 2002/11/09 11:07

おはようございます。

貴方様のおやりになりたいことは、マクロを組めば簡単に実行できると思います。
折角マクロで所得税の計算をさせているのですから、その計算結果を所得税欄に表示させるという風にすればよろしいのではないでしょうか。

＞所得税の計算まではシート１を使ってマクロで計算できた
このマクロをすべて教えていただければ、貴方様の思い通りに動作するサンプルマクロを組むことができるかと思います。ご希望の節は、次のこともあわせて教えて下さい。

・シート２・シート３・・・等の列構成とセル番地

お手数をおかけいたしますが、よろしくお願いいたします。

この回答への補足

親切にありがとうございます。
マクロを組んだといってもフリーソフトをコピーしただけで、マクロの扱いを知りません。

列構成とセル番地ですが、
シート1は所得税計算のマクロが組まれていて、A1、A2、A3を手入力すると所得税の計算をします。A1に賃金総額、A2に社会保険料控除額、A3に扶養家族数、A4に所得税となっています。
シート2、シート3、シート4・・・は職員のシートで皆同じ列構成となっており、これもシート1と同じにしてあります。
A1に賃金総額、A2に社会保険料控除額、A3に扶養家族数、A4に所得税です。

シート2のA1、A2、A3は、時間外時間の入力等をB列にすることにより自動計算されるよう計算式がはいっています。

計算の流れとしては、シート2のB列を入力した結果出たA1、A2、A3をシート1のA1、A2、A3に入力しその結果出た所得税額A4をシート2のA4に戻す。これをシート3、シート4・・・と職員人数分こなすということをやらせたいのですが、これで具体的に作業ができますでしょうか。

補足日時：2002/11/10 10:09

No.6 ベストアンサー 回答者： kazuhiko5681 回答日時： 2002/11/10 20:36

こんばんわ。

早速サンプルマクロを作ってみました。以下のように操作してみて下さい。

１.データの入っているブックを立ち上げ、ＡＬＴ＋Ｆ１１キーを押してＶＢＥ画面を表示させ、画面左上のVBAProjectと書かれている上にマウスポインターを合わせて右クリック後、挿入→クラスモジュールを順にクリックし、表示された右側の白い部分に下記のコードをコピー＆ペーストする。

Public WithEvents App As Application

Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim myRow As Integer

myRow = Target.Row
If Target.Address = Range("B" & myRow).Address Then
Application.EnableEvents = False
Worksheets(1).Range("A3").Value = ActiveSheet.Range("A3").Value
Worksheets(1).Range("A2").Value = ActiveSheet.Range("A2").Value
Worksheets(1).Range("A1").Value = ActiveSheet.Range("A1").Value
ActiveSheet.Range("A4").Value = Worksheets(1).Range("A4").Value
Application.EnableEvents = True
End If

End Sub

２.次に画面左上のVBAProjectと書かれている下のThisWorkbookをダブルクリックし、表示された右側の白い部分に下記のコードをコピー＆ペーストする。

Dim myClass As New Class1

Private Sub Workbook_Open()

Set myClass.App = Application

End Sub

３.保存してブックを終了し、再度立ち上げる。

シート１以外のＢ列に値を入力してみて下さい。貴方様の思い通りの動作が実現できます。

ご不明な点・不具合等がありましたら、ご遠慮なくお知らせ下さい。私のわかる範囲でご一緒に考えていきたいと思います。

この回答への補足

驚きました。本当にできました。ありがとうございます。見ず知らずの方なのに、こんなに親切に教えていただいて大感激です。

厚かましい限りで恐縮ですが、ついでに応用でお願いできますでしょうか。
入力をＢ列にしたため、
If Target.Address = Range("B" & myRow).Address Then
の行があるのだと思うのですが、入力セルをシート２、シート３・・・のＡ１、Ｂ２、Ｂ３とした場合にはどうしたら良いのでしょうか。どうか教えてください。

補足日時：2002/11/10 22:39

No.7 回答者： kazuhiko5681 回答日時： 2002/11/11 00:10

こんばんわ。

＞入力セルをシート２、シート３・・・のＡ１、Ｂ２、Ｂ３とした場合にはどうしたら良いのでしょうか。
Ａ１・Ｂ２・Ｂ３の順に入力するのであれば、このままで問題なく動作します。もし違う場合は、貴方様のおやりになりたいことを具体的に詳しく教えて下さい。よろしくお願いいたします。

この回答へのお礼

度々ありがとうございます。
問題なく動作しました。いろいろとご親切にありがとうございました。

お礼日時：2002/11/11 10:04