ActiveSheet.Range("D26").PasteSpecial xlPasteValues
ActiveSheet.Range("D26").PasteSpecial xlPasteComments
不能呢,你有可能誤會我意思了
我的意思是把 B26儲存格是帶公式的值(這個儲存格上沒有註解)
直接貼上D26插入註解裡
我是這樣打的 如下
Sub 按鈕10_Click()
Range("B26").Select
Selection.Copy
Range("D26").Select
ActiveSheet.Range("D26").PasteSpecial xlPasteValues
End Sub
再麻煩你了 謝謝
Sub 巨集1()
'
' 巨集1
'
Dim a As String
Range("G6").Copy ' 帶公式的格子 =G2
Range("ZZ1").PasteSpecial xlPasteValues
a = Range("ZZ1").Value
`下方的J6就是要放附註的格子
If Range("J6").Comment Is Nothing Then
Range("j6").AddComment
End If
Range("J6").Comment.Visible = False
Range("J6").Comment.Text Text:=a
Range("J6").Select
Range("zz1").Delete ' 清掉借放的格子
End Sub
Range("D26").Value = Range("B26").Value