すみません。再度質問なのですが2つのシートの別(シート1のA1、シート2のB2等)のセルに
同じ内容をどちらのシートからの入力でも表示できる方法で、
その設定が数パターン(シート1のA1、シート2のB2を1つ。シート1のD4、シート2のE5等)作りたいのですが
どのような設定を行ったらよろしいのでしょうか?
入力パターン1
ひな型ファイルを開きシート1のA1に「100」と入力したときに、シート2のB2に「100」と入力出来る様にする。
シート2のE5に「200」と入力したときに、シート1のD4に「200」と入力できるようにする。
入力パターン2
ひな型ファイルを開きシート2のB2に「100」と入力したときに、シート1のA1に「100」と入力出来る様にする。
シート1のD4に「200」と入力したときに、シート2のE5に「200」と入力できるようにする。
かなり複雑でわかりにくいとは思いますがよろしくお願いいたします。
No.4ベストアンサー
- 回答日時:
こんにちは。
KenKen_SP です。> どのような設定を行ったらよろしいのでしょうか?
設定や関数じゃ無理です。VBA を使います。
でもシート名を変更したらコードも修正しなきゃならないし※...かえって
わかり難い仕組みかもしれませんよ?
※コードネームでシートを指定する方法に変えれば対応できますが。
それぞれの’シートモジュール’に下記のコードを貼り付けます。
’場所:シート選択タブ[ Sheet1 ]上で右クリック[コードの表示] から
' Sheet1 モジュール
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rA As Range
On Error Resume Next
Application.EnableEvents = False
For Each rA In Target.Areas
' シート名はご自分の都合に合わせて下さい
Worksheets("Sheet2").Range(rA.Address) _
.Offset(1, 1).Value = rA.Value
Next
Application.EnableEvents = True
End Sub
’場所:シート選択タブ[ Sheet2 ]上で右クリック[コードの表示] から
' Sheet2 モジュール
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rA As Range
On Error Resume Next
Application.EnableEvents = False
For Each rA In Target.Areas
' シート名はご自分の都合に合わせて下さい
Worksheets("Sheet1").Range(rA.Address) _
.Offset(-1, -1).Value = rA.Value
Next
Application.EnableEvents = True
End Sub
No.2
- 回答日時:
>かなり複雑でわかりにくいとは思いますがよろしくお願いいたします。
やりたいことは解りますがエクセルの機能では出来ません。
セルに入れる事が可能なのは、「値」か「式」のいずれかになるので、
セルの内容を他のセルに反映(表示)させる事は可能ですが、反映されたセルの内容を変更して参照元のセルに表示させるような、双方向の参照は出来ません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) エクセル関数について 2 2022/04/13 18:25
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) エクセル VBA セルの結合 2 2022/09/07 11:48
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Excel(エクセル) 【VBA】PDF出力に任意のファイル名前を付ける方法 3 2023/07/21 10:55
- Excel(エクセル) エクセル 別シートの各セルそれぞれの比率を計算したい 4 2023/08/05 15:20
- Excel(エクセル) 【条件付き書式】countifsで複数条件を満たしたセルを赤くする方法 2 2023/02/09 23:53
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの複数シートの保護を...
-
エクセルVBAでパスの¥マークに...
-
EXCEL:同じセルへどんどん足し...
-
エクセルでファイルを開いたと...
-
VBAでシートコピー後、シート名...
-
Excelのシートを、まとめて表示...
-
EXCELで同一フォーマットのシー...
-
複数シートの特定の位置に連番...
-
エクセルで前のシートと同じ位...
-
複数シートの色付きセルがある...
-
エクセルで前シートを参照して...
-
Excelで金銭出納帳。繰越残高を...
-
エクセルでシートを移動しても...
-
EXCEL VBAで別のシー...
-
シート名が変更できない 「「○...
-
Accessのスプレッドシートエク...
-
シート名が変わる場合のVBAの設...
-
エクセル関数について
-
エクセル:ブックを開くとき、...
-
VBAで条件によりフォントサイズ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの複数シートの保護を...
-
Excelで同じシートのコピーを一...
-
VBAでシートコピー後、シート名...
-
別シート参照のセルをシート毎...
-
EXCEL:同じセルへどんどん足し...
-
エクセルでファイルを開いたと...
-
エクセルVBAでパスの¥マークに...
-
Excelで金銭出納帳。繰越残高を...
-
前の(左隣の)シートを連続参...
-
EXCELで1ヶ月分の連続した日付...
-
Excel VBについての質問です。
-
複数シートの特定の位置に連番...
-
エクセルで前のシートを連続参...
-
特定のシートの削除を禁止した...
-
エクセルで前シートを参照して...
-
Accessのスプレッドシートエク...
-
Excel、同じフォルダ内のExcel...
-
excelでシート毎の最終更新日を...
-
Excelのシートを、まとめて表示...
-
EXCELで同一フォーマットのシー...
おすすめ情報