在勤哲的开发过程中，模板套用了Excel的{…}数组公式内容，导致增加行时不能自动填充素组公式。 先不管是不是平台的问题，我们要解决目前可用的状况，只能VBA了。 代码如下仅供参考: Private Sub CommandButton5_Click() Dim i As Integer Dim oAdd As Object Application.ScreenUpdating = False Set oAdd = Application.COMAddIns.Item("ES
标签：Excel
[Excel]Excel显示为循环引用警告的简便处理
有些繁琐的数据处理当中，会遇到excel的提示，显示为“循环引用”警告，很是头疼。 最简单的方法就是开启迭代计算。 需要找到“excel选项”，点击“公式”选项，在“计算选项”中， 可以看到“启用迭代计算”前面是没有勾选上的，将其勾选上之后，就能解决“循环引用”警告的问题了，表示excel默认可以进行循环引用。
[Excel]VBA自定义BOM
闲话少说，上代码。 新建模块，粘贴如下代码。 Option Explicit Function SerNo(A, B As Integer) Dim T1 As Single Dim T2 As Single, T2a Dim T3 As Single Dim T4 As Single Dim T5 As Single Dim T6 As Single A = A & "-0-0-0-0-0-0-0-0-0-0-0" T1 = InStr(A, "-&quo
[Excel]请假按考勤区间计算时间
这个是最近遇到的一个问题，就是请假的有效计算，要求看图。 解决方法如下： 函数：=ROUND(((E3-INT(C3))*480+SUMPRODUCT(FREQUENCY(ROW(INDIRECT(ROUND(MOD(D3,1)*1440+1,)&":"&F3*1440)),{450,690,780,1020})*{0;1;0;1;0})-(F3&l
[Excel]单列按不同条件取最大值
最近有个朋友在用excel做自己的数据时，遇到从一堆序列中取末尾最大值。 见下图。 第一列中的值末尾按部门取最大值。 1.我们要做的是先分离出部门。 公式如下：{=MID(A2,MATCH(2,LENB(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1
快速合并与拆分同值单元格
每当遇到查询数据输出成Excel格式时，发现有部分数据列是重复值，一行一行的实在看着花，就会想着手动合并下，但是遇到大数据我们不是要累死？ 所以我们得求助VBA解决了一劳永逸。 合并代码： Sub hb() Application.DisplayAlerts = False Dim r() As Range Set d = CreateObject("Scripting.Dictionary") For Each cel In Range("A1:F10"
Auto_open宏病毒的解决方法
对于办公室一族office基本天天面对，但是office也会像其他程序一样中毒，比如宏病毒，如Auto_open宏病毒。病毒代码如下： Sub auto_open() Application.OnSheetActivate = "ck_files" End Sub Sub ck_files() c$ = Application.StartupPath m$ = Dir(c$ & &qu