Excel VBA質問箱 IV

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

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


44440 / 76732 ←次へ | 前へ→

【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

0 hits

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

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