ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
易厚学堂-专业的职场技能充电站 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 打造核心竞争力的职场宝典 13门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 209|回复: 10

[求助] 创建“冷码”的自定义函数

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-6-13 23:04 | 显示全部楼层 |阅读模式
本帖最后由 13782671637 于 2018-6-13 23:51 编辑

各位老师和大神,请看附件 创建冷码的自定义函数.zip (623.31 KB, 下载次数: 9)

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-6-14 00:35 | 显示全部楼层
恳请老师们帮忙解决问题!

TA的精华主题

TA的得分主题

发表于 2018-6-14 05:40 | 显示全部楼层
本帖最后由 YZC51 于 2018-6-14 07:31 编辑

请参考
Function LENGMA1(rng As Range, z)
    On Error Resume Next
    ar = rng
    s11 = Left(ar(1, 1), 1)
    s12 = Right(ar(1, 1), 1)
    s21 = Left(ar(2, 1), 1)
    s22 = Right(ar(2, 1), 1)
    SW = 3 - s11 - s21
    If s11 = s21 Then SW = Left(ar(2, z), 1)
    GW = 3 - s12 - s22
    If s12 = s22 Then GW = Right(ar(2, z), 1)
    LENGMA1 = SW & GW
End Function

评分

参与人数 1鲜花 +1 收起 理由
13782671637 + 1 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-6-14 05:44 | 显示全部楼层
附件已经上传,请回复速度如何?
创建冷码的自定义函数.zip (476.58 KB, 下载次数: 9)

TA的精华主题

TA的得分主题

发表于 2018-6-14 06:13 | 显示全部楼层
本帖最后由 YZC51 于 2018-6-14 06:18 编辑

感觉这个更合理。请参考
Function LENGMA2(rng As Range, z)
    On Error Resume Next
    ar = rng
    s11 = Left(ar(1, 1), 1)
    s12 = Right(ar(1, 1), 1)
    s21 = Left(ar(2, 1), 1)
    s22 = Right(ar(2, 1), 1)
    SW = 3 - s11 - s21
    GW = 3 - s12 - s22
    If (s11 = s21) And Val(s11) <> 1 Then SW = Left(ar(2, z), 1)
    If (s12 = s22) And Val(s12) <> 1 Then GW = Right(ar(2, z), 1)
    LENGMA2 = SW & GW
End Function

TA的精华主题

TA的得分主题

发表于 2018-6-14 07:58 | 显示全部楼层
优化下
Function LENGMA3(rng As Range, z)
    On Error Resume Next
    ar = rng
    s11 = Left(ar(1, 1), 1)
    s12 = Right(ar(1, 1), 1)
    s21 = Left(ar(2, 1), 1)
    s22 = Right(ar(2, 1), 1)
    SW = 3 - s11 - s21
    GW = 3 - s12 - s22
    If (s11 = s21) And Val(s11) <> 1 Then SW = Left(rng.Cells(2, z), 1)
    If (s12 = s22) And Val(s12) <> 1 Then GW = Right(rng.Cells(2, z), 1)
    LENGMA3 = SW & GW
End Function

评分

参与人数 1鲜花 +1 收起 理由
13782671637 + 1 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-6-14 08:16 | 显示全部楼层
再优化
Function LENGMA3(rng As Range, z)
    On Error Resume Next
    s11 = Left(rng(1, 1), 1)
    s12 = Right(rng(1, 1), 1)
    s21 = Left(rng(2, 1), 1)
    s22 = Right(rng(2, 1), 1)
    SW = 3 - s11 - s21
    GW = 3 - s12 - s22
    If (s11 = s21) And Val(s11) <> 1 Then SW = Left(rng.Cells(2, z), 1)
    If (s12 = s22) And Val(s12) <> 1 Then GW = Right(rng.Cells(2, z), 1)
    LENGMA3 = SW & GW
End Function

评分

参与人数 1鲜花 +2 收起 理由
Kaohsing + 2 值得肯定

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-6-14 12:48 | 显示全部楼层
YZC51 发表于 2018-6-14 08:16
再优化
Function LENGMA3(rng As Range, z)
    On Error Resume Next

老师:您写的自定义函数=LENGMA3(A3:B4,2)代码,有以下问题:1.如 冷码 反馈.zip (246.93 KB, 下载次数: 2)

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-6-14 13:03 | 显示全部楼层
YZC51 发表于 2018-6-14 08:16
再优化
Function LENGMA3(rng As Range, z)
    On Error Resume Next

20180614125339.png 另外,举个例子:如左边截图A5:A22所示,A5=10,A6=11,A7=10,由于A5:A7的十位数都是“1”,不够两个不同数字,所以C5:C7显示空白;到A8单元格为止,A5:A8的十位上是0、1两个不同数,个位上也是0、1两个不同数,“0、1、2”三个数中,十位与个位都缺“2”,所以冷码C8=“22”

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-6-14 13:07 | 显示全部楼层
要求自定义函数公式:=LENGMA(指定数据区域) 必须以区域数组公式输入!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

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

GMT+8, 2018-10-23 12:56 , Processed in 0.084099 second(s), 19 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

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

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

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