一段替换代码出错的问题

学习者1

问题：删除一个单元格的内容没有问题，删除连续单元格就出错，要求调试，加跳过代码就会出现单元格显示全部为
啊阿吖

替换代码出错.rar (5.76 KB, 下载次数: 10)

2010-10-29 12:52 上传

点击文件名下载附件

-----在sheet1中的代码--，是抄的---
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case "a"
Target = "啊阿吖"
Case "b"
Target = "吧不把"
Case "c"
Target = "才吃"
Case "d"
Target = "的地德"
End Select
End Sub
-----------------------------

[ 本帖最后由 学习者1 于 2010-10-29 13:20 编辑 ]

honggexjq

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
For Each rng In Target
Select Case rng
Case "a"
rng = "°¡°¢ß¹"
Case "b"
rng = "°É²»°Ñ"
Case "c"
rng = "²Å³Ô"
Case "d"
rng = "µÄµØµÂ"
End Select
Next
End Sub

晕，出现乱码，反正你知道意思就好，乱码就是你要替换的那些字符

[ 本帖最后由 honggexjq 于 2010-10-29 13:07 编辑 ]

ericjon

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
Select Case Target.Value
Case "a"
Target = "啊阿吖"
Case "b"
Target = "吧不把"
Case "c"
Target = "才吃"
Case "d"
Target = "的地德"
End Select:
End If
End Sub

学习者1

谢谢ls的兄弟们，我来测试一下

学习者1

谢谢，很好，两位兄弟的代码都好用的。

wwwruc

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo 1
Select Case Target.Value
Case "a"
Target = "啊阿吖"
Case "b"
Target = "吧不把"
Case "c"
Target = "才吃"
Case "d"
Target = "的地德"
End Select

1:
   

End Sub

学习者1

6楼兄弟的代码无误，谢谢