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

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



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　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　'激活　ActiveSheet。Range（〃A1〃）。Select　End　If　If　Target。Address　=　　

〃A6〃　　　　Then　　　　Sheet3。Visible　　　　　=　　　　1　　　　'　　　取　　　消　　　　隐　　　　藏　　　　　　　Sheet3。Activate　　

ActiveSheet。Range（〃A1〃）。Select　End　If　End　Sub　33　、将a2单元格内容替换为a1　内容　　

ActiveCell。Replace　What：=＇a2＇；　Replacement：=＇a1＇　34、如果是要填入名称；则：　Private　　

Sub　　　Worksheet_SelectionChange（ByVal　　　Target　　　As　　　Range）　　　Selection。Value　　　=　　

boBox1。column（1）　　End　　Sub　　如　果　是　要　填　入　代　码　和　名　称　的　组　合　　　：　　Private　　Sub　　

Worksheet_SelectionChange（ByVal　　　　　　　　Target　　　　　As　　　　Range）　　　　　Selection。Value　　　　　　=　　

cstr（boBox1。column（0））＋〃　　　　　　　〃＋bobox1。column（1）　　　　　　End　　　　Sub　　　　Private　　　　Sub　　

Worksheet_SelectionChange（ByVal　Target　As　Range）　Selection。Value　=　boBox1。Value　　

End　Sub　Private　Sub　Worksheet_SelectionChange（ByVal　Target　As　Range）　'target。row　代　

表行号　'target。column　代表列号　i=target。row　'获取行号　j=target。column　'获取列号　　

End　Sub　35　、当激活工作表时，本示例对　　A1：A10　　区域进行排序。　　Private　Sub　　

Worksheet_Activate（）　Range（〃a1：a10〃）。Sort　Key1：=Range（〃a1〃）；　Order：=xlAscending　End　　

Sub　36、BeforePrint　事件　参阅应用于示例特性在打印指定工作簿（或者其中的任何内容）　

之前，产生此事件。　Private　Sub　Workbook_BeforePrint（Cancel　As　Boolean）　Cancel　当事　

件产生时为　False。如果该事件过程将本参数设为　True，则当该过程运行结束之后不打印工　

作簿。　示例　本示例在打印之前对当前活动工作簿的所有工作表重新计算。　Private　Sub　　

Workbook_BeforePrint（Cancel　As　Boolean）　For　Each　wk　in　Worksheets　wk。Calculate　Next　　

End　Sub　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XXIII　　


…………………………………………………………Page　24……………………………………………………………

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



37　、Open　事件　　参阅应用于示例特性打开工作簿时，将产生本事件。　　Private　Sub　　

Workbook_Open（）　示例　每次打开工作簿时，本示例都最大化　Microsoft　Excel　　窗口。　　

Private　Sub　Workbook_Open（）　Application。WindowState　=　xlMaximized　End　Sub　38　、　

ActiveSheet　属性　参阅应用于示例特性返回一对象，该对象代表活动工作簿中的，或者指定　

的窗口或工作簿中的活动工作表（最上面的工作表）。只读。如果没有活动的工作表，则返回　　

Nothing。　说明　如果未给出对象识别符，本属性返回活动工作簿中的活动工作表。　如果某一　

工作簿在若干个窗口中出现，那么该工作簿的　ActiveSheet　属性在不同窗口中可能不同。　示　

例　本示例显示活动工作表的名称。　MsgBox　〃The　name　of　the　active　sheet　is　〃　&　　

ActiveSheet。Name　39、Calculate　方法　参阅应用于示例特性计算所有打开的工作簿、工作簿　

中的一张特定的工作表或者工作表中指定区域的单元格，如下表所示：　要计算　依照本示例　所　

有打开的工作簿　Application。Calculate　　（或只是　Calculate）　指定工作表　指定工作表　指　

定　区　域　　　Worksheets（1）。Rows（2）。Calculate　　expression。Calculate　　expression　　对　于　　

Application　对象可选，对于　Worksheet　对象和　Range　对象必需。该表达式返回―应用于‖　

列表中的对象之一。　示例　本示例计算　Sheet1　已用区域中　A　列、B　列和　C　列的公式。　　

Worksheets（〃Sheet1〃）。UsedRange。Columns（〃A：C〃）。Calculate　程序的核心是算法问题　40、　

End　属性　参阅应用于示例特性返回一个　Range　对象，该对象代表包含源区域的区域尾端的单　

元格。等同于按键　End＋　向上键、End＋　向下键、End＋　向左键或　End＋　向右键。Range　对象，　

只读。　expression。End（Direction）　expression　必需。　该表达式返回―应用于‖列表中的对　

象之一。　Direction　XlDirection　类型，必需。所要移动的方向。　XlDirection　可为　　

XlDirection　常量之一。　xlDown　xlToRight　xlToLeft　xlUp　示例　本示例选定包含单元格　B4　　

的区域中　B　列顶端的单元格。　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XXIV　　


…………………………………………………………Page　25……………………………………………………………

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



Range（〃B4〃）。End（xlUp）。Select　本示例选定包含单元格　B4　的区域中第　4　行尾端的单元格。　　

Range（〃B4〃）。End（xlToRight）。Select　本示例将选定区域从单元格　B4　延伸至第四行最后一　

个　　包　　含　　数　　据　　的　　单　　元　　格　　。　　　　　Worksheets（〃Sheet1〃）。Activate　　　Range（〃B4〃；　　

Range（〃B4〃）。End（xlToRight））。Select　41、应用于　CellFormat　和　Range　对象的　Locked　属　

性。　本示例解除对　Sheet1　中　A1：G37　区域单元格的锁定，以便当该工作表受保护时也可对　

这　些　单　元　格　进　行　修　改　。　　　Worksheets（〃Sheet1〃）。Range（〃A1：G37〃）。Locked　　=　　False　　

Worksheets（〃Sheet1〃）。Protect　42、Next　属性　参阅应用于示例特性返回一个　Chart、Range　　

或　Worksheet　对象，该对象代表下一个工作表或单元格。只读。　说明　如果指定对象为区域，　

则本属性的作用是仿效　Tab，但本属性只是返回下一单元格，并不选定它。　在处于保护状态　

的工作表中，本属性返回下一个未锁定单元格。在未保护的工作表中，本属性总是返回紧靠指　

定单元格右边的单元格。　示例　本示例选定　sheet1　中下一个未锁定单元格。如果　sheet1　未　

保护，选定的单元格将是紧靠活动单元格右边的单元格。　Worksheets（〃Sheet1〃）。Activate　　

ActiveCell。Next。Select　43、想通过target来设置　（A1：A10）区域内有改动，就发生此事件。　

不知道如何　if　target。row　=　1　and　target。column