[已解决]数据有效性如何不被粘贴破坏

zhp3 · 发表于 2014-3-26 14:06

粘贴内容到设置了数据有效性的单元格后，原来设置的数据有效性规则失效了！
怎样做到粘贴后，设置的数据有效性仍有效（选择性粘贴为数值的效果，填表的人大多没有用过选择性粘贴，默认只能选择性粘贴为数值也可以。）；
或者允许粘贴符合数据有效性的数据，不允许粘贴不符合数据有效性的数据。
下面这个帖子好像不能解决这个问题。

[已解决]数据有效性中的粘贴输入非法数据
http://www.excelpx.com/thread-144047-1-1.html

另外：剪切设置了数据有效性的单元格后，原来设置的数据有效性规则失效了！能否解决

数据有效性——保护工作表密码为空.zip (1.81 KB, 下载次数: 38)

Zipall · 发表于 2014-3-26 14:29

可以通过设置"允许用户编辑区域"并保护工作表来防止单元格被移动.
但是该方法同样无法防止粘贴非法值进去.

test.rar (3.32 KB, 下载次数: 24)

zhp3 · 发表于 2014-3-26 14:39

Zipall 发表于 2014-3-26 14:29
可以通过设置"允许用户编辑区域"并保护工作表来防止单元格被移动.
但是该方法同样无法防止粘贴非法值进去. ...

谢谢回复！
能不能帮我想想办法防止粘贴非法值进去？

Zipall · 发表于 2014-3-26 15:05

这个最佳答案由 Zipall 给出，感谢 Zipall 的回答。

单击隐藏图章

zhp3 发表于 2014-3-26 14:39
谢谢回复！
能不能帮我想想办法防止粘贴非法值进去？

你贴的文库里那个vba方法就可行.
除此之外我也没有更好的方法了.

zhp3 · 发表于 2014-3-26 15:07

Zipall 发表于 2014-3-26 15:05
你贴的文库里那个vba方法就可行.
除此之外我也没有更好的方法了.

谢谢你！
{:1612:}

zhp3 · 发表于 2014-3-26 15:32

Zipall 发表于 2014-3-26 15:05
你贴的文库里那个vba方法就可行.
除此之外我也没有更好的方法了.

果然有效，之前没有注意到这个。
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim rng As Range
For Each rng In Target
If Not rng.Validation.Value Then
Application.Undo
MsgBox prompt:="粘贴数据超出可输入范围！", Title:="输入提示"
Exit For
End If
Next
End Sub

Excel帮你不加班.pdf (1.65 MB, 下载次数: 143)

蓝粆 · 发表于 2014-3-27 01:40

楼主好人好东西要顶~

avel · 发表于 2015-4-30 13:18

方法的确不错的。

zcz171392416 · 发表于 2016-8-7 18:17

各位大虾，我遇到的是：表1的A列有不重复有数据有效性验证，需要将表1的A列考到表2的B列；表2的B列也设有不重复有数据有效性验证，但拷贝后，本应为=COUNTIF($B$5:$B$1004,B4)=1的验证公式，变为了=COUNTIF($A$5:$A$1004,B4)=1。
请给位高手指教。

		自动登录	找回密码
密码			注册