MicrosoftOffice2007Excel、、使用技巧大全完整版教程教案资料.doc

《MicrosoftOffice2007Excel、、使用技巧大全完整版教程教案资料.doc》由会员分享，可在线阅读，更多相关《MicrosoftOffice2007Excel、、使用技巧大全完整版教程教案资料.doc（1004页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Excel、word、ppt使用技巧大全(完整版)Excelwordppt使用技巧大全(2011新版本)Part 1: EXCEL使用六技巧.2 Part 2: EXCEL自学资料第一集.6 Part 3: EXCEL自学资料第二集.51 Part 4: 一天一个小技巧.99 Part 5: EXCEL技巧汇总.108 Part 6: EXCEL基础知识技巧在线教程.131 Part 7: EXCEL运用技巧汇总.141 Part 8: EXCEL操作-基础篇.168 Part 9: EXCEL问题集锦.212 Part 1: EXCEL使用六技巧返回首页 1.编辑技巧 （1） 分数的输入 如

2、果直接输入“1/5”，系统会将其变为“1月5日”，解决办法是：先输入“0”，然后输入空格，再输入分数“1/5”。 （2） 序列“001”的输入 如果直接输入“001”，系统会自动判断001为数据1，解决办法是：首先输入“”（西文单引号），然后输入“001”。 （3） 日期的输入 如果要输入“4月5日”，直接输入“4/5”，再敲回车就行了。如果要输入当前日期，按一下“Ctrl+；”键。 （4） 填充条纹 如果想在工作簿中加入漂亮的横条纹，可以利用对齐方式中的填充功能。先在一单元格内填入“*”或“”等符号，然后单击此单元格，向右拖动鼠标，选中横向若干单元格，单击“格式”菜单，选中“单元格”命令，在

3、弹出的“单元格格式”菜单中，选择“对齐”选项卡，在水平对齐下拉列表中选择“填充”，单击“确定”按钮。 （5） 多张工作表中输入相同的内容 几个工作表中同一位置填入同一数据时，可以选中一张工作表，然后按住Ctrl键，再单击窗口左下角的Sheet1、Sheet2.来直接选择需要输入相同内容的多个工作表，接着在其中的任意一个工作表中输入这些相同的数据，此时这些数据会自动出现在选中的其它工作表之中。输入完毕之后，再次按下键盘上的Ctrl键，然后使用鼠标左键单击所选择的多个工作表，解除这些工作表的联系，否则在一张表单中输入的数据会接着出现在选中的其它工作表内。 （6） 不连续单元格填充同一数据 选中一个

4、单元格，按住Ctrl键，用鼠标单击其他单元格，就将这些单元格全部都选中了。在编辑区中输入数据，然后按住Ctrl键，同时敲一下回车，在所有选中的单元格中都出现了这一数据。 （7） 利用Ctrl*选取文本 如果一个工作表中有很多数据表格时，可以通过选定表格中某个单元格，然后按下Ctrl*键可选定整个表格。Ctrl*选定的区域为：根据选定单元格向四周辐射所涉及到的有数据单元格的最大区域。这样我们可以方便准确地选取数据表格，并能有效避免使用拖动鼠标方法选取较大单元格区域时屏幕的乱滚现象。 （8） 快速清除单元格的内容 如果要删除内容的单元格中的内容和它的格式和批注，就不能简单地应用选定该单元格，然后按

5、Delete键的方法了。要彻底清除单元格,可用以下方法：选定想要清除的单元格或单元格范围；单击“编辑”菜单中“清除”项中的“全部”命令，这些单元格就恢复了本来面目。 2、单元格内容的合并 根据需要，有时想把B列与C列的内容进行合并，如果行数较少，可以直接用“剪切”和“粘贴”来完成操作，但如果有几万行，就不能这样办了。 解决办法是：在C列后插入一个空列（如果D列没有内容，就直接在D列操作），在1中输入“=B1&C1”，D1列的内容就是B、C两列的和了。选中D1单元格，用鼠标指向单元格右下角的小方块“”，当光标变成后，按住鼠标拖动光标向下拖到要合并的结尾行处，就完成了B列和C列的合并。这时先不要忙

