マクロ

質問

値のみを貼り付けることが多いので、形式を選択して値のみを、貼り付けるを自動マクロで記述しましたが、エラーが出てしまいます。

下記が記述しましたマクロです。
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
どこが間違っているのか判りません。
ご指導のほどよろしくお願いいたします。

回答No.3

ham_kamo · ベストアンサー

形式を選択して貼り付けで値を選択して貼り付ける操作は、元のセルがコピーか切り取りされた状態（枠が点滅している状態）でないとできません。マクロではエラーとなります。
次のように記録したマクロに手を加えてみてください。

If Application.CutCopyMode <> False Then
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If

お礼

有難うございました

回答No.2

hana-hana3

＞「実行時エラー　1004　ＲａｎｇｅクラスのPasteSpecialメソッドが失敗しました。

実行前にセル（範囲）を選択してコピーしてありますか？
クリップボードが空だとエラーになります。

お礼

再度の御指導有難うございました。

回答No.1

hana-hana3

＞エラーが出てしまいます。

だけでは状態が解りません。
エクセルのバージョンやエラーの内容、正確なコードを提示して下さい。

私の所ではエラーは出ません。（２００２）

補足

お手数をおかけいたします。
XP
Excel　2002

マクロを実行しますと
１・エラーメッセージ
「実行時エラー　1004
ＲａｎｇｅクラスのPasteSpecialメソッドが失敗しました。」
　　表示ボタン　　「終了　デバッグ　ヘルプ」
２・デバッグボタンをクリック
「Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False」が黄色く塗つぶされています。