按指定条件连接数据，指定位置显示结果

lss001 · 发表于 2018-9-29 09:38

本帖最后由 lss001 于 2018-9-29 09:39 编辑

见附件→_→→_→

多条件连接A列数据.zip (23.99 KB, 下载次数: 20)

WYS67 · 发表于 2018-9-29 09:40

lss001 发表于 2018-9-29 09:38
见附件→_→→_→

老师：附件在哪？

lss001 · 发表于 2018-9-29 09:59

WYS67 发表于 2018-9-29 09:40
老师：附件在哪？

上楼刚已上传！！！

WYS67 · 发表于 2018-9-29 10:00

lss001 发表于 2018-9-29 09:59
上楼刚已上传！！！

已下载，正在测试中！

WYS67 · 发表于 2018-10-1 07:46

lss001 发表于 2018-9-29 09:59
上楼刚已上传！！！

老师：我想把这个《冷码》的过程代码用于其他工作簿的《组三》工作表中，却不会制作里面那个能够隐藏和显示的文本框，也找不到代码所在。

麻烦老师告诉制作过程。

06 冷码.zip (378.85 KB, 下载次数: 5)

WYS67 · 发表于 2018-10-1 10:06

lss001 发表于 2018-10-1 10:00
国庆愉快！
**************************************************
先进入代码窗口，在左边中点击窗体， ...

谢谢老师！也祝老师国庆节快乐！

WYS67 · 发表于 2018-10-1 14:25

lss001 发表于 2018-10-1 10:00
国庆愉快！
**************************************************
先进入代码窗口，在左边中点击窗体， ...

老师：下面的附件是：按指定间隔行号进行多种计算的自定义函数。公式为 { =QYJS(数据区域，指定间隔行数，"excel内置函数名称")

原代码不能进行求众数的计算，我见里面的代码有如下规律：

Select Case strReturnType
        Case "SUM"
            arrResult(lngIndex, 1) = Application.Sum(arrTemp)
         Case "MAX"
            arrResult(lngIndex, 1) = Application.Max(arrTemp)
         Case "AVG"
            arrResult(lngIndex, 1) = Application.Average(arrTemp)
         Case "COUNT"
            arrResult(lngIndex, 1) = Application.Count(arrTemp)
      End Select
      lngIndex = lngIndex + 1
Next

便加上了求本周期数据区域众数的这一句：
         Case "MODE"
            arrResult(lngIndex, 1) = Application.mode(arrTemp)

然后，在D5:D5000里输入公式{ =QYJS($A$5:$A$5000,C3,"MODE")，谁知，计算结果却显示里#VALUE!错误  。

这种错误是什么原因造成的？怎样修改代码，才能显示正确结果？

按指定间隔行数进行各种计算.zip (93.17 KB, 下载次数: 3)

WYS67 · 发表于 2018-10-2 07:11

lss001 发表于 2018-10-1 14:46
代码没错，是公式引用单元格问题
把C3改为B3！！！

下面附件里表一是5楼的以指定间隔行数为周期进行多种统计的自定义函数；表二需要创建的是忽略空格，以指定数据个数为周期进行多种统计的自定义函数。
  感觉表一代码里的：
         Case "SUM"
            arrResult(lngIndex, 1) = Application.Sum(arrTemp)
         Case "MAX"
            arrResult(lngIndex, 1) = Application.Max(arrTemp)
         Case "AVG"
            arrResult(lngIndex, 1) = Application.Average(arrTemp)
         Case "COUNT"
            arrResult(lngIndex, 1) = Application.Count(arrTemp)
         Case "MODE"
            arrResult(lngIndex, 1) = Application.Mode(arrTemp)

是一个很不错的思路。是不是可以在表二的代码里模仿一下？

恳请老师：根据表二里的说明和要求创建自定义函数 GSTJ

按指定数据个数忽略空格进行各种统计.zip (536.47 KB, 下载次数: 10)

WYS67 · 发表于 2018-10-2 09:21

恳请老师帮忙

WYS67 · 发表于 2018-10-2 10:55

lss001 发表于 2018-10-2 09:28
可自行试着修改
有什么问题可私信！

谢谢老师！

		自动登录	找回密码
密码			免费注册

[求助] 按指定条件连接数据，指定位置显示结果

评分

评分