6、着把B列和C列删除，先要把D列的结果复制一下，再用“选择性粘贴”命令，将数据粘贴到一个空列上。这时再删掉B、C、D列的数据。 下面是一个“&”实际应用的例子。用AutoCAD绘图时，有人喜欢在EXCEL中存储坐标点，在绘制曲线时调用这些参数。存放数据格式为“x，y”的形式，首先在Excel中输入坐标值，将x坐标值放入A列，y坐标值放入到B列，然后利用“&”将A列和B列合并成C列，在C1中输入：=A1&，&B1，此时C1中的数据形式就符合要求了，再用鼠标向下拖动C1单元格，完成对A列和B列的所有内容的合并。 合并不同单元格的内容，还有一种方法是利用CONCATENATE函数，此函数的作用是将若干

7、文字串合并到一个字串中，具体操作为“=CONCATENATE（B1,C1）”。比如，假设在某一河流生态调查工作表中，B2包含“物种”、B3包含“河鳟鱼”，B7包含总数45，那么： 输入“=CONCATENATE（本次河流生态调查结果：，B2，B3，为，B7，条/公里。）” 计算结果为：本次河流生态调查结果：河鳟鱼物种为45条/公里。 3、条件显示 我们知道，利用If函数，可以实现按照条件显示。一个常用的例子，就是教师在统计学生成绩时，希望输入60以下的分数时，能显示为“不及格”；输入60以上的分数时，显示为“及格。这样的效果，利用IF函数可以很方便地实现。 假设成绩在A2单元格中，判断结果在A

8、3单元格中。那么在A3单元格中输入公式： =if（A260，“不及格”，“及格”） 同时，在IF函数中还可以嵌套IF函数或其它函数。 例如，如果输入： =if（A260，“不及格”，if（A2=90，“及格”，“优秀） 就把成绩分成了三个等级。 如果输入 =if（A260，“差，if（A2=70，“中”，if（A20，SUM（A1：A5），0） 此式就利用了嵌套函数，意思是，当A1至A5的和大于0时，返回这个值，如果小于0，那么就返回0。 还有一点要提醒你注意：以上的符号均为半角，而且IF与括号之间也不能有空格。 4、自定义格式 Excel中预设了很多有用的数据格式，基本能够满足使用的要求，但

9、对一些特殊的要求，如强调显示某些重要数据或信息、设置显示条件等，就要使用自定义格式功能来完成。 Excel的自定义格式使用下面的通用模型：正数格式，负数格式，零格式，文本格式，在这个通用模型中，包含三个数字段和一个文本段：大于零的数据使用正数格式；小于零的数据使用负数格式；等于零的数据使用零格式；输入单元格的正文使用文本格式。 我们还可以通过使用条件测试，添加描述文本和使用颜色来扩展自定义格式通用模型的应用。 （1）使用颜色 要在自定义格式的某个段中设置颜色，只需在该段中增加用方括号括住的颜色名或颜色编号。Excel识别的颜色名为：黑色、红色、白色、蓝色、绿色、青色和洋红。Excel也识别按颜

