Question

我正在尝试创建一个函数遍历工作表并返回所有绿色（用户输入颜色）彩色单元格的最高值。我对VBA很新，除了“#VALUE！”之外我无法输出任何功能。这是我的代码：

Function ColorMax(Color As Integer) As Single
Dim array1()
Dim x As Integer
Dim y As Integer
Dim n As Integer
n = 1
For x = 1 To 1000
    For y = 1 To 1000
        If Cells(x, y).Interior.ColorIndex = Color Then
            array1(n) = Cells(x, y).Value
            n = n + 1
        End If
    Next
Next
ColorMax = Application.WorksheetFunction.max(array1)
End Function

有没有办法解决这个问题才能得到我想要的输出？

Answer 1

数组不是动态的，您必须以progamatically方式设置大小。

在这种情况下，不需要数组，它没有任何好处，只需测试它并在值更大时替换变量：

$(document).ready(function(){
    $('#lik1').click(function(){
        $('#target').load('example.php');
    });
});

Excel VBA返回有色单元格的最大值

1 个答案: