エクセルで出来ますか？

質問

出来ればエクセルで作りたいと思っているのですが、
シート１にリストを作っておいたとして、
そのシートで一つ一つのセルを選択するごとに、
シート２に、シート１で選択したたセルの中身が一つ一つのセルにコピーされる。
というようなシステムは作れますか？
但し、リンクとして繋がらないように。

説明下手ですみません。
細かく言うと、
シート１でA1をクリック→シート２のB2にA1がコピー。
シート２でA3をクリック→シート２のB3にA3がコピー。
というような状態が欲しいです。
何か良い方法があれば教えてください。

回答No.4

inte-nori · ベストアンサー

１．「ツール」＞「マクロ」＞「Visual Basic Editor」を開いてください。

２．左上のほうの、「Sheet1(Sheet1)」というところ（シート名を変更していた場合は表示が違います）を右クリックして「コードの表示」を選択し、右側に表示されたウィンドウに下記のコードのどれかを貼り付けてください。

★右クリックで選択したセルをコピーする場合

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
　　Sheets(2).Range("B65535").End(xlUp).Offset(1).Value = Target.Value
　　Cancel = True
End Sub

★ダブルクリックしたセルをコピーする場合

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　Sheets(2).Range("B65535").End(xlUp).Offset(1).Value = Target.Value
　　Cancel = True
End Sub

★左クリックで選択したセルをコピーする場合（このコードは選択位置が変更されることによって実行されるので、右クリックにも反応してしまいます。また、同じセルを連続でコピーすることは出来ません。）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　Sheets(2).Range("B65535").End(xlUp).Offset(1).Value = Target.Value
End Sub

３．画面下のタスクバーでエクセルの画面に戻してください。

以上で出来ると思います。

回答No.6

inte-nori

#4＆#5です。
BEEP音に関してですが、「コントロールパネル」＞「サウンドとオーディオデバイス」の
「サウンド」タブの中の「一般の警告音」の音が出ると思うので、そちらの設定のほうも
確認してみてください。

しかし、私の手持ちのＶＢＡの本の中には、この命令の事はほとんど載っていないので、
もしかしたらエクセルのバージョンなどによって、使用できないのかもしれません。

ちなみに私の環境はWindows XP,Excel2000です。ご参考までに。

回答No.5

inte-nori

#4です。補足です。

右クリック用やダブルクリック用のコードで同一のセルを２回以上コピーしたときに、ちゃんとコピーできているのか分かりにくい場合があるようなので、下記のようにBEEPという命令を入れるといいかもしれません。コピーしたときに音が鳴るようになります。

ご参考までに。

例）右クリック用の場合

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
　　Sheets(2).Range("B65535").End(xlUp).Offset(1).Value = Target.Value
　　Cancel = True
　　Beep
End Sub

お礼

まさにコレです！！
ありがとう御座います。出来た瞬間かなり感動しました。コレのお陰でこれからのお仕事がかなり楽になること間違いなし！
ただ、BEEP、鳴ってくれないのは何故でしょう？

回答No.3

imogasi

ＶＢＡを使えば出来るでしょうが、いやな面があります。
Ａ１－－＞Ｂ２
Ａ３－－＞Ｂ３
のように規則性が見られないようだからです。
同じセル位置なら
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("sheet2").Cells(Target.Row, Target.Column) = _
Target
End Sub
で済みます。これならＶＢＡを使わなくても良い方法もありますが、それは別として。
結局両者の対応表を、プログラムの中かシート表に持ってないと実現しないでしょう。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
t1 = Array("$A$1", "$A$3")
t2 = Array("$B$2", "$C$3")
a = Target.Address
For i = 0 To UBound(t1)
If a = t1(i) Then
Worksheets("sheet2").Range(t2(i)) = Target
End If
Next i
End Sub
のように。少数例でテスト済み。
SelectionChangeイベントは欠点もあるかもしれないので
、自分以外の人が使う場合の、実用に耐え得るか自信なし。

お礼

VBA超初心者の私にはかなーり難しく見えてますが、
ぜひ今度やってみようと思います。
わざわざテストまでして頂いた技、絶対に利用させて頂きます。ありがとうございました！！

回答No.2

michank

各シートを「作業グループ状態する」（連続では、Shiftキー、飛び飛びでは、Ctrlキーを押しながら各シートタブをClickする方法）では、満足出来ないのですか。「リンクとしては繋らないように」も可能ですが。ご質問の意味を取り違えていたらごめんなさい。あしからず。

お礼

同じセルを何度も選択する、という状態を作りたかったので・・・
回答ありがとうございました。

回答No.1

mameko3

回答じゃなくて申し訳ありません。
エクセルのことだと「答えてねっと」の回答者は本業プログラマーが多い上に、就業中ぽい時間だろうとすぐ回答があれこれきて、早いので結構おすすめです。

ただ、たまに厳しい人から初心者に対して非常にいやみな発言がありますが無料で教えてくれるから気にしないのが一番です。
でもzz-zackさんの質問は的確だから問題ないと思います。

もし知ってたら聞き流してください(^^;)。

参考URL：

http://www.kotaete-net.net/

お礼

ありがとうございます！
早速お気に入り登録してしまいました☆