"",TEXT(SMALL(IF(IF($A$2:$A$7=$B$16,$B$2:$B$7,"")=$C$16,$C$2:$C$7,""),ROW($A1)),"m月d日"))}
Excel基本功
1.引用同一工作薄中另外一工作表的单元格
= Worksheets("工作表名称").Cells(1, 1)
------------------------------------------------------------
如当前工作表为sheet1，想引用sheet2中的B2,则=sheet2!B2
2.如何使0值不显示
方法1：if (A1<>"", A., "")
方法2：对于整个工作表中的0值全不显示，[工具]-[选项]-[视图]，清除0值选项。
方法3：用自定义数字格式，其中"#"和"?"有屏蔽0值的效果。比如："G/通用格式;G/通用格式;#"，"G/通用格式;G/通用格式;?"。
3.如何定义格式和Copy格式?
在EXCEL中,可不可以把某一范围定义成一种格式,而其中某些数据又不是.并且又如把这种格式COPY到同一张sheet1中?如:
大制程 标准工时 状况 2002/1/24 2002/1/25
二次 13 /焊接 20 .而其它空格就不包括在格式中.被填写了的这张表格的格式又能重新COPY.如何做呢?
解答：新建一个只有一个工作表的工作簿 ,在这个工作表中设计你的格式另存为模板（*.xlt）。以后chā入新工作表时，选择刚才建的模板。
又问：但是假如我只有一张工作表,我如何在同一张工作表中COPY呢?如我的固定格式在sheet1的A1:Z15范围内,我要把这种格式copy到A17:Z24,而其中的数据又不COPY进来.怎么办?
解答：假设你要复制格式的范围为A1:Z1和A1:B15两个区域，则用下面的宏能实现你的复制要求。
你只要选定新区域左上角的单元格，然后执行宏即可。
Sub 宏1()
aaa = ActiveWindow.RangeSelection.Address
Range("A1:Z1").Select
Selection.Copy
Range(aaa).Select
ActiveSheet.Paste
Range("A1:B15").Select
Application.CutCopyMode = False
Selection.Copy
Range(aaa).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range(aaa).Select
End Sub
------------------------------------------------------------
如果A1:Z15中的数据全部都要清除，
可以[复制]A1:Z15，[选择xìng粘贴]到A17，粘贴栏中选中"格式"。
------------------------------------------------------------
选定范围后直接使用格式刷就可以了
4.如何实行列互换？
解答：Transpose函数
或选中一行或一列，复制，选择xìng粘贴－＞转置。
------------------------------------------------------------
在某一单元格输入公式“INDEX(reference,COLUMN(A1),ROW(A1))”
然后向下向右拖放。
5.EXCEL2000中视面管理器如何具体运用呀？
请问高手EXCEL2000中视面管理器如何具体运用呀？
------------------------------------------------------------
其实很简单呀，你把它想象成运动场上的一串照片（记录不同时点的场景），
一张照片记录一个场景，选择一张照片就把运动“拖”到照片上的时点。
不同的是只是场景回复，而值和格式不回复。
解除officeXP 50 次限制
1、 首先使用下面这个序号来安装Office XP。
2、 BMV8D-G272X-MHMXW-4DY9G-M8YTQ
3、 2、安装后，启动新建一个Word文档，程序会提示你激活，不管它！关闭Word。
4、 3、打开注册表编辑器REGEDIT.exe，进入到下面的子键里面：
5、 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\Products\4080820900063D11C8EF00054038389C\Always Installed]
6、 4、把右边的这个DWORD类型的键删除："Usage"=dword:2adb0001
7、 5、在右边新建这样一个字符串型的键：Usage，将其值改为AlwaysInstalled 即： Usage="AlwaysInstalled"
8、 6、最后使用法国人写的字节数为12,800的Crack.exe来破解Office XP后，即大功告成！
9、 我破解后，打开Word 70次，打开Excel 60次后，还是能够新建文档、表格，而且可以顺利保存。
10、 无论Win98或Win2000cāo作系统我都成功了,且已运行了200次以上!
小写数字转换chéng rén民币大写
方法1、
Function UNumber(LNumber As Double)
Dim NumberStr$
Dim NumberLen%
Dim DotLoc1%
Dim DotLoc2%
Dim NumberStr1$
Dim NumberStr2$
If LNumber = 0 Then
UNumber = "零元整"
Exit Function
End If
NumberStr = Application.WorksheetFunction.Text(LNumber, "[DBnum2]")
NumberLen = Len(NumberStr)
DotLoc1 = InStr(1, NumberStr, ".", vbTextCompare)
DotLoc2 = NumberLen - DotLoc1
If DotLoc1 = 0 Then