修改原代码中的错误

YZC51

可以上传一个不能突破65536行附件测试下吗

13782671637

YZC51 发表于 2018-6-30 17:23
可以上传一个不能突破65536行附件测试下吗

DPBCF() DPBCF1()代码.zip (13.68 KB, 下载次数: 4)

2018-6-30 17:35 上传

点击文件名下载附件

老师：好像这个就是

13782671637

YZC51 发表于 2018-6-30 17:23
可以上传一个不能突破65536行附件测试下吗

或者这个 YILOUHH() lsdongjh 20180428 .zip (1.63 MB, 下载次数: 6)

2018-6-30 17:38 上传

点击文件名下载附件

？由于换成2016后，原来的代码大多做了修改，已记不清究竟是哪个了。

YZC51

33楼的文件
一般来讲这个函数受65536限制
Application.Transpose
不过可以用二维数组避开！

YZC51

32楼文件，没有看到代码！

13782671637

YZC51 发表于 2018-6-30 18:06
33楼的文件
一般来讲这个函数受65536限制
Application.Transpose

老师：用惯了2016，觉得无论是运算速度还是运算时所占用的内存，要比2010效率更高。2007我只用过几天，无法评判。

YZC51

请参考
Sub DEC2NJZ()
    Dim V, X, Y, K, L, M
    X = [B2] - [B1] + 1: Y = [B3]
    M = X ^ Y - 1
    ReDim arr(0 To M, 1 To 1)
     For j = 0 To M
    K = j: V = ""
    For i = 1 To Y
        L = K Mod X
        V = IIf(L > 9, Chr(L + 55), L) & V
        K = K \ X
    Next
    arr(j, 1) = "'" & Right(String(Y, "0") & V, Y)
    Next
    Cells(5, 2).Resize(j) = ""
    Cells(5, 2).Resize(j) = arr
End Sub

YZC51

請參考
Sub DEC2NJZ()
    Dim V, x, y, k, L, M
    tms = Timer
    x = [B2] - [B1] + 1: y = [B3]
    M = x ^ y - 1
    ReDim arr(0 To M, 1 To 1)
     For j = 0 To M
    k = j: V = ""
    For i = 1 To y
        L = k Mod x
        V = IIf(L > 9, Chr(L + 55), L) & V
        k = k \ x
    Next
    arr(j, 1) = "'" & Right(String(y, "0") & V, y)
    Next
    a = Cells(Rows.Count, 2).End(3).Row
    [B5].Resize(a) = ""
    Cells(5, 2).Resize(j) = arr
    MsgBox Format(Timer - tms, "0.000s")
End Sub

13782671637

YZC51 发表于 2018-7-2 00:22
請參考
Sub DEC2NJZ()
    Dim V, x, y, k, L, M

老师：真是对不起！不知道您昨天就上传了代码。我也太粗心了！该死！

13782671637

13782671637 发表于 2018-7-3 22:03
老师：真是对不起！不知道您昨天就上传了代码。我也太粗心了！该死！

再问老师：38楼的代码里：1.哪一句是清除上次显示的结果？ 2.如果我想取消显示结果后弹出的所用时间文本框，只需要删除    MsgBox Format(Timer - tms, "0.000s")    这一句就可以了吗？