文秘

制作PPT落叶效果

@五老峰麒麟

      在PPT正式播放前，黑屏显示或者静态显示都太呆板了，笔者用落叶特效来暖场，制作方法如下：点击“插入”选项卡，再点击“图片”按钮，将树叶图片导入PPT中，再选中树叶图片，点击“动画”选项卡中的“自定义动画”按钮，在弹出的窗口中点击“添加效果”按钮，选择“动作路径→绘制自定义路径→任意多边形”并在幻灯片的预览窗口中画出一条轨迹线，为该树叶图片添加一个任意多边形的动画特效，再将“自定义动画”面板中将“开始”参数修改为“之前”，速度参数修改为“慢速”即可。

      最后选中树叶图片，点击“添加效果”按钮，选择“强调→陀螺旋”，为选中的树叶图片添加一个陀螺旋动画特效并将“开始”参数修改为“之前”，“速度”参数修改为“2.5秒”即可。后续添加多个树叶用同样的手法即可搞定。

董师傅点评：还可以为PPT增加一些悠扬的音乐，这样暖场效果更好。

PPT选择字体有讲究

@美恋曈

      做商务PPT，许多人将精力放在排版上，而对字体的选用比较随意。事实上，字体选好了会大幅提升PPT的品质。每种字体都有它的性格和特点，我们要根据使用场合来筛选我们要使用的字体，例如字体分为纤细和粗壮两种，纤细的字体给人秀气感，适用于科技类产品展示、女性产品等，粗壮的字体比较豪放感，适合于展示产品价格、提现大气之处。

      具体来说，学术探讨PPT可以直接用宋体、微软雅黑和楷体；手机产品PPT，可以用宋体和兰亭黑体；偏文艺PPT，可以用楷体、行书以及一些小众字体，小众字体会提升品格，但不适合严肃的场合，切记！

董师傅点评：小米的PPT就喜欢用宋体和兰亭黑体的组合！

复制粘贴为何出现“[]”

 @青宏宇

      笔者从百度文库下载了一个Word文档，复制该文档中的一段内容，粘贴到新Word中时意外出现了英文状态下的中括号，可明明下载的Word文档中没有这个中括号呀！这是怎么回事呢？在网上查询一番找到了原因：下载的Word文档中设置了书签，粘贴后就会出现英文状态下的中括号。那么，解决方法如下：点击“插入”，在弹出的下拉菜单中选择“书签”，在弹出的窗口中将书签删除即可。如果书签很多，点击“工具”，再选择“选项”，切换到“视图”，在“显示”区域，取消勾选的“书签”即可。

董师傅点评：如果高版本的Office，取消书签的操作是点击“Office按钮”，再点击“选项”，选择“高级”，定位到“显示文档内容”，取消勾选的“显示书签”即可。

为Excel添加多标签页插件

@江南雨途

      WPS支持多标签页浏览非常方便，不过Office不支持这个功能，哪怕到了Office 2016版依然没有考虑这个贴心的功能，继续采用独立窗口模式。怎么办？还是借助插件吧，例如大名鼎鼎的Office Tab，支持Word、Excel和PPT进行多标签浏览。

      下载并按照Office Tab后，在窗口顶部的菜单栏多出一个名为“办公标签”的新按钮，

      只要点击该按钮，然后打开新的文件即可，新打开的文件会在当前文档后面添加一个新的标签选项卡。这个插件对财务用处更大，他们经常需要在Excel打开多个工作表，寻找不同的数据，来回切换就需要一个方便的解决之道。

董师傅点评：Office Tab支持Office 2016哟 

财会

删除Excel的重复行

@凉夏雨玲

      假设要删除A列的重复行，也就是A列中出现重复数字而其他列哪怕数字不同，也代表着内容重复了，最常见的是姓名重复、工号重复等。常用方法是将A列排序升序或者降序排列，让相同内容的行聚集在一起。如果表格不大手动删除即可，如果表格比较大行数比较多就可以借助函数来完成，例如在F列的F1中输入1，在F2中输入公式=IF(A2=A1,0,1)，然后下拉公式到最后一行，如果有重复的内容F列将显示为0，不重复的则显示为1。那么通过排序就可以删除全部为0的行了。

      还有一个更简单的方法，选中数据区域，点击“数据”→“筛选” →“高级筛选” →“筛选结果复制到其它位置”并勾选“选择不重复的记录”即可。不过要注意，如果数据没有标题的话第一行可能会被认为是标题而已不参加筛选，此时需要自行插入一行当标题行。

董师傅点评：上述操作是在Excel 2003中完成的，如果是Excel 2007以及更高的版本，可以直接点击“数据”，选择“删除重复项”搞定。

统计指定时间段内的单元格个数

@元昊杰

      有的时候我们需要知道一个时间段内特定单元格的数量，例如7年内离职的人数、6年内新增加了多少人、5年内有多少学生获得合格的考试成绩等。这个怎么实现呢？方法如下：按下组合键“Alt+F8”打开宏窗口，输入宏名“另存为TXT文件”，点击“创建”按钮，在打开的VBA窗口中输入如下代码：

Private Sub CommandButton1_Click()

    Dim sDate As Date, vDate As Date

    Dim d As Object

    Dim arA, i%, x%, y%

    Set d = CreateObject("Scripting.Dictionary")

    arA = Sheet1.UsedRange

    sDate = Me.TextBox1.Text

    vDate = Me.TextBox2.Text

    For i = 1 To UBound(arA) Step 7

        arA(i, 16) = Replace(arA(i, 16), ".", "-")

        For y = i + 2 To i + 5

            For x = 2 To UBound(arA, 2)

                If y = i + 2 Then arA(i + 1, x) = Format(arA(i + 1, x) & "-" & arA(i, 16), "General Date")

                If arA(i + 1, x) >= sDate And arA(i + 1, x) <= vDate And arA(y, x) <> "" Then

                    d(LCase(arA(y, x))) = d(LCase(arA(y, x))) + 1

                End If

            Next

        Next

    Next

    Sheet2.Activate

    [a5].Resize(d.Count, 2) = Application.Transpose(d.items)

    Set d = Nothing

End Sub

最后，为新增加的宏命令指定一个按钮，今后在Excel内选定时间范围再点击按一下该钮即可指定时间段内单元格个数了。

董师傅点评：要使用宏功能，需要在“工具”→“宏” →“安全性”中降低安全级别。

数字按位数分列显示

@骛于虚声

      在Excel制作多联单、一些统计表格时，按照规范的格式需要将金额的数字按位数一个单元格填入一个数字,也就是亿元、千万元、百万元、十万元、万元、千元、百元、十元、个、角、分，每个单位下对应一个数字，有就填没有就不填。如果要大量输入上述数字，手工输入一是慢，而是容易出错，怎么办呢？今天借助文本嵌套函数来搞定。

      假设A列是原始数据，B列是亿元列，第一行是标题，那么只要在B2单元格中输入以下公式 =LEFT(RIGHT(“￥”&ROUND($A2，2)*100，11-COLUMN(A:A)+1))，最后选中B2单元格并拖动填充手柄向右、向下填充到适当位置即可完成分列输入。

董师傅点评：公式中自然数11对应的是“亿”到“分”之间的位数，比实际位数要多一位，不是公式错了哟！大家可以根据自己的实际需求更改这个数字，记得要比比实际位数要多一位哟！