dingding回答ポイント 110ptウォッチ 3

エクセルで、以下を実現する方法は？

「1番シート」に以下のようにデータが入っているとします。
111 222 333 x
113 234 213 y
321 421 314 z

「2番シート」はA1,A2,A3にそれぞれ値を入れると、B1にいろいろと計算した結果の数字が入るようになっています。

ここで、1番シートのまえの3つの数字を、2番シートのA1,A2,A3にいれてB1に出てきた結果を、x,y,zのそれぞれに入るようにしたいと思います。

どうすれば実現できるのでしょうか？

• はてなアカウントでログイン
• 無料ユーザー登録

みんなの回答

• stnet2010/08/20 09:59:21

  満足13pt

  =Sheet1!A1

  のような感じで入力すれば、他シートの値を参照できますよ

  http://www.excel-jiten.net/formula/ref_other_sheets.html

  スター

  • dingding 2010/08/20 11:04:54

    意味がちがいます。

    2番シートに

    111 222 333をいれたときのB1の値をxに、

    113 234 213をいれたときのB1の値をyに、

    321 421 314をいれたときのB1の値をzに、

    入れたいんです。

がら2010/08/20 10:06:11

満足25pt

１番シートの前の３つとはＡ1，Ａ2，Ａ3のことですよね？

２番シート（Sheet2)のA1に「=Sheet1!A1」（「」はつけないでね）

１番シート（Sheet1)のC1に「=Sheet2!B1」

でＯＫでは？

スター

Penyan2010/08/20 11:26:47

満足24pt

A1,A2,A3の順番でよければ、

xの数式を

=IF(AND(A1=Sheet2!$A$1,B1=Sheet2!$A$2,C1=Sheet2!$A$3),Sheet2!$B$1,"")

にしてy,zにコピーしてください。

スター

• dingding 2010/08/20 11:55:03

  なんかうまくいかないですね。

ycyc2010/08/21 01:13:09

満足24pt

計算式が1箇所にしかないので、複数の値を順番に入れて計算結果を適宜設定するようにすればいいと思うので、dingdingさんのマクロが正しく動かないとすれば、Functionを呼び出しているところがまずいのではないでしょうか？

	
Private Sub CommandButton1_Click()
	
    Dim row As Integer
	
    For row = 1 To 1000
	
        If (sheet1.Cells(row, 1) = "") Then
	
            ' 適当なところまで繰り返す
	
            Exit For
	
        End If
	
        Worksheets("Sheet1").Cells(row, 4).Value = _
	
          XXX(Worksheets("Sheet1").Cells(row, 1).Value, _
	
              Worksheets("Sheet1").Cells(row, 2).Value, _
	
              Worksheets("Sheet1").Cells(row, 3).Value)
	
    Next
	
End Sub
	
Function XXX(aaa, bbb, ccc)
	
    Worksheets("Sheet2").Range("A1").Value = aaa
	
    Worksheets("Sheet2").Range("A2").Value = bbb
	
    Worksheets("Sheet2").Range("A3").Value = ccc
	
    XXX = Worksheets("Sheet2").Range("B1").Value
	
End Function
	

スター

• dingding 2010/08/21 08:39:24

  ありがとうございます。試してみたいと思います

ask0012010/08/21 10:56:46

0pt

(はてなにより削除しました)

スター

noriklb2010/08/21 21:48:34

満足24pt

この問題について、かなり考えてしまいました。

if関数を使う、and関数を使う・・・・

やっぱりマクロか・・・・

でも、発想の転換をしました。

sheet1のＸのセルＤ1に、＝の付いた式を入れます。

その式は、sheet2の式をコピーします。

たとえば、

sheet2　の　Ｂ1に　＝A1+A2-A3 という式が入っていたとします。





それをコピーし、sheet1のＤ1に貼り付けます。

その式を　＝A1+B1-C1 に書き直します。





これが、Ｘの値となります。

オートフィルで、Ｙ、Ｚ　の値を出します。








　

スター

