学校是多余
学校是多余
关注数: 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
下一页