[已解决](求助)再请amulee老师

sdwffw

 

NPGatQdX.rar (8.55 KB, 下载次数: 1)

2010-1-4 15:42 上传

点击文件名下载附件
(求助)再请amulee老师

前几天请amulee老师帮助写了个代码，实现了点击鼠标单元格加1功能，点重置数据时，统计票数数字清空。（详见附件）。现有个问题：点重置数据时，投票人数和投票时间也清空，再请老师指导，谢谢。

最佳答案

月排行榜 / 总排行榜

amulee

2010-1-4 16:09

原来你要清空啊，正好弄反了，呵

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
        If Target.Address = "$G$2" Then
            If MsgBox("是否重置数据？", vbYesNo) = vbYes Then
                Dim MyCell As Range
                Application.ScreenUpdating = False
                For Each MyCell In UsedRange
                    If MyCell.Interior.ColorIndex = 36 Then MyCell = ""
                Next
                [d2:e2].ClearContents
                Application.ScreenUpdating = True
                Exit Sub
            End If
        End If
        If Target.Address = "$F$2" Then
            If Not PreCell Is Nothing Then
                If MsgBox("恢复点击前数据吗？", vbYesNo) = vbYes Then
                    reCell = PreCell - 1
                    Exit Sub
                End If
            End If
        End If
        If Target.Interior.ColorIndex = 36 Then
            Target = Target + 1
            Set PreCell = Target
        End If
    End If
End Sub

跳转到最佳答案楼层

amulee

测试了一下，D2和E2不会清空。

我的代码是根据单元格填充色进行判断的，所以请不要将那两个单元格填充浅黄色。

sdwffw

如何修改代码实现点重置数据时，D2和E2和黄色单元格数据一起清空呢？D2单元格是输入参评人数的,e2是输入日期的。

谢谢老师。

[此贴子已经被作者于2010-1-4 16:08:21编辑过]

amulee

原来你要清空啊，正好弄反了，呵

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
        If Target.Address = "$G$2" Then
            If MsgBox("是否重置数据？", vbYesNo) = vbYes Then
                Dim MyCell As Range
                Application.ScreenUpdating = False
                For Each MyCell In UsedRange
                    If MyCell.Interior.ColorIndex = 36 Then MyCell = ""
                Next
                [d2:e2].ClearContents
                Application.ScreenUpdating = True
                Exit Sub
            End If
        End If
        If Target.Address = "$F$2" Then
            If Not PreCell Is Nothing Then
                If MsgBox("恢复点击前数据吗？", vbYesNo) = vbYes Then
                    reCell = PreCell - 1
                    Exit Sub
                End If
            End If
        End If
        If Target.Interior.ColorIndex = 36 Then
            Target = Target + 1
            Set PreCell = Target
        End If
    End If
End Sub

sdwffw

问题已解决，十分感谢amulee老师。