在 word 中，软回车是 shift+enter ；硬回车是 enter ，要替换的话：

查找内容 ^l

替换为 ^p

Tags: 回车回车 替换替换

    office 2007 默认使用新的文件格式保存，之前的版本都不能直接打开，微软推出了 Microsoft Office Word、Excel 和 PowerPoint 2007 文件格式兼容包（下载页面：http://www.microsoft.com/downloads/details.aspx?displaylang=zh-cn&FamilyID=941b3470-3ae9-4aee-8f43-c6bb74cd1466），安装之后就能打开 docx 之类的文件了。

详细下载地址：http://download.microsoft.com/download/6/5/6/6568c67b-822d-4c51-bf3f-c6cabb99ec02/FileFormatConverters.exe 

Tags: officeoffice 兼容兼容

    在 excel 中比较两列数据是经常会遇到的，下面简单介绍一下：

1.比较2列数字
直接用 if 来判断是否 = 就行。

2.比较2列字符串
使用 exact 函数来比较，选择2个字符串，如果相同就返回 true ,不同就返回 false .

Tags: ifif exactexact

定制模块行为
(1) Option Explicit '强制对模块内所有变量进行声明
      Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示
      Option Compare Text '字符串不区分大小写
      Option Base 1 '指定数组的第一个下标为1
(2) On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息
(3) On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置
(4) On Error GoTo 0 '恢复正常的错误提示
(5) Application.DisplayAlerts=False '在程序执行过程中使出现的警告框不显示
(6) Application.ScreenUpdating=False '关闭屏幕刷新
      Application.ScreenUpdating=True '打开屏幕刷新
(7) Application.Enable.CancelKey=xlDisabled '禁用Ctrl+Break中止宏运行的功能

工作簿
(8) Workbooks.Add() '创建一个新的工作簿
(9) Workbooks("book1.xls").Activate '激活名为book1的工作簿
(10) ThisWorkbook.Save '保存工作簿
(11) ThisWorkbook.close '关闭当前工作簿
(12) ActiveWorkbook.Sheets.Count '获取活动工作薄中工作表数
(13) ActiveWorkbook.name '返回活动工作薄的名称
(14) ThisWorkbook.Name '返回当前工作簿名称
        ThisWorkbook.FullName '返回当前工作簿路径和名称
(15) ActiveWindow.EnableResize=False '禁止调整活动工作簿的大小
(16) Application.Window.Arrange xlArrangeStyleTiled '将工作簿以平铺方式排列
(17) ActiveWorkbook.WindowState=xlMaximized '将当前工作簿最大化

工作表
(18) ActiveSheet.UsedRange.Rows.Count '当前工作表中已使用的行数
(19) Rows.Count '获取工作表的行数(注:考虑向前兼容性)
(20) Sheets(Sheet1).Name= "Sum" '将Sheet1命名为Sum
(21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) '添加一个新工作表在第一工作表前
(22) ActiveSheet.Move After:=ActiveWorkbook. _
        Sheets(ActiveWorkbook.Sheets.Count) '将当前工作表移至工作表的最后
(23) Worksheets(Array("sheet1","sheet2")).Select '同时选择工作表1和工作表2
(24) Sheets("sheet1").Delete或 Sheets(1).Delete '删除工作表1
(25) ActiveWorkbook.Sheets(i).Name '获取工作表i的名称
(26) ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines '切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮
(27) ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings '切换工作表中的行列边框显示
(28) ActiveSheet.UsedRange.FormatConditions.Delete '删除当前工作表中所有的条件格式
(29) Cells.Hyperlinks.Delete '取消当前工作表所有超链接
(30) ActiveSheet.PageSetup.Orientation=xlLandscape
或ActiveSheet.PageSetup.Orientation=2 '将页面设置更改为横向
(31) ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName '在页面设置的表尾中输入文件路径
ActiveSheet.PageSetup.LeftFooter=Application.UserName '将用户名放置在活动工作表的页脚

