Excel セルの値をクリップボードへコピーするマクロ

Question

前提・実現したいこと

エクセルにて
セルの値を、マクロを埋め込んだボタンをクリックすることで
クリップボードへコピーされ、どこにでも貼り付けができるようにしたいと考え
「VBA DataObject」などを調べてみたところ
どれも方法が違い、試してみましたがうまくいきませんでした。
もはや何が正攻法なのかもわかりません。

Range("○○").copy を使用して、マウスのクリック数を減らす程度で諦める前に
こちらでご教示頂けたらと思い質問させていただきます。

試したこと

検索した際に見つけた下記コードを試してみましたが
クリップボードから貼り付けられた文字は「･･」というものでした。

ーーーーーーーーーーーーーーーー
Sub copy_e6()
'
' copy_e6 Macro
'

Dim myDO As New DataObject
myDO.SetText Range("E6").Value
myDO.PutInClipboard

End Sub

ーーーーーーーーーーーーーーーー

Answer 1

私の所でも再現性がありませんでしたが、有効そうな方法を見つけたので置いておきます。

Private Sub SetCB(str As String) 'クリップボードに文字列を格納
  With CreateObject("Forms.TextBox.1")
    .MultiLine = True
    .Text = str
    .SelStart = 0
    .SelLength = .TextLength
    .Copy
  End With
End Sub

Sub a()
    Call SetCB(Range("E6").Value)
End Sub

Comments

[fukuromomonga]

回答ありがとうございます。
これもやはり私のPC上の設定がおかしいようで実現できませんでした。

皆様にいろいろ教えていただいたのに大変申し訳ございません。

Answer 2

問題なく動きますねぇ。
目的のシートではないところの値ということはありませんか？
copy_e6関数はどこに置いていますか？
Range("E6")がワークシートを指定していないので、アクティブシートを参照していると思いますが、それは想定どおりでしょうか？

Comments

[fukuromomonga]

回答ありがとうございます。
コード自体に問題はないということを確認いただき助かりました。

しかし私の方で貼り付けると「･･」となってしまいます。
１つのシートで作業をしていましたのでシート指定が間違ってはいないと思いますが
どこかしら設定がおかしくなっているのかもしれません。

もう少し粘ってみます。
ありがとうございました。

Answer 3

こんな感じで

    Range("E6").Select
    Selection.Copy

Comments

[fukuromomonga]

回答ありがとうございます。

大変恐縮ですが、セルのコピーで済ませるのは最終手段と考えています。
現在の希望は、セルの中の値をクリップボードにコピーすることです。