Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7713 / 13644 ツリー ←次へ | 前へ→

【37309】特定セルの数字に対応したシートへのコピーについて かんさん 06/4/28(金) 16:34 質問[未読]
【37310】Re:特定セルの数字に対応したシートへのコ... S 06/4/28(金) 16:46 回答[未読]
【37319】Re:特定セルの数字に対応したシートへのコ... かんさん 06/4/28(金) 18:47 お礼[未読]

【37309】特定セルの数字に対応したシートへのコピ...
質問  かんさん E-MAIL  - 06/4/28(金) 16:34 -

引用なし
パスワード
   基本データと1月から12月までのシートがあり、基本データのA1セルが
1である場合1月のシートにまた2の場合は2月のシートにというように
A1セルの数字によって月別のシートを選択して基本データをコピーし
たいのですがどのようにしたらいいでしょうか。
VBAの超初心者です。よろしくお願いします。

【37310】Re:特定セルの数字に対応したシートへの...
回答  S  - 06/4/28(金) 16:46 -

引用なし
パスワード
   こんにちは
基本データシートのシートモジュールに記載して下さい。
セルA1を右クリックすると動作します。
尚、コピー元はセルA2コピー先を該当シートのセルA1にしていますので
そちらの環境にあわせてください。

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
   If .Address(0, 0) <> "A1" Then Exit Sub
   If .Cells.Count > 1 Then Exit Sub
   On Error Resume Next
   Range("A2").Copy Worksheets(.Value & "月").Range("A1")
   On Error GoTo 0
End With
End Sub

【37319】Re:特定セルの数字に対応したシートへの...
お礼  かんさん E-MAIL  - 06/4/28(金) 18:47 -

引用なし
パスワード
   早速お教えいただきありがとうございました。
最初はいろいろ戸惑いましたが、やっとうまく動いてくれたときには
感動しました。
素早い対応と、見事なプログラミングには驚くほかありません。
今後ともどうぞよろしくご指導のほどお願いします。

7713 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free