[VBA]VBA 应用例子

————————————————————————
宏的使命完成后,能否被自动清除
http://office.9zp.com/dispbbs.asp?boardID=3&ID=482&page=1
作用:宏的使命完成后,能够被自动清除
————————————————————————
VBA工具-commandbar ID列表
http://office.9zp.com/dispbbs.asp?boardid=3&replyid=116&id=116&page=1&skin=0&Star=1
作用:可获取 commandbar ID 列表
————————————————————————
类别是什么?
http://office.9zp.com/dispbbs.asp?BoardID=3&ID=4930&replyID=15612&skin=1
作用:类别是对象的定义。其中包含对象动作行为的相关信息,包括对象的名称、方法、属性和事件……
     让你了解类别的概念。
———————————-
CoolButton_类模块学习范例
http://office.9zp.com/dispbbs.asp?boardID=3&ID=4954&page=1
作用:研究了一下界面美化的帖子,其中不少都涉及到了个性化按钮的这个共同问题,于是写了一个通用一点的CCoolButton类,是对Label+Image模拟不同类型的个性化按钮的一个总结,对于ldhyob斑竹的超酷圆形按钮和其他类似的个性化按钮都可以适用
———————————-
关于用类模块实现控件数组
http://office.9zp.com/dispbbs.asp?boardid=3&id=5483&star=1#5483
作用:用类模块实现控件数组
————————————————————————
窗体、控件相关
———————————-
用IMAGE控件做精美圆形钮
http://office.9zp.com/dispbbs.asp?BoardID=3&replyID=683&id=181&skin=0
作用:用IMAGE控件做精美圆形钮
———————————-
用户认证窗口
http://office.9zp.com/dispbbs.asp?boardID=3&ID=4049&page=6
作用:可达到:
1.启动后只显示登录窗口,隐藏程序界面;
2.按"认证登陆窗口"右上角的"X"按钮和右键弹出菜单无效,以防止绕过"认证"关卡;
3.管理员可直接在Sheets("0")中设置各用户的权限.
————————————
有关textbox\listbox框的问题
http://office.9zp.com/dispbbs.asp?BoardID=3&replyID=473&id=119&skin=0
作用:扩展选定内容的基本单元
————————————
从列表框传数据到表格中
http://office.9zp.com/dispbbs.asp?boardID=3&ID=5266&page=1
作用:双击B列任意行,调出列表框,点击列表框中任一行数据,该行数据即被传送到B:E列末行。
A列的序号亦自动按序添加。
列表框中的数据随着数据源数据的扩大而增加。
————————————
[不随表格滚动的命令按钮]
http://office.9zp.com/dispbbs.asp?Boardid=3&ID=3842&replyID=11571&skin=1
作用:打开本工作簿,会自动建立一个[我的按钮]CommandBar悬浮在表中,不随表格的滚动而动。关闭程序后,[我的按钮]CommandBar自动消失。
鼠标在[我的按钮]之“桃、心、梅、方”按钮上稍做停留,会有按钮提示,点击任一按钮,会有相应动作。
————————————————————————
菜单相关
———————————-
如何建立个性菜单?
http://office.9zp.com/dispbbs.asp?boardID=3&ID=5137&page=1
作用:可屏蔽原来的菜单,可以增减“自定义菜单”中的控制项,或把你的程序放到“MSG1、MSG2”中替换掉原来的命令;
当切换到另一工作簿时,屏蔽自定义菜单,恢复原菜单;切换回本工作簿时,又屏蔽了原菜单,恢复自定义菜单;
当关闭本工作簿时,自动清除自定义菜单,并恢复原来的菜单.
——————————-
关于给自定义菜单加密码的问题
http://office.9zp.com/dispbbs.asp?BoardID=3&replyID=5181&id=5181&skin=0
作用:打开时自动将所有工具栏关闭,并用自建的菜单代替原有菜单。自定义菜单中有一个按钮可以将界面恢复到EXCEL的原样。如果此菜单不希望其他人使用,可为这个菜单设置密码,而且密码可以更改。
————————————————————————
关于Application对象之方法、属性、事件的整理结果
http://office.9zp.com/dispbbs.asp?boardID=3&ID=5065&page=1
作用:关于Application对象之方法、属性、事件的概念
———————————-
EXCEL VBA 事件示例说明
http://office.9zp.com/dispbbs.asp?boardID=3&ID=5029&page=2
作用:EXCEL VBA 事件示例说明
———————————-
CommandBars集合
http://office.9zp.com/dispbbs.asp?boardID=3&ID=5592&page=1
作用:关于CommandBars的使用方法
————————————————————————
用代码实现在桌面创建快捷方式
http://office.9zp.com/dispbbs.asp?boardID=3&ID=4898&page=3
作用:当点击按钮生成了新的工作簿后我还希望能在桌面上自动创建一个与新工作簿同名的快捷方式以方便启动(工作簿的文件名是动态的)。
————————————————————————
各区域数据自动轮换
http://office.9zp.com/dispbbs.asp?boardID=3&ID=3890&page=6
作用:任意选中同样大小的<=五个区域,点击按钮后,选中区域的数据自动顺时针轮换。
————————————————————————
怎么从100个excel工作薄提取我要的第三行的数据汇总成一张工作表?
http://office.9zp.com/dispbbs.asp?boardID=2&ID=3597
作用:可从多个excel工作薄所要的数据汇总成一张工作表
————————————————————————
汇总问题
http://office.9zp.com/dispbbs.asp?BoardID=3&replyID=12621&id=4020&skin=0
作用:添加了所有村的工作表之后,能够自动将每个村的“总表”里的汇总数据添加在翠屏区总表相应的位置(所有表都是一样的)
如再要添加工作簿,都放在《汇总》文件夹中,导入数据时只要打开“翠屏区总表”,点击[导入数据]按钮,即自动导入数据到“翠屏区总表”的相应区域。
————————————————————————
如何统计带填充颜色的单元格数量?
http://office.9zp.com/dispbbs.asp?boardID=2&ID=5240&page=1
作用:统计当前工作表中红色字体的单元格数量
————————————————————————
单元格颜色随着选择点的变化而变化
http://office.9zp.com/dispbbs.asp?BoardID=3&replyID=11923&id=3922&skin=0
作用:单元格选择B列的某行,相应A列的某行随着变色,随着B列选择点的移动,相应A列的的颜色就不断的变化与恢复原色。
————————————————————————
如何把数组公式制作成自定义函数
http://office.9zp.com/dispbbs.asp?boardID=3&ID=5367&page=1
作用:常会用到一些很复杂的数组公式,有没有可能把这个数组公式写在模组里,用自定义函数的方式,把参照取代一下就可用的方法呢?看了此帖就知道。
————————————————————————
图片相关
———————————-
对图片设置公式有什么作用呢?
http://office.9zp.com/dispbbs.asp?BoardID=3&replyID=217&id=44&skin=0
作用:自选图形中的流程,标注图等,赋公式为某一单元格,它里面的文字就会随单元格变化,可增加表的艺术性,可操作性
———————————-
如何把图片插入到一个单元格里面?
http://office.9zp.com/dispbbs.asp?BoardID=2&ID=3967&replyID=12175&skin=1
作用:可以把图片插入到一个单元格里面,如图片较大则自动调整单元格大小……
自动更换图片的问题:
http://office.9zp.com/dispbbs.asp?boardid=3&replyid=13404&id=13404&page=1&skin=0&Star=1
作用:可以使图片适应单元格或单元格合并区域的大小……
———————————-
关于给图片加事件的问题
http://office.9zp.com/dispbbs.asp?boardID=3&ID=5518&page=3
作用:可以在所有的图片里做一个循环,给每个图片加一个宏
———————————-
二个把Range保存为图片文件的示例
http://office.9zp.com/dispbbs.asp?boardID=3&ID=5361
作用:把Range保存为图片文件
————————————————————————
一个用 AddPicture 方法加载图片的小例子
http://office.9zp.com/dispbbs.asp?boardID=3&ID=14719&page=1
作用:点击附件中[加图片]按钮,连加 N 张图片(大小、数量和位置可以自己定),每张图片可单独被拖动。
点击附件中[删图片]按钮,删除本页上的所有图片。
————————————————————————
如何使照片随名字显示
http://office.9zp.com/dispbbs.asp?boardID=3&ID=16634&page=1
作用:输入编号后显示姓名和相应的照片
————————————————————————
如何获得IE收藏夹中的信息?
http://office.9zp.com/dispbbs.asp?boardid=3&replyid=5636&id=5636&page=1&skin=0&Star=1
作用:可以显示出收藏夹(包括子目录中)的信息
————————————————————————
Excel能否查询本机MAC或IP地址
http://office.9zp.com/dispbbs.asp?BoardID=15&replyID=2583&id=2583&skin=0
作用:查询本机MAC或IP地址
————————————-
在VBA中怎获取计算机的 IP 地址?
http://office.9zp.com/dispbbs.asp?boardid=3&id=5886&star=1#5886
作用:有几种获取 IP 地址的方法……
————————————————————————
監控刪除行與列
http://office.9zp.com/dispbbs.asp?BoardID=3&ID=4054&replyID=12853&skin=1
作用:可監控刪除行與列
————————————————————————
怎样用一个进度条指示若干子程序的执行过程
http://office.9zp.com/dispbbs.asp?BoardID=3&replyID=1701&id=364&skin=0
作用:用进度条指示若干子程序的执行过程
————————————————————————
将1-200之间的数随机排序在一列中
http://office.9zp.com/dispbbs.asp?boardid=3&id=6358&star=1#21969
作用:可以将数据随机、无重复地排序在一列中
————————————————————————
经过筛选后按代码号复制到各表
http://office.9zp.com/dispbbs.asp?boardid=3&replyid=6162&id=6162&page=2&skin=0&Star=1
作用:复制筛选后的可见单元格到相应表
————————————————————————
透過按鍵擷取 工作表的數據資料
http://office.9zp.com/dispbbs.asp?boardID=3&ID=6573&page=1
作用:通過按鍵的方式   擷取 02工作表的數據資料
一個按鍵是由上至下
一個則是由下往上
每按一次按鍵  就換一組數據
————————————————————————
EXCEL 2000中在保护状态下进行筛选和排序的例子
http://office.9zp.com/dispbbs.asp?boardID=2&ID=6875&page=1
作用:EXCEL 2000中在保护状态下进行筛选和排序
————————————————————————
取字串中的数字或文本
http://office.9zp.com/dispbbs.asp?boardID=3&ID=6882&page=1
作用:自定义函数。
函数=myTex()可从文本与数字夹杂的字串中只提取其中的文本;
函数=myNum()可从文本与数字夹杂的字串中只提取其中的数字
————————————————————————
一个简单实用的通讯录
http://office.9zp.com/dispbbs.asp?boardID=3&ID=6955&page=1
作用:1.窗体文本框录入,数据存入工作表;
2.listview同步显示录入记 录,单击listview中任一记录,文本框显示该条记录;
3.在窗体文本框中进行修改、删除记录;
4.增加、保存由一个按钮控制;
5.查询窗体可采用模糊多条件查询;
6.组合框设定数据源;
7.按钮控制;
8.禁止窗体右上角关闭按钮
————————————————————————
一个简繁转换代码
http://office.9zp.com/dispbbs.asp?boardID=3&ID=6985&page=1
作用:用自定义函数的形式实现简繁字体的转换
————————————————————————
单元格属性代码
http://office.9zp.com/dispbbs.asp?boardid=3&id=6990&star=1#24236
作用:单元格格式设置、数据类型、对话框、ASCII字符集、单元格显示符号、工作表打印设置的说明
————————————————————————
如何将IE页面先截图然后再放入一个单元格中?
http://office.9zp.com/dispbbs.asp?boardID=3&ID=7647&page=1
作用:将IE页面先截图然后再放入一个单元格中
————————————————————————
[分享]利用 樣式 (Style) + VBA 使儲存格文字閃爍
http://office.9zp.com/dispbbs.asp?boardID=3&ID=7974&page=1
作用:一个比较典型的使用定时器的例子。
————————————————————————
学习Excel 2002 VBA编程和XML,ASP技术
http://office.9zp.com/dispbbs.asp?boardid=3&replyid=7534&id=7534&page=1&skin=0&Star=1
作用:这是本论坛贵宾 hxhgxy 翻译的VBA教程,本教程共有17章。
hxhgxy 认为该教程是最容易懂,最容易上手的VBA教程
————————————————————————
如何用宏将纯文本文件转换为带分隔符的文件
http://office.9zp.com/dispbbs.asp?boardid=3&id=7507
作用:按一定要求修改 *.txt 文件。
————————————————————————
合并不同路径下的文本文件
http://office.9zp.com/dispbbs.asp?boardID=3&ID=14938&page=2
作用:在已有内容的文本文件中添加新内容
————————————————————————
Application.Dialogs(i).Show     '调用对话框
http://office.9zp.com/dispbbs.asp?BoardID=3&ID=8673&replyID=29882&skin=1
作用:对话框索引
————————————————————————
如何用代码增加模块并加入代码?
http://office.9zp.com/dispbbs.asp?BoardID=3&replyID=11145&id=3748&skin=0
作用:大头笑着说:“VBA入门?有一个速成方法:念1000遍"对象,属性,方法,事件"就入门了。”
      这是真的吗……?
