エクセルの関数について

質問

エクセルの関数について困っております。
関数については、詳しくありません。お力をおかし下さい。

添付にある図の、sheet1 のリンゴ　ミカン　ブドウ　を　sheet2 の別のセルに、リンゴ.ミカン.ブドウと入力した際、その下に記入してある11111111111111 の数字を、同じように反映する為には、sheet2 のリンゴ等の文字の下には、どの様な関数を入れればよいですか？
関数でそこまで出来るのでしょうか？

よろしくお願いします。

回答No.4

tom04 · ベストアンサー

こんにちは！
Sheet2のデータを入力するセルは決まっていないのですね？
お望みの関数ではなく、VBAになってしまいますが一例です。

尚、画像通りSheet1のデータが飛び飛びではなく一塊だという前提です。

画面左下のSheet2にSheet見出し上で右クリック　→　コードの表示　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面のSheet2に戻りデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
Dim cnt As Long, c As Range, r As Range, myRng As Range, wS As Worksheet
Set wS = Worksheets("Sheet1")
If Target.Count = 1 Then
If Target <> "" Then
Set c = wS.Cells.Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
Set myRng = c.CurrentRegion
For Each r In myRng
cnt = cnt + 1
If r = c Then Exit For
Next r
If Target.Column - cnt + 1 > 0 Then
myRng.Copy Target.Offset(, -cnt + 1)
Else
MsgBox "左側列数が不足です。"
Exit Sub
End If
Else
MsgBox "該当データなし"
With Target
.Select
.Value = ""
End With
Exit Sub
End If
End If
End If
End Sub 'この行まで

こんな感じではどうでしょうか？

※　関数で処理するとしても入力するセルが決まっていないと難しいと思います。m(_ _)m

お礼

本当にあるがとうございます。
大変助かりました。
誠に勝手ながら、Sheet1のデーターを変更すると
自動的にSheet2のデーターが変更されるような
事も出来るのでしょうか？

回答No.3

nishi6

＞リンゴ　等の品名1000品と多くて、膨大な作業になってしまうため、他に何か方法はありませんか？

全然違う質問になってしまいましたね。

Sheet1の該当部分をコピーしてSheet2に形式を選択して貼り付け＞リンク貼り付け　でもしたらどうですか。厳密には関数とは言えませんが。

お礼

ありがとうございます。地道にやってみます。素人質問ですみませんでした。

回答No.2

nishi6

すぐに回答を！ということなので。

この場合は、Sheet2からSheet1を参照すると考えます。

添付図で説明すると、
Sheet1のセルI1に「りんご」と入力してあります。
Sheet2のセルR4に「りんご」と入力したとします。

Sheet2のセルR4の下、セルR5にSheet1を参照する式を登録します。
１．セルR5をクリック
２．半角で「=」を入力
３．シート見出しの「Sheet1」をクリック
４．セルI2をクリック
５．Enterキーを押します。Sheet2に戻って、セルR5には「=Sheet1!I2」の式が登録されたはずです。

この式をSheet2の必要な個所にコピーしますが、少しおまじないをします。
６．セルR5を選択し、右クリック＞セルの書式設定、表示形式タブの数値をクリック、さらにユーザー定義をクリックします。ダイアログボックスの種類に「0_ 」と表示されているはずです。この狭い枠内をクリックして、半角で「;;」と追加入力し、「0_ ;;」のようにして「ok」。

これは、算式はSheet1を参照していますが、Sheet1側が未入力の場合「0」が表示されるのを避けるためです。

７．最後に、書式設定が済んだセルR5を周りにコピーします。あくまでも、Sheet2がSheet1を見ているので、算式は広めの方がいいでしょう。

コピーの方法としては、セルを選択したときの右下の小さい■（フィルハンドル）をマウスでドラッグする方法もあります。

一つできれば他は大丈夫でしょう。

最初から詳しい人はいないと思うのでしっかり学習してください。聞くは一時の恥です。

補足

ありがとうございます。今までは、=で対応していたのですが、リンゴ　等の品名1000品と多くて、膨大な作業になってしまうため、他に何か方法はありませんか？お忙しい所すみませんが、よろしくお願いします。

回答No.1

lupin-333333

質問を投稿する前に、まずヘルプを見ましょう。そこにすべて記載されています。ヘルプに出てこないよう用でしたら、設置方法をヘルプで検索してください。関数、VBA等の開発関連のヘルプが見れるようになります。

エクセル　ウインドウがアクティブ状態で、F１キーを押せばエクセルのヘルプが起動されます。しっていましたか。しらなかったのではないですか？

お礼

ありがとうございます。確認します。