セルの値だけクリップボードにコピーするマクロ

Excelのセルをコピーして数値しか入らないInputBoxに貼り付けられないと言われた。
数値しか入らないInputBoxは、空白が入ると貼り付けが出来ない様子。

毎回別の箇所にコピーして末尾の空白と改行を消して貼り付けるよう言ったが面倒臭がられたので調べてみた。

DataObjectを使えるようにする手順

1. Visual Basicから「挿入＞ユーザーフォーム」をクリック。

2.「ツール＞参照設定」をクリック。

1. 「Mirosoft Forms 2.0 Object Library」にチェックが付いていることを確認。

マクロ

4.以下コードをマクロに登録。

Sub copy_e6()
'
' copy_e6 Macro
'

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

End Sub

5.ボタンとか配置して上のマクロを割り当てると完了。
ボタンをクリックしてE6のValueがクリップボードに入ることを確認。