学校是多余的个人资料 - RAT

学校是多余学校是多余

关注数: 449 粉丝数: 386 发帖数: 23,269 关注贴吧数: 94

vba Sub demo() Dim fs, ar(1 To 100, 1 To 2), n Application.ScreenUpdating = False Set fso = CreateObject("scripting.filesystemobject") Set fs = fso.GetFolder(ThisWorkbook.Path) For Each fd In fs.subfolders n = n + 1 ar(n, 1) = fd.Name ar(n, 2) = Int(fd.Size / 102.4) / 10 Next For Each fd In fs.Files If Not (fd.Name Like "*" & ThisWorkbook.Name) Then n = n + 1 ar(n, 1) = Split(fd.Name, ".")(0) ar(n, 2) = Int(fd.Size / 102.4) / 10 End If Next Range("a2").Resize(65535, 2).ClearContents Range("a2").Resize(n, 2) = ar Application.ScreenUpdating = True End Sub

我就问一下群在哪里我缺点钱

魔法阵无线充电器有人会做吗需要涉及到那些技能

整个贴吧都是我小号

又瞎**更新什么声音又变了听你妈脚步

吃惊

我们群主在发月饼了你们呢

球大佬鉴定~~~~

原来领奖励已经很给你面子了那个设计出来的过场动画

差点笑出声

*** 掉线有没有人管了

怎么进打过的逢魔？

打了一礼拜跳跳犬了有人和我一样吗

妖气封印为什么一定要有个刷新按钮我不刷新你让我进？

关键词结界防守花反枕司马缺一不可某些人不要自己强行送妈

有人知道这啥情况咩

所以什么时候开始阴门的犬神反击能打死贾玲了

有好东西就要分享

1 下一页