(マクロ）コピー貼付のマクロで、クリップボードに何も貼付ていな時の実行をエラーにしない為には

以下のコードは、エクセルのシートのA10に主に
ネットのブラウザの情報をコピーして貼付ます。

ただし、何もコピーしていない状態で実行すると
エラーになります
でバックは以下です。
●クリップボードに何も張り付いていなくてもエラーにならない方法
●クリップボードに何も張り付いていなければ、メッセージ（何も張り付いていません）と
　表示されるにしたいです。

ご存じの方、教えて下さい

（デバック）
Worksheets("転記元").PasteSpecial Format:="Unicode テキスト"



【コード】
Sub a10貼付()

Worksheets("転記元").Range("A10").Select

Worksheets("転記元").PasteSpecial Format:="Unicode テキスト"

End Sub

No.1 回答者： fujillin 回答日時： 2023/10/14 17:21

こんにちは

貼り付ける前に ClipboardFormats を調べれば良いみたいです。
http://officetanaka.net/excel/vba/tips/tips20.htm

この回答へのお礼

ご指導いつもありがとうございます
いちよう、動きました。
また、検証の投稿いたします。お手すきでしたら
お返事お願いします

お礼日時：2023/10/15 10:55