根据表一的代码，增加序号区域参数，创建适用于表二计数统计的自定义函数

WYS67

liulang0808 发表于 2019-2-12 21:24
差不多明白楼主的意图了，附件代码供参考吧

版主老师：弱弱问一句，能不能在自定义函数XHCOUNTIF的代码里增加一个额外的统计功能--即：当参数tj指定为"MODE"时，显示如N列各周期出现次数最多的数据名称？

如果可以，稍后我就把"MODE"的统计规则上传。

liulang0808

WYS67 发表于 2019-2-13 08:52
版主老师：弱弱问一句，能不能在自定义函数XHCOUNTIF的代码里增加一个额外的统计功能--即：当参数tj ...

没有看他明白，如果取最大值，可以直接调用表格公式的，楼主看看是不是这个意思的

WYS67

liulang0808 发表于 2019-2-13 08:54
没有看他明白，如果取最大值，可以直接调用表格公式的，楼主看看是不是这个意思的

是求：返回逐个周期内出现次数最多的那个数据的名称。

WYS67

liulang0808 发表于 2019-2-13 08:54
没有看他明白，如果取最大值，可以直接调用表格公式的，楼主看看是不是这个意思的

如果参数tj指定的不是数据区域里的指定数据，而是指定了MODE，则显示如N列那样--返回逐个周期内出现次数最多的那个数据的名称。

liulang0808

WYS67 发表于 2019-2-13 09:09
如果参数tj指定的不是数据区域里的指定数据，而是指定了MODE，则显示如N列那样--返回逐个周期内出现次数 ...

大概看明白了，一个自定义表格函数，楼主要扩展成什么样子呢？
如果要将这个函数应用到N列的话，那么就需要对0，1,2分别统计，然后比较大小进行反馈结果的。
还是建议增加其他公式处理吧，个人感觉没有必要再扩展了，不过楼主可以自行尝试练手看看吧

玉阳山人

liulang0808 发表于 2019-2-13 09:53
大概看明白了，一个自定义表格函数，楼主要扩展成什么样子呢？
如果要将这个函数应用到N列的话，那么就 ...

我就是问问可行不可行而已。感谢版主老师直言相告。

WYS67

liulang0808 发表于 2019-2-12 21:24
差不多明白楼主的意图了，附件代码供参考吧

老师：您写的29楼的代码，没有加载宏时，运行都正常；但把代码复制粘贴进一个专门用于加载宏的工作簿，另存为 Excel 加载宏((*.xlam)  后，每次打开下载自29楼的文件，就会出现如截图所示的错误：



老师：这是怎么回事。如何解决？

经过反复验证，觉得是最上边 Option Explicit  的问题，删除了  Option Explicit  后，已经能够顺利打开工作表。

WYS67

liulang0808 发表于 2019-2-12 21:24
差不多明白楼主的意图了，附件代码供参考吧

版主老师：请看截图，当每周期间隔序号的N1指定某些数值时，最后那个周期的下面，L:N列有时会出现连续的“1”，是什么原因造成的？

应该怎样屏蔽这些不符合运算规则的“1”为空白？
Public Function XHCOUNTIF(QY As Range, ZQ, tj, Optional x = 0, Optional y As Range)
    Application.Volatile
    arr = QY
    If y Is Nothing Then
        crr = Cells(QY(1).Row, 5).Resize(UBound(arr))
    Else
        crr = y
    End If

    For s = UBound(crr) To 1 Step -1
        If crr(s, 1) <> "" Then Exit For
    Next
    ReDim brr(1 To UBound(crr), 1 To 1) As Variant
    For i = 1 To UBound(crr)
        brr(i, 1) = ""
    Next
    n = 1

    m = crr(1, 1) + ZQ - 1
    For i = 1 To s
        If m <= crr(s, 1) Then
            For j = n To s
                If crr(j, 1) > m Then
                    n = j
                    m = m + ZQ
                    Exit For
                Else
                    If Val(tj) = Val(arr(j, 1)) Then
                        brr(i, 1) = Val(brr(i, 1)) + 1
                    End If
                End If
            Next j
        Else
            For j = n To UBound(crr)
                If Len(crr(j, 1)) > 0 Then
                    If tj = arr(j, 1) Then
                        brr(i, 1) = Val(brr(i, 1)) + 1
                    End If
                End If
            Next j
            If x = 0 Then
                brr(i, 1) = ""
            End If
            Exit For
        End If
    Next

    XHCOUNTIF = brr
End Function





无法上传有问题的附件。郁闷。excelhome论坛这两天很多时候总是上传不了附件。

WYS67

恳请高手大神们帮忙解决38楼反映的问题。

WYS67

恳请高手大神们帮忙解决38楼反映的问题。