none
Excel 自定义函数无法自动重新计算 RRS feed

  • 问题

  • 在Excel中, 定义一个颜色求和函数, 如果纯粹地改变单元格颜色, 该函数无法自动更新, 需要双击单元格之后, 才能得出正确的结果.

    Function CountColor(MyRngnew As Range, RngColor) As Double
        RowsCount = MyRngnew.Rows.Count
        ColsCount = MyRngnew.Columns.Count
        TotalCells = RowsCount * ColsCount
        CountColor = 0
        For CellNum = 1 To TotalCells Step 1
            If MyRngnew.Cells(CellNum).Interior.Color = RngColor.Interior.Color Then
            CountColor = CountColor + 1
            End If
        Next
    End Function

    2017年3月28日 15:20

全部回复

  • 用Excel宏录制一下操作过程,再看看产生的VBA代码,对比下您的代码是缺少什么语句调用。


    专注于.NET ERP/CRM开发框架,C/S架构,SQL Server + ORM(LLBL Gen Pro) + Infragistics WinForms

    2017年3月29日 0:05