Excel-VBA クリップボードに送るとか

Sub SendClip()

Dim CB As New DataObject

Dim Wname 'BOOK名(キャプション)
Dim kname ' セルの値
Dim mtxt 'もうひとつのセルの値
Dim MergeStr

Wname = ActiveWindow.Caption
kname = ActiveCell.Value
mtxt = ActiveCell.Offset(0, 8).Value
MergeStr = Wname & "/" & kname & "(" & mtxt & ")"

MsgBox MergeStr & vbCrLf & "の文字列をクリップボードに送ります。"
'クリップボードに送る
With CB
.SetText MergeStr
.PutInClipboard
End With

End Sub

ブログ気持玉

クリックして気持ちを伝えよう!

ログインしてクリックすれば、自分のブログへのリンクが付きます。

→ログインへ

なるほど(納得、参考になった、ヘー)
驚いた
面白い
ナイス
ガッツ(がんばれ!)
かわいい

気持玉数 : 0

この記事へのコメント

この記事へのトラックバック

  • オークリー レンズ

    Excerpt: Excel-VBA クリップボードに送るとか へぽ~仕事時々ひとりごと/ウェブリブログ Weblog: オークリー レンズ racked: 2013-07-05 16:50
  • プラダ 店舗

    Excerpt: Excel-VBA クリップボードに送るとか へぽ~仕事時々ひとりごと/ウェブリブログ Weblog: プラダ 店舗 racked: 2013-07-06 10:20