MATCH函数也是一个查找函数。MATCH 函数会返回匹配值的位置而不是匹配值本身。在使用时，MATCH函数在众多的数字中只查找第一次出现的，后来出现的它返回的也是第一次出现的位置。
　　MATCH函数语法：MATCH(查找值，查找区域，查找模式)
　　可以通过下图来认识MATCH函数的用法：

http://s9/mw690/001EG9V7ty6Fd9V9RxKe8&690

 

　　=MATCH(41,B2:B5,0)，得到结果为4，返回数据区域 B2:B5 中 41 的位置。
　　=MATCH(39,B2:B5,1)，得到结果为2，由于此处无正确匹配，所以返回数据区域 B2:B5 中(38) 的位置。注：匹配的查找值，MATCH 函数会查找小于或等于(39)的最大值。
　　=MATCH(40,B2:B5,-1)，得到结果为#N/A，由于数据区域 B2:B5 不是按降序排列，所以返回错误值。

INDEX函数的功能就是返

如果你确实想在excel中捕捉到键盘事件,例如你想当按下鼠标左键+ctrl时,出现你想要的结果,你需要这样做才可以.

首先在模块中写一段程式,用于判断在按下鼠标左键同时再按下那个ctrl键(键盘),keys()及数字代表的键,已经在下面列出.

Sub 键盘()
Dim keys(0 To 255) As Byte
GetKeyboardState keys(0)
If keys(17) > 127 Then
tx1 = i: tx2 = j
If Range(ar1).Columns.Count > 1 Or Range(ar1).Rows.Count > 1 Or Range(ar2).Columns.Count > 1 Or Range(ar2).Rows.Count > 1 Then tx1 = '': tx2 = ''
If fl = False Then fl = True: 交换单元格.Label1.Caption = ar1 & ' = ' & tx1 Else Range(ar1) = j: Range(ar2) = i: fl = False: 交换单元格.Label2.Caption = ar2 & ' = ' & tx2: 交换单元格.CommandButton1.Caption = '已交换': 交换单元格.CommandButton2.Enabled = True

End If
End Sub

本文介绍以下四种语句:

①match及find,findnext

②select case

③with

④do loop while

定义一个区域并赋值，一定要注意区域赋值必须用set.
用match在区域查找b，如果没有找到：就会出现错误提示。
Sub hys()
Dim ar As Range, dr, b
Set ar = Sheet1.Rows(6)
b = Cells(12, 1)
dr = IsError(Application.WorksheetFunction.Match(b, ar))
MsgBox dr
End Sub
上列中，如果没有找到返回一个错误值，但用iserror无法难测,程序就会出错.所以一般不用这种方法来查找.

find语句使用
Private Sub hys()
bj2 = '八(2)'
Set raa = Sheet1.Range(Cells(42, 1), Cells(42, 18))
Set ra = raa.Find(bj2, LookIn:=xlValues)
MsgBox ra
End Sub
返回的应该是一个range,但很多情况下,系统显示的是返回单元格

定义一个range变量，赋值是一定是一个区域，要用set格式。

定义一个Ｃ列的区域

dim a1 as range

set al=range('c:c')

[示例01] 赋值给某单元格
[示例01-01]
Sub test1()
Worksheets('Sheet1').Range('A5').Value = 22
MsgBox '工作表Sheet1内单元格A5中的值为' _
& Worksheets('Sheet1').Range('A5').Value
End Sub
[示例01-02]
Sub test2()
Worksheets('Sheet1').Range('A1').Value = _
Worksheets('Sheet1').Range('A5').Value
MsgBox '现在A1单元格中的值也为' & _
Worksheets('Sheet1').Range('A5').Value
End Sub
[示例01-03]
Sub test3()
MsgBox '用公式填充单元格,本例为随机数公式'
Range('A1:H8').Formula = '=Rand()'
End Sub
[示例01-04]
Sub test4()
Worksheets(1).Cells(1, 1).Value = 24
MsgBox '现在单元格A1的值为24'
End Sub
[示例01-05]
Sub test5()
MsgBox '给单元格设置公式,求B2至B5单元格区域之和'
ActiveSheet.Cells(2, 1).Formula = '

有朋友是教学的，几乎每周都要统计学生的考试成绩，如前十名的平均成绩，后来竟然要求从5名到10名的平均成绩，十几班让他用普通方法弄了好长时候。实际上如果用数组来，很容易解决这个问题。

成绩表如下，各科不用排序。

http://s8/mw690/001EG9V7ty6EU02X1ST97&690

现在要求出英语科的成绩在前10的学生平均成绩，如果用一般方法很是麻烦，但用数组确实简单。

如下：

http://s4/mw690/001EG9V7ty6EU0dVcKT93&690

在E39中输入以下内容：=SUM(((RANK(E3:E38,E3:E38)<=10))*1*(E3:E38))/10

然后同时按下shift+ctrl+enter三个组合键，公式变为：：{=SUM(((RANK(E3:E38,E3:E38)<=10))*1*(E3:E38))

利用Word制作试卷,经常用下划线画空格线(用作填空),常出现这样的问题:到一行将结束时,用下划线画一条填空线,但此下划线上不够填写内容的位置,必须将下划线延续到下一行。此时,继续上一行下划线的操作，到下一行，不再出现下划线。请教，如何操作可以将下划线延续到下一行或通过什么途径可以较好解决下划线从一行延续到下一行？

这个问题，相信出过试题的朋友都碰见过，那么解决这个问题呢？

1.我以前处理的方法是设置好页面后，在行首前加上一个字，然后把这个字设成白色，再敲一些空格。不足之处是，如果你调整了页面，那么这个设置就会出问题。

2.如果用，按Shift+Enter进行软回车即可，也会面临上面的问题。

经过使用，发现现在这两种方法，还是比较实用。

3.单击：菜单→格式→段落→中文版式，选中“允许西文在单词中间换行”确定后，再输入一些空格试试，是不是上一行的行尾与第二行的行首都可以有空格了，而且无论你如何调整页面，排版都不会发生变化。

4.单击：工具→选项→兼容性，在下拉菜单中，勾选其中的“将尾部空行移入下一行”，并确定。是不是也达到了上面的效果。

一、 导入gif动画

　　新建一层，选择第一帧，执行【文件】|【导入到场景】命令，将本教程中的“奔跑的豹子”系列图片导入。此时，会弹出一个对话框，如图3-2-5所示。

　　http://s15/middle/5a6f2809tb315e254eabe&690

　　3-2-5 系列图片导入

　　选择【是】按钮，Flash 会自动把gif中的图片序列按序以逐帧形式导入场景的左上角，如图3-2-7所示。

　　http://s8/middle/

领导要求一位同事给他写篇文字，这位同事不想自己去写，就从网上下了一篇，然后修改了一下，准备打印出来之后，交给领导完事。结果，打印出来的东西让他大失所望，全篇文章里充满了“错误!

你遇到到这种现象吗？要求把几十张照片按照一定的排版打到一张纸上，并在照片下显示图片名或图片的说明，相信很的朋友会选择在word中制作一些表格然后在把图片插入进去，再在图片下面写出说明了，如果那样的话，速度一定非常慢，而且你也一定会很累的，实际上这个问题用Acdsee2009就能解决。

方法：

1.首先把你的照片放在一个文件夹中，而且把要打印的说明就作为图片的名字。

2.运行ACDSEE，打开你的放有图片的文件夹，选择需要打印的全部图片（选择方法不用我说了吧），然后点击菜单中的打印→联系表，在缩略图项设置你要求的列或行，如两列两行，设置如下