Tag: 函数

Excel：修复自己的自定义函数？

长话短说，我试图让我的自定义函数增加公式条目（触发它的那个！）作为函数的一部分。 这是一个蒸馏的例子： Private Function heythere(blah As String) extraBit = "title" ActiveCell.Formula = Replace(ActiveCell.Formula, ")", "," & """" & extraBit & """" & ")") End Function 基本上，如果用户没有将其添加到公式中，那么extraBit由用户窗体列表框定义。 有很多选项，根据条目的第一个参数dynamic加载到ListBox中。 这是一个有点棘手的解释，但如果在extraBit中提供extraBit ，那么这意味着用户窗体不会出现，并直接给出结果。 所以我想在定义extraBit之后“修复”入口。 本质上，在上面的例子中， =heythere(a1)会变成=heythere(a1,"title") 。 这可能吗？ 我试图创build一个单独的私人小组覆盖入口，无济于事。 在此先感谢您的任何build议… 编辑：为了澄清它是如何工作的，实际的UDF更像这样，有一个可选的次要参数： Private Function heythere2(blah As String, Optional extraBit As String) If extraBit = "" Then extraBit = "title" ActiveCell.Formula […]

如何在Excel中分隔/过滤英文文本

我正在开发一个包含多个Excel文件的项目，其中包含英文，中文或英文和中文的单元格。 我需要保持完全中文的行，并把它们放在第一位。 那么，我需要汉字和英文两行。 只有那些只有英文的人 我遇到以下三个function，可以帮助我标记内容，但似乎没有按预期工作，我不明白为什么。 Function ExtractChn(txt As String) Dim i As Integer Dim ChnTxt As String For i = 1 To Len(txt) If Asc(Mid(txt, i, 1)) < 0 Then ChnTxt = ChnTxt & Mid(txt, i, 1) End If Next i ExtractChn = ChnTxt End Function Function ExtractEng(txt As String) Dim i As Integer Dim […]

Excel的Excel函数

我试图找出最好的方式来拉取数据以满足条件。 基本上，我有我的数据，我必须findDueDate列的5-10列在ReceivedDate列方式的请求的百分比。 我知道百分比是要找出（有多lesslogging满足这个/所有logging）* 100，但我很新的Excel，不知道如何做一个好的公式来收集这些数据。 任何人都可以帮我吗？ Sample Data Received Date DueDate DaysBetween 7/1/2016 7/11/2016 10 7/1/2016 7/23/2016 22 7/1/2016 7/4/2016 3 7/1/2016 6/25/2016 6 7/1/2016 7/8/2016 7 并且可以说接收date在单元格A1中，单元格B1中的到期date和单元格C1 …中的DaysBetween，并且相应的logging在下面适当地编号。 因为只有＃1，＃4和＃5logging满足DueDate在ReceivedDate的5-10天内的条件，所以我想要一个基本上可以帮助我返回基于logging的数字3的单元格的公式。 显然这只有5条logging，但是我有一个数以千计的专栏。

在VBA中写一个函数返回一个三angular形的随机数

我正在尝试为excel编写一系列VBA函数，它将返回随机数字types以在子例程中调用。 一旦我进入更复杂的公式，我会遇到类似的错误。 例如：非对称三angular随机variables。 这是function： Function AsymetricTriangleInVBA (min As Double, mode As Double, max As Double) As Double Application.Volatile Randomize Dim Temp As Variant Temp = Rnd AsymetricTriangleInVBA = WorksheetFunction.if(Temp < ((mode – min) / (max – min)), min + (max – min) * WorksheetFunction.sqrt(((mode – min) / (max – min)) * Temp), min + (max […]

我的平均function是计数空白单元格为0

据我所知，Excel平均函数不包括空白的单元格。 不过，我的这个看起来正是我的代码所做的： Sub sumavg() Dim rowCounter As Long Dim colCounter As Long Dim values() As Variant Const START_COL As Long = 1 Const END_COL As Long = 6 Const OUTPUT_COL_START As Long = 20 With Worksheets("datasummary") 'Load the values into an array values = .Range(.Cells(1, 1), .Cells(199, 18)).Value For rowCounter = 1 To 40 ReDim […]

Excel 2016 Countf函数使用多条件帮助需要帮助

我想弄清楚如何使用countif函数和/或能够在数据透视表函数中显示一个工作表，并分解出一些信息。 我遇到的问题是其中一个单元格中的某些数据有多个信息。 这是一个示例： ╔═══════╦════════════╦═══════╦══════════════════╗ ║ Claim ║ Date ║ Model ║ Fail Description ║ ╠═══════╬════════════╬═══════╬══════════════════╣ ║ ║ ║ ║ ║ ║ 1 ║ 1/1/2017 ║ T430 ║ KB, MOBO ║ ║ 2 ║ 1/5/2017 ║ t450 ║ KB, MOBO ║ ║ 3 ║ 1/6/2017 ║ T440 ║ HDD, MOBO ║ ║ 4 ║ 1/7/2017 ║ […]

当拖拽marque down列时阻止单元格引用迭代

我有一个单元格B2000，里面有一个固定值，即5.25 。 我通过函数=B2000+G5在单元格H5中引用该值。 现在，我想突出显示单元格H5，然后向下拖动该标记，以便对B2000的引用不会迭代，但对G5的引用将在该列上进行迭代。 这可能吗？

每个段落每个单词的平均字数？ 在一个excel单元格中

在Excel中，如果你有一个包含一段信息的单元格，你如何find单元格中字长的平均值？ excel单元格中每个段落每个单词的平均字符数。 例： 细胞A1：玛丽有一只小羊羔 平均字长为每字3.6个字/字，当然手动计算。 如果你有大量的文字，这是相当困难的。 有谁知道如何做到这一点的function？

IF和函数在Excel中

我正在尝试在excel中写入一个函数，在条件为true后返回值“1”。 但是excel并不接受我的论点。 我的function如下 =IF(AND(CK2="1",VLOOKUP(Sheet3!H2,Sheet1!G:G,1,FALSE),"1","0"))

VBA未提交的子错误结束

我发现下面的VBA代码来总结彩色单元格，但是在倒数第二行我得到了一个意外的语句错误结束： Function SumByColor(CellColor As Range, SumRange As Range) Application.Volatile Dim ICol As Integer Dim TCell As Range ICol = CellColor.Interior.ColorIndex For Each TCell In SumRange If ICol = TCell.Interior.ColorIndex Then SumByColor = SumByColor + TCell.Value End If Next TCell End Function Sub Count_red() =SumByColor(AC4,J2:AK1725) End Sub 编辑：我调整了最后一点根据你的build议 Sub Count_red() Function Count_red() As Double Count_red = […]