Question

我试图在word中找到excel中的最大列，之前我已经使用了

ordering

来自excel，现在我需要在vba中用类似的方式做。

但是我无法弄清楚如何从单词中做到这一点，我是否需要创建自己的循环并创建自己的最大函数？

MyResult = application.Worksheetfunction.max (Range("B4:B7"))

Answer 1

我将首先回答你提出的问题：

如何从word
调用工作表函数

像这样：

 Dim excelApp As Object
 Set excelApp = CreateObject("Excel.Application")
 maxVal = excelApp.Worksheetfunction.max(1, 2, 3) 'Some values separated by comma or an array
 excelApp.Quit

现在你需要的只是Max功能。像这样：

Function MaxFunc(arr)
    Dim maxVal, tmpVal, ifFirst
    ifFirst = True
    For Each it In arr
        If ifFirst Then
            maxVal = it: ifFirst = False
        Else
            If maxVal < it Then maxVal = it
        End If
    Next
    MaxFunc = maxVal
End Function

Answer 2

以下是基于AnlaystCave输入的代码：

val(oXLApp.Worksheetfunction.Max( _
                xlApp.Sheets("List").Range(xlApp.Sheets("List").Cells(3, columnWp), xlApp.Sheets("List").Cells(numofrows, columnWp))))

如何从word调用工作表函数

2 个答案: