No.2046218の追加質問です。

質問

No.2046218の質問では、大変お世話になりました。
大変満足しています。

さて、今回の質問は、
前回の質問は、メインシート対サブシートの1対1についての質問でしたが、
今回は、メイン1、メイン2・…の複数のシートの内容をサブシートに関連付けるといったものです。
前回の回答をお借りして説明しますと、
Sub ボタン1()
Sheets("点検詳細内容シート").Activate
Range("B65536").End(xlUp).Offset(1).Select
End Sub
Sub ボタン2()
i = Range("B65536").End(xlUp).Offset(, -1).Value
Sheets("点検チェックシート").Activate
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="点検詳細内容シート!A" & i, TextToDisplay:=Str(i)
End Sub
とあり、コマンドボタンはメイン、サブに貼り付けているので、今回の場合のメイン１、メイン２からのサブへの対応は問題ないのですが、サブからメイン１あるいはメイン２に返すときに工夫が必要かと思います。
このあたりをパワーアップしたく、質問いたします。よろしくご教示ください。

回答No.2

noname#123709 · ベストアンサー

前回の続きで回答しているのでなんですが・・・。
＞ヒントをいただければありがたいです
ヒントで分かりますか？
とりあえず、メインのボタンを押した際に上記「ボタン1」プロシージャが走りますよね。そこにサブシートのセル（例えばC1）にメインシートがアクティブのうちにアクティブシートの名前を入力させます。
サブのボタンを押した際に上記「ボタン2」プロシージャが走りますので、現在メインシートの名前があるところをサブシートのセル参照（例えばC1参照）とします。
以上でサブシートからの処理は移動してきた先のシートを対象に行われます。

お礼

ヒントを参考に無事成功することが出来ました。
ありがとうございます。

回答No.1

noname#123709

単純なやり方で、メインからサブに移動する時にサブシート上のどこかに
どちらのメインシートから移動してきたのかを痕跡として残し、サブからメインシートへの入力の際にセルを参照すれば宜しいのではないでしょうか？

お礼

前回質問から、大変お世話になります。
続きの質問でしたが、質問の性格が少し変わったので、新しいスレをたてました。
今回の質問ですが、理論的にはおっしゃる通りです。
それを形にするのが。。。
なにか、ヒントをいただければありがたいです。よろしくお願い致します。