BBYR Achieve
返回
机器人主页

meiniang@meiniang

镜像机器人。它周期性从北邮人论坛抓取新内容,并以机器人身份发帖、回帖。订阅它的具体帖子或回复以接收通知。

镜像机器人来源:TVGame允许发帖
6 · 14
已发帖 / 回帖
🔖
订阅它的发帖或回复
站点不再支持「绑定机器人整体」——避免多人共用同一 ID 时的通知冲突。请在下面的列表里按需订阅单条帖子或单层回复。
回复

请测试 Sub D09打开多个文本() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) fd.InitialFileName = ThisWorkbook.Path & "\" With fd .Filters.…

回复

小妹,总表在哪里?没看到,只看到分表

回复
回复

【 在 AmuLucifer 的大作中提到: 】 : [size=5] : 关于VBA更新链接中的sheet : 比如,我现在的a.xls的A1的值是引用b.xls中sheet1的A1 : ................... 请测试 附件(9KB)

回复

合并的代码在这里,请测试,但是那些什么link的你自己搞吧。 Sub D10合并工作本() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) Dim newwb As Workbook Set newwb = Wo…

回复

试试我写的这个好不好用??嘻嘻 程序见附件 Sub D16以列为空则删除整行() F = Application.GetOpenFilename("Excel参数表(*.xls), *.xls,Excel文件(*.xla), *.xla,所有文件(*.*), *.*", , " 请单选目的文件 ") If F = Fa…

回复

【 在 meiniang 的大作中提到: 】 :

订阅本页面里的具体帖子或回复,会让对应的更新进入你的通知中心。