《Excel word ppt office使用技巧大全(DOC格式)》第14章

filename　=　VBAProject。ThisWorkbook。Name　Then　"不要在自身这个文件中操作　MsgBox　〃请　
选　择　其　它　文　件　中　的　数　据　！　〃； vbInformation ＋ vbOKOnly Exit Sub End If
Application。ScreenUpdating　=　False　"将屏幕更新关闭；可加快宏的运行速度　billno　=　0　"　
计数清0　moneytype（0）　=　100　"印花税面额为0。5…100；以0。5为舍入标准　moneytype（1）　=　50
moneytype（2）　=　10　moneytype（3）　=　5　moneytype（4）　=　2　moneytype（5）　=　1　moneytype（6）　=
0。5　VBAProject。ThisWorkbook。Sheets（1）。Activate　"打开结果页　If　flagcal　=　0　Then　"　
如　果　为　第　一　次　计　算　；　则　清　空　结　果　页 Cells。Select Selection。ClearContents
Range（〃A1〃）。Select　End　If　ActiveSheet。Cells（1；　1）　=　〃Origin　DATA〃　"先写上表头　For　i
=　0　To　6　ActiveSheet。Cells（1；　i　＋　2）　=　moneytype（i）　Next　i　Workbooks（filename）。Activate
"转到要计算的原始数据数据文件　rowno　=　ActiveWindow。RangeSelection。Rows。Count　"所选　
区　域　有　几　行 rowstart = ActiveWindow。RangeSelection。Row "　起　始　行 colstart =
ActiveWindow。RangeSelection。Column　"起始列　j　=　rowbegain　"结果页中写结果的起始行
For　i　=　1　To　rowno　"开始读原始数据
XLVIII
…………………………………………………………Page　49……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
origindata　=　Cells（i　＋　rowstart　1；　colstart）　"读原始数据　"广州印花税尾数处理方法：　
过0。5进1；不足舍去；刚好为0。5及其倍数则不变　If　origindata　*　100　Mod　50 0　Then　money
=　Round（origindata；　0）　"以0。5为界限作四舍五入　Else　money　=　origindata　"整数及尾数　
刚好为0。5不作处理　End　If　VBAProject。ThisWorkbook。Sheets（1）。Activate　"转到结果页
ActiveSheet。Cells（i ＋ 1 ＋ j； 1） = origindata "　在　第　一　列　写　入　原　始　数　据
Workbooks（filename）。Activate　""转到要计算的原始数据数据文件　For　k　=　0　To　6　"循环计　
算各面额所需张数　While　money　》=　moneytype（k）　money　=　money　moneytype（k）　billno　=
billno　＋　1　Wend　VBAProject。ThisWorkbook。Sheets（1）。Activate　ActiveSheet。Cells（i　＋　1
＋　j；　k　＋　2）　=　billno　"在相应位置写入该面额张数　billno　=　0　"清0准备计算下一面额
Workbooks（filename）。Activate　Next　k　rowbegain　=　rowbegain　＋　1　"结果页中写结果的起　
始行下移一行　Next　i　flagcal　=　flagcal　＋　1　"计算次数累加　rowbegain　=　rowbegain　＋　1　"　
添加一空行区分不同次数的结果　Application。ScreenUpdating　=　True　"恢复屏幕刷新
VBAProject。ThisWorkbook。Sheets（1）。Activate　"打开结果页　End　Sub　编好后存盘，退出宏　
编辑器。开始构建一个工具栏：＇工具＇—　＇自定义＇，点击＇工具栏＇………＇新建＇，工具栏名称定　
为―印花税‖，这时会出现　，点击＇命令＇，将　―命令‖列表中任意图标拖动到这个工具栏中，在　
刚拖过来的图标上点右键，选择＇命名＇，将其改为―印花税面额计算‖，选择＇总是只用文字＇，　
这　时　会　出　现 ，　在　―　印　花　税　面　额　计　算　‖　上　点　一　次　右　键　，　选　择　＇指　定　宏　＇　，　选　择　
―ThisWorkbook。stamp_duty‖　，点＇确定＇即可。以后要计算时，只要选好原始数据，点击该工　
具栏即可。　73、Sub　AA（）　Sheet1。Visible　=　2　深度隐藏　Sheet1。Visible　=　…1　‘显示　End
Sub　74、你在―workbook〃的　Private　Sub　Workbook_BeforeClose（Cancel　As　Boolean）　中加　
入如下句子：myNowTime　=　Format（Now；　〃yymmdd〃　&　〃…〃　&　〃hhmmss〃）　ActiveWorkbook。SaveAs
Filename：=currPath　&　myNowTime　&　〃。xls〃；　AddToMru：=False （‖currPath―　为你的路径　
及文件名称）　这样你保存文件可以年、月、日来实现。甚至可以小时、分、秒来保存。对于　
在编程序的来讲比较有用。如果你不需要―小时、分及秒‖，可把后面的 ＇&　〃…〃　&　〃hhmmss〃）＇　
取消即可。　75、我们日常上送、下发的报表材料、通知等都要加盖公章，如果把这项工作交　
给Excel或Word来完成，我们的工作就轻松多了。
XLIX
…………………………………………………………Page　50……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
第一步：制作公章图案　首先我们要做出一个公章的图案，最简单的办法是把公章图案扫描到　
电脑中，然后处理成透明的GIF图像。我们也可以直接用Excel来制作：把绘图工具打开，选中　
―椭圆‖工具，在按下―Shift‖键的同时拖开鼠标，就可以得到一个正圆了。双击这个正圆打开―设　
置自选图形格式‖对话框，在―颜色与线条‖标签中，填充颜色选―无填充颜色‖，线条颜色设为　
红色，选3磅粗的单线形（图）。公章的文字用艺术字来制作，填充颜色和线条颜色都用红色，　
并设成无阴影产。弧形文字和水平文字要分开来做，在做弧形文字时，把艺术字拖到圆形的上　
方，在艺术字工具中选―艺术字形状－细上弯弧‖，按住黄色的四方块往下拉，再作适当的调整，　
就可以做出公章里的圆弧形的文字了。公章中间还有一个红五星，用―　自选图形‖　的星形就可以　
做出来了，填充颜色和线条颜色用红色。最后，按住―Shift‖键把组成公章的文字、图形全部　
选上，执行右键菜单中的―组合‖命令，一个公章就做好了。　如何把做好的公章保存出来？这　
里有一方法：把工作表另存为Web页，然后到保存目录中找到*。files的文件夹，里面有一个GIF　
图片，这就是刚才做好的公章图案了，它的背景是透明的，我们把它改名为gongzhang。gif保　
存下来即可。　第二步：添加―盖章‖按钮　接下来我们给Excel添加一个盖章按钮，当一个工作　
表做好后，点击这个盖章按钮，就可以为我们盖上公章了。　先把公章图形复制出来（用来粘　
贴作为按钮的图标），然后打开―工具－自定义‖对话框，选中―命令‖标签，在―类别‖栏中找到　
―宏‖，在右边的―命令‖栏里就会出现一项―　自定义按钮‖　。用鼠标把这个笑脸图标拖出到菜单栏　
或工具栏上放下，在笑脸图标上击右键，在弹出的菜单中把―命名‖处的文字改为―加盖公章‖　。　
接下来点击―粘贴按钮图标‖这个命令，就可以用刚和复制的公章图形来代替笑脸图标了。把鼠　
标移下来选中―分配超级链接－插入图片‖，然后在―请键入文件名称或Web页名称‖栏里输入公　
章图片gongzhang。gif的文件名及路径，然后按―确定‖返回。　好了，看到―加盖公章‖这个按钮　
了吧，点击一下看看，呵呵，页面上就盖上一个鲜红的公章了，用鼠标可以把它拖到任意的地　
方。在Word文档中加盖公章的方法与此大同小异，大家可以自己试一试。　76、如何使某一个　
固定的菜单项无效 Application。mandBars（〃File〃）。Controls（6）。Enabled　=　False
Controls（6）中的6就是所在菜单栏的行数　我觉得这样可能更可靠：　Dim　i　As　Integer　For　i
= 1 To Application。mandBars（〃File〃）。Controls。Count If
Application。mandBars（〃File〃）。Controls（i）。Caption = 〃　另　存　为　（&A）。。。〃 Then
Application。mandBars（〃File〃）。Controls（i）。Enabled　=　False　End　If　Next　i　77、请教　
大家，我想在EXCEL文件退出时，另存为当前目录下的子目录BAK中，比如EXCEL文件在C盘，就　
另存为C：BAK子目录下，但EXCEL文件的位置不确定，不知如何写语句？　?