[[20211123164356]]　『アクティブセルに入力するとコピー貼り付けされる』（まるこ）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

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

アクティブセルに「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.