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 属性 参阅应用于示