'Wクリック時にセルの値をクリップボードへ
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
	Dim moji As String
	If Target.Value <> "ここをWクリック" Then
		Application.StatusBar = "コピーセル対象外"
	Else
		moji = Cells(Target.Row, Target.Column + 7)
		Application.StatusBar = "Copy: " & moji
		CreateObject("WScript.Shell").Exec("clip").StdIn.Write moji
	End If
	Cancel = True
End Sub