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

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


转为千克、吨，这时可以定义下面的格式：　―　＇》999999＇#；##0；；_m〃吨〃〃；＇》999＇##；_k_m〃千克　

〃；#_k〃克〃‖　可以看到，使用条件格式，千分符和均匀间隔指示符的组合，不用增加公式的数　

目就可以改进工作表的可读性和效率。　另外，我们还可以运用自定义格式来达到隐藏输入数　

据的目的，比如格式＂；＃＃；0　＂只显示负数和零，输入的正数则不显示；格式―　；；；‖则　

隐藏所有的输入值。　　自定义格式只改变数据的显示外观，并不改变数据的值，也就是说不影　

响数据的计算。灵活运用好自定义格式功能，将会给实际工作带来很大的方便。　5、批量删除　

空行　有时我们需要删除Excel工作薄中的空行，一般做法是将空行一一找出，然后删除。如果　

工作表的行数很多，这样做就非常不方便。我们可以利用―　自动筛选‖功能，把空行全部找到，　

然后一次性删除。　做法：先在表中插入新的一个空行，然后按下Ctrl＋A键，选择整个工作表，　

用鼠标单击―数据‖菜单，选择―筛选‖项中的―　自动筛选‖命令。这时在每一列的顶部，都出现一　

个下拉列表框，在典型列的下拉列表框中选择―空白‖，直到页面内已看不到数据为止。　在所　

有数据都被选中的情况下，单击―编辑‖菜单，选择―删除行‖命令，然后按―确定‖按钮。这时所　

有的空行都已被删去，再单击―数据‖菜单，选取―筛选‖项中的―　自动筛选‖命令，工作表中的数　

据就全恢复了。插入一个空行是为了避免删除第一行数据。　如果想只删除某一列中的空白单　

元格，而其它列的数据和空白单元格都不受影响，可以先复制　此列，把它粘贴到空白工作表　

上，按上面的方法将空行全部删掉，然后再将此列复制，粘贴到原工作表的相应位置上。　6、　

如何避免错误信息　在Excel中输入公式后，有时不能正确地计算出结果，并在单元格内显示一　

个错误信息，这些错误的产生，有的是因公式本身产生的，有的不是。下面就介绍一下几种常　

见的错误信息，并提出避免出错的办法。　　１）错误值：＃＃＃＃　含义：输入到单元格中的数　

据太长或单元格公式所产生的结果太大，使结果在单元格中显示不下。或是日期和时间格式的　

单元格做减法，出现了负值。　解决办法：增加列的宽度，使结果能够完全显示。如果是由日　

期或时间相减产生了负值引起的，可以改变单元格的格式，比如改为文本格式，结果为负的时　

间量。　　２）错误值：＃DIV/0！　含义：试图除以0。这个错误的产生通常有下面几种情况：除　

数为0、在公式中除数使用了空单元格或是包含零值单元格的单元格引用。　解决办法：修改单　

元格引用，或者在用作除数的单元格中输入不为零的值。　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XVII　　


…………………………………………………………Page　18……………………………………………………………

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



３）错误值：＃VALUE！　含义：输入引用文本项的数学公式。如果使用了不正确的参数或运算　

符，或者当执行自动更正公式功能时不能更正公式，都将产生错误信息＃VALUE！。　解决办法：　

这时应确认公式或函数所需的运算符或参数正确，并且公式引用的单元格中包含有效的数值。　

例如，单元格C4中有一个数字或逻辑值，而单元格D4包含文本，则在计算公式=C4＋D4时，系　

统不能将文本转换为正确的数据类型，因而返回错误值＃VALUE！。　　４）错误值：＃REF！　含义：　

删除了被公式引用的单元格范围。　解决办法：恢复被引用的单元格范围，或是重新设定引用　

范围。　　５）错误值：＃N/A　含义：无信息可用于所要执行的计算。在建立模型时，用户可以　

在单元格中输入#N/A，以表明正在等待数据。任何引用含有#N/A值的单元格都将返回#N/A。　解　

