神奇的BI

实例需求：工作表I列包含多种计算公式，为了便于演示，将I列公式显示在J列单元格中，现在需要将公式的单元格引用转换为静态值，如K列所示。

如果用户修改单元格填充色，例如选中C列和D列清除填充色，那么当工作表中任意单元格发生变化时，公式将重新计算，C列和D列的填充色将被恢复，相当于实现了挥之不去的单元格格式，效果如下图所示。同理，可以使用公式设置多个单元格的填充色，如A3单元格所示。第2行代码设置UDF为易失函数，任何单元格发生变化时，将重算此函数，注意如果大量单元格使用易失函数，可能会引起Excel卡顿。第5行代码设置UDF返回值，如果设置返回值为空，则设置了公式的单元格中为空白，相当于被隐藏了。，此句是整个解决方案的核心，替换为。

使用Power Query实现数据转换，如下是AD用户的列表,每个用户拥有该应用程序的只读或读写权限，现在需要创建新的AD用户组,并根据用户当前的权限,将这些用户添加到相应的组中。

实例需求：A列到F列为文本数据，每个单元格中包含3个数字，数字之间使用竖线分隔，现需要计算每个单元格中的数字之后。例如F15单元格内容为`10┃5┃18`，则需要计算10、5、18三个数字之和，结果为33，写入单元格M15，如下图所示。

Excel中有一个公式`sign`，其返判断数字的符号，正数返回值为1，负数返回值为-1，0返回值为0。但是在VBA中即无法使用`Application.WorksheetFunction`调用工作表函数，也没有提供相应的VBA函数实现此功能，也许MS的产品经理认为根本不需要这个功能，呵呵。前一阵子在论坛看板有个帖子就是关于这个的提问，其实实现起来也很简单，单行`IIF`嵌套就可以实现，代码如下。

实例需求：批号列包含L、W、H，公式列为计算公式，现需要计算“结果”列。批号列为11位数字，其格式为：LLLLWWxxHHH，其xx为填充位。示例代码如下。Sub demo() Dim arr, L, W, H, Rng Set Rng = [a1].CurrentRegion arr = Rng.Value lst = UBound(arr) For i = 2 To lst L = Left(arr(i, 1), 4) W

实例需求：现有如下审计数据，有些项目为汇总费用，现在需要填充如下公式，由于分项的个数不确定，因此无法使用固定模板，也就是说每月报表的公式都不相同，只能使用VBA动态填充。