[[20211123164356]] 『アクティブセルに入力するとコピー貼り付けされる』(まるこ) >>BOT

[ 初めての方へ | 一覧(最新更新順) |

| 全文検索 | 過去ログ ]

 

『アクティブセルに入力するとコピー貼り付けされる』(まるこ)

アクティブセルに「A」と入力するとアクティブセルの右隣のセルに、seet2"A1:B5"がコピー貼り付けされるVBAを教えて下さい。

< 使用 Excel:Excel2013、使用 OS:Windows10 >


 シートモジュールに貼り付けてお試しください
 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells(1, 1).Value <> "A" Then Exit Sub
    Application.EnableEvents = False
    Worksheets("Sheet2").Range("A1:B5").Copy Target.Offset(, 1)
    Application.EnableEvents = True
 End Sub

(ピンク) 2021/11/23(火) 17:08


ありがとうございます。試してみます。
(まるこ) 2021/11/23(火) 17:12

 修正してください。
 >Worksheets("Sheet2").Range("A1:B5").Copy Target.Offset(, 1)
               ↓
 Worksheets("Sheet2").Range("A1:B5").Copy Target.Cells(1, 1).Offset(, 1)

(ピンク) 2021/11/23(火) 17:16


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.