为C列自定义函数的代码运算提速

YZC51

13782671637 发表于 2018-6-25 00:07
老师：Cells(Z, y).Resize(29996) = ""   您确定这样修改？这样，最大行号会不会固定不变，而不是可以自 ...

请参考楼下附件

YZC51

请参考附件
为代码计算提速-窗体固定位置-3.641.rar (199 KB, 下载次数: 4)

2018-6-25 08:19 上传

点击文件名下载附件

YZC51

142楼附件已经更新

13782671637

YZC51 发表于 2018-6-25 08:19
142楼附件已经更新

老师：我需要将代码复制粘贴到其它许多工作簿里使用。请问:     1.sub过程能够像自定义函数一样，加载宏后应用于所有需要此代码的工作簿吗？
     2.http://club.excelhome.net/forum. ... 1419664&pid=9562221 里最后确定的代码是下面这个吗


Sub yzc51()
    Dim brr(), sr()
   ' UserForm1.Show 0
    If UserForm1.Visible = True Then Unload UserForm1
    n = Sheet2.TextBox3
    x = Asc(Sheet2.TextBox1) - 64
    y = Asc(Sheet2.TextBox2) - 64
    Z = 5
'    m = Cells(Rows.Count, 1).End(3).Row - 4
    m = Cells(n, x).End(3).Row - 4
    If m < 5 Then m = n - 4
    If m > n - 4 Then m = n - 4
    yy = Asc(Sheet2.TextBox4) - 64
    mm = Sheet2.TextBox5


    Cells(Z, yy).Resize(mm) = ""
    Cells(Z, y).Resize(m) = ""
   
'    MsgBox "开始计算..."

    tms = Timer
    Columns(y).NumberFormatLocal = "@"
'    m = Cells(Rows.Count, x).End(3).Row - Z + 1
    ar = Cells(Z, x).Resize(m)
    ReDim sr(1 To m, 1 To 1)
    ReDim brr(0 To 2)
    For i = 1 To m
        t = ar(i, 1): t1 = Left(t, 1)
        brr(t1) = brr(t1) + 1: If brr(t1) = 1 Then k1 = k1 + 1
        If k1 = 2 Then k1 = i: Exit For
    Next
    s1 = 3 - Left(ar(1, 1), 1) - Left(ar(k1, 1), 1)
    ReDim brr(0 To 2)
    For i = 1 To m
        t = ar(i, 1):  t2 = Right(t, 1)
        brr(t2) = brr(t2) + 1: If brr(t2) = 1 Then k2 = k2 + 1
        If k2 = 2 Then k2 = i: Exit For
    Next
    s2 = 3 - Right(ar(1, 1), 1) - Right(ar(k2, 1), 1)
    s = s1 & s2
    If k1 > k2 Then k0 = k1 Else k0 = k2
    For i = k0 To m
        t = ar(i - 1, 1): t11 = Left(t, 1): t12 = Right(t, 1)
        t = ar(i, 1): t21 = Left(t, 1): t22 = Right(t, 1)
        
        On Error GoTo JS


        If t11 = t21 Then s1 = Left(s, 1) Else s1 = 3 - t11 - t21
        If t12 = t22 Then s2 = Right(s, 1) Else s2 = 3 - t12 - t22
        s = s1 & s2
        sr(i, 1) = s
    Next
JS:
    Cells(Z, y).Resize(m) = sr
    MsgBox Format(Timer - tms, "0.000s")
    Debug.Print m
End Sub

  3.怎样在其他工作簿里插入和制作 选择框？  希望一一告知。

zopey

你去饭店，坐下来。

“服务员，给我来份宫保鸡丁！”

“好嘞！”

——————这叫原始需求

大厨做到一半。

“服务员，菜里不要放肉。”

“不放肉怎么做啊？”

“不放肉就行了，其它按正常程序做，不就行了，难吗？”

“好的您稍等”

——————中途需求变更

厨房：

大厨：“你大爷，我肉都回锅了”

服务员：“顾客非要要求的嘛，你把肉挑出来不就行了吗”

大厨：“行你大爷”

然而还是一点点挑出来了

——————改动太大，部分重构

餐厅：

“服务员，菜里能给我加点腐竹吗？”

“行，这个应该简单。”

——————低估改动成本

厨房：

大厨：“你TMD，不知道腐竹得提前泡水？炒到一半才说？跟他说，想吃腐竹就多等半天”

服务员：“啊你怎么不早说？”

大厨：“早说你MLGB我怎么知道他要往宫保鸡丁里放腐竹”

然而还是去泡腐竹了

——————新需求引入了新研发成本

餐厅：

“服务员，还是把肉加回去吧”

“您不是刚说不要肉吗”

“现在又想要了”

“…好的您稍等”

——————某一功能点摇摆不定

厨房：

大厨：“日你啊，菜都炒过火了你让我放肉？还好肉我没扔”

服务员：“客户提的要求你日我干嘛？”

大厨：“你就不能拒绝他啊？啊？”

服务员：“人家是客户嘛。”

——————甲方是大爷

餐厅：

“服务员！服务员！”

“来了来了，你好？”

“怎么这么半天啊？”

“稍等我给您催催啊”

——————改动开始导致工期延误

厨房：

大厨：“催你M催，腐竹没泡好，我还得重新放油，他要想吃老的也行，没法保质保量”

——————开发者请求重新排期

餐厅：

服务员：“抱歉，加腐竹的话得多等半天，您别着急哈”

“我靠要等那么久？我现在就要吃，你们能快点吗？”

“行…您稍等”

——————甲方催活

厨房：

大厨：“我日他仙人板板，中途改需求又想按期交付，逗我玩呢？”

服务员：“那我问问，要不让他们换个菜？”

大厨：“再换我就死了”

——————开发者开始和中间人pk

餐厅：

“服务员，这样吧，腐竹不要了，换成蒜毫能快点吗？对了，顺便加点番茄酱”

——————因工期过长再次改动需求

厨房：

大厨：“我日了狗啊，你TM不知道蒜毫也得焯水啊？还有你让我怎么往热菜里放番茄酱啊？？”

服务员：“焯水也比等腐竹强吧，番茄酱往里一倒不就行了吗？很难吗？”

大厨：“草。腐竹我还得接着泡，万一这孙子一会又想要了呢。”

——————频繁改动开始导致大量冗余

餐厅：

“服务员，菜里加茄丁了没有？我去其它饭店吃可都是有茄丁的”

“好好好您稍等您稍等”

——————奇葩需求

厨房：

大厨：“我去他二大爷他吃的是斯里兰卡三流技校炒的宫保鸡丁吗？宫保鸡丁里放茄丁？？”

服务员：“茄丁抄好了扔里边不就行了吗？”

大厨：“那TM还能叫菜吗？哪个系的？”

服务员：“客户要，你就给炒了吧。”

大厨：“MB你顺道问问他腐竹还要不要，我这盆腐竹还占着地方呢不要我就扔了”

——————奇葩你也得做

餐厅：

“服务员，还要多久能好啊”

“很快，很快…”

“再给我来杯西瓜汁。”

“…好”

“我再等10分钟，还不好我就走了，反正还没给钱。”

“很快，很快…”

——————黑暗前的最后黎明

10分钟后

“咦，我上次吃的不是这个味啊？”

从厨房杀出来的大厨：“我TM就日了你的狗…”

——————最终决战