Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7714 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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月のシートにまた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 -
引用なし
パスワード
   早速お教えいただきありがとうございました。
最初はいろいろ戸惑いましたが、やっとうまく動いてくれたときには
感動しました。
素早い対応と、見事なプログラミングには驚くほかありません。
今後ともどうぞよろしくご指導のほどお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7714 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free