精华内容
下载资源
问答
  • EXCEL.VBA应用 非隐藏单元格求和

    千次阅读 2006-01-02 16:22:00
    有时候,我们会对一些数据进行隐藏(如筛选)后进行求和等运算,但在现成的公式却无法找到可利用的,所以只能依靠VBA来实现。创建自己的工作表函数,请参考:...

    有时候,我们会对一些数据进行隐藏(如筛选)后进行求和等运算,但在现成的公式却无法找到可利用的,所以只能依靠VBA来实现。
    创建自己的工作表函数,请参考:http://office.microsoft.com/zh-cn/assistance/HA010548462052.aspx

    函数名:SumV
    编写时间:2006年1月2日
    支持:terryscz@163.com

    Public Function SumV(ByVal Target As Range, Optional ByVal isVisible = True)
        For Each cw In Target.Columns
            For Each rw In cw.Rows
                SumV = SumV + IIf(rw.Hidden <> isVisible, rw.Cells(1, 1).Value, 0)
            Next
        Next
    End Function

    展开全文
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧153 调用工作表函数求和 12 技巧154 查找最大、最小值 12 技巧155 不重复值的录入 12 技巧156 获得当月的最后一天 12 技巧157 四舍五入运算 12 157-1 极小值修正法 12 157-2 调用工作表函数法 12 技巧158 使用...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧153 调用工作表函数求和 381 技巧154 查找最大、最小值 381 技巧155 不重复值的录入 383 技巧156 获得当月的最后一天 385 技巧157 四舍五入运算 386 157-1 极小值修正法 386 157-2 调用工作表函数法 387 技巧158...
  • 打印出货单的时候,经常会需要从数据库中查询一段时间内的所有数据 本工作表使用VBA实现了如下功能: 1、实时统计重复项 2、重复项数据自动求和 附上代码 Sub lqxs() Dim Cnn As Object, SQL$, shnm$, arr...

    关注公众号:万能的Excel     并回复【日期搜索】获取源文件!

    功能说明:

    打印出货单的时候,经常会需要从数据库中查询一段时间内的所有数据

    本工作表使用VBA实现了如下功能:

    1、实时统计重复项

    2、重复项数据自动求和

    附上代码

    Sub lqxs()
    Dim Cnn As Object, SQL$, shnm$, arr, i&, j&
    Set Cnn = CreateObject("Adodb.Connection")
    shnm = Sheet1.Name
    ks = CDate([k1].Value & " " & Format([m1].Value, "hh:mm"))
    js = CDate([k2].Value & " " & Format([m2].Value, "hh:mm"))
    Cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;';data source=" & ThisWorkbook.FullName
    SQL = "select 材质,规格,重量,产品代码 from [" & shnm & "$] where 出库时间 between #" & ks & "# And #" & js & "#"
    [j5:m5000].Clear
    [j5].CopyFromRecordset Cnn.Execute(SQL)
    Cnn.Close
    Set Cnn = Nothing
    End Sub
    

     

    展开全文
  • excel函数.VBA范例

    2009-05-28 00:09:15
    vba-保费窗体计算.xls WADDRESS函数.xls WBETWEEN.xls WSEESUM.xls WTAX函数.xls 不常用函数.xls 分离字符和数字10.xls 高级筛选示例.xls 个人所得税申报表-不可修改.xls 工资系统.xls 公式-1.xls 公式-13.xls 公式-...
  • 中文版Excel.2007高级VBA编程宝典 1/2

    热门讨论 2012-04-06 16:00:16
    本书的作者是当之无愧的世界级Excel电子表格专家,他为读者倾心打造了这本专著,书中汇聚他15年来使用Excel的所有经验,涵盖Excel应用和VBA编程涉及的方方面面,是经典著作Excel 2003 Power Programming with VBA的...
  • 中文版Excel.2007高级VBA编程宝典 2/2

    热门讨论 2012-04-06 16:41:38
    中文版Excel.2007高级VBA编程宝典 2/2 完整清晰版 PDF ,有目录。共 270MB,分为 2 个分卷 中文版Excel 2007 高级VBA编程 宝典 OFFICE2007 中文版Excel 2007高级VBA编程宝典 原价:99.99元 作者:(美)沃肯巴赫...
  • 上一篇我们已经用VBA实现SQL检索,并实现相同项求和的功能。那么如何根据日期范围筛选我们需要的数据呢?今天我们看看另外一个SQL查询结构: SQL = "select 字段1 from [原始数据$] where 出库时间 between #开始...

     

    大家好,我是陈小虾,是一名自动化方向的IT民工。写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长。但功能说明:由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教!微信公众号:万能的Excel 

    上一篇我们已经用VBA实现SQL检索,并实现相同项求和的功能。那么如何根据日期范围筛选我们需要的数据呢?今天我们看看另外一个SQL查询结构:

    SQL = "select 字段1 from [原始数据$] where 出库时间 between #开始时间# And #结束时间#

     还是老规矩,看看效果:

    附上代码: 

    Sub lqxs()
    Dim Cnn As Object, SQL$, shnm$, arr, i&, j&
        Set Cnn = CreateObject("Adodb.Connection")
        shnm = Sheet1.Name
        ks = CDate([i1].Value & " " & Format([k1].Value, "hh:mm"))
        js = CDate([i2].Value & " " & Format([k2].Value, "hh:mm"))
        Cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;';data source=" & ThisWorkbook.FullName
        SQL = "select 出库时间,材质,规格,重量,产品代码 from [" & shnm & "$] where 出库时间 between #" & ks & "# And #" & js & "#"
        [a2:e200].Clear
        [a2].CopyFromRecordset Cnn.Execute(SQL)
        Cnn.Close
        Set Cnn = Nothing
    End Sub
    

    代码是不是很熟悉?还是一样的配方,只是有一个地方不一样了,那就是我们今天的重点:

    ks = CDate([i1].Value & " " & Format([k1].Value, "hh:mm"))
    js = CDate([i2].Value & " " & Format([k2].Value, "hh:mm"))
    SQL = "select 出库时间,材质,规格,重量,产品代码 from [" & shnm & "$] where 出库时间 between #" & ks & "# And #" & js & "#"

    这里要注意的是:

    ks 为开始时间,本例中为:2019/11/16 8:00:00

    js 为结束时间,本例中为:2019/11/18 8:00:00

    出库时间设置的单元格格式为:yyyy/m/d h:mm

     对应地:

    开始日期/结束日期
    开始日期/结束时间

    关注公众号:万能的Excel  回复【SQL3】获取源文件!

    展开全文
  • 函数作用:在多个工作表中查找一个范围内符合某个指定条件的项目对应指定范围加总求和..........................59 '35.函数作用:返回 Column 英文字.......................60 '36.函数作用:查找指定列名的列数.......
  • EXCEL(VBA)~SQL 经典写法范本汇集(一) 2007-12-10 21:20 编前话:为了更系统的学习sql语句,小爪首次系统的汇集sql 需引用 microsoft activeX Data Objects 2.8 library 1.sql = "select 构件名称,构件代号,横长度,...
  • 34.在多个工作表中查找一个范围内符合某个指定条件的项目对应指定范围加总求和 35.返回 Column 英文字 36.查找指定列名的列数 37.文字格式的时间(分:秒)转化为数字格式(秒) 38.将"hh:mm:ss"格式的时分秒数转换成秒数...
  • 2、不想将同一个文件夹的12个月份的工作簿导入到一个工作簿里面而直接进行最后单元格求和”,事实上,他的这个问题,如果说解决的话,我之前有一期头条文章和西瓜视频的作品关于“成功实现基于VBA下批量导入外部...

    前段时间,偶然看到一位名叫“KINGSON1412”的粉丝朋友私信提及两个问题“1、如何引用12个月份的工作簿里面的sheet1工作表的单元格出来?;2、不想将同一个文件夹的12个月份的工作簿导入到一个工作簿里面而直接进行最后单元格求和”,事实上,他的这个问题,如果说解决的话,我之前有一期头条文章和西瓜视频的作品关于“成功实现基于VBA下批量导入外部Excel相同格式文件数据”已经比较完美解决了这位粉丝朋友的问题,按理说,我今天无需再老生常谈啰嗦了吧。但是呢,我觉得还是有必要做,主要是关于不导入外部数据的情况隔空统计数据问题也算是一个小亮点吧。为了佐证该粉丝提的问题,我特意截图。如下图所示

    90d3c0c67de0af7f950d0c4be75eb60d.png

    图1 “KINGSON1412”粉丝的提问截图

    说实在话,如果说是引用外部数据,我们可以通过跨文件路径引用的方式进行,比如在工作表单元格可以用公式:='路径[外部的Excel文档文件名]工作表'!单元格 的形式实现,当然,这种引用方式是比较简单的,但是不足之处是较为机械不够灵活,尤其是外部有多个Excel工作簿文档时,就显得有些力不从心。所以,从高级应用的意义上讲,VBA后台技术应该才是解决这种问题的首选方案,同时也很容易达到解决不导入外部数据直接统计的效果。

    为此,我们先来看看如何解决该“KINGSON1412”粉丝的第一个问题“如何引用12个月份的工作簿里面的sheet1工作表的单元格出来?”,然后再看第二个问题“不想将同一个文件夹的12个月份的工作簿导入到一个工作簿里面而直接进行最后单元格求和”如何解决。对于第一个问题,有了之前的类似头条作品,应该说是理解起来是较为容易的,第二个问题,即是我们本次作品的创新点,还是先来解决第一个问题吧。

    一、用VBA后台技术强势“引用”外部多个工作簿数据

    为什么我们这里的引用要打上双引号呢?其目的是说明,我们表象上给人感觉是引用外部数据,事实上是从外部捕获吸取数据,说本质一点就是复制外部多个工作簿数据,而且从“感觉上”给人是没有打开外部这些多个工作簿文件的感觉。

    (一)增加两个前端交互按钮

    为了实现交互的友好性,我们增设了简单的交互按钮。如下图

    d52e65a1f3b817101d3079464f3ad46d.png

    图2 前端界面

    (二)准备一些外部的Excel工作簿文档素材并统一命名

    为了方便操作,我们准备了如下图所示的外部Excel工作簿数据素材。如下图所示

    cf9290beae80849ea6d3a5026013de03.png

    图3 备用的外部Excel工作簿数据素材

    (三)后台功能代码实现

    我们还是以截图的方式给各位呈现。如下系列截图所示

    17dc50b8b03c446122a928cf61433d63.png

    图4“引用”外部数据VBA后台功能代码截图1

    a28d3b5df6346fbd11c7302223431ae2.png

    图5“引用”外部数据VBA后台功能代码截图2

    4f6f96ef3b9c384f19badf562d3366ee.png

    图6“引用”外部数据VBA后台功能代码截图3

    (四)“引用”外部数据VBA后台执行效果体验

    1、点击前端表单控件按钮,将看到“引用”外部数据成功的效果。如下图所示

    a9022d58352ba6472b09214862a3b61b.png

    图7 “引用”外部数据成功的效果

    2、如果已经完全导入外部数据了,而此时再次强行点击前端表单控件按钮,将看到“禁止操作”的提示。如下图所示

    37ad22d8fe4df78afd5f05f0881c2e18.png

    图8 完全导入外部数据后将不允许进行再次导入操作

    3、如果没有外部数据,而此时强行点击前端表单控件按钮,将看到“先准备外部数据”的提示。如下图所示

    6d44767494a97bd88cf5353caf5dfcec.png

    图9 没有外部数据将提示用户先准备外部数据

    二、用VBA后台技术轻松实现不导入外部多个工作簿数据的数据统计

    这一点,我刚才就说了,比较容易办到,给人感觉上是没有打开外部数据工作簿实施外部数据统计,事实上,我们也是利用了和上面类似的方法,只不过,我们无需导入外部数据而已,统计的操作机理是再程序运行中完成数据的统计和统计结果数据的回传而已,这样也减小了程序运行的时间复杂度和空间复杂度,使得运行更加高效。前端界面涉及和备用的外部数据素材在上面已经说明了,这里我们至分享实现的功能代码和执行效果截图。

    (一)后台功能代码实现

    同上面一样,我们还是以截图的方式给各位呈现。如下系列截图所示

    ac48d5af0c2a50080be3e861d46aa4a1.png

    图10 不导入外部数据实现统计数据的VBA功能代码截图1

    2274991c3a5ad322d94187a721e2e6e0.png

    图11 不导入外部数据实现统计数据的VBA功能代码截图2

    (二)不导入外部数据而统计外部数据的执行效果体验

    1、点击前端表单控件按钮,将看到不导入外部数据而统计外部数据成功的效果。如下图所示

    9d0f7394e697247fe68aafe351e86d7e.png

    图12 不导入外部数据而统计外部数据成功的效果

    2、如果已经统计过来不导入的外部数据了,而此时再次强行点击前端表单控件按钮,将看到“禁止操作”的提示。如下图所示

    e8ead9598f9cd4fa7d0a3a98644dbf6b.png

    图13 已经统计过来不导入的外部数据后将不允许进行再次统计操作

    3、如果没有外部数据,而此时强行点击前端表单控件按钮,将看到“先准备外部苏剧”的提示。如下图所示

    7beba342fe32c93b3059a1545a4a6517.png

    图14 没有外部数据将提示用户先准备外部数据

    好了,到现在为止,我们将该“KINGSON1412”粉丝的分享完了,这中间的“引用”外部Excel工作簿数据技术实际上是利用了“拷贝”外部Excel工作簿数据的行为(语法:“源数据区域.Copy Destination:=目标数据区域”),通过循环,每次都用一个临时的工作簿对象变量去指向打开的外部工作簿文(打开的工作簿文档为了隐藏其显示,我们利用“Windows(工作簿名称).Visible=False”方法实现视觉上的不显示),然后用一个数据范围区域对象指向具体要“拷贝”的该工作簿的数据区域,“拷贝”该区域的数据到目标工作簿指定的区域,最后,不保存源外部数据的工作簿文档形式进行关闭(语法:“源外部数据工作簿.Close False”),至此,就完成了功能意义上的外部工作簿数据的形式上的“引用”;另外,“不导入外部工作簿数据的情况下实现对外部数据的统计计算”其实和“引用”外部工作簿数据的方法类似,只是省去了“拷贝”外部的数据的功能,替代的是直接每循环一次,都统计一下打开的临时外部数据,除此之外,其它的都和“引用”的方法完全一致。现在,大家可以比对我之前的做过的类似案例的,进行选择适合自己的方法解决外部数据导入和统计的问题了,大胆去试试吧!

    最后,还是那句老话,非常感谢各位粉丝朋友的长期关注(头条号:跟我学Office高级办公)、推广和对作品的点评!疫情快过去了,现在已经是深秋了,天气也已经骤然降温了,大家可要多多注意身体健康别感冒哦,与此同时,也请多多关注我的Office高级办公其他的后续原创作品哦!谢谢!

    展开全文
  • 曾经在面试时候被问到VLOOKUP和...所以真的没必要抱着一本excel大全在那挨个学函数,浪费时间。那时我自己傻兮兮买一本excel函数和一本vba,后来几次转手也不知道送给谁了。现在真的不会有人让你去提取身份证里的...
  • 前言 VBA开发者经常讨论的一个话题就是:字典和数组哪个效率更高?使得很多VBA初学者懵懂的认为,这两者非此即彼,水火不容。其实很多应用场景中,它们...交期汇总,包含时间和数量 示例代码 Sub LoadData(...
  • 前言VBA开发者经常讨论的一个话题就是:字典和数组哪个效率更高?...数据合并的要点有三个:料号和机种号为统计的关键字段未交数量求和交期汇总,包含时间和数量示例代码Sub LoadData() Dim aData, aRes(), l...
  • 2007-09-21excel里时间(时,分,秒,百分秒)进是否有这个函数,我不太清楚,我用VBA自己编写了一个,两种方式,任你选择,第二种方式,可以根据实际情况调整循环的大小、单元格的位置。如果不用宏,直接用函数tsum()...
  • 5.4 自定义VBA文本函数  第6章 处理Et期和时间 6.1 Excel如何处理日期和时间 6.1.1 了解日期序列号 6.1.2 输入日期 6.1.3 理解时间序列号 6.1.4 输入时间 6.1.5 日期和时间的格式化 6.1.6 有关日期的问题 ...
  • 5.4 自定义VBA文本函数  第6章 处理Et期和时间 6.1 Excel如何处理日期和时间 6.1.1 了解日期序列号 6.1.2 输入日期 6.1.3 理解时间序列号 6.1.4 输入时间 6.1.5 日期和时间的格式化 6.1.6 有关日期的问题 ...
  • EXCEL 2007 宝典 附光盘文件

    热门讨论 2010-04-02 14:43:05
    conditional summing.xlsx:一个演示如何使用单个或多个条件计算进行条件求和的工作簿。 cout unique.xlsx:一个演示如何计算区域内惟一(非复制的)项的工作簿。 counting text in a range.xlsx:一个演示计算...
  • 不需要参数,输入的时间表示现在的时间,但不随时间改变而改变。 函数名称:SFZ 函数功能与参数:身份证相关信息函数。第一参数为引用,第二参数输入“DQ”取返回地区,输入“XB”则返回性别,输入“SR”则返回...
  • 不需要参数,输入的时间表示现在的时间,但不随时间改变而改变。 函数名称:SFZ 函数功能与参数:身份证相关信息函数。第一参数为引用,第二参数输入“DQ”取返回地区,输入“XB”则返回性别,输入“SR”则返回生日...
  • Excel百宝箱8.0

    2011-06-07 21:32:17
    【公农双历查询】【高级定位】【选区背景着色】【修改文件建立时间】【工作表环境设置】【按颜色合计】【根据工资计算钞票】【隔行插入行】【折分工作簿(工作表)】【工作表折分】【合并工作簿】【文本与数值互换】...
  • “在如今这个有太多数据和太少时间的时代,本书非常专业地提供了内容丰富的数据透视表教程,让我们可以更高效地利用自己的数据和时间。”  ——德勒咨询公司高级经理,Kameron Yu  本书集中了数据透视表所有优秀的...
  • “在如今这个有太多数据和太少时间的时代,本书非常专业地提供了内容丰富的数据透视表教程,让我们可以更高效地利用自己的数据和时间。”  ——德勒咨询公司高级经理,Kameron Yu  本书集中了数据透视表所有优秀的...
  • “在如今这个有太多数据和太少时间的时代,本书非常专业地提供了内容丰富的数据透视表教程,让我们可以更高效地利用自己的数据和时间。”  ——德勒咨询公司高级经理,Kameron Yu  本书集中了数据透视表所有优秀的...
  • “在如今这个有太多数据和太少时间的时代,本书非常专业地提供了内容丰富的数据透视表教程,让我们可以更高效地利用自己的数据和时间。”  ——德勒咨询公司高级经理,Kameron Yu  本书集中了数据透视表所有优秀的...
  • 不需要参数,输入的时间表示现在的时间,但不随时间改变而改变 SFZ身份证相关信息函数。第一参数为引用,第二参数输入“DQ”取返回地区,输入“XB”则返回性别,输入“SR”则返回生日。忽略第二参数则默认显示地区 ...
  • │ │ 技巧208 SUM数组公式计数与求和.xls │ │ 技巧209 SUM函数与SUMPRODUCT函数的区别.xls │ │ 技巧210 部门评价等级转换.xls │ │ 技巧211 分级累进求和.xls │ │ 技巧212 自动筛选_隐藏_组合下的统计....

空空如也

空空如也

1 2
收藏数 39
精华内容 15
关键字:

vba时间求和