决办法：在等待数据的单元格内填充上数据。　　６）错误值：＃NAME？　含义：在公式中使用了　

Excel所不能识别的文本，比如可能是输错了名称，或是输入了一个已删除的名称，如果没有　

将文字串括在双引号中，也会产生此错误值　解决办法：如果是使用了不存在的名称而产生这　

类错误，应确认使用的名称确实存在；如果是名称，函数名拼写错误应就改正过来；将文字串　

括在双引号中；确认公式中使用的所有区域引用都使用了冒号（：）。例如：SUM　（C1：C10）。　　

注意将公式中的文本括在双引号中。　　７）错误值：＃NUM！　含义：提供了无效的参数给工作表　

函数，或是公式的结果太大或太小而无法在工作表中表示。　解决办法：确认函数中使用的参　

数类型正确。如果是公式结果太大或太小，就要修改公式，使其结果在…1×10307和1×10307　

之间。　　８）错误值：＃NULL　！　含义：在公式中的两个范围之间插入一个空格以表示交叉点，　

但这两个范围没有公共单元格。比如输入：―=SUM（A1：A10　C1：C10）‖，就会产生这种情况。　　　

解决办法：　取消两个范围之间的空格。上式可改为―=SUM（A1：A10　；C1：C10）‖　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XVIII　　


…………………………………………………………Page　19……………………………………………………………

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



Part　2：　EXCEL　自学资料第一集　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　返回首页　　　

自学资料第一集　1、Application。mandBars（〃Worksheet　Menu　Bar〃）。Enabled　=　false　2、　

cells（activecell。row；〃b〃）。value　'　活动单元格所在行　B　列单元格中的值　　　3　、Sub　　

CheckSheet（）'如果当前工作薄中没有名为kk的工作表的话，就增加一张名为kk的工作表，并　

将其排在工作表从左至右顺序排列的最左边的位置，即排在第一的位置　Dim　shtSheet　As　　

Worksheet　For　Each　shtSheet　In　Sheets　If　shtSheet。Name　=　〃KK〃　Then　Exit　Sub　Next　　

shtSheet　Set　shtSheet　=　Sheets。Add（Before：=Sheets（1））　shtSheet。Name　=　〃KK〃　End　Sub　　

4、Sheet1。ListBox1。List　=　Array（〃一月〃；　〃二月〃；　〃三月〃；　〃四月〃）'一次性增加项目　5、　

Sheet2。Rows（1）。Value　=　Sheet1。Rows（1）。Value'将一个表中的一行全部拷贝到另一个表中　　

6　、Sub　pro_cell（）'　将此代码放入　sheet1；则me=sheet1；　主要是认识me　Me。Unprotect　　

Cells。Locked　　=　　False　　Range（〃D11：E11〃）。Locked　　=　　True　　Me。Protect　　End　　Sub　　7　、　

Application。mandBars（〃Ply〃）。Enabled　=　False'工作表标签上快捷菜单失效　8、Sub　　

aa（）'把B1到B12单元格的数据填入c1到c12　For　i　=　1　To　12　Range（〃C〃　&　i）　=　Range（〃B〃　&　　

i）　Next　i　End　Sub　9、ActiveCell。Addment　Selection。Font。Size　=　12'在点选的单元格　

插入批注，字体为12号　10、Private　Sub　Worksheet_BeforeDoubleClick（ByVal　Target　As　　

Range；　Cancel　As　Boolean）　Cancel　=　True　End　Sub　11、ScrollArea　属性　参阅应用于示例　

特性以　A1　样式的区域引用形式返回或设置允许滚动的区域。用户不能选定滚动区域之外的单　

元格。String　类型，可读写。　说明　可将本属性设置为空字符串　　（〃〃）　以允许对整张工作表　

内　所　有　单　元　格　的　选　定　。　　　示　例　　　本　示　例　设　置　第　一　张　工　作　表　的　滚　动　区　域　。　　

Worksheets（1）。ScrollArea　=　〃a1：f10〃　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XIX　　


…………………………………………………………Page　20……………………………………………………………

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



