VBA代码宝- 代码库商店

jiayuan001x · 发表于 2020-4-30 14:20

支持支持支持支持支持支持

smart921 · 发表于 2020-6-5 17:23

asdadsaddafafafafxasdasdsa

zzbb2007 · 发表于 2020-8-11 13:51

64位excel的DTpicker日历工具

wzwyfd · 发表于 2020-8-19 10:06

老师，代码宝免费使用是永久的吗？我刚免费激活，显示剩89天，89天以后呢？

funyi1983 · 发表于 2020-8-27 10:10

有没有直接能翻译整个Excel文档的英文？
文档中的英文都是长句，主要需求为翻译之后，可以保留原本的中文

cjc209 · 发表于 2020-9-4 07:40

liuyuanqing 发表于 2018-11-9 15:49
Sub theBatchPrint() Dim arr As Variant, theFinalRow&, theStr$, i&, j&, brr() As Variant theF ...

不做说明的一点用都没有

wangyue0323 · 发表于 2020-9-10 23:46

交流与分享，值得学习！

songxiadianqi · 发表于 2020-9-21 17:33

继续学习更多知识

wxxydl · 发表于 2020-10-31 10:20

怎么备份自己的代码库？每次重装自己的代码库都没有了

zhuwei520 · 发表于 2020-11-18 21:03

合并同一文件夹下多个工作簿汇总到一个工作表中
Sub gj23w98()
Dim brr(1 To 99999, 1 To 14)
Application.ScreenUpdating = False
p = ThisWorkbook.Path & "\"
f = Dir(p & "*.xls*")
Do While f <> ""
      If f <> ThisWorkbook.Name Then
         Set wb = Workbooks.Open(p & f)
         Arr = wb.Sheets(1).[b4].CurrentRegion
         For i = 2 To UBound(Arr)
            m = m + 1
            brr(m, 1) = Split(wb.Name, ".xlsx")(0)
            brr(m, 2) = wb.Sheets(1).Name
            For j = 1 To UBound(Arr, 2)
                  brr(m, j + 2) = Arr(i, j)
            Next
         Next
         wb.Close False
      End If
      f = Dir
Loop
If m Then
      [a3].CurrentRegion.Offset(1).ClearContents
      [a4].Resize(m, 14) = brr
End If
Application.ScreenUpdating = True
MsgBox "OK!"
End Sub

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