求助！帮忙修改代码，多谢！！！具体要求详见附件。

tsingcea · 发表于 2012-7-20 17:43

本帖最后由 tsingcea 于 2012-8-13 01:41 编辑

这个代码可能有些兼容性的问题。求修改方案。具体要求详见附件。
多谢！！！！！
主要是代码之间存在兼容性的问题，并不是版本兼容性的问题。
多谢！！

ctp_119 · 发表于 2012-7-21 08:36

兼容性，一般是先判断系统是什么版本，之后再根据不同的版本运行不同的程序段即可。。。

tsingcea · 发表于 2012-7-20 23:37

哪位大师肯帮忙呢？小弟在此感谢了！！

tsingcea · 发表于 2012-7-21 09:57

ctp_119 发表于 2012-7-21 08:36
兼容性，一般是先判断系统是什么版本，之后再根据不同的版本运行不同的程序段即可。。。

我这个并不是系统的问题，而是在实际应用中的代码之间出现冲突，所以需要修改代码来避免冲突。可能是我说“兼容性”这个词导致一些误会吧。

tsingcea · 发表于 2012-7-27 16:43

真的没有人会吗？？？

zjdh · 发表于 2012-7-28 08:46

这可能是Excel没考虑的问题，页面操作不可改变锁定的单元格内容，VBA却可以操作。
要解决也并不不难，2种方法：
1. 工作表加锁时添加一个辅助条件： .EnableSelection = xlUnlockedCells，让加锁区域不可选择。
2. 粘贴前作个判断，若在指定区域，则跳过粘贴并告示。

zjdh · 发表于 2012-7-28 08:51

若每次都要对黄色区域复制粘贴一次，可以在change事件中直接将代码加入！没必要再设按钮和单独的宏！

tsingcea · 发表于 2012-7-29 22:29

zjdh 发表于 2012-7-28 08:46
这可能是Excel没考虑的问题，页面操作不可改变锁定的单元格内容，VBA却可以操作。
要解决也并不不难，2种方 ...

非常感谢您的回答。我认为您说的第二条完全就是我要的结果。但是要如何写这个判断条件以及提示呢？

tsingcea · 发表于 2012-7-29 22:30

zjdh 发表于 2012-7-28 08:51
若每次都要对黄色区域复制粘贴一次，可以在change事件中直接将代码加入！没必要再设按钮和单独的宏！

不是每次，而是需要的时候，所以我才设置成一个按钮。

zjdh · 发表于 2012-8-1 10:47

本帖最后由 zjdh 于 2012-8-1 10:49 编辑

Private Sub CommandButton4_Click() '按钮粘贴
On Error GoTo Err
Set S = Application.Intersect(Selection, Range("G:H"))
If Not S Is Nothing Then MsgBox "你选择的区域不得粘贴！": Exit Sub
Set S = Application.Intersect(Selection, Range("J:L"))
If Not S Is Nothing Then MsgBox "你选择的区域不得粘贴！": Exit Sub
Set S = Application.Intersect(Selection, Range("N:P"))
If Not S Is Nothing Then MsgBox "你选择的区域不得粘贴！": Exit Sub
Set S = Application.Intersect(Selection, Range("R:T"))
If Not S Is Nothing Then MsgBox "你选择的区域不得粘贴！": Exit Sub
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats:  Exit Sub
Err:
If Application.CutCopyMode = False Then
      MsgBox "您还没复制，或请重新复制。"
Else
      MsgBox "如果粘贴整行或整列，请注意粘贴位置；" & Chr(10) & "另外，本命令在剪切模式下不可使用。"
End If
End Sub

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

[已解决] 求助！帮忙修改代码，多谢！！！具体要求详见附件。