[[20180609090613]]　『コピー』（ｇｙｇｙ）　ページの最後に飛ぶ

『コピー』（ｇｙｇｙ）

コピー貼り付けを始めるセルの番地を限定したいのですが教えてください
Sub コピー1()
'コピーを貼り付け
ActiveSheet.Unprotect

    Range("D50:AK50").Copy Destination:=ActiveCell
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, 
Scenarios:=True
End Sub
このコードはD50:AK50に入力されている値をコピーして貼り付けています
このコードに必ず合わせないとコピーがズレてしまうたコピーを始めるセルが
限定されますそれがD7,D9,D11,D13,D15,D17,D19,D21,D23,D25,D27,D29,D31,D33,D35,D37,D39,D41,D43,D45この各セルなのですがこれ以外のセルでコピーをした時に
コピーを始めるセルが違います確認してください
こんな風に間違いをうながした上でコピーをさせないコードにしたいのですが
さっぱりわからないのでおしえてもらえないでしょうか
よろしくお願いします

＜使用 Excel：Excel2003、使用 OS：WindowsXP ＞

 よく分からないが、こういうことですか？
 Sub test()
     Dim r As Range
     Set r = Range("D7,D9,D11,D13,D15,D17,D19,D21,D23,D25,D27,D29,D31,D33,D35,D37,D39,D41,D43,D45")
     If Intersect(ActiveCell, r) Is Nothing Then
         MsgBox "貼り付け先が違う"
         Exit Sub
     End If
     ActiveSheet.Unprotect
     Range("D50:AK50").Copy Destination:=ActiveCell
     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
 End Sub
 # セル範囲は繰り返し処理を使いたくなるが、分かりやすさ重視。

（γ） 2018/06/09(土) 10:39

コメント返信：

[ 一覧(最新更新順) ]

[[20180609090613]] 『コピー』（ｇｙｇｙ） ページの最後に飛ぶ

[[20180609090613]]　『コピー』（ｇｙｇｙ）　ページの最後に飛ぶ