ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 7186|回复: 22

关于VBA Project的操作,论坛资料太少,大家能否多提供点!

[复制链接]

TA的精华主题

TA的得分主题

发表于 2005-8-29 14:11 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

搜了一下本论坛这方面的资料,太少,帮助中也没介绍,想问问大家有没有好的资料提供或链接

主要想知道一些入门的,谢谢,我找了几个其他论坛的,链接一下

1、用宏怎样知道其他文件有没有宏及模块和窗体

2、宏的使命完成后,能否被自动清除

3、如何用代码增加模块并加入代码

4、复制工作表时但不复制模块怎么做

5、如何編程匯出/匯出Excel vba Project中的模組

6、有选择的删除代码

7、怎样自动调出帮助 其实就是选中你要找的单词,按f1即可,我这里可以调出帮助,直接搜索可找不到哦!

8、导出窗体,再导入,增加模块代码

9、 动态新增与解除引用项目 15楼

10、批量杀宏

[此贴子已经被作者于2005-9-19 9:13:21编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-8-29 14:13 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

请大家提供一些基础资料,或链接一些基础资料,谢谢!

TA的精华主题

TA的得分主题

发表于 2005-8-29 14:14 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2005-8-29 14:38 | 显示全部楼层
强烈支持 + 谢谢分享快乐!

TA的精华主题

TA的得分主题

发表于 2005-8-29 15:45 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-8-29 15:55 | 显示全部楼层
以下是引用五十步在2005-8-29 15:45:12的发言:

列出所有工作薄的 VBA 21楼

Programming To The Visual Basic Editor - Pearson English

很不错!不过我试了几个代码,常常出现Dim VBCodeMod As CodeModule之类的,类型出错,能否告知是差了什么吗?

找到了,原来英文里写了,需要引用“Microsoft Visual Basic For Applications Extensibility 5.3”,然后就可以拉(汗,英文不好真是郁闷啊)

[此贴子已经被作者于2005-8-29 15:59:28编辑过]

TA的精华主题

TA的得分主题

发表于 2005-8-29 15:57 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2005-8-29 16:00 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
必须是引用了 Microsoft Visual Basic For Application Extensibility 5.3 才能这样声明,否则出错

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-8-29 16:01 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2005-8-29 16:09 | 显示全部楼层

呵呵,偶运行了http://www.cpearson.com/excel/vbe.htm 的一段代码:已经引用Microsoft Visual Basic For Application Extensibility 5.3。

Sub AddProcedure()

Dim VBCodeMod As CodeModule Dim LineNum As Long

Set VBCodeMod = ThisWorkbook.VBProject.VBComponents("NewModule").CodeModule '提示运行错误9,下标越界。云彩... With VBCodeMod LineNum = .CountOfLines + 1 .InsertLines LineNum, _ "Sub MyNewProcedure()" & Chr(13) & _ " Msgbox ""Here is the new procedure"" " & Chr(13) & _ "End Sub" End With

Application.Run "MyNewProcedure"

End Sub

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-23 04:47 , Processed in 0.040491 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表