如何设置单元格可以复制粘贴修改数值但不能改变格式？

pptu6768

如何设置单元格可以复制粘贴修改数值但不能改变格式？
既是说单元格只能粘贴数值，不能改变单元格的格式

microyip

用事件WorkSheet_Change检测到单元格变动后，把内容数值记录到数组里，然后Undo一次取消已复制，把数组直接写到变动了的区域里即可

microyip

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim vData As Variant
   
3.     If Application.CutCopyMode Then
   
4.         Application.CutCopyMode = False
   
5.         Application.EnableEvents = False
   
6.         vData = Target.Value
   
7.         Application.Undo
   
8.         Target = vData
   
9.         Application.EnableEvents = True
   
10.     End If
    
11. End Sub

复制代码

microyip

附上附件以供参考

cui26896

以[d1]已经设置了单元格格式，如[d1].NumberFormat="0.00",要将[a1]的数值复制粘贴到[d1]，只改变数值而不改变格式，
    [a1].copy
    [d1]..PasteSpecial Paste:=xlPasteValues
记住一定要分两行。