• dingding 2010/08/22 09:34:14

  ありがとうございます。それをしようと思って、参照をすべてせずに1行の式にしたんですが、文字数が5000文字位あることに途中で気づきました。それで断念してしまいました。

  今回のような使い方はよくできればなと思って放置していたやり方なので、できるようになれればなと思って投稿していました。

  なんとなく簡単にできるだろうと思ってたら、思いのほか難しいことがわかりそれはそれでとても有益でした。ありがとうございます。

• その他の回答を読む

この質問へのコメント

• がら2010/08/20 11:25:18
  １番シートのＡ１に入っているのは
  ①111ですか？
  ②それとも９桁の
  111222333
  ③それとも３桁数字（空白）３桁数字（空白）３桁数字の
  111 222 333ですか？
  
  ②もしくは③で111を
  2番シートのＡ１に求めるなら
  =LEFT(Sheet1!A1,3)
  で行けるのではないかと思います
• dingding2010/08/20 12:19:42
  やりたいのは、
  A1,A2,A3にある値を入れた時のB1の値を関数で取得することです。
  
  関数名がわかりませんが、イメージとしては
  (Sheet2!A1=Sheet1!A4,Sheet2!A2=Sheet1!B1,Sheet2!A3=Sheet1!C1)の条件の時のSheet2!B1の値を取得する関数を知りたいのです
• ootatmt2010/08/20 12:22:34
  マクロを使わないと無理じゃないかな。
• nepia112010/08/20 14:22:10
  2番シートの「いろいろ計算した」この計算式を、
  それぞれx,y,zのセルに記述すればいいんじゃないですか。
  
• ootatmt2010/08/20 14:35:49
  > 2番シートの「いろいろ計算した」この計算式を、
  > それぞれx,y,zのセルに記述すればいいんじゃないですか。
  
  単純に =A1+A2+A3 のような式だったら、それでいいと思うんですけど、
  きっと計算式が複雑で複数のセルに渡って書かれているんでしょう。
  違うかな？
  
  結構、こんな要求はありますよね。
  
  マクロを使ったら簡単なんですけど、関数だけでは無理だと思います。
• dingding2010/08/20 15:24:57
  ありがとうございます。
  
  >きっと計算式が複雑で複数のセルに渡って書かれているんでしょう。
  まさしくそうです。
  たくさんのセルにわかって長々と計算しています。
  マクロを使えばいけるんですね。調べてみます。
• ootatmt2010/08/20 16:09:04
  マクロを使うなら、
  
  1番シートから数値を取ってくる
  2番シートの A1, A2, A3 に代入
  2番シートの結果 B1 の値を取ってきて
  1番シートの x に入力
  
  これを必要回数分繰り返すだけです。
• dingding2010/08/20 16:11:04
  具体的な書き方がいまいちわかりませんでした。
  参考になるサイトがあれば教えてください。
  
  Function XXX(aaa, bbb)
  Worksheets("Sheet2").Range("A1").Value = aaa
  Worksheets("Sheet2").Range("A2").Value = bbb
  XXX= Worksheets("Sheet2").Range("B1").Value
  End Function
  
  これでいいような気がしますが、期待したようになりません。
• ootatmt2010/08/20 16:17:12
  Functionプロシージャの中では、
  Worksheets("Sheet2").Range("A1").Value = aaa
  のように、セルの値を操作することができません。
  
  Subプロシージャを使ってください。
  
• SALINGER2010/08/20 17:17:50
  ちょっと面白いものを作ってみたので試してみてください。
  >>
  Function XXX(r1, r2, r3) As String
  Dim str As String
  str = Worksheets("Sheet2").Range("B1").Formula
  str = Replace(str, "A1", r1)
  str = Replace(str, "B1", r2)
  str = Replace(str, "C1", r3)
  XXX = Evaluate(Mid(str, 2))
  End Function
  <<
  これは数式を取り出して、値を置換して計算した結果を返します。
  これは実は不完全でして、A11とか数式にあるとエラーになります。
  また、単純な物は試しましたが、複雑な関数を処理できるかは知りません。
