编写一个Excel公式或VBA宏,返回在一周/一个月/过去60天/过去90天内某种类型的通话数量。
创始人
2024-12-06 08:00:59
0

这里给出一个VBA宏的示例,可以返回过去一周/一个月/过去60天/过去90天内某种类型的通话数量。

Sub CountCalls()
    Dim ws As Worksheet
    Dim startDate As Date
    Dim endDate As Date
    Dim callType As String
    Dim callCount As Integer
    Dim i As Integer
    
    ' 设置工作表和日期范围
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换为你的工作表名称
    startDate = Date - 7 ' 过去一周的开始日期
    endDate = Date ' 当前日期
    
    ' 设置通话类型
    callType = "incoming" ' 替换为你想要统计的通话类型
    
    ' 重置通话数量
    callCount = 0
    
    ' 循环遍历每个日期
    For i = 2 To ws.Cells(Rows.Count, 1).End(xlUp).Row ' 假设日期在第一列,从第二行开始
        Dim callDate As Date
        Dim callTypeValue As String
        
        ' 获取日期和通话类型
        callDate = ws.Cells(i, 1).Value ' 假设日期在第一列
        callTypeValue = ws.Cells(i, 2).Value ' 假设通话类型在第二列
        
        ' 检查日期范围和通话类型
        If callDate >= startDate And callDate <= endDate And callTypeValue = callType Then
            callCount = callCount + 1
        End If
    Next i
    
    ' 输出结果
    MsgBox "过去一周内" & callType & "通话数量为: " & callCount
End Sub

这个VBA宏假设你的通话日期在第一列,通话类型在第二列。你可以根据实际情况修改代码中的工作表名称和列号。然后将代码复制粘贴到Excel的VBA编辑器中(按Alt+F11打开),并运行宏。弹出窗口将显示过去一周内某种类型的通话数量。

如果你想要统计过去一个月、过去60天或过去90天内的通话数量,只需要修改startDateendDate的值。例如,要统计过去一个月内的通话数量,你可以将startDate = Date - 30。具体取决于你的需求。

相关内容

热门资讯

安卓换鸿蒙系统会卡吗,体验流畅... 最近手机圈可是热闹非凡呢!不少安卓用户都在议论纷纷,说鸿蒙系统要来啦!那么,安卓手机换上鸿蒙系统后,...
app安卓系统登录不了,解锁登... 最近是不是你也遇到了这样的烦恼:手机里那个心爱的APP,突然就登录不上了?别急,让我来帮你一步步排查...
安卓系统拦截短信在哪,安卓系统... 你是不是也遇到了这种情况:手机里突然冒出了很多垃圾短信,烦不胜烦?别急,今天就来教你怎么在安卓系统里...
安卓系统要维护多久,安卓系统维... 你有没有想过,你的安卓手机里那个陪伴你度过了无数日夜的安卓系统,它究竟要陪伴你多久呢?这个问题,估计...
windows官网系统多少钱 Windows官网系统价格一览:了解正版Windows的购买成本Windows 11官方价格解析微软...
安卓系统如何卸载app,轻松掌... 手机里的App越来越多,是不是感觉内存不够用了?别急,今天就来教你怎么轻松卸载安卓系统里的App,让...
怎么复制照片安卓系统,操作步骤... 亲爱的手机控们,是不是有时候想把自己的手机照片分享给朋友,或者备份到电脑上呢?别急,今天就来教你怎么...
安卓系统应用怎么重装,安卓应用... 手机里的安卓应用突然罢工了,是不是让你头疼不已?别急,今天就来手把手教你如何重装安卓系统应用,让你的...
iwatch怎么连接安卓系统,... 你有没有想过,那款时尚又实用的iWatch,竟然只能和iPhone好上好?别急,今天就来给你揭秘,怎...
iphone系统与安卓系统更新... 最近是不是你也遇到了这样的烦恼?手机更新系统总是失败,急得你团团转。别急,今天就来给你揭秘为什么iP...