创建“冷码”的自定义函数

13782671637 · 发表于 2018-6-13 23:04

本帖最后由 13782671637 于 2018-6-13 23:51 编辑

各位老师和大神，请看附件

创建冷码的自定义函数.zip (623.31 KB, 下载次数: 9) ，按里面第一个工作表《创建自定义函数》中H5:H24的要求编写运行速度快捷的自定义函数【第二个工作表只起参考作用】。

第二个工作表《两位数冷码代码》中D列显示的就是用H6:H21代码运算的答案，其计算结果和格式都符合要求；但由于是普通公式，一旦B列数据过多，就卡得要死。如果是十万行左右的数据源，根本就卡死了！

13782671637 · 发表于 2018-6-14 00:35

恳请老师们帮忙解决问题！

YZC51 · 发表于 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

YZC51 · 发表于 2018-6-14 05:44

附件已经上传，请回复速度如何？

创建冷码的自定义函数.zip (476.58 KB, 下载次数: 10)

YZC51 · 发表于 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

YZC51 · 发表于 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

YZC51 · 发表于 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

13782671637 · 发表于 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) 所示：1.公式自C5开始，则C5:C100000都必须屏蔽正确答案外的其它为空白，可您写的代码C5的计算结果是“冷码”；2.C列是正确的计算和显示结果。如果对照以下，就会发现B列的计算结果基本上都不对。

13782671637 · 发表于 2018-6-14 13:03

YZC51 发表于 2018-6-14 08:16
再优化
Function LENGMA3(rng As Range, z)
On Error Resume Next

另外，举个例子：如左边截图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”

13782671637 · 发表于 2018-6-14 13:07

要求自定义函数公式：=LENGMA（指定数据区域） 必须以区域数组公式输入！

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

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

评分

评分

评分