[已解决]我的excel中为什么点复制后就不能粘贴了

zxc1152468

我的excel中为什么点复制后就不能粘贴了 CKLc3GEI.rar (47.51 KB, 下载次数: 125)

2011-3-3 21:55 上传

点击文件名下载附件
我的excel中为什么点复制后就不能粘贴了 <BR>
<P align=right><FONT color=#000066>[此贴子已经被作者于2010-8-23 15:38:20编辑过]</FONT></P>

最佳答案

月排行榜 / 总排行榜

Dj_soo

2010-8-23 16:14

事件代码修改为:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Row = 4 And Target.Column < 5 Then
        With Target
            .Interior.Color = vbRed
            MsgBox "这个单元格严禁手工输入数据" & Chr(10) & "否则可能导致计算结果出现错误!"
            .Interior.ColorIndex = xlNone
        End With
    End If
End Sub

跳转到最佳答案楼层

李529795191

不明

chensir

是不是你文档里有宏在刷新

蒸蒸日上

在不能调出鼠标右键时，试试CTRL+V

zxc1152468

本人已上传附件，请大家再看看，到底是怎么回事

Dj_soo

选择单元格事件的代码中对单元格的底纹颜色进行处理了,选中单元格时如果先修改了单元格的底纹,会自动取消复制状态,没有复制状态,Excel也就没办法粘贴了.

Dj_soo

事件代码修改为:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Row = 4 And Target.Column < 5 Then
        With Target
            .Interior.Color = vbRed
            MsgBox "这个单元格严禁手工输入数据" & Chr(10) & "否则可能导致计算结果出现错误!"
            .Interior.ColorIndex = xlNone
        End With
    End If
End Sub

ahljxm

我下载了楼主的附件，能够粘贴呀