按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
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 属性 参阅应用于示例特性返回一对象，该对象代表活动工作簿中的，或者指