在线跪求来个VBA大师傅

admintby · 发表于 2024-1-28 12:13

表格数组太多导致表格卡顿，求个大师傅用VBA来替换数组的功能，万分感谢。

求助VBA师傅.zip (66.82 KB, 下载次数: 56)

sxbjzjf110 · 发表于 2024-1-28 19:42

参与一下。。。。。

蓝桥玄霜 · 发表于 2024-1-28 16:06

数组的例子：

yynrzwh · 发表于 2024-1-28 17:37

求助VBA师傅.7z (67.86 KB, 下载次数: 36)

admintby · 发表于 2024-1-30 10:27

sxbjzjf110 发表于 2024-1-28 19:42
参与一下。。。。。

求助VBA师傅.zip (157.82 KB, 下载次数: 14) 老师的更详细，但是也有几个问题，请老师看附件，麻烦您更新一下，万分感谢

admintby · 发表于 2024-1-30 21:33

本帖最后由 admintby 于 2024-2-1 09:19 编辑

yynrzwh 发表于 2024-1-28 17:37

老师技术腻害，很感谢您回答，但是还是有两个出错的地方请老师帮忙看一下，谢谢您

求助VBA师傅.zip (205.09 KB, 下载次数: 2)

yynrzwh · 发表于 2024-1-30 22:12

admintby 发表于 2024-1-30 21:33
老师技术腻害，才发现4楼是修改您的，很感谢您回答，但是还是有两个出错的地方请老师帮忙看一下，谢谢您

With Sheets("B班")
lr2 = .Cells(Rows.Count, 1).End(3).Row
For i = 3 To lr2
      If .Cells(i, 1) = "姓名" Then
         s = .Cells(i, 3).Value
         .Cells(i + 3, 6).Resize(31, 19) = ""
          If d.exists(s) Then
            For x = i + 3 To i + 33
                  ss = .Cells(x, 1).Value
                  j = 6
                  If d(s).exists(ss) Then
                     For Each k In d(s)(ss).keys
                        .Cells(x, j).Resize(1, 3) = d(s)(ss)(k)
                        .Cells(x, j + 3) = .Cells(x, j + 1) * .Cells(x, j + 2)
                        j = j + 5
                     Next
                  End If
                  i = i + 1
            Next x
          End If
         i = i + 9
      End If
Next i
End With
加2句

admintby · 发表于 2024-1-31 13:52

yynrzwh 发表于 2024-1-30 22:12
With Sheets("B班")
lr2 = .Cells(Rows.Count, 1).End(3).Row
For i = 3 To lr2

求助VBA师傅.zip (205.45 KB, 下载次数: 7)

加了也不行，麻烦您看一下附件，谢谢您

yynrzwh · 发表于 2024-1-31 15:39

本帖最后由 yynrzwh 于 2024-1-31 15:50 编辑

admintby 发表于 2024-1-31 13:52
加了也不行，麻烦您看一下附件，谢谢您

我这边运行正常

这是取两表有数据最后一行

所以增加页面是没关系的，不用改代码。
不过列有变化就要改代码。

admintby · 发表于 2024-2-1 09:21

sxbjzjf110 发表于 2024-1-28 19:42
参与一下。。。。。

老师您的代码点击按钮为什么会点一次就累计一次总数呢，一直点一直累计，请问应该修改一下哪里，烦请老师解答一下，谢谢您

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

[求助] 在线跪求来个VBA大师傅

评分