Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 100
If Cells(i, 1) <> "" Then
If Cells(i, 1) < 3000 Or Cells(i, 1) > 200000 Then
Cells(i, 2).Interior.Color = 200
Else
Cells(i, 2).Interior.ColorIndex = none
End If
Else
Cells(i, 2).Interior.ColorIndex = none
End If
Next
End Sub
輸入這段代碼以后，在表一里面只能輸入數(shù)據(jù)，但是無法復(fù)制粘貼單元格，請問是怎么回事呀？謝謝你這段代碼是不是寫在下面的事件中？
Private Sub Worksheet………………
同意樓上，是工作表事件導(dǎo)致無法復(fù)制粘貼，因?yàn)槟阍谧銎渌僮鲿r(shí)觸發(fā)了事件運(yùn)行代碼導(dǎo)致無法粘貼?？截惡?，點(diǎn)到其它單元格后，觸發(fā)SelectionChange中其它動(dòng)作，導(dǎo)致不能粘貼。
解決辦法：
1、調(diào)出剪貼板，用剪貼板粘貼
2、win7系統(tǒng)裝Excel 2013，我用13版沒這問題，好像以前10版也沒這問題了，當(dāng)時(shí)沒注意。
本帖最后由 22b 于 2014-6-4 23:50 編輯
su45 發(fā)表于 2014-6-4 23:18
你這段代碼是不是寫在下面的事件中？
Private Sub Worksheet………………
哎呀 不好意思 忘記復(fù)制完整的
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
end sub
確實(shí)是寫在這里面的
主要想實(shí)現(xiàn)某個(gè)單元格如果輸入的數(shù)字不在范圍內(nèi)就改變單元格顏色，但是就無法在excel里面復(fù)制粘貼了。謝謝
FnG 發(fā)表于 2014-6-4 23:42
同意樓上，是工作表事件導(dǎo)致無法復(fù)制粘貼，因?yàn)槟阍谧銎渌僮鲿r(shí)觸發(fā)了事件運(yùn)行代碼導(dǎo)致無法粘貼，解決辦法 ...
你好 我使用的是2003的 有沒有更好的解決辦法呀？謝謝
建議你刪除這段代碼，改用條件格式。
事件都貼一下吧，可能不全是這個(gè)事件的問題。還有代碼不全，就不提取出來問了，即是新手，貼文件是好辦法
su45 發(fā)表于 2014-6-4 23:53
建議你刪除這段代碼，改用條件格式。
謝謝，條件格式使用過了，現(xiàn)在希望能使用vb提高效率，
你的代碼中有對其它單元格的操作，肯定會影響復(fù)制粘貼的！
如果只是這段代碼那就有點(diǎn)問題了。
問題1這段要作啥？不合適！放在這個(gè)事件中處理不合適！
Sub Worksheet_Change(ByVal Target as Range)
在這事件中處理會好點(diǎn)，
另外分析一下，是否在該范圍內(nèi)再處理
（謝謝啦 12樓的方法可用 問題解決啦 條件格式確實(shí)也是不錯(cuò)的選擇）
