Question

我有以下计数颜色代码，它工作正常，直到范围包含空白单元格，你必须进入功能行并按回车键，然后改为不同类型的空白单元格，因为我发现错误，每次我执行该步骤，vba代码再次工作。如何更正vba代码以便我可以执行此手册以输入一些空白单元格的过程，或者是否有自动执行某个范围的手动过程的代码？

#do something
start=time.time()
_ , _ = sess.run([something],feed_dict = {something})
end=time()
print(end-start)

Answer 1

你的功能对我有用。我不知道你有什么设置，但尝试我的修改：

Public Function SumByColor(pRange1 As Range, pRange2 As Range) As Double
    'Update 20140210
     Application.Volatile
     Dim rng As Range
     Dim rngSum As Range

     For Each rng In pRange1
         If rng.Font.Color = pRange2.Font.Color And IsNumeric(rng.Value) Then
            If rngSum Is Nothing Then
                Set rngSum = rng
            Else
                Set rngSum = Union(rngSum, rng)
            End If
         End If
     Next
     SumByColor = WorksheetFunction.Sum(rngSum)
End Function

然而，我和你的版本都有问题。如果更改任何单元格的字体颜色，它将不会重新计算。您必须单击“公式”菜单中的“立即计算”。

VBA计数颜色代码与某些空白单元格无法正常工作

1 个答案: