'vba 模块内容如下 自定义公式 '公历转农历模块 '原创:互联网 '修正: '// 农历数据定义 // '先以 H2B 函数还原成长度为 18 的字符串,其定义如下: '前12个字节代表1-12月:1为大月,0为小月:压缩成十六进制(1-3位) '第13位为闰月的情况,1为大月30天,0为小月29天:(4位) '第14位为闰月的月份,如果不是闰月为0,否则给出月份(5位) '最后4位为当年农历新年的公历日期,如0131代表1月31日:当作数值转十六进制(6-7位) '农历常量(1899~21…

原文:VSTO 学习笔记(十一)开发Excel 2010 64位自定义公式 Excel包含很多公式,如数学.日期.文本.逻辑等公式,非常方便,可以灵活快捷的对数据进行处理,达到我们想要的效果.Excel的内置公式虽然强大,但是在ERP等系统中,往往需要进行很多业务上的计算,如收发存台账.指定年.月.部门的消耗查询等,都是需要从数据库中查询的,且和业务紧密相连.这时仅仅依靠Excel的内置公式就不够了,需要添加自定义的公式来进行这些业务计算. 测试代码下载 本系列所有测试代码均在Visual St…

在管理软件开发的功能点中,有相当一部分功能是与Excel做数据交互,产生Excel 数据报表.如果Excel报表的数据计算方法很有规律可循,则可以通过自定义公式来解决.比如常见的资产负债表,利润表,取数都非常有规律. Excel DNA是一套用.NET框架实现的Excel自定义公式引擎,互联网上有很多Excel财务方面的报表是基于此技术实现.Excel DNA完全开放源代码,可到网上下载它的完整源代码和例子工程,地址是https://exceldna.codeplex.com    开发自定义公…

原文:VSTO 学习笔记(十二)自定义公式与Ribbon 这几天工作中在开发一个Excel插件,包含自定义公式,根据条件从数据库中查询结果.这次我们来做一个简单的测试,达到类似的目的. 即在Excel 2010中添加一个Ribbon,包含4个自定义公式:仅仅是示例公式加减乘除. 最终效果: 测试代码下载 1.解决方案包含两个项目: ExcelAddIn:Excel 插件 ExcelUDF:Excel 自定义公式 2.首先创建一个Excel 2010 Add-in项目: 3.添加一个可视化Ribb…

原文:VBA读取word中的内容到Excel中 Public Sub Duqu()      Dim myFile As String     Dim docApp As Word.Application     Dim docRange As Word.Range     myFile = ThisWorkbook.Path & "\Word文档的名字"    '指定Word文档     Set docApp = New Word.Application     docApp…

原文:C# 查农历 阴历 阳历 公历 节假日 using System;using System.Collections.Generic;using System.Text; namespace calendar{    class ChineseCalendar    {        #region ChineseCalendarException        /// <summary>        /// 中国日历异常处理        /// </summary>   …

如何在Excel/WPS表格中批量查询顺丰快递信息? 上期我们讲了如何在Excel/WPS表格中批量查询快递信息(还不知道的小伙伴可以看这里:https://zhuanlan.zhihu.com/p/541529548),由于顺丰快递的隐私保护,我们在查询顺丰快递时还需要提供发件人手机号码后四位,今天小编就教大家如何在公式中使用. 顺丰快递查询公式和其它快递查询公式一样,我们只需在快递查询公式第二个参数里增加一下手机号后四位,也就是顺丰快递单号由(原快递单号+双竖杠+手机号后四位)组成.如下图:…

如何在Excel/WPS表格中批量查询快递信息? 干电商的小伙伴们还在为如何批量查询快递物流信息发愁吗?别着急,这篇文章或许能够帮助到您. 首先给大家看一下查询的具体成果: 第一步:安装Excel网络函数库 网址:www.excelapi.com 第二步:输入公式 在表格中待查询的快递单号后面输入公式GetKuaidiStatus(company, number, result_type).其中参数company指快递公司: number指快递单号: result_type指返回哪种数据,输入0…

Excel在使用VLOOKUP时,当检索值超过255长度的时候就会报错,没法正常检索. 官方提供的办法是通过INDEX和MATCH公式组合使用来解决. 微软官方方案 1,公式 =INDEX($A$5:$A$6,MATCH(TRUE,$A$5:$A$6=B5,0),0) 2,Ctrl+Shift+Enter {=INDEX($A$5:$A$6,MATCH(TRUE,$A$5:$A$6=B5,0),0)} 官方的方案理解有点儿着急. 就自己定义了一个searchText函数,效果不错,就哪来和大家分…

虽然知道Microsoft Office Excel可以支持用VB语言来进行复杂的编程和自定义函数的编写,但是一直以来都没有这个需求. 这次遇到的问题是要根据一列数组计算出一个值,但计算过程又比较复杂,需要经过几步,如果不编程的话总要经过一些中间单元格来完成计算,但这又会使得整个表格变得很臃肿,并且不方便添加新列. 在这种情况下,编写自定义函数几乎成了唯一的出路.所幸,也并不太麻烦. 1. 首先,可能要在选项里启用下开发工具,保存文件的类型也得换成xlsm. 2. 打开VB编辑器编写代码,添加模…