10、色X指定的颜色，其中X是1至56之间的数字，代表56种颜色(如图5）。 （2）添加描述文本 要在输入数字数据之后自动添加文本，使用自定义格式为：文本内容；要在输入数字数据之前自动添加文本，使用自定义格式为：文本内容。符号的位置决定了Excel输入的数字数据相对于添加文本的位置。 （3）创建条件格式 可以使用六种逻辑符号来设计一个条件格式：（大于）、=（大于等于）、（小于）、=（小于等于）、=（等于）、（不等于），如果你觉得这些符号不好记，就干脆使用“”或“=”号来表示。 由于自定义格式中最多只有3个数字段，Excel规定最多只能在前两个数字段中包括2个条件测试，满足某个测试条件的数字使用相应段

11、中指定的格式，其余数字使用第3段格式。如果仅包含一个条件测试，则要根据不同的情况来具体分析。 自定义格式的通用模型相当于下式：；0正数格式；50000 $#,#0.00_);红色999999#,#0,_m吨;999#,_k_m千克;#_k克” 可以看到，使用条件格式，千分符和均匀间隔指示符的组合，不用增加公式的数目就可以改进工作表的可读性和效率。 另外，我们还可以运用自定义格式来达到隐藏输入数据的目的，比如格式；0只显示负数和零，输入的正数则不显示；格式“；”则隐藏所有的输入值。 自定义格式只改变数据的显示外观，并不改变数据的值，也就是说不影响数据的计算。灵活运用好自定义格式功能，将会给实际工

12、作带来很大的方便。 5、批量删除空行 有时我们需要删除Excel工作薄中的空行，一般做法是将空行一一找出，然后删除。如果工作表的行数很多，这样做就非常不方便。我们可以利用“自动筛选”功能，把空行全部找到，然后一次性删除。 做法：先在表中插入新的一个空行，然后按下Ctrl+A键，选择整个工作表，用鼠标单击“数据”菜单，选择“筛选”项中的“自动筛选”命令。这时在每一列的顶部，都出现一个下拉列表框，在典型列的下拉列表框中选择“空白”，直到页面内已看不到数据为止。 在所有数据都被选中的情况下，单击“编辑”菜单，选择“删除行”命令，然后按“确定”按钮。这时所有的空行都已被删去，再单击“数据”菜单，选取“

13、筛选”项中的“自动筛选”命令，工作表中的数据就全恢复了。插入一个空行是为了避免删除第一行数据。 如果想只删除某一列中的空白单元格，而其它列的数据和空白单元格都不受影响，可以先复制 此列，把它粘贴到空白工作表上，按上面的方法将空行全部删掉，然后再将此列复制，粘贴到原工作表的相应位置上。 6、如何避免错误信息 在Excel中输入公式后，有时不能正确地计算出结果，并在单元格内显示一个错误信息，这些错误的产生，有的是因公式本身产生的，有的不是。下面就介绍一下几种常见的错误信息，并提出避免出错的办法。 ）错误值： 含义：输入到单元格中的数据太长或单元格公式所产生的结果太大，使结果在单元格中显示不下。或是

14、日期和时间格式的单元格做减法，出现了负值。 解决办法：增加列的宽度，使结果能够完全显示。如果是由日期或时间相减产生了负值引起的，可以改变单元格的格式，比如改为文本格式，结果为负的时间量。 ）错误值：DIV/0! 含义：试图除以0。这个错误的产生通常有下面几种情况：除数为0、在公式中除数使用了空单元格或是包含零值单元格的单元格引用。 解决办法：修改单元格引用，或者在用作除数的单元格中输入不为零的值。 ）错误值：VALUE! 含义：输入引用文本项的数学公式。如果使用了不正确的参数或运算符，或者当执行自动更正公式功能时不能更正公式，都将产生错误信息VALUE!。 解决办法：这时应确认公式或函数所需的

15、运算符或参数正确，并且公式引用的单元格中包含有效的数值。例如，单元格C4中有一个数字或逻辑值，而单元格D4包含文本，则在计算公式=C4D4时，系统不能将文本转换为正确的数据类型，因而返回错误值VALUE!。 ）错误值：REF! 含义：删除了被公式引用的单元格范围。 解决办法：恢复被引用的单元格范围，或是重新设定引用范围。 ）错误值：N/A 含义：无信息可用于所要执行的计算。在建立模型时，用户可以在单元格中输入#N/A，以表明正在等待数据。任何引用含有#N/A值的单元格都将返回#N/A。 解决办法：在等待数据的单元格内填充上数据。 ）错误值：NAME? 含义：在公式中使用了Excel所不能识别的

16、文本，比如可能是输错了名称，或是输入了一个已删除的名称，如果没有将文字串括在双引号中，也会产生此错误值 解决办法：如果是使用了不存在的名称而产生这类错误，应确认使用的名称确实存在；如果是名称，函数名拼写错误应就改正过来；将文字串括在双引号中；确认公式中使用的所有区域引用都使用了冒号（：）。例如：SUM（C1：C10）。 注意将公式中的文本括在双引号中。 ）错误值：NUM! 含义：提供了无效的参数给工作表函数，或是公式的结果太大或太小而无法在工作表中表示。 解决办法：确认函数中使用的参数类型正确。如果是公式结果太大或太小，就要修改公式，使其结果在-110307和110307之间。 ）错误值：NU

17、LL！ 含义：在公式中的两个范围之间插入一个空格以表示交叉点，但这两个范围没有公共单元格。比如输入：“=SUM(A1:A10 C1:C10)”，就会产生这种情况。 解决办法： 取消两个范围之间的空格。上式可改为“=SUM(A1:A10 ,C1:C10)” Part 2: EXCEL自学资料第一集返回首页 自学资料第一集 1、Application.CommandBars(Worksheet Menu Bar).Enabled = false 2、cells(activecell.row,b).value 活动单元格所在行B列单元格中的值 3、Sub CheckSheet()如果当前工作薄中没有

18、名为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

19、(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.CommandBars(Ply).Enabled = False工作表标签上快捷菜单失效 8、Sub aa()把B1到B12单元格的数据填入c1到c12 For i = 1 To 12 Range(C & i)

20、 = Range(B & i) Next i End Sub 9、ActiveCell.AddComment 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 类型，可读写。 说明 可将本属性设置

21、为空字符串 () 以允许对整张工作表内所有单元格的选定。 示例 本示例设置第一张工作表的滚动区域。 Worksheets(1).ScrollArea = a1:f10 12if application.max(a1:e1)=10 then msgbox commandbutton1.enabled=false A1E1最大的数值达到10时，自动弹出对话框，并冻结按钮 12、本示例将更改的单元格的颜色设为蓝色。 Private Sub Worksheet_Change(ByVal Target as Range) Target.Font.ColorIndex = 5 End Sub 13、Sub

22、 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中建

23、上链接 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 A

24、pplication.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

25、 SendKeys F4ENTER, True End Sub 19、Sub delback()一次性删除工作簿中所有工作表的背景 For Each shtSheet In Sheets shtSheet.SetBackgroundPicture Filename:= Next shtSheet End Sub 20、a1.formula=b1+c1A1中设定公式为=B1+C1 21、Private Sub CommandButton1_Click()将A1到C6中大于=3的数依次放入E列 Dim i As Long r = 1 For Each i In Range(a1:c6) If i

26、=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

27、、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 Ap

28、plication.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) If Target.Value Like *小计 Then MsgBox OK End Sub 27、ActiveCell.FormulaR1C1 = =

29、SUM(R1C:R14C,R59C:R78C) 这是相对引用的写法：根据推算你的函数是放在“AD6”单元格 你的函数：=SUM(R1C:R14C 中的 R表示行 C表示列。 R1表示“AD6+1行，C表示“列没有变化，就是同列”那么：R1C就表示AD7 同理，R14表示AD6+14行，表示：AD20。以此类推。 28、Private Sub CommandButton1_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

30、= 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) .Ena

31、bled = True ActiveSheet.Shapes(.Caption).DrawingObject.Font.ColorIndex = xlAutomatic End With 30、Private Sub Worksheet_SelectionChange(ByVal Target As Range选定A1时要输入密码 If Target.Address = $A$1 Then A = InputBox(请输入密码, officefans) If A = 1 Then A1.Select Else A2.Select End If End Sub 31、如何将工作薄中的命名单元格成

32、批删除！ 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 = $A$3 Then 当点击$A$3单元格时. Sheet2.Visible = 1 取消隐藏 Sheet2.Activate 激活 ActiveSheet.Range(A1

33、).Select End If If Target.Address = $A$6 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 = ComboBox1.co

34、lumn(1) End Sub 如果是要填入代码和名称的组合 : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Selection.Value = cstr(ComboBox1.column(0)+ +combobox1.column(1) End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Selection.Value = ComboBox1.Value End Sub Private Sub Worksheet_Selectio

35、nChange(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 事件 参阅应用于示例特性在打印指定工作簿（或者其中的任何内容）之前，产生此事件。 Priv

36、ate 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 37、Open 事件 参阅应用于示例特性打开工作簿时，将产生本事件。 Private Sub Workbook_Op

37、en() 示例 每次打开工作簿时，本示例都最大化 Microsoft Excel 窗口。 Private Sub Workbook_Open() Application.WindowState = xlMaximized End Sub 38、ActiveSheet 属性 参阅应用于示例特性返回一对象，该对象代表活动工作簿中的，或者指定的窗口或工作簿中的活动工作表（最上面的工作表）。只读。如果没有活动的工作表，则返回 Nothing。 说明 如果未给出对象识别符，本属性返回活动工作簿中的活动工作表。 如果某一工作簿在若干个窗口中出现，那么该工作簿的 ActiveSheet 属性在不同窗口中可能

38、不同。 示例 本示例显示活动工作表的名称。 MsgBox The name of the active sheet is & ActiveSheet.Name 39、Calculate 方法 参阅应用于示例特性计算所有打开的工作簿、工作簿中的一张特定的工作表或者工作表中指定区域的单元格，如下表所示： 要计算 依照本示例 所有打开的工作簿 Application.Calculate （或只是 Calculate） 指定工作表 指定工作表 指定区域 Worksheets(1).Rows(2).Calculate expression.Calculate expression 对于 Applicat

39、ion 对象可选，对于 Worksheet 对象和 Range 对象必需。该表达式返回“应用于”列表中的对象之一。 示例 本示例计算 Sheet1 已用区域中 A 列、B 列和 C 列的公式。 Worksheets(Sheet1).UsedRange.Columns(A:C).Calculate 程序的核心是算法问题 40、End 属性 参阅应用于示例特性返回一个 Range 对象，该对象代表包含源区域的区域尾端的单元格。等同于按键 End+ 向上键、End+ 向下键、End+ 向左键或 End+ 向右键。Range 对象，只读。 expression.End(Direction) expre

40、ssion 必需。 该表达式返回“应用于”列表中的对象之一。 Direction XlDirection 类型，必需。所要移动的方向。 XlDirection 可为 XlDirection 常量之一。 xlDown xlToRight xlToLeft xlUp 示例 本示例选定包含单元格 B4 的区域中 B 列顶端的单元格。 Range(B4).End(xlUp).Select 本示例选定包含单元格 B4 的区域中第 4 行尾端的单元格。 Range(B4).End(xlToRight).Select 本示例将选定区域从单元格 B4 延伸至第四行最后一个包含数据的单元格。 Worksheet

41、s(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 对象，该对象代表下一个工作表或单元

42、格。只读。 说明 如果指定对象为区域，则本属性的作用是仿效 Tab，但本属性只是返回下一单元格，并不选定它。 在处于保护状态的工作表中，本属性返回下一个未锁定单元格。在未保护的工作表中，本属性总是返回紧靠指定单元格右边的单元格。 示例 本示例选定 sheet1 中下一个未锁定单元格。如果 sheet1 未保护，选定的单元格将是紧靠活动单元格右边的单元格。 Worksheets(Sheet1).Activate ActiveCell.Next.Select 43、想通过target来设置(A1：A10)区域内有改动，就发生此事件。不知道如何 if target.row = 1 and target.column =10 then Sub 列举菜单项() Dim r, s, i As Integer r = 1 For i = 1 To CommandBars.Count ActiveSheet.Cells(r, 1) = CommandBars( & i & ).Name: & CommandBars(i).Name r = r + 1 For s = 1 To CommandBars(i).Controls.Count ActiveSheet.Cells(r, 1) = s & 、 & CommandBars(i).Control