单元格/单元格区域
(32) ActiveCell.CurrentRegion.Select
或Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select
'选择当前活动单元格所包含的范围，上下左右无空行
(33) Cells.Select '选定当前工作表的所有单元格
(34) Range("A1").ClearContents '清除活动工作表上单元格A1中的内容
Selection.ClearContents '清除选定区域内容
Range("A1:D4").Clear '彻底清除A1至D4单元格区域的内容，包括格式
(35) Cells.Clear '清除工作表中所有单元格的内容
(36) ActiveCell.Offset(1,0).Select '活动单元格下移一行，同理，可下移一列
(37) Range("A1").Offset(ColumnOffset:=1)或Range("A1").Offset(,1) '偏移一列
Range("A1").Offset(Rowoffset:=-1)或Range("A1").Offset(-1) '向上偏移一行
(38) Range("A1").Copy Range("B1") '复制单元格A1，粘贴到单元格B1中
Range("A1:D8").Copy Range("F1") '将单元格区域复制到单元格F1开始的区域中
Range("A1:D8").Cut Range("F1") '剪切单元格区域A1至D8，复制到单元格F1开始的区域中
Range("A1").CurrentRegion.Copy Sheets("Sheet2").Range("A1") '复制包含A1的单元格区域到工作表2中以A1起始的单元格区域中
注:CurrentRegion属性等价于定位命令，由一个矩形单元格块组成，周围是一个或多个空行或列
(39) ActiveWindow.RangeSelection.Value=XX '将值XX输入到所选单元格区域中
(40) ActiveWindow.RangeSelection.Count '活动窗口中选择的单元格数
(41) Selection.Count '当前选中区域的单元格数
(42) GetAddress=Replace(Hyperlinkcell.Hyperlinks(1).Address,mailto:,"") '返回单元格中超级链接的地址并赋值
(43) TextColor=Range("A1").Font.ColorIndex '检查单元格A1的文本颜色并返回颜色索引
Range("A1").Interior.ColorIndex '获取单元格A1背景色
(44) cells.count '返回当前工作表的单元格数
(45) Selection.Range("E4").Select '激活当前活动单元格下方3行，向右4列的单元格
(46) Cells.Item(5,"C") '引单元格C5
  Cells.Item(5,3) '引单元格C5
(47) Range("A1").Offset(RowOffset:=4,ColumnOffset:=5)
或 Range("A1").Offset(4,5) '指定单元格F5
(48) Range("B3").Resize(RowSize:=11,ColumnSize:=3)
Rnage("B3").Resize(11,3) '创建B3:D13区域
(49) Range("Data").Resize(,2) '将Data区域扩充2列
(50) Union(Range("Data1"),Range("Data2")) '将Data1和Data2区域连接
(51) Intersect(Range("Data1"),Range("Data2")) '返回Data1和Data2区域的交叉区域
(52) Range("Data").Count '单元格区域Data中的单元格数
  Range("Data"). Columns.Count '单元格区域Data中的列数
  Range("Data"). Rows.Count '单元格区域Data中的行数
(53) Selection.Columns.Count '当前选中的单元格区域中的列数
Selection.Rows.Count '当前选中的单元格区域中的行数
(54) Selection.Areas.Count '选中的单元格区域所包含的区域数
(55) ActiveSheet.UsedRange.Row '获取单元格区域中使用的第一行的行号
(56) Rng.Column '获取单元格区域Rng左上角单元格所在列编号
(57) ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions) '在活动工作表中返回所有符合条件格式设置的区域
(58) Range("A1").AutoFilter Field:=3,VisibleDropDown:=False '关闭由于执行自动筛选命令产生的第3个字段的下拉列表

查看更多...

Tags: excelexcel vbavba

对某一列的数值进行区间判断，注意相对引用、if 函数的使用。

Tags: 条件格式条件格式 excelexcel

只是Excel为了沿袭Lotus123的一个函数，属于隐藏函数。

语法
DATEDIF(start_date,end_date,unit)

Start_date 为一个日期，它代表时间段内的第一个日期或起始日期。日期有多种输入方法：带引号的文本串（例如 "2001/1/30"）、系列数（例如，如果使用 1900 日期系统则 36921 代表 2001 年 1 月 30 日）或其他公式或函数的结果（例如，DATEVALUE("2001/1/30")）。有关日期系列数的详细信息，请参阅 NOW。

End_date 为一个日期，它代表时间段内的最后一个日期或结束日期。

查看更多...

Tags: datedifdatedif excelexcel 隐藏函数隐藏函数

TRIMMEAN

返回数据集的内部平均值。函数 TRIMMEAN 先从数据集的头部和尾部除去一定百分比的数据点，然后再求平均值。当希望在分析中剔除一部分数据的计算时，可以使用此函数。

语法

TRIMMEAN(array,percent)

Array   为需要进行筛选并求平均值的数组或数据区域。

Percent   为计算时所要除去的数据点的比例，例如，如果 percent = 0.2，在 20 个数据点的集合中，就要除去 4 个数据点（20 x 0.2），头部除去 2 个，尾部除去 2 个。

说明

• 如果 percent < 0 或 percent > 1，函数 TRIMMEAN 返回错误值 #NUM!。
  
• 函数 TRIMMEAN 将除去的数据点数目向下舍为最接近的 2 的倍数。如果 percent = 0.1，30 个数据点的 10% 等于 3 个数据点。函数 TRIMMEAN 将对称地在数据集的头部和尾部各除去一个数据。

   

示例

TRIMMEAN({4,5,6,7,2,3,4,5,1,2,3},0.2) 等于 3.777778

Tags: trimmeantrimmean excelexcel

使用数据库函数求出“X与Y之和大于Z”的记录的Z值之和 。

放在桌面上很久的东东，放上来先。 ^_^

Tags: 数据库函数数据库函数 dsumdsum excelexcel