推荐阅读
Excel EXACT 函数 使用教程
EXACT 函数比较两个文本字符串，如果它们完全相同，则返回 TRUE，否则返回 FALSE。Excel 2003+EXACT 函数比较两个文本字符串，如果它们完全相同，则返回 TRUE，否则返回 FALSE。EXACT 函数在比较两个字符串时，区分大小写，但是忽略格式差异。返回 TRUE 或 FALSE。=EXACT(text1, text2) =EXACT(文本1, 文本2) 参数 Text1 必需。 第一个文本字符串。 text2 必需。 第二个文本字符串。 实例
Word技巧：设置文字底纹
为了美化文档，我们可以适当给文档的内容添加底纹和边框。那么下面小编就教你word设置底纹的技巧。 word设置底纹的技巧: 选中文本内容。 在“开始”选项卡，单击“底纹”按钮，在打开的列表中选择底纹的即可。 说明：我们还可以选择文本设置字符底纹，在“开始”选项卡，直接单击“底纹”按钮即可。 看看效果，如下图所示。
如何给ppt2007中的贴画自定义皮肤
用户在进行ppt编写的时候往往会需要插入一些剪贴画，而插入的剪贴画都是系统自带的，难免颜色，色调方面会不合你的心意，其实我们完全有办法将剪贴画重新换上另一种自己喜欢的颜色皮肤，你是不是很诧异呢，那么我们究竟该如何给剪贴画换皮肤呢，小编这就来为大家排忧解难。操作步骤1 打开我们幻灯片中的一篇演示文稿，点击“插入”选项卡，在“插图”区域选择“剪贴画”选项组，此时在演示文稿的右侧会出现一个“剪贴画”的任务窗格，在里面输入文字搜索剪贴画，在搜索结果中选择自己喜欢的剪贴画用鼠标双击，如“第一幅”；插入剪贴画2 使插入在文本中的剪贴画处于被选中状态，然后单击“格式”选项卡，在“调整”区域选择“重新着色”选项组，在弹出的下拉菜单中点击“其他变体”选项中的“其他颜色”命令；单击其他颜色选项3 在弹出的“颜色”的对话框中单击“自定义”选项卡，用鼠标在“颜色”区域单击选择自己喜欢的颜色，用户也可以在对话框的底端调整颜色的“透明度”，最后单击“确定”即可；进行颜色的设置4 返回到文档中，你会发现刚刚插入的剪贴画已经被重新换了颜色，以下是上色后的剪贴画与在任务框中搜索到的原图剪贴画的对比；重新上色后的剪贴画
Word2007如何压缩图片
Word2007如何压缩图片?其实我们可以在Word2007中设置图片压缩选项，这样在保存文档时Word2007可以按照用户的设置自动压缩图片尺寸。下面小编就教你Word2007压缩图片的方法。 Word2007压缩图片的方法： 打开Word2007文档，选中其中的一张图片。在“图片工具”功能区的“格式”选项卡中，点击“压缩图片”按钮。 在打开的“压缩图片”对话框中，单击“选项”按钮。 在“压缩设置”对话框中选中“保存时自动执行基本压缩”复选框，并单击“确定”按钮即可。 注意：在“压缩设置”对话框中，如果选中“删除图片的裁剪区域”复选框，则在执行压缩图片操作后，被裁剪的图片将不能被还原到原始状态。 当Word文档中含有很多大尺寸图片的时候，这个操作非常有效。下面是我们没有压缩图片保存和压缩图片保存后的文档体积大小对比。Word2007如何压缩图片
最新发布
word怎么利用邮件合并填写表格
在办公过程中可能遇到大量的表格或者类似的文件需要填写，这时就可以利用WORD的信函工具来批量填写。那么下面就由小编为大家分享下word利用邮件合并填写表格的技巧，希望能帮助您。 word利用邮件合并填写表格的步骤如下： 步骤一：打开WORD表格，观察需要录入的数据。 步骤二：然后打开Excel表格，把需要填写的内容录入进去(表格的表头，对应着WORD表格里需要填写的部分，例如：WORD里有姓名，EXCEL表头就填姓名)，然后保存。 步骤三：打开WORD，工具-自定义-工具栏-选择邮件合并。 步骤四：在邮件工具栏里选择打开数据源。 步骤五：找到刚保存的Excel表格，打开。 步骤六：然后选择Sheet1$，确定。 步骤七：在WORD表格需要录入的地方选择插入域(邮件合并工具栏)。 步骤八：在WORD表格需要录入的地方插入相应的域(比如姓名处插入姓名域)
word中怎么做流程图
我们在制作word文档的时候，往往需要添加流程图，将一个业务流程在word中展示，那么下面就由小编给大家分享下word中做流程图的技巧，希望能帮助到您。 的步骤如下： 步骤一：打开word文档，然后选择插入-形状，然后就可以选择流程图。 步骤二：在word中画出流程图的图形，然后调整其位置。 步骤三：接下来在插入形状中选择需要的线条。 步骤四：使用线条连接好图形形成基本流程图。 步骤五：右键单击形状点击添加文字。 步骤六：为每个图形添加好文字，word流程图就画好了。看了“word中怎么做流程图”此文的人还看了：.1.如何用Word制作流程图
word中调大字体的两种方法
在Word使用中，有时候需要放大字体，但是Word本身提供的字体最大就是初号字体，无法满足需求怎么办?那么下面就由小编给大家分享下word中调大字体的技巧，希望能帮助到您。 word中调大字体方法一 步骤一：选择要放大或缩小的内容，右键字体。word中调大字体方法图1 步骤二：全选字体号word中调大字体方法图2 步骤三：输入自己想要的字体号word中调大字体方法图3 word中调大字体方法二 步骤一：光标选中需要进行调整的字体，在上方字体栏，往设置字体尺寸的选项框中填入自己想要设置的尺寸大小，然后回车确定。word中调大字体方法图4
EXCEL VBA 跨表合并多个文件
‘选择一个目录，将目录中的所有EXCEL文件导入当前工作表‘这些EXCEL文件最好格式能一样，这里是每个文件是同一个格式Sub 批量()Dim FD, str$, arrSet FD = Application.FileDialog(msoFileDialogFolderPicker)If FD.Show = -1 Then t = FD.SelectedItems(1) Else Exit Sub ‘如果没选择文件夹则退出Application.ScreenUpdating = FalseCells.NumberFormatLocal = "@"str = Dir(t & "\*.xl*") ‘查找格式为EXCEL的文件While Len(str) > 0 ‘文件名不为空时Workbooks.Open (t & IIf(Right(t, 1) = "", "", "") & str) ‘打开工作簿With ActiveWorkbook.ActiveSheet.Range(.Cells(2, "l"), .Cells(.[a65536].End(3).Row, "l")) = "’" & Left(str, Len(str) – IIf(Right(str, 1) = "x", 5, 4))arr = .UsedRangeWorkbooks(str).Close False ‘关闭工作薄Kill (t & IIf(Right(t, 1) = "", "", "") & str) ’删除工作薄（如果不删除，省去这一步）End WithWith ActiveSheetrw = .[a65536].End(3).Row + 1.Cells(rw, 1).Resize(UBound(arr, 1), UBound(arr, 2)) = arr ‘将数据写入当前工作表End Withstr = Dir() ‘查找下一个文件WendIf [a1] = "" Then Rows(1).Delete ‘如果A1为空，删除第一行Application.ScreenUpdating = TrueEnd Sub
利用VBA实现Excel表格计算
利用Excel制作电子表格时，有时需要用到计算填充功能，比如某列每种元件的价格合计，就是由E列元件单价乘以D列元件数量得来的。通过分析，发现利用Excel提供的VBA(VisualBasicforApplication)功能，写几行Basic代码即可方便地达到自动填充F列数据的目的，且计算结果为纯数据值，可以自由进行处理。具体实现步骤如下： 1. 建立Excel工作表，分别填入其它相应的数据，包括E列元件的单价和D列元件数量。 2. 点击“视图”→“工具栏”→“VisualBasic”→VB控件工具箱。 3. 在整个工作表的底部或适当的位置放置控制按钮“CommandButton1”。 4. 双击控制按钮，加入语句：PrivateSubCommandButton1_Click()DimiAsInteger’自动填充的行号DimrandAsString’工作表D列的范围参数DimraneAsString’工作表E列的范围参数DimranfAsString’工作表F列的范围参数 Fori=2To12’12为本例中给出的填充结果行号，可由使用者自己设定’该循环主要完成工作表F列计算表格的自动填充rand=″D″＋CStr(i)rane=″E″＋CStr(i)ranf=″F″＋CStr(i)Worksheets(″Sheet1″).Range(ranf)=Worksheets(″Sheet1″).Range(rand)＊Worksheets(″Sheet1″).Range(rane)NextiEndSub 5. 按执行键，就可达到设计要求的计算表格项的自动填充，且填充结果为纯数据。 Excel提供了VBA功能，使我们可以根据需要对其进行适当的二次开发，仔细研究其用法，会使制作电子表格的工作更加轻松。
excel中利用VBA将指定的单元格定位于屏幕*
如果工作表中的单元格都具有相同的行高和列宽，我们可以用VBA的方法将给定的单元格和区域定位于屏幕*，下面是VBA代码：Sub CenterOnCell(OnCell As Range)Dim VisRows As IntegerDim VisCols As Integer‘关闭屏幕更新Application.ScreenUpdating = False‘激活区域所在的工作簿和工作表OnCell.Parent.Parent.ActivateOnCell.Parent.Activate‘获取活动窗口的可视行数和列数With ActiveWindow.VisibleRangeVisRows = .Rows.CountVisCols = .Columns.CountEnd With‘ 确定参考单元格并用GOTO方法将该单元格定位到屏幕左上角。‘ 该参考单元格用给定的单元格的行数和列数分别减去可视行数和可视列数除以2来确定。‘ 用MAX函数确保参考单元格的最小行数和列数为1。With Application.Goto reference:=OnCell.Parent.Cells( _.WorksheetFunction.Max(1, OnCell.Row + _(OnCell.Rows.Count / 2) – (VisRows / 2)), _.WorksheetFunction.Max(1, OnCell.Column + _(OnCell.Columns.Count / 2) – _.WorksheetFunction.RoundDown((VisCols / 2), 0))), _scroll:=TrueEnd With‘选择给定的单元格OnCell.Select‘启用屏幕更新Application.ScreenUpdating = TrueEnd Sub假如给定的区域为M50：N51，可以在VBA中用下面的方法调用上述代码：CenterOnCell Range("m50:n51")
EXCEL 公式 多列转成一行图解教程
EXCEL 公式 2列多行转成1行=OFFSET($A1,ROUNDUP(COLUMN(A1)/2,0)-1,MOD(COLUMN(B1),2))EXCEL 公式 多列转成一行图解教程3列多行转成1行 =OFFSET($A1,ROUNDUP(COLUMN(A1)/3,0)-1,MOD(COLUMN(C1),3))以此类推，4列以上的呢？大家可以自己试试
EXCEL如何使用VBA一次罗列表中三省的员工姓名？
请罗列“四川省”、“湖南省”、“湖北省”三个省份员工的资料。VBA代码如下：Sub test()‘定义变量Dim rng As Range, RngTemp As Range, firstAddress As StringDim i As Byte, findCell As Range, sh As Worksheet, shtname As String‘将查找的目标设置为C2单元格到C列最后一个非空单元格赋予变量为rngSet rng = Range([C2], Cells(Rows.Count, "C").End(xlUp))‘循环赋予查找数组的每一个元素For i = 0 To UBound(Array("四川省", "湖南省", "湖北省"))‘开始查找数据，按值精确查找，不区分大小写Set RngTemp = rng.Find(What:=Array("四川省", "湖南省", "湖北省")(i), LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)‘ 如果找到目标，则赋予该目标的单元格地址给firstAddressIf Not RngTemp Is Nothing ThenfirstAddress = RngTemp.AddressDo‘变量findCell没有初始化，则需要初始化，否则合并查找到的数值If findCell Is Nothing ThenSet findCell = RngTempElseSet findCell = Union(findCell, RngTemp)End If‘查找下一个Set RngTemp = rng.FindNext(RngTemp)‘循环到不为第一个找到的目标地址为止Loop While RngTemp.Address <> firstAddressEnd IfNext i‘如果查找的内容不为空，则选择查找到内容所在行，否则显示提醒If Not findCell Is Nothing ThenfindCell.EntireRow.SelectElseMsgBox "没有找到符合条件的数据!"Exit SubEnd If‘防止错误On Error Resume Next‘把当前工作表的名称赋予shtnameshtname = ActiveSheet.NameSet sht = Sheets("查询结果")‘如果不存在查询结果表，则添加一个“查询结果”工作表If Err.Number <> 0 ThenSheets.Add after:=Sheets(Sheets.Count)Sheets(Sheets.Count).Name = "查询结果"ElseSheets(Sheets.Count).Cells.ClearEnd IfSheets(shtname).SelectSelection.Copy Sheets(Sheets.Count).[A1]End Sub
如何利用VBA生成一列不重复的随机整数
如果我们要用VBA生成一列不重复的随机整数，可以用下面的VBA代码。本例可以在A1:A100中产生1-100的不重复随机整数。Sub RndNumberNoRepeat()Dim TempArr1(99) As Integer, TempArr2(0 To 99, 1 To 1) As IntegerDim RndNumber As Integer, i As IntegerRandomize (Timer) ‘初始化随机数生成器For i = 0 To 99 ‘产生包含1－100的不重复的随机数列TempArr1(i) = iNext iFor i = 99 To 0 Step -1RndNumber = Int(i * Rnd)TempArr2(99 – i, 1) = TempArr1(RndNumber) + 1TempArr1(RndNumber) = TempArr1(i)Next i‘在A1:A100中输入这些数字Range("a1:a100").Value = TempArr2End Sub
利用VBA批量添加邮件链接
如果Excel表格中的某个区域有许多文本格式的邮件地址需要添加链接，用手工的方式非常繁琐。可以使用下面的VBA代码来快速添加链接，假设该区域为F2:F18。Sub ConvertToEmail()Dim convertRng As RangeSet convertRng = Range("F2:F18")Dim rng As RangeFor Each rng In convertRngIf rng.Value <> "" ThenActiveSheet.Hyperlinks.Add rng, "mailto:" & rng.ValueEnd IfNext rngEnd Sub