• ootatmt2010/08/20 18:59:13
  SALINGERさん
  
  その方法もアリかと思いましたけど、数式が B1 だけに入っているわけではないので使えなさそうですよ。
• SALINGER2010/08/20 20:01:32
  そうだね。もともと配列一つあっても使えないので。
  はなからユーザー定義関数ではなくて、実行形式のマクロにすれば簡単ですが。
• SALINGER2010/08/20 20:17:25
  ＞B1 だけに入っているわけではないので使えなさそうですよ。
  これはセル文字列を取得して再帰を使えばなんとかなるかもしれないな・・・
  でもユーザー定義関数でそこまで普通やらないか。
• hathi2010/08/20 22:53:45
  質問があります。下記の言われている意味がわかりません。
  >>>>>>>>> 2番シートの「いろいろ計算した」この計算式を、
  >>>>>>>>> それぞれx,y,zのセルに記述すればいいんじゃないですか。
  >>>>>>単純に =A1+A2+A3 のような式だったら、それでいいと思うんですけど、
  >>>>>>きっと計算式が複雑で複数のセルに渡って書かれているんでしょう。
  >>>>>>違うかな？
  >>>>>>マクロを使ったら簡単なんですけど、関数だけでは無理だと思います。
  >>>まさしくそうです。
  >>>たくさんのセルにわかって長々と計算しています。
  
  エクセルシート上で、複数のセルにまたがって計算結果を参照する複雑なことをしても、結果がおかしくなったことは私の経験ではありません。
  ユーザ定義関数の計算結果を参照するようなことをさせる場合には、制限があるそうですが、普段そうしたユーザ定期関数の結果を入れ子入れ子で何段ものセルで計算させたことがないので、経験上おかしなことになったこともありません。
  　　http://support.microsoft.com/kb/170787/ja
  　
  『(Sheet2!A1=Sheet1!A4,Sheet2!A2=Sheet1!B1,Sheet2!A3=Sheet1!C1)の条件の時の Sheet2!B1の値を取得する』のであれば、Sheet1!A4、Sheet1!B1、Sheet1!C1、Sheet2!A1、Sheet2!A2、Sheet2!A3、Sheet2!B1にくるまでの計算にユーザ定義関数が使われていても、（循環参照）になっていなければ、ifでSheet2!B1のセルに表示されている値を取得することはできるように思うのですが、違うのでしょうか？
  　
  マクロを使わなければならないのは、例えば、どのような計算式が各セルに使われているような場合なのでしょうか。
  　　
  　～～～～～～～～～～～～～～～～～～～～～～～～～～～～
  　
  （今回の質問者dingding さんの意図（何をしたいのか）が、私にはよくわからないのです）
  『(Sheet2!A1=Sheet1!A4,Sheet2!A2=Sheet1!B1,Sheet2!A3=Sheet1!C1)の条件の時の Sheet2!B1の値を取得する』
  　1番シートのまえの3つの数字を、2番シートのA1,A2,A3にいれてB1に出てきた結果を、x,y,zのそれぞれに入る
  　Sheet2!B2=f(Sheet2!A1,Sheet2!A2,Sheet2!A3) で、x,y,zにSheet2!B2の値を入れるというのは何でしょうか？
  　Sheet1には最初　次のように画面表示されていて、
  　 A B C D E
  1 "111" " 222" "333" "x"
  2 "113" " 234" "213" "y"
  3 "321" " 421" "314" "z"
  4
  　
  　Sheet2のA1,A2,A3に入力すると、Sheet2のB2に結果が表示されてくる
  　　（そこまでは既に完成済み）
  　で………
  　Sheet2のB2の結果(value)を、Sheet1のD1、D2、D3のx、y、zの文字と置換するのでしょうか？
  　　同じ値をD1、D2、D3に入れるなら、D2、D3は"=D1"の値参照で良いようですし………
  　
  　
  『(Sheet2!A1=Sheet1!A4,Sheet2!A2=Sheet1!B1,Sheet2!A3=Sheet1!C1)の条件の時
  　このSheet1!A4はブランクだとすると、　（Sheet2!A1をブランクにした時以外）
  　　3つの条件がand条件だと、条件式はほとんどの場合意味がない？　
  　　　
  　　また　Sheet1!A1、Sheet1!A2:Sheet1!C3は、回答の中に出てくることはない？
  　
  どのようなことをされようとしているのか、できたら、解説をお願いします。
