エクセル関数で名前定義を引用

質問

エクセル２００２使用です。

ＩＦ関数で、名前の定義を利用したいのですがうまくいきません。

Ａ１に数値「１」を入力するかしないかとします。

（Ａ１：Ｃ１）を名前の定義で「範囲１」とします
各セルに文字が入力されています。

（Ｄ１：Ｆ１）を名前の定義で「範囲２」とします。
各セルはブランクのままです。

Ａ１セルに数値「１」が入力されて時に、「範囲２」に「範囲１」がコピーされるようにしたいのですがどうすればいいのでしょうか？

範囲２＝IF(A1=1,範囲１)

ではだめですよね。。。。

よろしくお願いします。

回答No.4

Wendy02 · ベストアンサー

＞今回は関数のみで処理したいのですが、何とかならないでしょうか？
例えば、単に、オブジェクトを写すだけでよいというのならなんとかなっても、そうでなければ、以下のように、D1:F1(範囲2)に、式を埋め込まないと出来ません。

とどのつまり、
D1:F1 に
=IF($A$1=1,A1,"")　....
というような式でしか埋められないのです。
関数式は、そこに戻り値を返す、ということしかしません。

定義した「名前」を使うのでしたら、以下のようになります。
=IF($A$1=1,INDEX(範囲1,,COLUMN(A1)),"")....

＞「範囲２」に「範囲１」がコピーされるようにしたい
という、実際のセルの値をコピーするような動作を伴ったことは、Excelの関数では、根本的に出来ないのです。残念ですが。

お礼

Wendy02様何度もありがとうございます。

範囲で一気にできたら楽だと思うのですが・・・
そこはVBAということになるのですね。

INDEX関数ありがとうございます。
検討してみます。

今後ともよろしくお願いします

回答No.3

DoragonFang

関数を使うと云うことになると、例えば、
Ｄ１セルにＡ１セルの内容を反映しようとすると

[D1]=IF(A1=1,A1,"")

とすればいいわけです。
Ｅ１，Ｆ１セルについても、

[E1]=IF(A1=1,B1,"")
[F1]=IF(A1=1,C1,"")

となります。
で、ここまで書けば、何となくわかってもらえるかと思いますが、
セルが参照できるのは１つのセルに１つのセルが対応します。
範囲で複数セルを指定した場合は、どのセルのデータを使うのかがわからないため、エラーになります。

したがって、上記の例で示したように、一つのセルが一つのセルを参照するようにしないとダメです。

ご質問のように複数セルに複数セルを対応させるのは無理です。

ですから、名前を定義する場合も一つのセルに名前を付けて利用しないと、エラーとなります。

お礼

DoragonFang様　早速のご回答ありがとうございます。

やっぱりだめですか。。。

名前の定義の機能があるのでできそうな気がしたんでうすが・・・

ありがとうございました。
今後ともよろしくお願いします

回答No.2

mu2011

以下の方法は如何でしょうか。
(1)範囲２をドラッグ
(2)関数「＝ＩＦ（Ａ１＝１，範囲１，””）を入力
(3)関数「Ｅｎｔｅｒ」する際、「Ｓｈｉｆｔ＆Ｃｔｒｌ」を押下する

補足

mu2011さま早速のご回答ありがとうございます。

範囲２をドラックしても数式の入力はD1セルにされてしまうため上手くいきません。

（３）の関数「Ｅｎｔｅｒ」する際、「Ｓｈｉｆｔ＆Ｃｔｒｌ」を押下する がどのような効果があるのかよくわからないのですが・・・

ご多忙中すいません。よろしくお願いします。

回答No.1

Wendy02

＞Ａ１セルに数値「１」が入力されて時に、「範囲２」に「範囲１」がコピーされるようにしたいのですがどうすればいいのでしょうか？
◎　範囲２＝IF(A1=1,範囲１)

その式の考え方が、もうプログラム式なんですね。
VBAの作り方は、ちょっと違いますが、たぶん、以下のコードを見ていて、なんとなくお分かりになるかと思います。

シート上のシートタブ(シートの下部のSheet1/Sheet2/..)を該当するシートを右クリック
コードの表示をクリックで以下を貼り付けます。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Range("A1").Value = 1 Then
'A1に１が入ったときだけ、起動する
　Application.EnableEvents = False '貼り付け時に自動で働かないようにする
　Range("範囲2").Value = Range("範囲1").Value
　Application.EnableEvents = True　'解除
End If
End Sub

補足

Wendy02さま　早速のご回答ありがとうございます。

ご丁寧なご回答いただき誠に申し訳ないのですが、今回は関数のみで処理したいのですが、何とかならないでしょうか？

説明不足で本当に申し訳ありません。
よろしくお願いします。