1.1 常见对象及含义 对象名 含义 application 整个Excel应用程序 window 窗口 worksheet  一个工作表 sheets 指定工作簿的所有工作表的合集 shaperange 形状区域 pivottable 数据透视表 workbook 工作簿 shape 绘图层中的对象 range 某一单元格.行.列.选定区域 name 单元格区域的定义名 chart 图表 filedialog 文件对话框 commandbarpopup 命令栏上一个弹出式控件 commandb…

3.1 编写sub过程 实例: Sub 建立10个表() If sheets.count>=10 then exit sub Sheets.add , sheets(sheets.count) , 1 Call 建立10个表     ‘过程递归 End sub Sub 选取统计() Dim msg as string Msg = “单元格个数:” & selection.count & chr(10) Msg = msg & “数字个数:” & worksheetfu…

2.1 数据类型 数据类型 所占字节 Byte 1 Boolean 2 Integer 2 Long 4 Single 4 Double 8 Currency 8 Decimal 14 Date 8 Object 4 String 10 Variant 16 实例 Sub test() Dim sums as long, cell as range, I as integer, mystr as string For each cell in range(“A1:A10”) If vba.isn…

一.Excel VBA 表格的操作1. Excel表格的指定以及表格属性的设置 Sub main() '把表格B2的值改为"VBA Range和Cells函数" Range("B2").Value = "VBA Range和Cells函数" '把D4:E6范围内的每一个表格的值都改为"Excel VBA" Range("D4:E5").Value = "Excel VBA" End Su…

HTML5程序开发范例宝典紧密围绕编程者在编程中遇到的实际问题和开发中应该掌握的技术,全面介绍了利用HTML进行程序开发的各方面技术和技巧.全书共16章,内容包括HTML网页布局.HTML基本元素.HTML高级元素.表单的使用.列表的使用.超链接.表格应用.图形图像处理.文字及图片特效.多媒体应用.文件与拖放.Web API与通信API.Web Workers处理线程.离线应用和地理位置定位.RGraph插件制作统计图.HTML游戏开发.全书共提供了383个实例,每个实例都突出实用性,其中大部分…

[转自] http://blog.csdn.net/iamlaosong/article/details/18043433 作者:iamlaosong ▲连接Oracle数据库 Set cnn = CreateObject("ADODB.Connection")     cnn.Open "Provider=msdaora;Data Source=dl580;User Id=emssxjk;Password=emssxjk;" dl580是tnsnames.ora中…

在整理资料时发现一些非常有用的资料源码尤其是初学者,大部分是平时用到的知识点,可以参考其实现方法,分享给大家学习,但请不要用于商业用途. 如果对你有用请多多推荐给其他人分享. 点击对应章节标题下载本章节下所有源代码. 目录: 第2章 HTML开发与实践 15 2.1 框架的使用 16 实例009 使用FrameSet框架布局聊天室 16 实例010 使用IFrame框架布局企业管理系统 17 2.2 滚屏的实现 18 实例011 滚动显示博客公告 18 实例012 滚屏效果并实现超级链接 20…

来吧!带你玩转 Excel VBA 从错失良机到艰辛的DOS征程,从坎坷购机自学路到转机起程,从爱好到事业,他从一个完全不懂电脑的人到VBA高级应用者,一切全是自学…… 我是罗刚君,来自四川的一个小县城——资中县. 我是个地道的三无人员——无高等学历(初中毕业).无突出特长.无显赫背景,所以1996年1月,当时才19岁的我就踏上了打工之路. 错失机遇 在打工生涯的前几年,一直在东莞市裕元鞋厂流水线上工作,无缘接触电脑,甚至曾有一段时间在心理上抵触电脑. 记得大概是1998 埗 年时,东莞市高 镇…

Private Sub RegExp_Replace() Dim RegExp As Object Dim SearchRange As Range, Cell As Range '此处定义正则表达式 Set RegExp = CreateObject("vbscript.regexp") RegExp.Pattern = "[0-9]{5}" '此处指定查找范围 Set SearchRange = ActiveSheet.Range("A1:A99&qu…

Excel VBA表格自行开发计划 要求功能 1. 批量删除 2. [X] 批量填充 3. [X] 批量重命名 4. [ ] 按颜色求和 5. [ ] 按底纹色选中单元格 6. [ ] 统计底纹颜色个数 7. [ ] 统计字体颜色个数 8. [ ] 按颜色求和 9. [ ] 升序.降序排序工作表 10. [X] 批量删除非活动工作表 11. [X] 批量删除空工作表 12. [X] 批量复制工作表并重命名排序 13. [ ] 删除空白行空白列 14. [ ] 删除工作表所有对象(子项:删除图片,…