[已解决](求助)请斑主和老师帮助，考评表计数统计问题（急）

sdwffw

详见附件，恳请老师帮助。谢谢。 OLtAkf48.rar (2.57 KB, 下载次数: 2)

2009-12-30 09:00 上传

点击文件名下载附件
(求助)考评表计数统计问题（急）

[此贴子已经被作者于2009-12-30 9:54:00编辑过]

最佳答案

月排行榜 / 总排行榜

amulee

2009-12-30 11:36

工作表的代码

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
                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

添加一个模块，代码：

 
Public PreCell As Range

跳转到最佳答案楼层

sdwffw

能不能实现啊？恳请大家指教。

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
                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

添加一个模块，代码：

 
Public PreCell As Range

sdwffw

感谢amulee老师，能否在附件上修改一下？

amulee

我暂时上传不了附件。

sdwffw

非常感谢amulee老师。

[此贴子已经被作者于2009-12-30 12:23:06编辑过]