————————————————————————
VBA系列讲座
http://info.9zp.com/show.aspx?id=803&cid=10
作用:讲解VBA是什么、excel环境中基于应用程序自动化的优点、录制简单的宏……等
————————————————————————
关于用 Consolidate 方法汇总多表数据
http://office.9zp.com/dispbbs.asp?BoardID=3&ID=13803&replyID=40466&skin=1
作用:此举大大提高了多表汇总的效率。
————————————————————————
将excel内容转贴到word
http://office.9zp.com/dispbbs.asp?boardID=3&ID=14045&page=1
作用:将*.xls中多页的内容转贴到word
————————————————————————
用excel新建一个同已有word模版文件一样的文件
http://office.9zp.com/dispbbs.asp?boardID=3&ID=15362&page=1
作用:读出已存在WORD文件内容另存为一个新WORD文件
————————————————————————
[原创]借助FLASH技术美化VBA操作界面
http://office.9zp.com/dispbbs.asp?BoardID=3&replyID=2636&id=666&skin=0
作用:算法优化了,程序编完了,调试过关了,接下来便是程序界面的设计问题……
————————————————————————
关于整个表格的排序
http://office.9zp.com/dispbbs.asp?boardID=3&ID=15619&page=1
作用:按区域中指定单元格的数字大小,对区域进行排序
————————————————————————
用VBA列出货品清单问题
http://office.9zp.com/dispbbs.asp?boardID=3&ID=15764&page=1
作用:一个在填表单时同时显示填单进度的进度条实例。
————————————————————————
文件的自毁
http://office.9zp.com/dispbbs.asp?BoardID=3&ID=5685&replyID=19019&skin=1
作用:介紹如何讓Excel檔案有使用期限,範例中使用Windows Script"在註冊表上的讀.寫.刪除的用法

赞(0) 打赏
分享到: 更多 (0)

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