• dingding2010/08/21 08:37:20
  みなさま、ありがとうございます！
  
  サンプルではシンプルなのですが、実際のものでは、
  A1に数字をいれたら、計算途中としてA10、A11,A12に計算結果がでて、その結果をつかって、B10,B11,B12に結果がでて…というような感じのを10回くらい繰り返しています。
  
  すべての参照を手動でつなげて1つの計算式にできないか試してみたところ、
  5000文字くらいの計算式になってしまいました。
  
  一つ一つの計算式は四則演算とIF文くらいしかないので、計算式にしようとすればできるのではないかと思えてきましたが、エクセルで気軽に計算していてその結果を簡単に計算式にできないものなのかなと考えていました。
  
• ootatmt2010/08/21 13:30:20
  > エクセルシート上で、複数のセルにまたがって計算結果を参照する複雑なことをしても、結果がおかしくなったことは私の経験ではありません。
  
  私もおかしくなったことはありませんし、質問者さんもおかしくなっていないと思います。
  
  > どのようなことをされようとしているのか、できたら、解説をお願いします。
  
  質問をよく読めばわかりますよ。
• hathi2010/08/21 15:18:35
  失礼しました。もう一度読んで見ました。
  　
  ①　Sheet2（A1,A2,A3)に入力した値が、
  　　　Sheet1(A1,B1,C1)に対応して3つとも一致しているとき　⇒　D1に
  　　　Sheet1(A2,B2,C2)に対応して3つとも一致しているとき　⇒　D2に
  　　　Sheet1(A3,B3,C3)に対応して3つとも一致しているとき　⇒　D3に
  　　Sheet2のB1の値を入れる。
  　
  ②　Sheet2のB1の値は複雑な条件式や計算によって表示される結果であるが、
  　　その結果はおかしくなることはない。（いつも正しい結果を出している）
  　
  こういう理解で良いでしょうか？
  
  この理解で良い場合に、3 回答者：Penyanさんの 2010-08-20 11:26:47
  　　xの数式を　（Sheet1 のD1のセルに）
  　　　=IF(AND(A1=Sheet2!$A$1,B1=Sheet2!$A$2,C1=Sheet2!$A$3),Sheet2!$B$1,"")
  　　　にしてy,zにコピーしてください。（Sheet1 のD2,D3のセルに）
  　で、うまくできそうに私には思えるのですが、
  　　『なんかうまくいかないですね。』
  　　『きっと(B1に至る)計算式が複雑で複数のセルに渡って書かれているんでしょう。
  　　　結構、こんな要求はありますよね。
  　　　マクロを使ったら簡単なんですけど、関数だけでは無理だと思います。 』
  
  ここが現在もわかりません。
  　
  　B1に至る計算式が、どのようにセルを参照し続ける複雑なものでも、
  　最終的にB1に正しい答えが出ているのであれば、
  　(If文で　B1を参照する方法)がうまくいかないことがあると言うのがわからないのです。
  　どのような条件があると、うまく動かなくことがあるのかを知りたいのです。
  　　　　よろしくお願いいたします。
  　
  　試しに、
  　　D1に　=IF(AND(A1=Sheet2!$A$1,B1=Sheet2!$A$2,C1=Sheet2!$A$3),Sheet2!$B$1,"")として
  　　D2,D3にコピーし、
  　　B1に［20段のセル参照で各セル6セルを（Ifと四則演算、INT、RAND、POWERの関数で）
  　　やる式］を作りました。
  　　Sheet2!（A1,A2,A3）に手入力して、Sheet1のD1,D2,D3に正しく反映するかを見ましたが、
  　　特に問題は起きませんでした。
  
  
