[已解决]自己做了个考勤的东东，不好用求高手帮忙

dujigui

1、出现类型不匹配报错；
2、在单元格输入（1~8）后当时不能替换，只有再次点击单元格才能替换为对应符号.

最佳答案

月排行榜 / 总排行榜

豆丁

2011-8-18 13:29

第1问：再代码最前面加一句：If Target.Count > 1 Then Exit Sub
第2问：把SelectionChange事件改成Change事件

跳转到最佳答案楼层

豆丁

第1问：再代码最前面加一句：If Target.Count > 1 Then Exit Sub
第2问：把SelectionChange事件改成Change事件

dujigui

回复 豆丁 的帖子

谢谢，可以了。

豆丁

按照你的意思给写了一下，用于sheet1表：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim arr
   
3. arr = Array("√", "☆", "φ", "○", "#", "~", "△", "＊")
   
4. If Target.Count > 1 Then Exit Sub
   
5. If Not Intersect(Range("c7:bl26"), Target) Is Nothing Then
   
6.     Application.EnableEvents = False
   
7.     If Target > 0 And Target < 9 Then
   
8.         Target = arr(Target - 1)
   
9.     Else
   
10.         MsgBox "输入错误!"
    
11.         Target.ClearContents
    
12.     End If
    
13.     Application.EnableEvents = True
    
14. End If
    
15. End Sub

复制代码