現在コピーされているものによりIF文で処理を分岐する方法（Excel VBA)

画像をコピーして貼り付け、テキストをコピーして貼り付けと連続的にしているのですが、貼り付けるときの間違いを防ぐために、「IF文でテキストがコピーされていれば」のように条件を指定する方法を教えてください。お願いします。

No.1 ベストアンサー 回答者： enunokokoro 回答日時： 2016/09/11 03:01

クリップボードのデータ形式は、以下のサイトで確認できると思います。

http://pckowaza.web.fc2.com/html/excel_vba_clipb …

Application.ClipboardFormats プロパティを使うことで、IF文の条件指定
もできるようになります。
https://msdn.microsoft.com/ja-jp/library/office/ …
http://www.moug.net/tech/exvba/0150091.html
http://www.officetanaka.net/excel/vba/tips/tips2 …

Sub クリップボードの内容がテキストなら処理()

配列の変数名 = Application.ClipboardFormats
　For Each クリップデータの変数名 In 配列の変数名
　　If クリップデータの変数名 = xlClipboardFormatText Then
　　　処理
　　End If
　Next

End Sub

この回答へのお礼

クリップボードの内容を取得することで、今、何がコピーされているかを確認することが出来るのですね。大変参考になりました。ありがとうございます。

お礼日時：2016/09/11 08:37