[已解决]原表格添加了一列，然后代码不知道改，帮忙修改下 VBA 代码

zames

压缩包力有原表格和修改后的表格，修改后的表格添加了一列，然后代码不知道改，帮忙修改下修改后表格力的 VBA 代码。

谢谢！

最佳答案

月排行榜 / 总排行榜

cutecpu

2023-4-15 16:13

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

祝順心，南無阿彌陀佛！

vitrel

每当运行程序，或想打开窗体查看代码时，
系统提示“未指定错误”、“内存溢出”，两份文件均是如此，
大家有这个情况吗？

zjdh

vitrel 发表于 2023-4-16 13:42
每当运行程序，或想打开窗体查看代码时，
系统提示“未指定错误”、“内存溢出”，两份文件均是如此，
大 ...

用户窗体有问题，删掉即可运行。

zjdh

Sub demo()
   Randomize
   [A2:F99999].ClearContents
   On Error Resume Next
   ReDim arr(1 To 4096, 1 To 2)
   For i = 1 To 4096
      v = Right("00" & Hex(i - 1), 3)
      If IsNumeric(Mid(v, 1, 1)) + IsNumeric(Mid(v, 1, 1)) + IsNumeric(Mid(v, 1, 1)) Then
         n = n + 1
         arr(i, 1) = v
         arr(i, 2) = Rnd
      End If
   Next
   [M1].Resize(n, 2) = arr
   [M1].Resize(n, 2).Sort [L1]
   b = Range("M1:M" & n): [M1:N4096].ClearContents
   a = [H1].CurrentRegion
   cnt = a(UBound(a), 4)
   ReDim c(1 To 4096, 1 To 6)
   For i = 2 To UBound(a)
      If a(i, 1) = 0 Then GoTo 1
      For j = 1 To a(i, 5)
         r = r + 1
         c(r, 1) = a(i, 2)
         c(r, 2) = a(i, 3)
         c(r, 3) = a(i, 4) & b(r, 1)
         c(r, 4) = Mid(b(r, 1), 1, 1) & ".bmp"
         c(r, 5) = Mid(b(r, 1), 2, 1) & ".bmp"
         c(r, 6) = Mid(b(r, 1), 3, 1) & ".bmp"
      Next
1   Next
   [a2].Resize(r, 6) = c
End Sub

zjdh

修改后文档.rar (20.69 KB, 下载次数: 0)

2023-4-16 21:06 上传

点击文件名下载附件

zjdh

重复了

zames

zjdh 发表于 2023-4-16 21:07
重复了

您好！

修改后，原文档最后三位的 16位数 随机变动功能没有了。帮忙再看看！

zames

cutecpu 发表于 2023-4-15 16:13
祝順心，南無阿彌陀佛！

老师，我新发布了一个求助帖，关于英文转 16 进制数值的，熟悉的话帮忙看看，谢谢！