ExcelのVBAを使用してセルの内容を簡単コピペ

ExcelのVBAを使用してセルの内容を
簡単にコピー＆ペーストする方法。

やり方は以下の手順で簡単にできます。

1. Excelを開いている状態でAlt+F11でVisual Basic Editorを開く

2. VBAProjectのSheetに以下のコードをコピペする

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim text As String
Dim CB As New DataObject
text = ActiveCell.Value
With CB
.SetText text
.PutInClipboard
End With
End Sub

3. 挿入 → ユーザーフォームを選択
以上の手順でセル内容をクリックしただけで
コピーできるようになる。
サンプルとして完成後のExcelファイルも添付しました。
excel-vba-clipboard.xls