• うぃんど2010/08/21 17:40:36
  横から失礼します
  　
  【１】趣旨
  「２番シート」を１つの関数とみなして使い回しを図ろうというのが趣旨だと思われますので、手順は下記でしょう
  （０）「１番シート」のA-D列に下記のように入っているとします
  A B C D
  111 222 333 x
  113 234 213 y
  321 421 314 z
  （１）１番シート(A1,B1,C1)を２番シート(A1,A2,A3)に入れて２番シート(B1)に出てきた結果を１番シート(D1)に書く
  （２）１番シート(A2,B2,C2)を２番シート(A1,A2,A3)に入れて２番シート(B1)に出てきた結果を１番シート(D2)に書く
  （３）１番シート(A3,B3,C3)を２番シート(A1,A2,A3)に入れて２番シート(B1)に出てきた結果を１番シート(D3)に書く
  以下、多分続くと思われる
  　
  【２】シート上だけではできない
  VBAで上記（１）、（２）、（３）を順次繰り返す処理が必要
  　
  【３】計算式をVBA側で書くと良いと思われる
  ＞すべての参照を手動でつなげて1つの計算式にできないか試してみたところ、
  ＞5000文字くらいの計算式になってしまいました。
  ２番シートの仕様が詳細に判れば簡略化する事も可能な場合がありますが、
  はてな程度でのやりとりならば【２】に記述しましたように繰り返し処理させる方法を教えてもらうのが早道ですね
  VBAのコードも数行ですみますから理解も早いはずです
  回答４の方式（functionに分けなくてもいいと思うのだけど、それは本題ではないので放置）でおそらくできるはずなので、
  これ以上コメント欄を延ばすのは不毛でしょう
  　
  【その他】経験豊かな回答者は皆、コメント欄
  間接回答拒否の影響によって回答できない模様
  回答１、２、３を見て「ヒントだけでも」との思いでコメントしているのでしょう
  間接回答拒否を否定はしませんが、既存回答者の多くは多かれ少なかれ敵（主に不適切回答者）を作っていますので、
  他のユーザーの回答拒否に頼るのではなく過去の履歴を参照してから回答を開くということを質問者が行って、自ら防衛してもらいたいですね
• hathi2010/08/22 08:56:31
  windofjuly さん　
  　ありがとうございました。
  　ようやく　元のdingding の意図を理解することができました。
  　『「1番目シート」の同行のA,B,C列の数字を引数にして、
  　　関数（処理）を「２番シート」に記載したもので使って、
  　　「1番目シート」の同行のD列に答えを出す』
  　
  　なるほど、私はすっかり誤解していました。
  　済みませんでした。
  　コメント、ご回答をありがとうございました。
  
  　＝～～～～～～～～～～～～～～～～～～＝
  　はてなの質問に対する既回答で、理解できないけれど理解したいことがあったとき、
  　［この質問・回答へのコメント］の機能を使って質問したりするのは、
  　　不適切な行為になってしまうのですか。
  　　はてなの質問を新規に立てると、なんのことかわかりにくくなると思ったので、
  　　［この質問・回答へのコメント］の機能を使わせていただきました。
  　　（元の質問に対する回答のつもりは全然ないので、回答機能は使いません）
  　　［この質問・回答へのコメント］の機能を使ってこのように質問することが
  　　　不適切な行為になるのでしたら、申し訳ありませんでした。
• SALINGER2010/08/23 19:33:45
  VBAを使わずワークシートだけを使う方法を紹介しておきます。
  http://d.hatena.ne.jp/SALINGER/20100823
• dingding2010/08/24 09:36:59
  すみません、反応が遅れていました。ちょっと試す時間が取れなくて試せていませんが、試してみたいと思います。ありがとうございました。

質問の情報

登録日時

2010-08-20 09:32:18

終了日時

2010-08-27 09:35:03

回答条件

1人2回まで

この質問のカテゴリ

• インターネット
• ウェブ制作

この質問に含まれるキーワード

人気の質問

• この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…匿名質問者111日前
• 不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者111日前
• 日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者15時間前
• 共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者115時間前
• 内定してほしいポケモンはいますか？匿名質問者16時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