いつでも医師に相談、gooドクター

1004RangeクラスのPasteSpecialメソッドが失敗というエラーが発生してしまいます。

以下の構文です。

SheetName=!シート名!
Set worksheet =Nothing
On error Resume Next
‘シート名が指定されない場合はアクティブシートを対象とする
if sheetName = “” Then
Set worksheet =workbook. Activesheet
Else
Set worksheet = workbook . Worksheets(sheetName)
End if
On Error Goto 0
If worksheet Is Nothing then
Err.Raise 1,””,”指定されたシートが見つかりません”
End if
worksheet.Activate
‘指定された範囲をクリップボードへコピー
cell =!セル!
On Error Resume Next
cnt = worksheet.range(cell).Count
On Error Goto 0
‘指定された範囲が有効か確認
If cnt =””Then
Err.Raise 1,””,”指定された範囲が無効です。”
End if
‘ペースト
Worksheet.range(cell).Pastespecial

足りない部分があれば教えて欲しいです。
よろしくおねがいします。

質問者からの補足コメント

  • うーん・・・

    質問を見ていただきありがとうございます。
    シートの保護のことでしたら特に設定はしていません。

    No.2の回答に寄せられた補足コメントです。 補足日時:2018/09/11 20:38
gooドクター

A 回答 (2件)

シートをプロテクトしてませんか?

この回答への補足あり
    • good
    • 0

>‘指定された範囲をクリップボードへコピー


に該当する命令が見当たりませんが...
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング