Tag: 函数

在一组单元格中查找单词: 我试图创build一个基于D11：D15内容的合格/不合格结果的单元格。如果即使其中一个单元格的值为“FAIL”，我也希望上面的单元格（公式正在进入）读取“FAILED”。如果他们都是“通过”，我希望它说“通过”。听起来很简单，但我有问题 =IF((ISNUMBER(SEARCH("FAIL",D11:D15))),"FAILED","PASSED") 不pipe怎样，这个公式都会返回。即使在范围内有失败。我在这里错过了什么？

＃在Excel中使用自定义函数的错误值: 当我尝试调用自定义函数时出现#VALUE错误。所有它应该做的是一些math。有没有人看到这里可能是错的？我从互联网上复制这一个：资源： Linear Interpolation VBA Function in Excel Function LININTERP(x, xvalues, yvalues) 'x and y values must be in ascending order from top to bottom. 'x must be within the range of available data. x1 = Application.WorksheetFunction.Index(xvalues, Application.WorksheetFunction.Match(x, xvalues, 1)) x2 = Application.WorksheetFunction.Index(xvalues, Application.WorksheetFunction.Match(x, xvalues, 1) + 1) y1 = Application.WorksheetFunction.Index(yvalues, Application.WorksheetFunction.Match(x, […]

Excel的VBAfunction，有没有任何字符限制？: 我在Excel VBA中使用一个函数，我从一长串单元格中提取数据。我正在使用这个function Function name(cell As Range) As Double Dim Textstrng As String Textstrng = cell.text name = InStr(1, Textstrng, "UpgradeApprovalCode=") End Function 当UpgradeApprovalCode=在string中的8000个字符内时，其显示结果如7000.但是当它远离前10000个字符时，它不会显示#VALUE!,而不是结果。那么是否有任何search字符限制或如何克服这一点。我正在使用Office 2007。

在VBA中使用sorting范围进行更改: 我有一个VBA中的单元格范围，每次运行代码时都会改变。我正在尝试编写代码，以便该列按F列sorting。我遇到的问题是，它只能是这个细胞的特定范围。此范围下还有其他单元格，我不想分类，并且此范围的大小会发生变化。部分代码如下。这是我迄今为止所尝试过的，没有运气。 Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select vtools = Selection ActiveWorkbook.Worksheets("Exceptions Weekly Summary").Sort.SortFields.Add Key _ :=Range(vtools), SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Exceptions Weekly Summary").Sort .SetRange Range("B11:H14") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With 这不起作用。我不能直接引用单元格（例如，我不能使用Range（“F2：F5”）），因为这些单元格在每次运行代码时位于不同的位置。我知道如何find我需要sorting的东西，甚至select它，但是我无法告诉sorting函数要sorting的列。有人可以帮我弄这个吗？提前谢谢你！

调用UDF时，公式中使用的值是错误的数据types: 我一直在努力弄清楚这里出了什么问题。我有两个包含string值的列。我使用第三个col来调用工作表中的UDF，但最终得到#Value错误 – “公式中使用的值是错误的数据types”。例如： Col I Col J File1 Y File1 N File2 Y File3 N 我试着debugging它，并将input值正确地传递给函数variables。我在VBA的知识是有限的，希望你们能帮我解决这个问题。在工作表中调用的函数： =FileCheck(I3,I3:J38) 码： Public Function FileCheck(V As Range, Q As Range) As String Dim vtest As Variant Dim i, j, stat As Integer stat = 0 vtest = Q For i = 1 To UBound(vtest) […]

用于计算列范围中不同值的函数: 我试图在VBA中创build一个函数，当给定一个值的范围，将返回这些值的计数差异。例如： | Column A | |———-| | 1 | | 2 | | 3 | | 3 | | 3 | | 3 | | 4 | | 4 | | 5 | | 5 | | 6 | 行数= 11不同的值= 6 这里是我试图用来build立一个函数，我可以在Excel中调用的VBA代码的结构： Function CountDistinct(dataRange As Range) Dim x As Double x = 0 […]

Excel VBA函数尝试在Excel公式中使用时出现＃值错误: 我正在使用下面的代码从文本中删除元音，当我运行它使用VBA它工作正常。但是，当我在Excel中使用相同的公式= RMV（文本）它给了我一个错误#Value。以下是代码，请帮助 Function RMV(Text) As String 'RMV = RemoveVowels Dim I As Long Dim J As Long Dim Ws As Worksheet Dim Cell As Range Set Ws = ActiveWorkbook.Sheets("sheet1") I = 2 J = 1 Lastrow = Ws.Cells(Rows.Count, 1).End(xlUp).Row For I = 2 To Lastrow '' For Loop to cover all the cells […]

压缩IFfunction – EXCEL: 我将如何压缩这个function？ =SUM(IF(B2="Cash",D2,0)+IF(B3="Cash",D3,0)+IF(B4="Cash",D4,0)+IF(B5="Cash",D5,0)+IF(B6="Cash",D6,0)+IF(B7="Cash",D7,0)+IF(B8="Cash",D8,0)+IF(B9="Cash",D9,0)) 它询问B2是否具有Cash值，然后得到D2的值，否则它的值为0 。我想要它为列B和D中的每个单元格做这个，以便我可以将它们全部添加？我将如何做到这一点？

使用Excel VBA中的工作表函数的值进行操作: 我有两个函数，第一个函数，第二个函数的代码和第一个函数的代码几乎是一样的，但最后还是试图用最终结果进行一些算术运算。第二个人不工作。代码如下： Public Function li(a As Double, b As Double) As Variant Dim mat(1 To 1, 1 To 3) As Variant Dim re As Variant Dim imat(1 To 3, 1 To 3) As Variant imat(1, 1) = 0.7409287 imat(1, 2) = -0.2849031 imat(1, 3) = 0.00002678114 imat(2, 1) = -0.2849031 imat(2, 2) = 0.1108151 […]

调用VBA函数: 我有一个调度Excel的macros，列出每个月的日常作为一个单独的Excel工作表。在我的macros观中，“星期日”表总共每小时工作的小时数，并给我每周的总数。我试图创build一个函数，使我可以select哪些表我需要尽可能的上限和下限，但我不能得到它的工作。有什么问题？目前我有： Function SampleSum(ByVal ZZ As Integer, ByVal XX As Integer) As Integer Application.Volatile SampleSum = Sheets(ZZ).Range("BA5") + Sheets(XX).Range("BA5") Sheets(XX).Range("BB5") = SampleSum End Function 我希望能用任何2个数字或variables代替ZZ＆XX来“调用”函数。