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

@元昊杰

      有的时候我们需要知道一个时间段内特定单元格的数量，例如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内选定时间范围再点击按一下该钮即可指定时间段内单元格个数了。

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

教师

方程式下标怎么输

@山水养目

      对数学老师、化学教师和化学老师来说，经常要输入方程式下标，网上方法有很，个人都尝试了一下，发现替代法最简单最省事。以输入化学方程式中下标为例，先不管下标直接输入化学方程式，例如直接输入H2+F2→2FH，这样肯定要不得，没事，点击“编辑”，选择“查找”，弹出“查找”对话框，将查找内容设置为“^$^#”，将“突出显示所有在该范围找到的项目”设置为“主文档”，此时文档会自动选中化学方程式中后面带数字的字母及数字。

      在“查找”对话框中，将查找内容修改为“^#”，此时文档选中的就只有化学方程式中的数字了，接着在菜单栏右侧空白处点击鼠标右键，在弹出菜单中选择“格式”，菜单栏就多了一个“格式”按钮，鼠标指针指向“格式” 按钮，稍停留后又会弹出一个菜单，在菜单中选择“下标”即可。

     董师傅点评：Office 2016版有手写公式功能，如果公式不多手写更快。

请关注董师傅微博

怎么办公最有效率？怎么办公最轻松？来看看董师傅的珍藏，相信你一定会有意外的收获。顺带也可以听听董师傅的理财心得，倾听财富的声音！同时有问题也可以微博私信董师傅。