ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 4430|回复: 34

[求助] 创建忽略空格求每隔三个数据的众数的自定义函数

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-3-18 23:10 | 显示全部楼层 |阅读模式
本帖最后由 WYS67 于 2019-3-19 15:11 编辑

1.gif

创建忽略空格求每隔三个数据的众数的自定义函数.zip (15.62 KB, 下载次数: 8)
恳请大神们帮忙解决为盼!

提示:两位数众数的运算规则,与一位数同理:分别求出每三个十位的众数,和每三个个位的众数,再合并起来就行了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-19 09:45 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
希望有大神帮忙解决为盼!

TA的精华主题

TA的得分主题

发表于 2019-3-19 09:53 | 显示全部楼层
WYS67 发表于 2019-3-19 09:45
希望有大神帮忙解决为盼!

看起来楼主是要完成一个彩票方面庞大的自定义函数库,据我所知现在已经完成几十个了吧?帮着顶一顶,希望对彩票感兴趣的帮一帮。

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-19 10:48 | 显示全部楼层
chxw68 发表于 2019-3-19 09:53
看起来楼主是要完成一个彩票方面庞大的自定义函数库,据我所知现在已经完成几十个了吧?帮着顶一顶,希望 ...

老师:因为我整年躺在床上不能动,想找点事干。世上万人万事万物都有其运气好坏,生意旺衰规律。苦于手边这方面的实例太少,只能以网上铺天盖地的彩票数据作为探讨的资料了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-19 12:39 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-3-19 13:54 | 显示全部楼层
'二位数的没看懂规则,个位数的猜一个,估计差不多,,,

Option Explicit

Sub test()
  Dim arr, i, j, cnt, n, p
  arr = Range("d5:d" & Cells(Rows.Count, "d").End(xlUp).Row + 1)
  ReDim brr(1 To UBound(arr, 1), 1 To 1)
  For i = 1 To UBound(arr, 1)
    If Len(arr(i, 1)) Then
      cnt = 0: ReDim t(2) As Long
      For j = i To UBound(arr, 1)
        If Len(arr(j, 1)) Then
          cnt = cnt + 1
          t(arr(j, 1)) = t(arr(j, 1)) + 1
          If cnt = 3 Then
            n = t(0): p = 0
            If n < t(1) Then n = t(1): p = 1
            If n < t(2) Then n = t(2): p = 2
            brr(j, 1) = IIf(n = 1, 3, p)
            i = j: Exit For
          End If
        End If
      Next
    End If
  Next
  [e5].Resize(UBound(brr, 1) - 1) = brr
End Sub

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-19 14:01 | 显示全部楼层
一把小刀闯天下 发表于 2019-3-19 13:54
'二位数的没看懂规则,个位数的猜一个,估计差不多,,,

Option Explicit

两位数的,让连续三期的十位和个位分别求众数,把分别得出的结果合并起来就行了。

TA的精华主题

TA的得分主题

发表于 2019-3-19 14:22 | 显示全部楼层
WYS67 发表于 2019-3-19 14:01
两位数的,让连续三期的十位和个位分别求众数,把分别得出的结果合并起来就行了。

'运行test这个过程即可

'看懂你的问题比写代码费劲的多,自己试下看看是不是这样的,,,

Option Explicit

Sub test()
  Call fc1
  Call fc2
End Sub


Function fc1()
  Dim arr, i, j, cnt, n, p
  arr = Range("a5:d" & Cells(Rows.Count, "a").End(xlUp).Row + 1)
  ReDim brr(1 To UBound(arr, 1), 1 To 1) As String
  For i = 1 To UBound(arr, 1)
    If Len(arr(i, 1)) Then
      cnt = 0: ReDim t(2, 1) As Long
      For j = i To UBound(arr, 1)
        If Len(arr(j, 1)) Then
          cnt = cnt + 1
          t(Left(arr(j, 1), 1), 0) = t(Left(arr(j, 1), 1), 0) + 1
          t(Right(arr(j, 1), 1), 1) = t(Right(arr(j, 1), 1), 1) + 1
          If cnt = 3 Then
            n = t(0, 0): p = 0
            If n < t(1, 0) Then n = t(1, 0): p = 1
            If n < t(2, 0) Then n = t(2, 0): p = 2
            brr(j, 1) = IIf(n = 1, 3, p)
          End If
          If cnt = 3 Then
            n = t(0, 1): p = 0
            If n < t(1, 1) Then n = t(1, 1): p = 1
            If n < t(2, 1) Then n = t(2, 1): p = 2
            brr(j, 1) = brr(j, 1) & CStr(IIf(n = 1, 3, p))
            i = j: Exit For
          End If
        End If
      Next
    End If
  Next
  [b5].Resize(UBound(brr, 1) - 1) = brr
End Function

Function fc2()
  Dim arr, i, j, cnt, n, p
  arr = Range("d5:d" & Cells(Rows.Count, "d").End(xlUp).Row + 1)
  ReDim brr(1 To UBound(arr, 1), 1 To 1) As String
  For i = 1 To UBound(arr, 1)
    If Len(arr(i, 1)) Then
      cnt = 0: ReDim t(2) As Long
      For j = i To UBound(arr, 1)
        If Len(arr(j, 1)) Then
          cnt = cnt + 1
          t(arr(j, 1)) = t(arr(j, 1)) + 1
          If cnt = 3 Then
            n = t(0): p = 0
            If n < t(1) Then n = t(1): p = 1
            If n < t(2) Then n = t(2): p = 2
            brr(j, 1) = IIf(n = 1, 3, p)
            i = j: Exit For
          End If
        End If
      Next
    End If
  Next
  [e5].Resize(UBound(brr, 1) - 1) = brr
End Function

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2019-3-19 14:22 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
WYS67 发表于 2019-3-19 14:01
两位数的,让连续三期的十位和个位分别求众数,把分别得出的结果合并起来就行了。

本来看的条件就很多,而且你对2位数的说明不够清晰和完整。

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-3-19 14:58 | 显示全部楼层
一把小刀闯天下 发表于 2019-3-19 14:22
'运行test这个过程即可

'看懂你的问题比写代码费劲的多,自己试下看看是不是这样的,,,

老师写的代码计算结果很周期!今天没花了,明天奉上。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 13:53 , Processed in 0.051490 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表