有些繁琐的数据处理当中,会遇到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
间隔一行插入一个空行
平时数据在excel都是一行一行紧紧挨在一起,但是当我们希望有区分的是时候,由于数据太大,在每一个数据之间手动插入空行未免太过于繁琐了。 实现方式有2个,一个是用宏代码来实现;另一个就是使用辅助列实现,这个对于没有宏基础的人来说,最实用也最容易上手。 方法如下:假设有100行数据,在A列插入一个辅助列,在A1~A100用1,2,3,4…….一直填充到100,在A101~A199处填写1.5,2.5,3.5…….99.5,然后选择数据区域,按