12if　　application。max（＇a1：e1＇）=10　　then　　msgbox〃〃　　mandbutton1。enabled=false　　

'A1—E1最大的数值达到10时，自动弹出对话框，并冻结按钮　12、本示例将更改的单元格的颜　

色　设　为　蓝　色　。　　　Private　　Sub　　Worksheet_Change（ByVal　　Target　　as　　Range）　　

Target。Font。ColorIndex　=　5　End　Sub　13、Sub　test（）'求和　Dim　rng　As　Range；　rng2　As　Range　　

For　Each　rng　In　ActiveSheet。UsedRange。Columns　Set　rng2　=　Range（Cells（1；　rng。Column）；　　

Cells（Cells（65536；　　　　　　　　　　　　　　　　　rng。Column）。End（xlUp）。Row；　　　　　　　　　　　　　　　　　rng。Column））　　

rng2。Cells（rng2。Cells。Count）。Offset（1；　0）　=　WorksheetFunction。Sum（rng2）　Next　rng　End　　

Sub　14、将工作薄中的全部n张工作表都在sheet1中建上链接　Sub　test2（）　Dim　Pt　As　Range　Dim　　

i　　　As　　　Integer　　　With　　　Sheet1　　　Set　　　Pt　　　=　　　。Range（〃a1〃）　　　For　　　i　　　=　　　2　　　To　　

ThisWorkbook。Worksheets。Count　　　　　　　　　。Hyperlinks。Add　　　　　　　Anchor：=Pt；　　　　　　　Address：=〃〃；　　

SubAddress：=Worksheets（i）。Name　&　〃！A1〃　Set　Pt　=　Pt。Offset（1；　0）　Next　i　End　With　End　　

Sub　15　、保存所有打开的工作簿，然后退出　　　Microsoft　Excel　。　　For　Each　w　In　　

Application。Workbooks　w。Save　Next　w　Application。Quit　16、让form标题栏上的关闭按钮　

失效　Private　Sub　UserForm_QueryClose（Cancel　As　Integer；　CloseMode　As　Integer）　If　　

CloseMode　　1　Then　Cancel　=　True　End　Sub　17、Sub　countsh（）'获得工作表的总数　MsgBox　　

Sheets。Count　End　Sub　18　、Sub　IE（）'打开个人网页　ActiveWorkbook。FollowHyperlink　　

〃about：blank〃　SendKeys　〃｛F4｝ykk1976。anyp。cn｛ENTER｝〃；　True　End　Sub　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XX　　


…………………………………………………………Page　21……………………………………………………………

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



19、Sub　delback（）'一次性删除工作簿中所有工作表的背景　For　Each　shtSheet　In　Sheets　　

shtSheet。SetBackgroundPicture　　　Filename：=〃〃　　　Next　　　shtSheet　　　End　　　Sub　　　20　　、　

＇a1＇。formula=〃=b1＋c1〃'A1中设定公式为=B1＋C1　21、Private　Sub　mandButton1_Click（）'　

将A1到C6中大于=3的数依次放入E列　Dim　i　As　Long　r　=　1　For　Each　i　In　Range（〃a1：c6〃）　If　　

i　　》　　=3　　Then　　Cells（r；　　5）　　=　　i：　　r　　=　　r　　＋　　1　　Next　　End　　Sub　　22　、　Private　　Sub　　

Workbook_SheetChange（ByVal　Sh　As　Object；　ByVal　Target　As　Range）'显示带数字的表名　b　　

=　Split（Sh。Name；　〃（〃）　On　Error　GoTo　ss　num　=　CInt（Left（b（1）；　Len（b（1））　1））　If　num　》=　　

1　And　num　《　20　Then　MsgBox　Sh。Name　End　If　Exit　Sub　ss：　MsgBox　〃error〃；　16；　〃〃　End　Sub　　

23、Sub　Test（）'选择所有工作表名以〃业报〃开头的工作表或头两个字是业报的报表名引用　　

Set　Sh　=　ActiveSheet　If　Left（Sh。Name；　2）　=　〃业报〃　Then　'　或if　sh。name　like〃业报*〃then　　

