色彩を教える人になるための講座「色彩講師養成講座」の魅力とは>>

Access2003 を使用しています。
クリップボードに取り込んだ商品名を、あるボタン(仮称:cmd01)を押せば A1 というデータに代入したいと思います。そのVBAの書き方を教えてください。

つまり

Private Sub Cmd01_Click()
    dim A1 as string

    A1=(クリップボードに取り込んだ商品名)
End Sub

このようなイメージにしたいのですが・・・

gooドクター

A 回答 (1件)

APIを使う方法


http://support.microsoft.com/kb/210216

Microsoft Forms に参照設定して・・の方法
http://www.moug.net/tech/acvba/0020034.html

もっとお手軽?に
Private Sub Cmd01_Click()
Dim Clip As Object
    dim A1 as string

Set Clip = CreateObject( "new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

Clip.GetFromClipboard
A1 = Clip.GetText
Msgbox A1

Clip.SetText "二回目"
Clip.PutInClipboard
A1 = Clip.GetText
Msgbox A1

Set Clip = Nothing
End Sub

では。
    • good
    • 0
この回答へのお礼

ありがとうございました。
完璧に希望通りに動きました。

お礼日時:2014/06/03 17:57

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

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

gooドクター

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

人気Q&Aランキング