推荐阅读
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如何压缩图片
最新发布
Excel表格返回期间值AMORDEGRC函数怎样用
在Excel的使用中，我们有时需要使用到AMORDEGRC函数，那么具体该如何去操作呢?很多朋友都不是很清楚，下面给大家分享Excel中AMORDEGRC函数如何使用方法，欢迎大家来到学习。 在Excel中AMORDEGRC函数的使用 方法/步骤 1、AMORDEGRC函数的定义：返回每个会计期间的折旧值。 2、AMORDEGRC函数的使用格式：=AMORDEGRC(cost，date_purchased，first_period，salvage，period，rate，basis)。 3、AMORDEGRC函数的参数Cost为资产原值，Date_purchased为购入资产的日期，First_period为第一个期间结束时的日期。 4、另外，参数Salvage为资产在使用寿命结束时的残值，Period是期间，Rate为折旧率，Basis是所使用的年基准(0或省略时为360天，1为实际天数，3为一年365天，4为一年360天)。 5、在如图所示的案例中，我们分别输入参数cost，date_purchased，first_period，salvage，period，rate，basis。 6、然后，我们在图示的空白单元格输入公式：=AMORDEGRC(cost，date_purchased，first_period，salvage，period，rate，basis)，分别代入单元格即可得到每个会计期间的折旧值。猜你感兴趣：
Excel指数函数怎么用
Excel是一个常用办公工具，它本身功能很是强大，自带了很多已经预定义的函数，可以随时根据需要进行调用。那么Excel怎么使用自然常数e为底的指数函数呢?下面给大家分享Excel自然常数e为底的指数函数的使用方法。 Excel自然常数e为底的指数函数的使用方法 第一步，桌面上打开一个Excel文档 第二步，文档打开的主界面如图 第三步，自然常数e为底的指数函数只有1个参数，number 第四步，我们举例，来更好地说明，需求如图 第五步，输入完整的自然常数e为底的指数函数 第六步，回车后，看到自然常数e为底的指数函数的结果 第七步，将一个结果复制到其他栏，就可以看到所有的结果了。非常简单!猜你感兴趣：
Excel2007中用DIR函数批量获取指定目录下所有文件名
由于 Excel2007 及 Excel2010 版本都取消了对 Application 对象的 FileSearch 方法的支持，所以在 Excel2007 版本以后不能用 FileSearch 来批量获取指定目录下的所有文件名了，虽然少了 FileSearch 但还可以用内置的 Dir 函数。代码如下：Sub listfile()””””””””””””””””””””””’‘ Dir函数批量获取指定目录下所有文件名和内容 ‘‘ ‘””””””””””””””””””””””’Dim mypath As String, nm As StringDim theSh As ObjectDim theFolder As ObjectDim i As IntegerApplication.ScreenUpdating = FalseOn Error Resume Next‘设置搜索路径Set theSh = CreateObject("shell.application")Set theFolder = theSh.BrowseForFolder(0, "", 0, "")If Not theFolder Is Nothing Thenmypath = theFolder.Items.Item.PathEnd If‘//////////////搜索开始////////////////nm = Dir(mypath & "\*.*") ‘第一次使用dir，必须指定pathname参数，返回符合条件的第1个文件名i = 1Range("a1") = nm ‘单元格A1返回找到的第一个文件名 Do While nm <> ""nm = Dir ‘再次调用不需要pathname参数Range("a" & i + 1) = nmi = i + 1LoopApplication.ScreenUpdating = TrueEnd Sub
Excel vba获(提)取工作表名称的两种方法
文章介绍excel提取工作表名称的三种方法，分别使用宏表函数、自定义函数，以及VBA获取工作表名称。第一，excel提取工作表名称：宏表函数 excel提取工作表名称的方法，在以前的文章：Excel中工作表间的关联链接方法及实例曾经介绍过，使用宏表函数来提取工作表名称，并自动添加超链接。第二，vba自定义函数获取工作表名称 下面再介绍一个vba获取工作表名称的自定义函数。使用方法如下，打开需要excel工作表，按下ALT+F11，打开VBE编辑器，单击插入——模块，复制下面的代码，然后关闭VBE。回到excel工作表，在空白单元格输入公式：=gname(ROW(A1))，下拉复制，知道出现0错误为止，即可以实现用vba获取工作表名称。Function gname(x As Integer)If x = 0 Thengname = ActiveSheet.NameElseIf x > 0 And x <= Sheets.Count Thengname = Sheets(x).NameElseIf x > Sheets.Count ThenMsgBox "超出范围"End IfApplication.VolatileEnd Function第三，vba获取工作表名称 同样，在excel中，按下ALT+F11，打开VBE编辑器，插入——模块，复制下面的代码，然后按F5键或者单击工具栏绿色的“运行”按钮即可实现用vba获取工作表名称。获取的工作表名称将存放在当前工作表的A列。Sub vba获取工作表名称()For x = 1 To Sheets.CountCells(x, 1) = Sheets(x).NameNext xEnd Sub
不正常的Excel VBA函数参数处理现象
无意中发现一个Excel VBA对待参数的一个"不正常"现象。这种处理方式可能无意中导致程序结果错误，而且你很难发现你的错误所在：Sub twotimes(t As Double) t = 2 * tEnd Sub Sub test() Dim t As Double t = 123 twotimes t MsgBox t ' 输出 246 t = 123 twotimes (t) MsgBox t ' 输出 123 t = 123 Call twotimes(t) MsgBox t ' 输出 246End Sub test函数对于twotimes有三种调用方法，分别为 twotimes t，twotimes (t)和call twotimes(t)。它们是一样的吗？运行test之后，第一种方法和第三种方法都输出了246。这个没有问题，因为VBA的参数默认传引用，twotimes函数会修改t的值。但第二种方法输出了123。我猜测是因为实际调用了twotimes((t))，从而把(t)传引用进入了twotimes的函数体，这个括号在运行时并没有被编译器扔掉，(t)是一个临时变量，和t被当作不同的变量。事实上，空格后面的括号里的变量会被执行，然后返回默认参数。下面是一个更精妙的例子，客官们可以猜测发生什么：Sub test() Dim myCollection As Collection Dim myObject As Object myCollection.Add (myObject) myCollection.Add myObjectEnd Sub 在函数调用时应该尽量避免第二种写法。
Excel小bug-无法打开数据透视表源文件
Excel刷新透视表为何出现无法打开数据透视表源文件。截图原因我后来找到了。源文件问题我找到了，算是excel的bug文件名[，}出现这符号就会造成引用出错。也就是说excel文件名称出现中括号，大括号，刷新透视表就会出现这问题。
Vba实现同一文件夹下的批量文件生成excel表格超级链接
Vba编程是个好东西，对于非编程出生的人员，学好编程很难，但是入门，我感觉还是比较容易的。我们能看懂vba编程并去整合修改代码，为我所用，我觉得是足够了。今天要介绍的代码，也不是我的。说实话，这段代码，对于非编程人员太难了，我只是整合了下为自己所用罢了。 该excel运行下的vba编程的效果就是把同一文件夹下的批量文件生成一个个能在excel工作表里生成超级链接。方便以后，不沿着路径去打开，也能实现对文件的调用等操作。 以下为完全代码，下面的源文件里也有。具体操作是启用宏，点快捷键alt+F11进入VBE编辑器，复制下段代码进去，点击运行。关于宏和编程的入门使用，请看这篇 尚西博客中的视频介绍 Vba代码如下：Sub add_link()On Error GoTo err_exit Dim fd As FileDialogSet fd = Application.FileDialog(msoFileDialogFolderPicker)Dim vritem As Variant With fdIf .Show = -1Then i = 0For Each vritem In .SelectedItemsi = i + 1 dname = vritem Next vritemIf i >= 2 Then MsgBox ("不能够选择多个文件夹，请重新选择")
让Excel筛选后的序号自动连续
前几天一个教程客户问我这样的问题：如何实现筛选后的序号还是连续，而不是中断的。如图A列这样：而不是B列那样。我是这样思考的首先和筛选有关，那就只有subtotal函数而已。具体定义大家可以百度等地方。然后序号连续的一种可能就是计数。每下拉1个，就加1.所以最后函数公式A3= =SUBTOTAL(3,$B$2:$B3)。3代表计数的意思。特定数据代表不同的意义。
如何隐藏Excel编辑栏
在Excel VBA中，如果需要隐藏Excel编辑栏以方便用户的操作体验，可通过VBA设置Excel编辑栏的显示状态隐藏Excel编辑栏。Excel2003可通过VBA宏隐藏Excel编辑栏。隐藏Excel编辑栏的方法：首先按“Alt+F11”组合键，Excel2003打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub Excel_Partner()Application.DisplayFormulaBar = FalseIf MsgBox("Excel编辑栏已被隐藏!" & vbCrLf & "是否重新显示编辑栏?", _vbQuestion + vbYesNo) = vbNo Then Exit SubApplication.DisplayFormulaBar = TrueEnd Sub按F5运行键运行程序，即可隐藏Excel编辑栏。Excel编辑栏可通过单击“视图”菜单-“编辑栏”菜单项隐藏Excel编辑栏，再次单击，显示Excel编辑栏。
如何利用ExcelVBA解决棘手的数据提取问题
今天同事问了个我一个数据提取的问题。他的需求是这样的:他有1个工作簿，里面有100个工作表。他希望把每个工作表里的第6行的b6:i6数据复制到一起，也就是说他要把工作表里的第6行，汇总在一起。比如这样：他说如果你没办法，那他只能手动来复制100个工作表，提取这数据了。我想了下说，我用VBA编程试试。差不多10分钟折腾，我把代码搞定了。Public Sub tiqu()’指定行遍历工作表提取Application.ScreenUpdating = FalseDim LastRow As IntegerDim sh As Worksheet