MsgBox　〃你成功了〃；　64；　〃〃　End　If　End　Sub　24、1。建立文件夹的方法　MkDir　〃D：Music〃　2。　

打　开　文　件　夹　的　方　法　　　ActiveWorkbook。FollowHyperlink　　Address：=〃D：Music〃；　　

NewWindow：=True　　25　、　在　当　前　工　作　表　翻　页　　　Application。SendKeys　　〃｛PGUP｝〃；　　True　　

Application。SendKeys　　〃｛PGDN｝〃；　　True　　或　者　　　ActiveWindow。LargeScroll　　Down：=1　　

ActiveWindow。LargeScroll　Down：=…1　26、当Target　=　〃*小计〃时如何写；*代表任何字符。　if　　

instr（target。value；〃　小计　〃）0　then　Private　Sub　Worksheet_SelectionChange（ByVal　　

Target　As　Range）　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XXI　　


…………………………………………………………Page　22……………………………………………………………

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



If　Target。Value　Like　〃*小计〃　Then　MsgBox　〃OK〃　End　Sub　27、ActiveCell。FormulaR1C1　=　　

〃=SUM（R＇1＇C：R＇14＇C；R＇59＇C：R＇78＇C）〃　这是相对引用的写法：根据推算你的函数是放在―AD6‖　

单元格　你的函数：=SUM（R＇1＇C：R＇14＇C　中的　〃R〃表示行　〃C〃表示列。　R＇1＇表示―AD6＋1行〃，C　

表示―列没有变化，就是同列‖那么：R＇1＇C就表示AD7　同理，R＇14＇表示AD6＋14行，表示：AD20。　

以此类推。　28、Private　Sub　mandButton1_Click（）'将A1到C6中大于=3的数依次放入E列　　

Dim　i　As　Long　Dim　iRng　As　Range　For　Each　iRng　In　Sheets（1）。Range（〃a1：c6〃）　If　　

iRng。Value　》=　3　Then　i　=　i　＋　1　Sheets（1）。Range（〃E〃　&　i）。Value　=　iRng。Value　End　If　Next　　

End　Sub　29、工作表中的窗体按钮禁用后，按钮形状不变，字体不变，从外表上无法看出其已　

禁　用　，　如　何　设　置　属　性　使　其　像　控　件　按　纽　那　样　明　显　的　禁　用　？　　　With　　

ActiveSheet。Buttons（1）　　　　　　　　　　　　　　　　　　。Enabled　　　　　　　　　　　　　　　　=　　　　　　　　　　　　　　　　False　　

ActiveSheet。Shapes（。Caption）。DrawingObject。Font。ColorIndex　=　15　End　With　復原的方　

法　　　　　　　　　　　　　　　With　　　　　　　ActiveSheet。Buttons（1）　　　　　　　　　。Enabled　　　　　　　　=　　　　　　　True　　

ActiveSheet。Shapes（。Caption）。DrawingObject。Font。ColorIndex　=　xlAutomatic　End　With　　

30、Private　Sub　Worksheet_SelectionChange（ByVal　Target　As　Range'选定A1时要输入密码　　

If　Target。Address　=　〃A1〃　Then　A　=　InputBox（〃请输入密码〃；　〃officefans〃）　If　A　=　1　Then　　

＇A1＇。Select　Else　＇A2＇。Select　End　If　End　Sub　31、如何将工作薄中的命名单元格成批删除！　　

Dim　Item　As　Name　For　Each　Item　In　ActiveWorkbook。Names　Item。Delete　Next　Item　32、　

平时只能看到表1，如要看表2和表3，只能通过表1的链接打开；且表2和表3回到表1后，又不可　

见。　Private　Sub　Worksheet_SelectionChange（ByVal　Target　As　Range）　If　Target。Address　　

=　〃A3〃　Then　'当点击〃A3〃单元格时。。。　Sheet2。Visible　=　1　'取消隐藏　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XXII　　


…………………………………………………………Page　23……………………………………………………………

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



Sheet2。Activate　'激活　Active