Excelでの質問です。

質問

こんな事が出来るのか？出来ないのかさえ判らない者ですが・・・・

シート２のA列と、シート３のA列に上からランダム（上からは順番です、シート２と、シート３の順序はバラバラです）に日付を入力
この、それぞれに入力した日付をシート１の、A列の上から順番（入力順）に反映したい。

尚、シート２、シート３共、B列、C列、D列に日付の関連項目を入力し、これもシート１のB列、C列、D列に反映したい。

Excelの先達の方々、どうかよろしくご教授下さい。

回答No.1

keithin · ベストアンサー

＞入力した順に

ふつーに関数では出来ませんので，マクロを使って実現することになります。

手順：
シート２のシート名タブを右クリックしてコードの表示を選び，現れたシートに下記をコピー貼り付ける

private sub worksheet_change(byval Target as excel.range)
　dim h as range
　set target = application.intersect(range("A:A"), target)
　if target is nothing then exit sub
　for each h in target
　if h <> "" then
　with worksheets("Sheet1").raneg("A65536").end(xlup).offset(1)
　　.value = h.parent.name
　　.offset(0, 1) = h.row
　end with
　end if
　next
exit sub

ファイルメニューからエクセルに戻る
続いてシート３のシート名タブを右クリックしてコードの表示を選び，現れたシートに同じ内容をコピー貼り付ける

シート１に移動し，Ｃ列に
Ｃ２：
=IF(A2="","",INDIRECT(A2&"!A"&B2))
Ｄ２：
=IF(A2="","",INDIRECT(A2&"!B"&B2))&""
Ｅ２：
=IF(A2="","",INDIRECT(A2&"!C"&B2))&""
それぞれ下向けに沢山コピー
と準備しておく

シート２，３のＡ，Ｂ，Ｃ列にデータを記入すると，記入した順にシート１に現れる。

お礼

keithin 様　ありがとうございました。
お陰様で完成しました。
この後、もう一つ作成予定のファイルがあります。
またそちらでも、わからない事がありましたら質問しますので、よろしくご指導くださいませ。

補足

keithin 様、お答えありがとうございます。
されど、全て入力しシート２のA:2へ日付を入力すると「コンパイルエラー、end ｓｕｂが必要です」とエラーが返ってきます。

再度ご教授下さい、よろしくお願いします。

回答No.3

keithin

ん？　そこも誤記ですね

まちがい：
With Worksheets("Sheet1").raneg("A65536").End(xlUp).Offset(1)

訂正：
With Worksheets("Sheet1").range("A65536").End(xlUp).Offset(1)

重ねてゴメンなさい。

お礼

keithin 様 何度もお付き合い頂きありがとうございました。

回答No.2

keithin

ありゃ，失敬。誤記てました。

まちがい：
exit sub

訂正：
end sub

失礼しました。

お礼

ありがとうございます。

補足

再度お願い致します。
シート２、あるいはシート３で日付を入力すると

実行時エラー：438
オブジェクトは、このプロパティまたはメソッドをサポートしていません

と表示され、デバッグボタンをクリックすると以下の行が黄色く表示されます。
With Worksheets("Sheet1").raneg("A65536").End(xlUp).Offset(1)

よろしくご指導ください。