- ベストアンサー
エクセル2002について
こんにちは。困っているのでどなたかご回答お願いします。 例えば【Aシート:元データ】がありそのデータを【Bシート:編集用】にコピーします。 その際に【Aシート:元データ】を修正した際には、【Bシート:編集用】にも反映されるようにしますが、【Bシート:編集用】を修正した内容は【Aシート:元データ】に反映されないような方法は無いものでしょうか? よろしくお願い致します。
- みんなの回答 (4)
- 専門家の回答
質問者が選んだベストアンサー
>【Aシート:元データ】を修正した際には、【Bシート:編集用】にも反映されるようにしますが ◆これは、リンク貼り付けで可能だと思いますが >、【Bシート:編集用】を修正した内容は【Aシート:元データ】に反映されないような方法は無いものでしょうか? ◆リンク貼り付けは、編集用シートには数式が入力されていますので、編集用シートの内容を修正すとことは、数式を削除することになるので、修正したセルの箇所の元シートの修正は、編集用シーとには反映しません
その他の回答 (3)
- zap35
- ベストアンサー率44% (1383/3079)
果たして実用に耐えるかわかりませんがマクロにしてみます。 以下のマクロを【Aシート:元データ】の「シート名右クリック」→「コードの表示」で開く画面にペーストしてください。 単一セルを変更しても、複数セルをまとめて変更しても大丈夫と思います。 なおマクロ中の「Bシート」の部分は実際の編集用シート名称に変更してください。(指定した編集用シートがないときは何もしません) Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If TypeName(Target) = "Range" Then Worksheets("Bシート").Range(Target.Address).Formula = Target.Formula End If End Sub
マクロプログラミングを使えば可能かと思います。 【Aシート:元データ】と【Bシート:編集用】は必ずセットで開き、 Aシートには対応するBシートのセルを編集するマクロを用意します。 --ここからマクロの知識-------------------------------------------- 【Aシート:元データ】でWorkbook_SheetChangeイベントを定義します。 Workbook_SheetChangeイベントから取得できる引数"Target"の Target.Columnプロパティ、Target.Rowプロパティを使用し、 【Bシート:編集用】の対応するセルに、【Aシート:元データ】の Target.Valueプロパティを渡します。
- mu2011
- ベストアンサー率38% (1910/4994)
次の方法をお試し下さい。 データを貼り付ける際、貼り付け先で右クリック又は、編集から、「形式を選択して貼り付け」でリンク貼り付けを選択して下さい。
補足
ご回答ありがとうございます。リンク貼り付けは大変参考になりました!ありがとうございます。あと、【Bシート:編集用】の修正はどのようにしたら修正出来ますでしょうか?操作してみたところ、【Bシート:編集用】の修正が出来ないんですよね・・・【Bシート:編集用】は本当に編集とか仮の入力的なもので使いたいので、何とか修正出来無いものでしょうか??