按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
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文件的位置不确定，不知如何写语句？ �