|
▼いち さん:
h tp://officetanaka.net/excel/vba/tips/tips20.htm
ht p://www.moug.net/tech/exvba/0150103.html
ここに田中さんが執筆された参考記事が。
これをベースにして以下サンプルコードを。
'MicroSoft Forms 2.0 Object Library に参照設定
'あるいは、ユーザーフォームを挿入し、解放すると自動的に参照設定される。
コードの先頭の、このコメント、留意願います。
Sub Test()
'MicroSoft Forms 2.0 Object Library に参照設定
'あるいは、ユーザーフォームを挿入し、解放すると自動的に参照設定される。
Dim cb As New DataObject
Dim v As Variant
Dim s As String
v = Application.ClipboardFormats
If v(1) Then
MsgBox "クリップボードには何もありません"
Else
cb.GetFromClipboard ''クリップボードからDataObjectにデータを取得する
v = cb.GetText ''DataObjectのデータを取得
If VarType(v) <> vbString Then
MsgBox "このテーマで扱える形式のデータはクリップボードにはありません"
Else
s = Left(v, Len(v) - 1)
MsgBox s
End If
End If
End Sub
>クリップボードの値を検索するマクロというのは可能でしょうか?
>
>「セルの値をコピー → その値をA列から検索」ということがしたいのです。
>
>コピーするセルは不特定です。
>
>どうぞ、ご教示よろしくおねがいします。
|
|