(Excel) ﾏｸﾛによる値の貼付け

ｲﾝﾀｰﾈｯﾄ上で下記構文を取得しPERSONAL.XLSBの標準ﾓｼﾞｭｰﾙに保存､数式をｸﾘｯﾌﾟﾎﾞｰﾄﾞに
ｺﾋﾟｰした状態でﾏｸﾛ実行しましたが､値の貼付けを行うことができません(ｴﾗｰであることを
示す音が鳴りました｡ﾍﾟｰｽﾄしようとしたｾﾙには､何も貼り付けられませんでした)｡

当方ﾏｸﾛ未経験者ですが｢ﾏｸﾛによる値の貼付け｣を行う必要があり､下記を加工する ないしは
別の何らかの構文を利用することで､値の貼付けを行うことができるようになりたいのです
が､何か良い方法はないでしょうか､?

なお実行方法については､[開発ﾀﾌﾞのﾏｸﾛ]→[ValuePasteを選択]→[実行] の手順で行いました｡



Sub ValuePaste()
Dim vClip As Variant
On Error Resume Next
vClip = Application.ClipboardFormats
If vClip(1) = True Then
Beep
Exit Sub
End If
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub



詳しい方､何卒 よろしくお願い申し上げます｡

No.1 回答者： Qchan1962 回答日時： 2021/10/30 19:26

こんばんは、

セルでなく　数式をｸﾘｯﾌﾟﾎﾞｰﾄﾞにｺﾋﾟｰした状態　なら
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
を
ActiveSheet.Paste Destination:=Selection(1)
とすれば貼り付けると思います。