Excel word ppt office使用技巧大全(DOC格式)-第8部分

快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 Enter 键可回到本书目录页 按键盘上方向键 ↑ 可回到本页顶部! 如果本书没有阅读完，想下次继续接着阅读，可使用上方 "收藏到我的浏览器" 功能 和 "加入书签" 功能！



…………………………………………………………Page　48……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



Excel这个财会人员的得力工具，我编写了一段宏代码来自动帮我计算各面额印花的张数，既　

快捷又方便。想到还有很多同行要做这项工作，所以写下来与大家共享。具体操作如下：　新　

建一个Excel文件存为stampduty。xls；进入宏编辑器（Alt＋F11）在ThisWorkbook中加入以下代　

码：　'印花税各面额印花张数计算程序　BY…RAY　DENG　'用途：已知印花税额；计算各面额印花张　

数　'使用方法：做好工具条后，只要选择要计算的原始数据；点击〃印花税面额计算〃工具条即可。　　

'　（请不要选择全列；否则无效的计算太多。）　Sub　stamp_duty（）　Static　flagcal　As　Integer　'　

计算标志；首次计算时清空计算结果页；否则在结果页追加计算结果　Static　rowbegain　As　　

Integer　'计算结果页上可用行号；计算结果追加时从这里开始　Dim　filename　As　String　'打　

开的需要计算数据的文件名　Dim　moneytype（7）　As　Single　'定义面额　Dim　money　As　Single　Dim　　

billno　As　Integer　'票额张数　filename　=　ActiveWorkbook。Name　'记录当前打开的文件名　If　　

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文件的位置不确定，不知如何写语句？　注意先引用　

〃Microsoft　Scripting　Runtime〃　Private　Sub　Workbook_BeforeClose（Cancel　As　Boolean）　'　　

在本文件要關椋�前，執行備份動作。　If　Not　ActiveWorkbook。Saved　Then　Exit　Sub　'　若原　

文件未存檔，備份檔也不存。　ThisPath　=　ThisWorkbook。Path　'　假定備份文件夾之名稱為　

〃BAK〃　，　　若　　　本　　文　　件　　　是　　備　　份　　　檔　　，　　則　　　不　　需　　再　　　備　　份　　。　　　　　If　　

Len（Application。WorksheetFunction。Substitute（ThisPath；　〃BAK〃；　〃〃））　《　Len（ThisPath）　　

Then　Exit　Sub　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　L　　


…………………………………………………………Page　51……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



Bak　=　ThisPath　&　〃”　&　〃BAK〃　'檢查備份文件夾是否存在，若不存在，就建立一個。　If　　

Len（Dir（Bak；　vbDirectory））　》　0　Then　If　（GetAttr（Bak）　And　vbDirectory）　=　vbDirectory　　

Then　GoTo　3　'　若已存在，跳到下一步。　End　If　MkDir　Bak　'　建立備份文件夾。　'　改變目　

前路徑到備份文件夾路徑，並備份之。　3　ChDir　Bak　Application。EnableEvents　=　False　'　避　

免執行BeforeSave事件。　Application。DisplayAlerts　=　False　'　避免顯示是否要覆蓋原備　

份文件之訊息。　ActiveWorkbook。SaveAs　ChDir　ThisPath　'　改變目前路徑回到原文件夾路徑。　　

Application。DisplayAlerts　=　True　Application。EnableEvents　=　True　End　Sub　上述程式　

有個漏洞，就是在本文件做過更動，且存檔過了，但最後一次的更動未存檔，則　If　Not　　

ActiveWorkbook。Saved　Then　Exit　Sub　這個判斷會造成不存備份檔之錯铡疀Q定。　若想彌補上　

述錯铡�，將樱�發的事件改成Workbook_BeforeSave，卻會造成Excel關椋У腻e铡�。　78、文件保　

存为以某一单元格中的值为文件名的宏怎么写　用命令：　ActiveWorkbook。SaveCopyAs　　

Str（Range（〃Sheet1！A1〃））　＋　〃。xls〃　79、Offset　属性　参阅应用于示例特性应用于　Range　对　

象的　Offset　属性。　返回一个　Range　对象，该对象代表某个指定区域以外的区域。只读。　　

expression。Offset（RowOffset；　ColumnOffset）　expression　必需。该表达式返回一个　Range　　

对象。　RowOffset　Variant　类型，可选。区域偏移的行数（正值、负值或　0　（零））。正值　

表示向下偏移，负值表示向上偏移，默认值为　0。　ColumnOffset　Variant　类型，可选。区域　

偏移的列数（正值、负值或　0　（零））。正值表示向右偏移，负值表示向左偏移，默认值为　0。　　

应用于　TickLabels　对象的　Offset　属性。　返回或设置各级别标签之间的距离以及第一级标　

签与坐标轴之间的距离。其默认距离为百分之百，代表坐标轴标签与坐标轴之间的默认距离。　

其值可以为从　0　到　1000　之间的一个整数百分比，表示相对于坐标轴标签的字体大小。Long　　

类型，可读写。　expression。Offset　expression　必需。该表达式返回一个　TickLabels　对象。　　

示例　应用于　Range　对象。　本示例激活　Sheet1　上活动单元格向右偏移三列、向下偏移三行　

处　的　单　元　格　。　　　Worksheets（〃Sheet1〃）。Activate　　ActiveCell。Offset（rowOffset：=3；　　

columnOffset：=3）。Activate　本示例假定　Sheet1　中包含一个具有标题行的表格。本示例先选　

定该表格，但并不选择标题行。运行本示例之前，活动单元格必须位于表格中。　Set　tbl　=　　

ActiveCell。CurrentRegion　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　LI　　


…………………………………………………………Page　52……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



tbl。Offset（1；　0）。Resize（tbl。Rows。Count　　1；　_　tbl。Columns。Count）。Select　应用于　　

TickLabels　对象。　如果偏移量小于　500，则本示例将　Chart1　中数值轴上标签之间的距离设　

置为当前距离的两倍。　With　Charts（〃Chart1〃）。Axes（xlValue）。TickLabels　If　。Offset　《　500　　

then　。Offset　=　。Offset　*　2　End　If　End　With　80、新建工作簿　参阅特性若要在　Visual　Basic　　

中创建新的工作簿，请使用　Add　方法。下述过程创建了新的工作簿。Microsoft　Excel　　自动　

将该工作簿命名为―BookN‖，其中―N‖是下一个可用的数字。新工作簿将成为活动工作簿。　Sub　　

AddOne（）　Workbooks。Add　End　Sub　创建新工作簿更好的方法是将其分配给一个对象变量。下　

例中，由　Add　方法返回的　Workbook　对象分配给了对象变量　newBook　。然后，又设置了　　

newBook　的若干属性。使用对象变量可以很容易地控制新工作簿。　Sub　AddNew（）　Set　NewBook　　

=　Workbooks。Add　With　NewBook　。Title　=　〃All　Sales〃　。Subject　=　〃Sales〃　。SaveAs　　

Filename：=〃Allsales。xls〃　End　With　End　Sub　　　

81、Rem：将活动单元格从A5移到A6，并将A6单元格的数值保存到x变量中　range（〃A5　〃）。select　

此命令就是选择A5单元格　Activecell。offset（1；0）。select　X=activecell。value　8