[[20100531155153]]　『セルの相互参照について』（にたい）　ページの最後に飛ぶ

『セルの相互参照について』（にたい）

 いつもお世話になっております。表題の件で質問があります。
[[20020717093924]]でも記載されているのですが。。。

 例えばSheet1のA1セルとSheet2のA1セルに数字を入力する時に、この２つのセルが相互に連動しており、
 どちらかのセルを入力するもう一方のセルがその数字に置き換わるようにしたいと考えております。
 通常の関数や技術では不可能だとのことでしたが、「マクロでは可能（お勧めしない）」とのことでした。。。
 面倒な式になるようでしたら手間になるだけなので面倒な式と書いて頂ければ結構です＾＾
 もしスグにできるようなものでしたら教えていただければ幸いです。
 よろしくお願いします。

 校長先生（kazuさん）も仰っていますが、入力用のシートを作って、そこからデータを引っ張ってくるのは駄目なんでしょうか？
　
 （キリキ）（〃⌒o⌒)b

 校長先生やキリキさんに同じく、あまり良い方法とは思えないですが。。
 こんな方法でとりあえず出来たりはします。

 後々面倒な事が出そうですね。

 Thisworkbookモジュールに

  Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Target.Address(False, False) = "A1" Then
    Application.EnableEvents = False
    Select Case Sh.Name
      Case "Sheet1": Worksheets("Sheet2").Range("A1").Value = Target.Value
      Case "Sheet2": Worksheets("Sheet1").Range("A1").Value = Target.Value
    End Select
    Application.EnableEvents = True
  End If
  End Sub

 （ｍｏｍｏ）

 キリキ様ｍｏｍｏ様お返事ありがとうございました＾＾

 入力用シートを作成するのが定石だろうとは思いますし、おんなじシートに書けばまとめれば？と自問
 自答することもあるのですが。。。自分で使用するのであればそちらで十分なのですがエクセルのこと
 を私以上に知らないけれどもエクセルで大概望むことが出来ることをご存じの人に向けての資料なので。。。

 >後々面倒な事が出そうですね
 というのは式の理解がまだまだ不足している私にはぱっと見ても分からないのですが、
 先ずは使わせていただき、まだ質問があるようでしたらこちらに記載させていただければと思います。

 微妙な質問で申し訳ございませんでした。ありがとうございました＾＾

 ｍｏｍｏ様

 作成していただいた式ですが、貼り付けて実際のものに合うようにしたところうまく動きました＾＾
 いつもお助けいただき誠にありがとうございます＾＾
 今後は出来るだけ自分で式を組んでからダメなところをお聞きする。。。としていきたいたいです＞＜
 まだまだですが。。。

 にたい

コメント返信：

[ 一覧(最新更新順) ]

[[20100531155153]] 『セルの相互参照について』（にたい） ページの最後に飛ぶ

[[20100531155153]]　『セルの相互参照について』（にたい）　ページの最後に飛ぶ