2012-02-18 22:59:19
批量去掉Excel工作薄全部空白文本框的VBA代码
[ 2012-03-12 16:05:32 | 作者: 亿旭 ]
亿旭遇到一个问题,只有很少数据的一个工作薄,占的空间有18.9M,太吓人,检查后发现,里面有几千的空白的文本框,一个一个手工删除,是不现实的,于是有了下面的代码:
阅读全文…
Private Sub CommandButton1_Click()
Dim n%
n = ActiveWorkbook.Sheets.Count
'MsgBox "当前WorkBook共有" & n & "个Sheet"
For i = 1 To n
Sheets(i).Activate
Call Jingjian
Next
End Sub
Private Sub Jingjian()
ActiveSheet.Unprotect Password:="123"
ActiveSheet.Unprotect
ActiveSheet.DrawingObjects.Select
Selection.Delete
ActiveSheet.Protect Password:="123"
...Dim n%
n = ActiveWorkbook.Sheets.Count
'MsgBox "当前WorkBook共有" & n & "个Sheet"
For i = 1 To n
Sheets(i).Activate
Call Jingjian
Next
End Sub
Private Sub Jingjian()
ActiveSheet.Unprotect Password:="123"
ActiveSheet.Unprotect
ActiveSheet.DrawingObjects.Select
Selection.Delete
ActiveSheet.Protect Password:="123"
阅读全文…
Word2003分栏后设置页码的方法
[ 2012-03-06 17:08:52 | 作者: 亿旭 ]
亿旭先说一下网上的通用做法:
先熟悉两个快捷键
1、Ctrl+F9 插入一个空的域记号,即一对大括号{}
2、Alt + F9 切换域标记状态,即 域代码 <---> 域结果 之间转换
分两栏设置页码的方法:
1、打开“页眉和页脚”工具栏,切换到页脚区域,在第1栏的适当位置,输入“第页,共页”几个字。
2、将光标插入到“第 页”两个字的中间,连按两次“Ctrl+F9”快捷键,得到一对包含在一起的花括号“{{}}”,修改代码为:
3、将光标插入到“共页”两个字的中间,,连按两次“Ctrl+F9”快捷键,得到一对包含在一起的花括号“{{}}”,修改代码为:
4、输入完成后,按下“Alt+F9”组合键,切换到“域结果”状态下,预览一下页码的位置,如果合适,单击工具条上的“关闭”按钮退出就行了。
...
阅读全文…
先熟悉两个快捷键
1、Ctrl+F9 插入一个空的域记号,即一对大括号{}
2、Alt + F9 切换域标记状态,即 域代码 <---> 域结果 之间转换
分两栏设置页码的方法:
1、打开“页眉和页脚”工具栏,切换到页脚区域,在第1栏的适当位置,输入“第页,共页”几个字。
2、将光标插入到“第 页”两个字的中间,连按两次“Ctrl+F9”快捷键,得到一对包含在一起的花括号“{{}}”,修改代码为:
{={Page}*2-1}
3、将光标插入到“共页”两个字的中间,,连按两次“Ctrl+F9”快捷键,得到一对包含在一起的花括号“{{}}”,修改代码为:
{={NumPages}*2}
4、输入完成后,按下“Alt+F9”组合键,切换到“域结果”状态下,预览一下页码的位置,如果合适,单击工具条上的“关闭”按钮退出就行了。
...
阅读全文…
VB6.0在运行窗体上动态添加、删除控件方法祥解
[ 2012-02-21 11:21:15 | 作者: 亿旭 ]
一、引子
亿旭在使用 VB6.0一般都进行简单的操作,今天进行程序设计的过程中,突然想到如果能在运行时刻动态地创建和删除控件,那一定可以极大地丰富界面的处理和变化。
上百度,搜了一下,还真找到了一个正景玩样,与大分享,方法有三种:
基于控件数组的动态控件的创建与删除
基于控件集合的动态控件的创建与删除
Active X 控件的动态创建和删除
1. 基于控件数组的动态控件的创建与删除
vb 中的控件数组实际上也是一种数组,其中的每个控件具有相同的 Name 属性,但具有不同的 Index 属性,在这里 Name 属性类似于数组的名字,而 Index 属性类似于数组的下标同时,控件数组也支持普通 VBA 数组的 LBound 、 UBound 和 Count ...
阅读全文…
亿旭在使用 VB6.0一般都进行简单的操作,今天进行程序设计的过程中,突然想到如果能在运行时刻动态地创建和删除控件,那一定可以极大地丰富界面的处理和变化。
上百度,搜了一下,还真找到了一个正景玩样,与大分享,方法有三种:
1. 基于控件数组的动态控件的创建与删除
vb 中的控件数组实际上也是一种数组,其中的每个控件具有相同的 Name 属性,但具有不同的 Index 属性,在这里 Name 属性类似于数组的名字,而 Index 属性类似于数组的下标同时,控件数组也支持普通 VBA 数组的 LBound 、 UBound 和 Count ...
阅读全文…
Excel2007实现下拉菜单方法祥解
[ 2012-02-19 01:28:53 | 作者: 亿旭 ]
韩剧《人鱼小姐》张瑞希主演/央视版/中文版/4部164集
[ 2012-02-15 00:56:26 | 作者: 亿旭 ]
一百六十四集,亿旭终于看完了,用了四天的时间啊,里面有很多精彩的对我很喜欢:
我撒下的不是花种,而是荆棘种.我最后终于站在荆棘丛中,我很害怕,我想逃避,可是我发现我逃不掉.我真的很想得到幸福,也想走进花丛中,但这只能是奢望,我得不到的,得不到的...
我的感觉就像是身上有一处丑陋的纹身,所有的人都知道我的丑陋了,无论我怎么掩盖都抹不去,看着别人的眼光就好象都指着我说我都看见了,都发现了...
镜子只有擦干净了才能照人,落满了灰尘的镜子怎么照人 ,
人的过错,应该由神来惩罚。
让别人眼睛流泪自己的心也会滴血的.
浪花虽然不是大海的全部,但大海因为有了浪花而美丽、大海因为有了浪花而显得多姿多彩。
...
阅读全文…
我撒下的不是花种,而是荆棘种.我最后终于站在荆棘丛中,我很害怕,我想逃避,可是我发现我逃不掉.我真的很想得到幸福,也想走进花丛中,但这只能是奢望,我得不到的,得不到的...
我的感觉就像是身上有一处丑陋的纹身,所有的人都知道我的丑陋了,无论我怎么掩盖都抹不去,看着别人的眼光就好象都指着我说我都看见了,都发现了...
镜子只有擦干净了才能照人,落满了灰尘的镜子怎么照人 ,
人的过错,应该由神来惩罚。
让别人眼睛流泪自己的心也会滴血的.
浪花虽然不是大海的全部,但大海因为有了浪花而美丽、大海因为有了浪花而显得多姿多彩。
...
阅读全文…
新萝卜家园WindowsXPSP3增强安装版2.4
[ 2012-02-10 23:00:26 | 作者: 亿旭 ]
新萝卜家园WindowsXPSP3增强安装版2.4版充分保证系统的纯净和稳定性。
适合喜欢安装版和纯净系统的用户使用!
2.4版并不是萝卜家园系列XP系统的最后一个版本,但是是最稳定的一版,其后的2.5在整合的时候存在一些问题,比如用户管理报错!
几属所有盗版软件都倒了,萝卜家园倒下了,新萝卜家园失了,此版为亿旭珍藏的一个版本,拿出和大家分享!...
阅读全文…
适合喜欢安装版和纯净系统的用户使用!
2.4版并不是萝卜家园系列XP系统的最后一个版本,但是是最稳定的一版,其后的2.5在整合的时候存在一些问题,比如用户管理报错!
几属所有盗版软件都倒了,萝卜家园倒下了,新萝卜家园失了,此版为亿旭珍藏的一个版本,拿出和大家分享!...
阅读全文…
新萝卜家园 Ghost WindowsXP SP3 选择安装纯净版100315
[ 2012-02-05 01:17:40 | 作者: 亿旭 ]
萝卜家园已是离我们远去,真的非常喜欢他们的系统,把存档的经典与大家分享吧!
当时的介绍原文:
一、1003版的主要更新(相对版本0910):
==========================
* 采用上海政府版源盘重新封装制作
* 补丁更新至2010年3月10日
* 界面更换为粉色系
* 集成驱动支持最新i3、i5处理器及相应主板驱动
* 集成驱动支持最新AMD-ATI 5000系列显卡驱动
* 集成部分Realtek声卡驱动
* 添加好压1.8、搜狗浏览器、虚拟光驱
* 桌面添加微软免费杀毒软件下载链接
* 更新QQ、千千静听、迅雷、搜狗拼音输入法、WinRAR
* 删除QQ游戏安装包
* office补丁未更新到最新
* 我的文档、收藏夹改为系统默认
* 添加PE下好压解压缩工具
* 删除PE下不常用的Vista支持
* 更新DOS下DM为10.0
* 更换DOS下效率源为MHDD硬盘检测工具
...
阅读全文…
当时的介绍原文:
一、1003版的主要更新(相对版本0910):
==========================
* 采用上海政府版源盘重新封装制作
* 补丁更新至2010年3月10日
* 界面更换为粉色系
* 集成驱动支持最新i3、i5处理器及相应主板驱动
* 集成驱动支持最新AMD-ATI 5000系列显卡驱动
* 集成部分Realtek声卡驱动
* 添加好压1.8、搜狗浏览器、虚拟光驱
* 桌面添加微软免费杀毒软件下载链接
* 更新QQ、千千静听、迅雷、搜狗拼音输入法、WinRAR
* 删除QQ游戏安装包
* office补丁未更新到最新
* 我的文档、收藏夹改为系统默认
* 添加PE下好压解压缩工具
* 删除PE下不常用的Vista支持
* 更新DOS下DM为10.0
* 更换DOS下效率源为MHDD硬盘检测工具
...
阅读全文…
混淆工具Xenocode Postbuild 2007 绿色破解版
[ 2012-01-19 01:20:19 | 作者: 亿旭 ]
Xenocode Postbuild 混淆工具,即将 命名空间名、类名、方法名、字段名等统统换成特殊符号或其它符号,可以打包Framework,net程序脱离Framework环境运行,实在让人惊叹!
Xenocode Postbuild 2007是一款为.NET平台下的开发人员设计的功能强大、灵活和易于使用的代码保护及优化的工具。该软件的.NET分析和重编译引擎保护用户的代码反编译,提高增强程序性能以及提供对.NET框架的支持,包括MC++和Satellite Assemblies。
下载地址:...
阅读全文…
Xenocode Postbuild 2007是一款为.NET平台下的开发人员设计的功能强大、灵活和易于使用的代码保护及优化的工具。该软件的.NET分析和重编译引擎保护用户的代码反编译,提高增强程序性能以及提供对.NET框架的支持,包括MC++和Satellite Assemblies。
下载地址:...
阅读全文…
WindowsXP+IIS5.1+PHP5.3.9+Mysql5.5.13全能服器搭建教程
[ 2012-01-12 19:28:51 | 作者: 亿旭 ]
前言
亿旭一直都是喜欢简单的东西,做网站只是愿意用ASP,特很少搞特别复杂的东西。另外年纪大了,也不怎么愿意接受新事物了。
一直在免费吧混了,那的童鞋大多都PHP,所以亿旭也想研究一下,纯属好奇。
不想改安装Apache,不想失去ASP环境,于是只有一种组合了WindowsXP+IIS5.1+PHP5.3.9+Mysql5.5.13。
初学乍练,除了会装IIS5.1,这个我老熟了,至于安装PHP与MYSQL,我是一窍不通啊,于是求助度娘,谷哥,结果一大堆伪教程铺天盖地将亿旭袭来,为了许多将亿旭一样从ASP转向的PHP的童鞋不再受这样煎熬,于是便有下面的教程。
再一次声讨那些闭眼瞎抄的***!
声明,本教程非亿旭100%原创,结合实际整理而成!
说明
由于PHP从5.3版的全新特效及改进,原有的isapi方式解析PHP脚本已经...
阅读全文…
亿旭一直都是喜欢简单的东西,做网站只是愿意用ASP,特很少搞特别复杂的东西。另外年纪大了,也不怎么愿意接受新事物了。
一直在免费吧混了,那的童鞋大多都PHP,所以亿旭也想研究一下,纯属好奇。
不想改安装Apache,不想失去ASP环境,于是只有一种组合了WindowsXP+IIS5.1+PHP5.3.9+Mysql5.5.13。
初学乍练,除了会装IIS5.1,这个我老熟了,至于安装PHP与MYSQL,我是一窍不通啊,于是求助度娘,谷哥,结果一大堆伪教程铺天盖地将亿旭袭来,为了许多将亿旭一样从ASP转向的PHP的童鞋不再受这样煎熬,于是便有下面的教程。
再一次声讨那些闭眼瞎抄的***!
声明,本教程非亿旭100%原创,结合实际整理而成!
说明
由于PHP从5.3版的全新特效及改进,原有的isapi方式解析PHP脚本已经...
阅读全文…
VB ListView控件属性、方法、事件 详解
[ 2012-01-07 14:13:22 | 作者: 亿旭 ]
常用属性:
View设置或返回控件的视图类型
值 说明
1-LvwIcon 图标类型
2-LvwSmallIcon 小图标类型
3-LvwList 列表类型
4-LvwReport 报表类型
Arrange 设置后返回控件的图标排列方式(在图标视图下有效)
值 说明
1-LvwNone 不排列
2-LvwAutoLeft 自动靠右排列
3-LvwAutoTop 自动靠左排列
Icons、 SmallIcons、 ColumnHeaderIcons属性
Icons指定图标视图时的图标与ImageList的绑定
...
阅读全文…
View设置或返回控件的视图类型
值 说明
1-LvwIcon 图标类型
2-LvwSmallIcon 小图标类型
3-LvwList 列表类型
4-LvwReport 报表类型
Arrange 设置后返回控件的图标排列方式(在图标视图下有效)
值 说明
1-LvwNone 不排列
2-LvwAutoLeft 自动靠右排列
3-LvwAutoTop 自动靠左排列
Icons、 SmallIcons、 ColumnHeaderIcons属性
Icons指定图标视图时的图标与ImageList的绑定
...
阅读全文…
Excel VBA选定区域 各个单元格全部加1的代码(计票使用很方便)
[ 2012-01-01 08:00:54 | 作者: 亿旭 ]
近日,亿旭的同事,做选票统计,为快捷计票,想要一个选定区域 各个单元格全部加1的代码
下面的代码,便实现了这个功能,与大家分享!
阅读全文…
下面的代码,便实现了这个功能,与大家分享!
Private Sub CommandButton1_Click()
Dim mTop, mLeft, mRight, mButtom
For P = 1 To Selection.Areas.Count
mTop = 0
mLeft = 0
With Selection.Areas(P)
mTop = .Row '起始行
mLeft = .Column '起始列
...Dim mTop, mLeft, mRight, mButtom
For P = 1 To Selection.Areas.Count
mTop = 0
mLeft = 0
With Selection.Areas(P)
mTop = .Row '起始行
mLeft = .Column '起始列
阅读全文…
IIS HTTP 500内部服务器错误的解决方法
[ 2011-12-11 08:01:09 | 作者: 亿旭 ]
IIS安装完成,一运行出现“HTTP 500 - 内部服务器错误”,网上找了一圈,处理方法那个叫复杂,在研究完复杂方法之后,发现只要三步就可以解决问题了。
1. 运行:regsvr32 %windir%/system32/vbscript.dll (其实这一步也可以省,确保万一,还是执行吧)
2. 运行:msdtc -resetlog
3. 重新安装IIS
注释:
1. 微软只随IIS5提供了一个管理脚本adsutil.vbs,这个脚本位于C:\inetpub\adminscripts子目录下,首先注册vbscript.dll。
2. msdtc.exe是微软分布式传输协调程序。该进程调用系统Microsoft Personal Web Server和Microsoft SQL Server,该服务用于管理多个服务器,必须确保该服务正常启动。
...
阅读全文…
1. 运行:regsvr32 %windir%/system32/vbscript.dll (其实这一步也可以省,确保万一,还是执行吧)
2. 运行:msdtc -resetlog
3. 重新安装IIS
注释:
1. 微软只随IIS5提供了一个管理脚本adsutil.vbs,这个脚本位于C:\inetpub\adminscripts子目录下,首先注册vbscript.dll。
2. msdtc.exe是微软分布式传输协调程序。该进程调用系统Microsoft Personal Web Server和Microsoft SQL Server,该服务用于管理多个服务器,必须确保该服务正常启动。
...
阅读全文…
为什么要提倡素食 植物和奶制品可以吃,但是所有取自动物性的食物则不可吃(包括蛋在内)。这有许多原因,最主要是在第一戒:“你们不可杀生”中,就禁止夺取众生的生命。 不杀生或不伤害其他生物,对动物显然有利,而另一个较不明显的事实是:不伤害其他众生,同样也利益我们自己。怎么说呢?这是基于因果的法则“种什么因,得什么果。”当你为了满足口腹之欲而杀生,或是让他人为你而杀生,就会造下杀业,而这个业障终究是要清付的。
实际上,吃素可说是我们送给自己的礼物。因为吃素使我们所积欠的沉重业障减轻,我们的生活品质得以改善,感觉愈来愈轻松自在,而且我们能进入内边,体验微妙、新颖的天堂境界;而这一切确实值得你付出吃素这个小小的代价。
以灵性观点反对吃肉的论证可令某些人信服,不过还有其他支持吃素的有力理由。每个理由都衍生自基本常识,如:个人健康与营养、生态环境、伦理道德、动物受迫害及世界饥荒等。
...
阅读全文…
实际上,吃素可说是我们送给自己的礼物。因为吃素使我们所积欠的沉重业障减轻,我们的生活品质得以改善,感觉愈来愈轻松自在,而且我们能进入内边,体验微妙、新颖的天堂境界;而这一切确实值得你付出吃素这个小小的代价。
以灵性观点反对吃肉的论证可令某些人信服,不过还有其他支持吃素的有力理由。每个理由都衍生自基本常识,如:个人健康与营养、生态环境、伦理道德、动物受迫害及世界饥荒等。
...
阅读全文…
解决iis5.1默认连接数太少 的简单方法
[ 2011-11-12 08:21:56 | 作者: 亿旭 ]
运行cmd
cd c:\inetpub\adminscripts
cscript adsutil.vbs set w3svc/MaxConnections 40
iisreset
连接数的概念:
IIS连接数是指在一定时间的统计内,对站点的80端口访问的数量,现在一般理解为同时在线人数
每开启一个网页,在网页完全打开前,都会占用一个IIS。要是该网页分栏了,则占用两个。
多线程下载会大量占用IIS
cd c:\inetpub\adminscripts
cscript adsutil.vbs set w3svc/MaxConnections 40
iisreset
连接数的概念:
IIS连接数是指在一定时间的统计内,对站点的80端口访问的数量,现在一般理解为同时在线人数
每开启一个网页,在网页完全打开前,都会占用一个IIS。要是该网页分栏了,则占用两个。
多线程下载会大量占用IIS
解决Windows7与WindowsXP 中Office 2003排版不一致的问题
[ 2011-10-15 06:55:17 | 作者: 亿旭 ]
亿旭网发现,在Windows 7中使用Office2007/2003打开原来写的文章,很多字体不能正常显示了:仿宋和楷体的文字莫名其妙地变动,文章行距增大,而且排版也出现了错误,本来在本页显示的文字无缘无故变到下一页,这是怎么回事呢?
先补充下小知识:TrueTrpe与OpenType字体
TrueTrpe与分辨率无关,无论方法或缩小,字体总是光滑的,但是相对PostScript字体来说,其质量要差一些,文字太小时显示不够清楚。OpenType更为强大,可以把PostScript字体嵌入到TrueTrpe的软件中,支持跨平台,支持Unicode国际字符集,包含TrueTrpe字体的OpenType文件后缀名为.ttf,包含PostScript字体的文件后缀名为OTF,假如是包含一系列TrueTrpe字体的字体包文件,那么后缀名为TTC。
比较Windows ...
阅读全文…
先补充下小知识:TrueTrpe与OpenType字体
TrueTrpe与分辨率无关,无论方法或缩小,字体总是光滑的,但是相对PostScript字体来说,其质量要差一些,文字太小时显示不够清楚。OpenType更为强大,可以把PostScript字体嵌入到TrueTrpe的软件中,支持跨平台,支持Unicode国际字符集,包含TrueTrpe字体的OpenType文件后缀名为.ttf,包含PostScript字体的文件后缀名为OTF,假如是包含一系列TrueTrpe字体的字体包文件,那么后缀名为TTC。
比较Windows ...
阅读全文…










